LOGICAL GM_InMomAsStress
& GM_InMomAsStress,
IF ( GM_InMomAsStress ) THEN
IF ( GM_InMomAsStress .AND. .NOT.GM_AdvForm ) THEN
CALL WRITE_0D_L( GM_InMomAsStress, INDEX_NONE,
IF (GM_InMomAsStress) THEN
GM_InMomAsStress = .FALSE.
& .AND. .NOT.GM_InMomAsStress ) THEN
& .AND. GM_InMomAsStress ) THEN
& .AND. .NOT.GM_InMomAsStress) THEN