SSS0_is_first = .TRUE.
IF (SSS0_is_first) THEN
SSS0_is_first=.FALSE.
SSS0_is_first=.TRUE.
& SSS0_is_first, SST0_is_first