program a

character*70 flname
integer time
character*10 para
character*12 region

namelist /input1 /flname,time,para,region

read (5,input1)
write(6,input1)

end 
