Subroutine TERMINATE4
subroutine TERMINATE4 ! Calls call TERMINATE call rite end subroutine TERMINATE4