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