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

8
src/gray.f
View File

@ -4631,7 +4631,7 @@ c
common/pstab/rpstab common/pstab/rpstab
common/eqnn/nr,nz,npp,nintp common/eqnn/nr,nz,npp,nintp
c c
ip=int((nintp-1)*rpsi+1) ip=int((nintp-1)*rpsi+1)
c if(ip.eq.0) ip=1 c if(ip.eq.0) ip=1
c if(ip.eq.nintp) ip=nintp-1 c if(ip.eq.nintp) ip=nintp-1
ip=min(max(1,ip),nintp-1) ip=min(max(1,ip),nintp-1)
@ -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