LCPQ/qp2
9
1
Fork 0
mirror of https://github.com/QuantumPackage/qp2.git synced 2024-12-22 19:43:32 +01:00
Code Releases Activity

fix old fortran

Browse Source
This commit is contained in:
Anthony Scemama 2022-11-19 14:50:54 +01:00
parent 21bbc6911c
commit 63a74c8afa
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/ao_one_e_ints/pseudopot.f90
View File

@ -1097,7 +1097,7 @@ implicit none
integer nptsgridmax,nptsgrid integer nptsgridmax,nptsgrid
double precision coefs_pseudo,ptsgrid double precision coefs_pseudo,ptsgrid
parameter(nptsgridmax=50) parameter(nptsgridmax=50)
common/pseudos/coefs_pseudo(nptsgridmax),ptsgrid(nptsgridmax,3) double precision common/pseudos/coefs_pseudo(nptsgridmax),ptsgrid(nptsgridmax,3)
!!!!! !!!!!
integer npower_orb(3),l,m,i integer npower_orb(3),l,m,i
double precision x,g_orb,two_pi,dx,dphi,term,orb_phi,ylm_real,sintheta,r_orb,phi,center_orb(3) double precision x,g_orb,two_pi,dx,dphi,term,orb_phi,ylm_real,sintheta,r_orb,phi,center_orb(3)
@ -1238,7 +1238,7 @@ end
double precision coefs_pseudo,ptsgrid double precision coefs_pseudo,ptsgrid
double precision p,q,r,s double precision p,q,r,s
parameter(nptsgridmax=50) parameter(nptsgridmax=50)
common/pseudos/coefs_pseudo(nptsgridmax),ptsgrid(nptsgridmax,3) double precision common/pseudos/coefs_pseudo(nptsgridmax),ptsgrid(nptsgridmax,3)
p=1.d0/dsqrt(2.d0) p=1.d0/dsqrt(2.d0)
q=1.d0/dsqrt(3.d0) q=1.d0/dsqrt(3.d0)