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