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

added few missing dummy values in case of zero absorption

Browse Source
This commit is contained in:
Lorenzo Figini 2015-01-09 15:05:20 +00:00
parent 61f31fce7f
commit 94212dba99
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/gray.f
View File

@ -6580,6 +6580,8 @@ c of gaussian profile
else else
ajmxfi=0.0d0 ajmxfi=0.0d0
ajphip=0.0d0
dpdvp=0.0d0
dpdvmx=0.0d0 dpdvmx=0.0d0
rhotjfi=1.0d0 rhotjfi=1.0d0
rhotjav=1.0d0 rhotjav=1.0d0
@ -6590,8 +6592,8 @@ c of gaussian profile
drhotjava=0.0d0 drhotjava=0.0d0
drhotp=0.0d0 drhotp=0.0d0
drhotpav=0.0d0 drhotpav=0.0d0
ratjamx=0.0d0 ratjamx=1.0d0
ratjbmx=0.0d0 ratjbmx=1.0d0
taumn=0 taumn=0
taumx=0 taumx=0
stmx=stf stmx=stf