check_call.f

Go to the documentation of this file.

!                   *********************
                    SUBROUTINE check_call
!                   *********************
!
     &(ierr, chfile)
!
!***********************************************************************
! BIEF   V6P3                                   21/08/2010
!***********************************************************************
!
!brief    Check the value of ierr and if different from 0 calls plante
!+
!
!history  Y AUDOUIN (LNHE)
!+        11/07/2008
!+        V7P0
!+
!
!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
!| N              |-->| TOTAL NUMBER OF PROCESSORS
!| I              |-->| RANK OF THE PROCESSOR
!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
!
      USE declarations_special
      IMPLICIT NONE

      INTEGER,       INTENT(IN) :: ierr
      CHARACTER(LEN=*), INTENT(IN) :: chfile
!
      CHARACTER(LEN=200) write_error
      EXTERNAL write_error
!
!-----------------------------------------------------------------------
!
      IF(ierr.NE.0) THEN
        WRITE(lu,*) 'ERROR ',ierr,'DURING CALL OF ',chfile
        WRITE(lu,*) 'ERROR TEXT: ',write_error(ierr)
        WRITE(lu,*) trim(error_message)
        CALL plante(1)
        stop
      ENDIF
!
!-----------------------------------------------------------------------
!
      END SUBROUTINE check_call