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