par_Finalize Subroutine

public subroutine par_Finalize()

Deinitialization of MPI.

Arguments

None

Called by

proc~~par_finalize~~CalledByGraph proc~par_finalize par_Finalize proc~cleanup cleanup proc~cleanup->proc~par_finalize proc~finalize Finalize proc~finalize->proc~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
    SDEALLOCATE(req )
    SDEALLOCATE(req1)
    SDEALLOCATE(req2)
    SDEALLOCATE(req3)
#   if MPI
    CALL MPI_FINALIZE(ierr)
#   endif
    !STOP !'END OF PROGRAM'
  END SUBROUTINE par_Finalize