subroutine SS_ZERO ! Variables integer (kind=4) :: I_SS logical :: TRACK_FLAG logical :: ALL end subroutine SS_ZERO
integer (kind=4) :: I_SS
logical :: TRACK_FLAG
logical :: ALL