运行Fortran时总提示：此名称没有被声明为数组

一诺倾情

求各位大神拯救一下智障的我：系统总是提醒：This name has not been declared as an array.
progran m_1
parameter(pi=3.14159265,a=6371.004,k=0.7156)
real l(5,6),an(5,6),x(5,6)
an(1,1)=30.0/180*pi
l(1,1)=a*sin(an(1,1))/k
do i=1,5
   do j=1,6
   if(i/=1 .and. j/=1)then
   l(i,j)=sqrt((j-1)**2*100+(l(1,1)-(i-1)*100)**2)
   an(i,j)=2*atan((l(i,j)/l(1,1))**(1.0/k)*tan(an(1,1)/2.0))
   endif
   x(i,j)=0.5/sin(an(i,j))*(tan(an(i,j)/2.0)/tan(an(1,1)/2.0))**k
   enddo
enddo
write(*,'(f6.4)')((x(i,j),j=1,6),i=1,5)
end

我看了半天，也不知道为什么。。。

file:///E:\Documents\Tencent Files\1946254041\Image\C2C\4DZ$R9XGJ@KP02L0TV]U4FC.png

lqouc

integer:: i , j

香草拿铁

implicit none是个好习惯

一诺倾情

香草拿铁 发表于 2018-3-17 22:52
implicit none是个好习惯

谢谢！试过了，还是不行，唉

一诺倾情

lqouc 发表于 2018-3-17 20:57
integer:: i , j

谢谢你~但是试过了，还是不行

一诺倾情

感觉是我装的Fortran有问题，总是动不动出现同样的问题

惠子

分享了，受教了