added few missing dummy values in case of zero absorption

2015-01-09 15:05:20 +00:00 · 2015-01-09 15:05:20 +00:00 · 94212dba99
commit 94212dba99
parent 61f31fce7f
1 changed files with 5 additions and 3 deletions
--- a/src/gray.f
+++ b/src/gray.f
@ -6580,6 +6580,8 @@ c     of gaussian profile
     
      else
      ajmxfi=0.0d0
+      ajphip=0.0d0
+      dpdvp=0.0d0
      dpdvmx=0.0d0
      rhotjfi=1.0d0
      rhotjav=1.0d0
@ -6590,8 +6592,8 @@ c     of gaussian profile
      drhotjava=0.0d0
      drhotp=0.0d0
      drhotpav=0.0d0
-      ratjamx=0.0d0
-      ratjbmx=0.0d0
+      ratjamx=1.0d0
+      ratjbmx=1.0d0
      taumn=0
      taumx=0
      stmx=stf