ex0920.f90

Fortran 95程序设计【彭国伦】第9章

program ex0920
  implicit none
  integer :: a(3)
  namelist /na/ a

  open(10, file="ex0920.txt")
  read (10,nml=na) 
  write(*,"(3I2)") a

  stop
end program