errpvm.F

Go to the documentation of this file.
00001 C:\opentelemac\v7p0\sources\utils\parallel\errpvm.F
00002 !
00050                      SUBROUTINE ERRPVM
00051 !                    *****************
00052 !
00053      &(ERROR_NUMBER)
00054 !
00055 !***********************************************************************
00056 ! PARALLEL   V6P2                                   21/08/2010
00057 !***********************************************************************
00058 !
00059 !
00060 !
00061 !
00062 !
00063 !
00064 !
00065 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
00066 !| ERROR_NUMBER   |-->| ERROR RETURN VALUE
00067 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
00068 !
00069       IMPLICIT NONE
00070       INTEGER LNG,LU
00071       COMMON/INFO/LNG,LU
00072 !
00073 !+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
00074 !
00075       INTEGER, INTENT(IN) :: ERROR_NUMBER
00076 !
00077 !+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
00078 !
00079 #if defined (HAVE_MPI)
00080       WRITE(LU,*) 'MPI ERROR NUMBER: ',ERROR_NUMBER
00081 !
00082 #else
00083       IF(LNG.EQ.1) WRITE(LU,*) 'APPEL DE ERRPVM VERSION VIDE'
00084       IF(LNG.EQ.2) WRITE(LU,*) 'CALL OF ERRPVM IN ITS VOID VERSION'
00085 !
00086 #endif
00087       RETURN
00088       END

Generated on Fri Aug 31 2013 18:12:58 by S.E.Bourban (HRW) using doxygen 1.7.0