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