istp/gray
2
0
Fork 0
Code Issues Pull Requests Packages Projects Releases 1 Wiki Activity

corrected expression for gaussian dpdvp

Browse Source
This commit is contained in:
Daniela Farina 2014-03-13 17:40:33 +00:00
parent 95a119ba35
commit fb2729f9b7
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/gray.f
View File

@ -6295,7 +6295,7 @@ c of gaussian profile
rhpp=frhopol(rhotpav) rhpp=frhopol(rhotpav)
rhpj=frhopol(rhotjava) rhpj=frhopol(rhotjava)
dpdvp=pabs*2.0d0/(sqrt(pi)*drhotjava*fdvdrhot(rhpp)) dpdvp=pabs*2.0d0/(sqrt(pi)*drhotpav*fdvdrhot(rhpp))
ajphip=currt*2.0d0/(sqrt(pi)*drhotjava*fdadrhot(rhpj)) ajphip=currt*2.0d0/(sqrt(pi)*drhotjava*fdadrhot(rhpj))
call ratioj(rhpj,ratjamx,ratjbmx,ratjplmx) call ratioj(rhpj,ratjamx,ratjbmx,ratjplmx)