mirror of
https://github.com/TREX-CoE/irpjast.git
synced 2024-07-03 09:56:11 +02:00
85 lines
1.8 KiB
Fortran
85 lines
1.8 KiB
Fortran
BEGIN_PROVIDER [integer, naord]
|
|
implicit none
|
|
BEGIN_DOC
|
|
! Expansion order for f_en
|
|
END_DOC
|
|
naord = 5
|
|
END_PROVIDER
|
|
|
|
BEGIN_PROVIDER [integer, nbord]
|
|
implicit none
|
|
BEGIN_DOC
|
|
! Expansion order for f_ee
|
|
END_DOC
|
|
nbord = 5
|
|
END_PROVIDER
|
|
|
|
BEGIN_PROVIDER [integer, ncord]
|
|
implicit none
|
|
BEGIN_DOC
|
|
! Expansion order for f_een
|
|
END_DOC
|
|
ncord = 5
|
|
END_PROVIDER
|
|
|
|
BEGIN_PROVIDER [double precision, aord_vect, (naord)]
|
|
&BEGIN_PROVIDER [double precision, bord_vect, (nbord)]
|
|
&BEGIN_PROVIDER [double precision, cord_vect, (0:ncord , 0:ncord , ncord , nnuc)]
|
|
implicit none
|
|
BEGIN_DOC
|
|
! Read Jastow coefficients from file (NEEDS OPTIMIZATION!)
|
|
END_DOC
|
|
PROVIDE naord
|
|
PROVIDE nbord
|
|
PROVIDE ncord
|
|
character(len=*), parameter :: FILE_NAME = "orders_inp"
|
|
integer :: i, fu, rc, maxord
|
|
double precision, dimension((ncord + 1) * (ncord + 1) * ncord * nnuc) :: allord_vect
|
|
|
|
maxord = (ncord + 1) * (ncord + 1) * ncord * nnuc + naord + nbord
|
|
|
|
open(action='read', file=FILE_NAME, iostat=rc, newunit=fu)
|
|
|
|
read(fu, *) aord_vect
|
|
read(fu, *) bord_vect
|
|
read(fu, *) cord_vect
|
|
|
|
close(fu)
|
|
|
|
END_PROVIDER
|
|
|
|
! 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
|
|
!
|
|
! 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
|