2020-11-17 21:35:52 +01:00
|
|
|
BEGIN_PROVIDER [integer, naord]
|
|
|
|
|
implicit none
|
|
|
|
|
BEGIN_DOC
|
|
|
|
|
! Expansion order for f_en
|
2020-11-26 16:12:33 +01:00
|
|
|
END_DOC
|
|
|
|
|
naord = 5
|
2020-11-17 21:35:52 +01:00
|
|
|
END_PROVIDER
|
|
|
|
|
|
|
|
|
|
BEGIN_PROVIDER [integer, nbord]
|
|
|
|
|
implicit none
|
|
|
|
|
BEGIN_DOC
|
|
|
|
|
! Expansion order for f_ee
|
2020-11-26 16:12:33 +01:00
|
|
|
END_DOC
|
|
|
|
|
nbord = 5
|
2020-11-17 21:35:52 +01:00
|
|
|
END_PROVIDER
|
|
|
|
|
|
|
|
|
|
BEGIN_PROVIDER [integer, ncord]
|
|
|
|
|
implicit none
|
|
|
|
|
BEGIN_DOC
|
|
|
|
|
! Expansion order for f_een
|
2020-11-26 16:12:33 +01:00
|
|
|
END_DOC
|
|
|
|
|
ncord = 5
|
2020-11-17 21:35:52 +01:00
|
|
|
END_PROVIDER
|
|
|
|
|
|
|
|
|
|
BEGIN_PROVIDER [double precision, aord_vect, (naord)]
|
2020-12-04 01:05:07 +01:00
|
|
|
&BEGIN_PROVIDER [double precision, bord_vect, (nbord)]
|
2020-12-04 15:33:20 +01:00
|
|
|
&BEGIN_PROVIDER [double precision, cord_vect, ((ncord + 1) * (ncord + 1) * ncord * nnuc)]
|
2020-12-04 01:05:07 +01:00
|
|
|
implicit none
|
|
|
|
|
BEGIN_DOC
|
|
|
|
|
! Read Jastow coefficients from file (NEEDS OPTIMIZATION!)
|
|
|
|
|
END_DOC
|
2020-12-04 15:33:20 +01:00
|
|
|
PROVIDE naord
|
|
|
|
|
PROVIDE nbord
|
|
|
|
|
PROVIDE ncord
|
2020-12-04 01:05:07 +01:00
|
|
|
character(len=*), parameter :: FILE_NAME = "orders_inp"
|
2020-12-04 15:33:20 +01:00
|
|
|
integer :: i, fu, rc, maxord
|
|
|
|
|
double precision, dimension((ncord + 1) * (ncord + 1) * ncord * nnuc + naord + nbord) :: allord_vect
|
|
|
|
|
|
|
|
|
|
maxord = (ncord + 1) * (ncord + 1) * ncord * nnuc + naord + nbord
|
2020-11-17 21:35:52 +01:00
|
|
|
|
2020-12-04 01:05:07 +01:00
|
|
|
open(action='read', file=FILE_NAME, iostat=rc, newunit=fu)
|
|
|
|
|
|
2020-12-04 15:33:20 +01:00
|
|
|
do i = 1, maxord
|
2020-12-04 01:05:07 +01:00
|
|
|
read(fu, *) allord_vect(i)
|
|
|
|
|
end do
|
|
|
|
|
|
|
|
|
|
aord_vect = allord_vect(1:naord)
|
|
|
|
|
bord_vect = allord_vect(naord + 1: naord + nbord)
|
|
|
|
|
cord_vect = allord_vect(naord + nbord + 1:)
|
|
|
|
|
|
|
|
|
|
close(fu)
|
2020-11-17 21:35:52 +01:00
|
|
|
|
|
|
|
|
END_PROVIDER
|
2020-12-04 01:05:07 +01:00
|
|
|
|
|
|
|
|
! BEGIN_PROVIDER [double precision, aord_vect, (naord)]
|
|
|
|
|
! implicit none
|
|
|
|
|
! BEGIN_DOC
|
|
|
|
|
! ! Vector of the `a' coefficients
|
|
|
|
|
! END_DOC
|
|
|
|
|
! integer :: i
|
|
|
|
|
! PROVIDE seed
|
|
|
|
|
! call random_number(aord_vect)
|
|
|
|
|
! aord_vect = aord_vect*.1d-2
|
|
|
|
|
! FREE seed
|
|
|
|
|
! END_PROVIDER
|
|
|
|
|
!
|
|
|
|
|
! BEGIN_PROVIDER [double precision, bord_vect, (nbord)]
|
|
|
|
|
! implicit none
|
|
|
|
|
! BEGIN_DOC
|
|
|
|
|
! ! Vector of the `b' coefficients
|
|
|
|
|
! END_DOC
|
|
|
|
|
! integer :: i
|
|
|
|
|
! PROVIDE seed
|
|
|
|
|
! call random_number(bord_vect)
|
|
|
|
|
! bord_vect = bord_vect*.1d-6
|
|
|
|
|
! FREE seed
|
|
|
|
|
! END_PROVIDER
|
|
|
|
|
!
|
2020-12-04 15:33:20 +01:00
|
|
|
! BEGIN_PROVIDER [double precision, cord_vect, (0:ncord,0:ncord,ncord,nnuc)]
|
|
|
|
|
! implicit none
|
|
|
|
|
! BEGIN_DOC
|
|
|
|
|
! ! Vector of the `c' coefficients
|
|
|
|
|
! END_DOC
|
|
|
|
|
! PROVIDE seed
|
|
|
|
|
! call random_number(cord_vect)
|
|
|
|
|
! cord_vect_0 = cord_vect_0 * .1d-4
|
|
|
|
|
! FREE seed
|
|
|
|
|
! END_PROVIDER
|
