ex0707.f90

fortran 95书的源程序全集

program ex0707
implicit none
  integer, parameter :: row = 2
  integer, parameter :: col = 2
  integer :: m(row, col)
  integer r ! 用来指定row
  integer c ! 用来指定column
  data ((m(r,c), r=1, 2), c=1,2) /1,2,3,4/

  ! 依次输出m(1,1), m(2,1), m(1,2), m(2,2)这4个数字,  
  write(*,"(I3,I3,/,I3,I3)") (( m(r,c), c=1,2 ), r=1,2)

  stop
end