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

added missing save in common for ddr11 variable

Browse Source
This commit is contained in:
Lorenzo Figini 2013-02-21 09:48:15 +00:00
parent 403ea3a938
commit b83b6f0f5b
1 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
src/gray.f
View File

@ -399,7 +399,7 @@ c
common/epolar/ex,ey,ez
c
common/nplr/anpl,anpr
common/ddd/ddr,an2s,an2,fdia,bdotgr,ddi
common/ddd/ddr,an2s,an2,fdia,bdotgr,ddi,ddr11
common/nprw/anprr,anpri
c
common/wrk/ywrk,ypwrk
@ -515,7 +515,7 @@ c
else
If(index_rt.eq.3) then
c If(index_rt.eq.3) then
write(4,*) ' '
write(8,*) ' '
write(9,*) ' '
@ -523,7 +523,7 @@ c
write(12,*) ' '
write(48,*) ' '
end if
c end if
end if
return
end
@ -2976,7 +2976,7 @@ c
c
common/gr/gr2
common/dgr/dgr2,dgr,ddgr
common/ddd/dd,an2s,an2,fdia,bdotgr,ddi
common/ddd/dd,an2s,an2,fdia,bdotgr,ddi,ddr11
common/mode/sox
common/nplr/anpl,anpr
common/bb/bv
@ -3736,7 +3736,7 @@ c
common/dgrad2jk/dgrad2v
common/gradjk/gri
common/ggradjk/ggri
common/ddd/dd,an2s,an2,fdia,bdotgr,ddi
common/ddd/dd,an2s,an2,fdia,bdotgr,ddi,ddr11
c
ui=(0.0d0,1.0d0)
csth=anz0c
@ -3997,7 +3997,7 @@ c
common/dgrad2jk/dgrad2v
common/gradjk/gri
common/ggradjk/ggri
common/ddd/dd,an2s,an2,fdia,bdotgr,ddi
common/ddd/dd,an2s,an2,fdia,bdotgr,ddi,ddr11
c
csth=anz0c
snth=sqrt(1.0d0-csth**2)
@ -4148,7 +4148,7 @@ c
common/dgrad2jk/dgrad2v
common/gradjk/gri
common/ggradjk/ggri
common/ddd/dd,an2s,an2,fdia,bdotgr,ddi
common/ddd/dd,an2s,an2,fdia,bdotgr,ddi,ddr11
common/yyrfl/yyrfl
do j=1,nrayr