请各位高手帮帮忙，循环中的数组问题

珊瑚虫

[Fortran] syntaxhighlighter_viewsource syntaxhighlighter_copycode

do i=1,5
	do j=1,6
		a(i,j)=atan2(((j-1)*100),(L0-(i-1)*100))
		u(i,j)=u1*cos(a(i,j)*pi/180)+v1*sin(a(i,j)*pi/180) ！注意这一行和下一行中，u1,v1也是二维数组，你需要制定他们的位置，比如u1(i,j)
		v(i,j)=v1*cos(a(i,j)*pi/180)-u1*sin(a(i,j)*pi/180)
	enddo

enddo