求助！关于gfortran编译器下一位数组赋值成二维数组的问题！

段段

各位大侠：
我在gfortran编译器下编译一段程序，出现了段错误，查找到问题应该是一位数组赋值成二维数组的问题（这段程序在ifort编译器下是没有问题的，但现在ifort已过期，不能使用）。
程序段如下：
jloop: do j=1,num2
           read(infile3,*)stid1(j),landuse(j)
           print*,'j=',' ',j,landuse(j)
           read(infile2,*)stid1(j),alon1(j),alat1(j),h_s1(j)
           read(infile1,*)
          kloop:  do k=1,num
            read(infile1,*)stid(k),alat(k),alon(k),h_s(k),h_w(k),t1(k),t2(k),&
                          uspd1(k),uspd2(k),udir1(k),udir2(k),r_1hr1(k),r_1hr2(k)
           print*,"j=",j,"stid1=",stid1(j),"k=",k,"sitd=",stid(k)
             if(stid(k)==stid1(j))then
                            tt=(id-1)*8+ih/3      
                  print*,t1(k)                 ！！！！这里能输出t1的数值
                   t11(j,tt)=t1(k)            ！！！！将一位数组赋值成有时间维的二维数组  ！！！！编译时这里开始出现段错误提示
                   print*,t11(j,tt)                  
                   t22(j,tt)=t2(k)
                   t33(j,tt)=t2(k)-t1(k)
                   t_AE(j,tt)=ABS(t33(j,tt))
              !  print*,t33(j,tt)
enddo
enddo


请问，在gfortran编译器下t11(j,tt)=t1(k)   这段语句该怎么写？

baggio

{:eb303:}{:eb303:}{:eb303:}{:eb303:}{:eb303:}

段段

问题已经解决，不是数组赋值的问题，是下标越界了。