From fb2729f9b78605d28664a45f152cf2f4d84ccd50 Mon Sep 17 00:00:00 2001 From: Daniela Farina Date: Thu, 13 Mar 2014 17:40:33 +0000 Subject: [PATCH] corrected expression for gaussian dpdvp --- src/gray.f | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/gray.f b/src/gray.f index 3e3296b..7b4b44e 100644 --- a/src/gray.f +++ b/src/gray.f @@ -6295,7 +6295,7 @@ c of gaussian profile rhpp=frhopol(rhotpav) 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)) call ratioj(rhpj,ratjamx,ratjbmx,ratjplmx)