Fortran 编小程序
Fortran 编小程序
日期：2013-04-10 23:24:46 人气：1
program main
implicit none
integer a(3,3) !// 是的，就是这样
integer row
integer col
do row = 1,3
do col = 1,3
a( col , row ) = row * 3 - 3 + col
end do
end do
write(*,*) a
end
Fortran 编小程序