3   namelist /nl/x  namelist
6     namelist /nl/y
13   write(12, nml=nl)
25   namelist /nl/x  namelist
31   write(12, nml=nl)
38   namelist /nl/y  namelist
42   namelist /nl/x  namelist
49   namelist /nl/ s6  namelist
51   namelist /nl/ f  namelist
60   namelist /nl/ x  namelist
79   public :: nl
80   namelist /nl/ x  namelist