gretel_skip_header.f

Go to the documentation of this file.

!                       *****************************
                        SUBROUTINE gretel_skip_header
!                       *****************************
!
     &(fu,npoin,nvalue,err,lu)
!
!***********************************************************************
! PARALLEL   V6P0                                   21/08/2010
!***********************************************************************
!
!brief
!
!history  N.DURAND (HRW), S.E.BOURBAN (HRW)
!+        13/07/2010
!+        V6P0
!+   Translation of French comments within the FORTRAN sources into
!+   English comments
!
!history  N.DURAND (HRW), S.E.BOURBAN (HRW)
!+        21/08/2010
!+        V6P0
!+   Creation of DOXYGEN tags for automated documentation and
!+   cross-referencing of the FORTRAN sources
!
!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
!| ERR            |---|
!| FU             |---|
!| LU             |---|
!| NPOIN          |---|
!| NVALUE         |---|
!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
!
      IMPLICIT NONE
!
      INTEGER, INTENT(OUT) :: NPOIN
      INTEGER, INTENT(IN) :: FU,ERR,LU,NVALUE
      INTEGER NELEM,ECKEN,NDUM,NBV1,I,NPLAN
      INTEGER PARAM(10)
!
!  1 : SKIPS TITLE
!
      READ(fu,err=999)
!
!  2 : READS NBV1
!
      READ(fu,err=999) nbv1
      IF (nbv1.NE.nvalue) THEN
        WRITE(lu,*)  .NE.'NBV1NVALUE! CHECK OUTPUT FILES ...'
        CALL plante(1)
        stop
      ENDIF
!
!  3 : SKIPS NAMES AND UNITS OF THE VARIABLES
!
      DO i=1,nbv1
        READ(fu,err=999)
      END DO
!
!  4 : 10 PARAMETERS
!
      READ(fu,err=999) (param(i),i=1,10)
      nplan=param(7)
!  READS THE DATE (OPTIONAL) AND WRITES IT OUT
      IF(param(10).EQ.1) THEN
        READ(fu,err=999)  (param(i),i=1,6)
      ENDIF
!
!  5 : 4 PARAMETERS
!
      READ(fu,err=999) nelem,npoin,ecken,ndum
!
!  6 : IKLE
!
      READ(fu,err=999)
!
 999  RETURN
      END SUBROUTINE gretel_skip_header