Subroutine TERMINATE7

subroutine TERMINATE7

        ! Calls
    call TERMINATE
    call rite

end subroutine TERMINATE7