IF ( mon_write_stdout ) THEN
mon_write_stdout = .FALSE.
mon_write_stdout = .TRUE.
IF (mon_write_stdout) THEN
& mon_write_stdout, mon_write_mnc
LOGICAL mon_write_stdout, mon_write_mnc