求助：提示错误6366，the shapes of the array expression do not conform..

lindaleehy · 发表于 2016-3-2 21:25:01

我是在一段很长的程序里加了自己编的程序
应用了里面的整形数组level（i,j,k）
但是，就出现上面的错误了。。。。
应该怎么办，原来没加新程序前运行正常，6366，the shapes of the array expression do not conform...
integer level(71,71,71)
我加的
if(level(ixzh,jxzh,kxzh).ne.shzrwlb(ixz))then
level里面的那三个是已知的，而且后面它本来的程序也这么用的，所以很纠结，怎么错的呢
我想让三维数组里的某一个值和一维数组里面的某一个值比较，应该怎么编呢

[Fortran] 纯文本查看 复制代码

  do 3002 kkk=2,nrow-1
          do 3002 jjj=2,nrow-1
             do 3002 iii=2,nrow-1
             if (u(iii,jjj,kkk).gt.0)then
               ibj=iii
               jbj=jjj
               kbj=kkk
3004           do 3003 izd=1,ibl                 
                 ibianbianbian=level(ibj,jbj,kbj)
                 ibianbianbianbian=shzrwlb(izd)
                 if (ibianbianbian.ne.ibianbianbianbian)then
                 goto 3004

我就算把他赋值给其他也没解决错误
求大神们帮帮忙，我还是刚刚学习，好多都不懂，~~~~(>_<)~~~~