gretel_skip_header.f

Go to the documentation of this file.
00001 C:\opentelemac\v7p0\sources\utils\gretel\gretel_skip_header.f
00002 !
00044                         SUBROUTINE GRETEL_SKIP_HEADER
00045 !                       *****************************
00046 !
00047      &(FU,NPOIN,NVALUE,ERR,LU)
00048 !
00049 !***********************************************************************
00050 ! PARALLEL   V6P0                                   21/08/2010
00051 !***********************************************************************
00052 !
00053 !
00054 !
00055 !
00056 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
00057 !| ERR            |---|
00058 !| FU             |---|
00059 !| LU             |---|
00060 !| NPOIN          |---|
00061 !| NVALUE         |---|
00062 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
00063 !
00064       IMPLICIT NONE
00065 !
00066       INTEGER, INTENT(OUT) :: NPOIN
00067       INTEGER, INTENT(IN) :: FU,ERR,LU,NVALUE
00068       INTEGER NELEM,ECKEN,NDUM,NBV1,I,NPLAN
00069       INTEGER PARAM(10)
00070 !
00071 !  1 : SKIPS TITLE
00072 !
00073       READ(FU,ERR=999)
00074 !
00075 !  2 : READS NBV1
00076 !
00077       READ(FU,ERR=999) NBV1
00078       IF (NBV1.NE.NVALUE) THEN
00079         WRITE(LU,*)  'NBV1.NE.NVALUE! CHECK OUTPUT FILES ...'
00080         CALL PLANTE(1)
00081         STOP
00082       ENDIF
00083 !
00084 !  3 : SKIPS NAMES AND UNITS OF THE VARIABLES
00085 !
00086       DO I=1,NBV1
00087         READ(FU,ERR=999)
00088       END DO
00089 !
00090 !  4 : 10 PARAMETERS
00091 !
00092       READ(FU,ERR=999) (PARAM(I),I=1,10)
00093       NPLAN=PARAM(7)
00094 !  READS THE DATE (OPTIONAL) AND WRITES IT OUT
00095       IF(PARAM(10).EQ.1) THEN
00096         READ(FU,ERR=999)  (PARAM(I),I=1,6)
00097       ENDIF
00098 !
00099 !  5 : 4 PARAMETERS
00100 !
00101       READ(FU,ERR=999) NELEM,NPOIN,ECKEN,NDUM
00102 !
00103 !  6 : IKLE
00104 !
00105       READ(FU,ERR=999)
00106 !
00107  999  RETURN
00108       END SUBROUTINE GRETEL_SKIP_HEADER

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