ex0919.f90

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

program ex0919
  implicit none
  integer :: a, b, c
  namelist /na/ a,b,c
  read (*,nml=na) 
  write(*,nml=na) 
  stop
end program