check_allocate.f

Go to the documentation of this file.
00001 C:\opentelemac\v7p0\sources\utils\special\check_allocate.f
00002 !
00046       SUBROUTINE CHECK_ALLOCATE
00047 !                    ****************************************
00048 !
00049      &(IERR, CHFILE)
00050 !
00051 !***********************************************************************
00052 ! BIEF   V6P3                                   21/08/2010
00053 !***********************************************************************
00054 !
00055 !
00056 !
00057 !
00058 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
00059 !| N              |-->| TOTAL NUMBER OF PROCESSORS
00060 !| I              |-->| RANK OF THE PROCESSOR
00061 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
00062 !
00063       IMPLICIT NONE
00064       INTEGER LNG,LU
00065       COMMON/INFO/LNG,LU
00066 
00067       INTEGER,       INTENT(IN) :: IERR
00068       CHARACTER*(*), INTENT(IN) :: CHFILE
00069 !
00070 !-----------------------------------------------------------------------
00071 !
00072       IF(IERR.NE.0) THEN
00073         IF(LNG.EQ.1) WRITE(LU,*) 'ERROR DURING ALLOCATION OF ',CHFILE
00074         IF(LNG.EQ.2)WRITE(LU,*) 'ERREUR LORS DE L ALLOCATION DE ',CHFILE
00075         CALL PLANTE(-1)
00076       ENDIF
00077 !
00078 !-----------------------------------------------------------------------
00079 !
00080       END SUBROUTINE CHECK_ALLOCATE

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