par_Finalize Subroutine

public subroutine par_Finalize()

Deinitialisation of MPI.

Arguments

None

Calls

proc~~par_finalize~~CallsGraph proc~par_finalize par_Finalize mpi_finalize mpi_finalize proc~par_finalize->mpi_finalize

Called by

proc~~par_finalize~~CalledByGraph proc~par_finalize par_Finalize proc~start_rungvec start_rungvec proc~start_rungvec->proc~par_finalize program~gvec GVEC program~gvec->proc~par_finalize program~gvec_post GVEC_POST program~gvec_post->proc~par_finalize

Source Code

  SUBROUTINE par_Finalize()
    IMPLICIT NONE
  !--------------------------------------------------------------------------------------------------------------------------------
  ! LOCAL VARIABLES
    INTEGER :: ierr
  !================================================================================================================================
  ! BODY
    DEALLOCATE(req )
    DEALLOCATE(req1)
    DEALLOCATE(req2)
    DEALLOCATE(req3)
#   if MPI
    CALL MPI_FINALIZE(ierr)
#   endif
    !STOP !'END OF PROGRAM'
  END SUBROUTINE par_Finalize