INTEGER :: x INTEGER,DIMENSION(5) :: a NAMELIST /name/ x,a x=987; a=0; a(1)=12 WRITE(*,name) !または、WRITE(*,NML=name)
INTEGER :: x,y CHARACTER (LEN=10) :: moji NAMELIST /name/ x,y,moji READ(*,name)