check_allocate.f

Go to the documentation of this file.

!                   *************************
                    SUBROUTINE check_allocate
!                   *************************
!
     &(ierr, chfile)
!
!***********************************************************************
! BIEF   V6P3                                   21/08/2010
!***********************************************************************
!
!brief    GIVES THE EXTENSION FOR NAMING FILES IN PARALLEL
!+
!
!history  J-M HERVOUET (LNHE)
!+        11/07/2008
!+        V5P9
!+
!
!history  J-M HERVOUET (LNHE)
!+        22/11/2012
!+        V6P3
!+   USE BIEF removed, IIPID and IPID changed into I.
!
!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
!| N              |-->| TOTAL NUMBER OF PROCESSORS
!| I              |-->| RANK OF THE PROCESSOR
!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
!
      USE declarations_special
      IMPLICIT NONE

      INTEGER,       INTENT(IN) :: ierr
      CHARACTER(LEN=*), INTENT(IN) :: chfile
!
!-----------------------------------------------------------------------
!
      IF(ierr.NE.0) THEN
        WRITE(lu,*) 'ERREUR LORS DE L ALLOCATION DE ',chfile
        CALL plante(1)
      ENDIF
!
!-----------------------------------------------------------------------
!
      END SUBROUTINE check_allocate