program ice_nml use mod_nml1 implicit none integer :: ilu ldiag = .false. write(*,nml=nam_nml1) ! <-- Use assoc. of namelist-group-name end program ice_nml
program ice_nml use mod_nml1 implicit none integer :: ilu, j namelist /nam_nml1/j ! <-- Use assoc of namelist-group-name ldiag = .false. j = 42 write(*,nml=nam_nml1) ! <-- Use assoc of namelist-group-name end program ice_nml
Clarification of the interpretation of C8107 would be appreciated?