Subroutine TERMINATE9

subroutine TERMINATE9

        ! Calls
    call TERMINATE
    call rite

end subroutine TERMINATE9