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

changed dimension of ext eyt polarization arrays to avoid out of bounds error. to be checked.

Browse Source
This commit is contained in:
Lorenzo Figini 2015-05-21 09:09:16 +00:00
parent 1df304f221
commit 6b3a4a807d
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
src/gray.f
View File

@ -185,7 +185,7 @@ c
dimension iiv(jmx,kmx),tauv(jmx,kmx,nmx),alphav(jmx,kmx,nmx)
dimension iop(jmx,kmx),iow(jmx,kmx),ihcd(jmx,kmx),istore(jmx,kmx)
dimension tau1v(jmx,kmx),yyrfl(jmx,kmx,6),y(6),dery(6)
dimension ext(jmx,kmx,0:3),eyt(jmx,kmx,0:3)
dimension ext(jmx,kmx,0:4),eyt(jmx,kmx,0:4)
dimension xv(3),anv(3),xvrfl(3),anvrfl(3),xvvac(3),anw(3),anwcl(3)
dimension xwcl(3),xvjk(3,jmx,kmx),anvjk(3,jmx,kmx)
dimension ywrk(6,jmx,kmx),ypwrk(6,jmx,kmx)
@ -3970,7 +3970,7 @@ c
dimension dffiu(jmx),ddffiu(jmx)
dimension grad2(jmx,kmx),dgrad2v(ndimm,jmx,kmx)
dimension gri(3,jmx,kmx),ggri(3,3,jmx,kmx)
complex*16 ext(jmx,kmx,0:3),eyt(jmx,kmx,0:3)
complex*16 ext(jmx,kmx,0:4),eyt(jmx,kmx,0:4)
complex*16 ui,sss,ddd,phic,qi1,qi2,tc,ts,qqxx,qqxy,qqyy
complex*16 dqi1,dqi2,dqqxx,dqqyy,dqqxy
complex*16 d2qi1,d2qi2,d2qqxx,d2qqyy,d2qqxy
@ -4287,7 +4287,7 @@ c
dimension dffiu(jmx),ddffiu(jmx)
dimension grad2(jmx,kmx),dgrad2v(ndimm,jmx,kmx)
dimension gri(3,jmx,kmx),ggri(3,3,jmx,kmx)
complex*16 ext(jmx,kmx,0:3),eyt(jmx,kmx,0:3)
complex*16 ext(jmx,kmx,0:4),eyt(jmx,kmx,0:4)
c
common/nray/nrayr,nrayth
common/rwmax/rwmax
@ -4483,7 +4483,7 @@ c
dimension dffiu(jmx),ddffiu(jmx)
dimension grad2(jmx,kmx),dgrad2v(ndimm,jmx,kmx)
dimension gri(3,jmx,kmx),ggri(3,3,jmx,kmx)
complex*16 ext(jmx,kmx,0:3),eyt(jmx,kmx,0:3)
complex*16 ext(jmx,kmx,0:4),eyt(jmx,kmx,0:4)
c
common/nray/nrayr,nrayth
common/wrk/ywrk0,ypwrk0