comms_end Subroutine

public subroutine comms_end()

Called to finalise the comms

Arguments

None

Called by

proc~~comms_end~~CalledByGraph proc~comms_end comms_end program~w90spn2spn w90spn2spn program~w90spn2spn->proc~comms_end program~wannier wannier program~wannier->proc~comms_end program~w90chk2chk w90chk2chk program~w90chk2chk->proc~comms_end program~postw90 postw90 program~postw90->proc~comms_end

Contents

Source Code


Source Code

  subroutine comms_end
    !! Called to finalise the comms
    implicit none

#ifdef MPI
    integer :: ierr

    call mpi_finalize(ierr)
#endif

  end subroutine comms_end