comms_setup Subroutine

public subroutine comms_setup()

Set up communications

Arguments

None

Calls

proc~~comms_setup~~CallsGraph proc~comms_setup comms_setup proc~comms_setup_vars comms_setup_vars proc~comms_setup->proc~comms_setup_vars

Called by

proc~~comms_setup~~CalledByGraph proc~comms_setup comms_setup program~wannier wannier program~wannier->proc~comms_setup program~postw90 postw90 program~postw90->proc~comms_setup program~w90chk2chk w90chk2chk program~w90chk2chk->proc~comms_setup

Contents

Source Code


Source Code

  subroutine comms_setup
    !! Set up communications
    implicit none

#ifdef MPI
    integer :: ierr

    call mpi_init(ierr)
    if (ierr .ne. 0) call io_error('MPI initialisation error')
#endif

    call comms_setup_vars

  end subroutine comms_setup