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