Fortran程序在屏幕上输出数组。
示例程序
program main
! 可以写成subroutine
implicit none
real, allocatable, dimension(:,:) :: m1
real, allocatable, dimension(:,:) :: m2
integer :: N
integer :: i,j
allocate(m1(N,N+1),m2(N,N))
do i = lbound(m1,1), ubound(m1,1)
write(*,*) (m1(i,j), j = lbound(m1,2), ubound(m1,2))
end do
deallocate(m1,m2)
end program main