mirror of
https://github.com/QuantumPackage/qp2.git
synced 2024-08-25 05:31:48 +02:00
fix old fortran
This commit is contained in:
parent
21bbc6911c
commit
63a74c8afa
@ -1097,7 +1097,7 @@ implicit none
|
||||
integer nptsgridmax,nptsgrid
|
||||
double precision coefs_pseudo,ptsgrid
|
||||
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
|
||||
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 p,q,r,s
|
||||
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)
|
||||
q=1.d0/dsqrt(3.d0)
|
||||
|
Loading…
Reference in New Issue
Block a user