Nodes of different colours represent the following:
Solid arrows point from a procedure to one which it calls. Dashed
arrows point from an interface to procedures which implement that interface.
This could include the module procedures in a generic interface or the
implementation in a submodule of an interface in a parent module.
Nodes of different colours represent the following:
Solid arrows point from a procedure to one which it calls. Dashed
arrows point from an interface to procedures which implement that interface.
This could include the module procedures in a generic interface or the
implementation in a submodule of an interface in a parent module.
subroutine check_mpi_error(iError,event_string)integer,intent(in)::iErrorcharacter(len=*),intent(in)::event_stringcharacter(len=100)::IOErrorinteger::resultlen=100integer::ErrErrif(iError/=MPI_SUCCESS)then call MPI_ERROR_STRING(iError,IOError,resultlen,ErrErr)write(logUnit(0),*)'MPI Error when '//trim(event_string),': '&&//trim(IOError)call tem_abort()end if end subroutine check_mpi_error