& timeave_mdsio, snapshot_mdsio, monitor_stdio,
LOGICAL timeave_mdsio, snapshot_mdsio, monitor_stdio
IF (KPPwriteState .AND. snapshot_mdsio) THEN
& .AND. snapshot_mnc ) snapshot_mdsio = .FALSE.
IF (snapshot_mdsio) THEN
IF (MYwriteState .AND. snapshot_mdsio) THEN
CALL WRITE_0D_L(snapshot_mdsio,INDEX_NONE,
snapshot_mdsio = .TRUE.