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