From 6b3a4a807d1f982ecef5a1102e2fcd2f32bb7cbc Mon Sep 17 00:00:00 2001 From: Lorenzo Figini Date: Thu, 21 May 2015 09:09:16 +0000 Subject: [PATCH] changed dimension of ext eyt polarization arrays to avoid out of bounds error. to be checked. --- src/gray.f | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/src/gray.f b/src/gray.f index 4d73c90..dc26ba8 100644 --- a/src/gray.f +++ b/src/gray.f @@ -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