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