LOGICAL SHELFICEwriteState
& SHELFICEwriteState,
CALL WRITE_0D_L( SHELFICEwriteState, INDEX_NONE,
IF (SHELFICEwriteState) THEN
SHELFICEwriteState = .FALSE.