代码如下,文档内容如图。program hb implicit none integer :: a(3) namelist /na/ a open(10,file="hb.txt") read(10,nml=na) write(*,"(3I2)") a pause stop end program
前者是定义,后者是read的格式na为namelist的名称