lecadc.f

Go to the documentation of this file.
00001 C:\opentelemac\v7p0\sources\stbtel\lecadc.f
00002 !
00031                         SUBROUTINE LECADC
00032 !                       *****************
00033 !
00034      &( X , Y , ZF , IKLE , NGEO )
00035 !
00036 !***********************************************************************
00037 ! PROGICIEL : STBTEL V5.2         13/08/01    J-M HERVOUET  (LNH)
00038 !
00039 !***********************************************************************
00040 !
00041 !     FONCTION  :  LECTURE DU FICHIER DE LA GEOMETRIE CREE PAR ADCIRC
00042 !
00043 !-----------------------------------------------------------------------
00044 !                             ARGUMENTS
00045 ! .________________.____.______________________________________________
00046 ! |      NOM       |MODE|                   ROLE
00047 ! |________________|____|______________________________________________
00048 ! |   X,Y          |<-- | COORDONNEES DU MAILLAGE .
00049 ! |   X1,Y1        |<-- | COORDONNEES DU MAILLAGE LUES EN SIMPLE
00050 ! |                |    | PRECISION DANS LE FICHIER SIMAIL
00051 ! |   IKLE         |<-- | LISTE DES POINTS DE CHAQUE ELEMENT
00052 ! |   TITRE        |<-- | TITRE DU MAILLAGE
00053 ! |________________|____|______________________________________________
00054 ! | COMMON:        |    |
00055 ! |  GEO:          |    |
00056 ! |    MESH        | -->| TYPE DES ELEMENTS DU MAILLAGE
00057 ! |    NDP         | -->| NOMBRE DE NOEUDS PAR ELEMENTS
00058 ! |    NPOIN       | -->| NOMBRE TOTAL DE NOEUDS DU MAILLAGE
00059 ! |    NELEM       | -->| NOMBRE TOTAL D'ELEMENTS DU MAILLAGE
00060 ! |    NPMAX       | -->| DIMENSION EFFECTIVE DES TABLEAUX X ET Y
00061 ! |                |    | (NPMAX = NPOIN + 0.1*NELEM)
00062 ! |    NELMAX      | -->| DIMENSION EFFECTIVE DES TABLEAUX CONCERNANT
00063 ! |                |    | LES ELEMENTS (NELMAX = NELEM + 0.2*NELEM)
00064 ! |  FICH:         |    |
00065 ! |    NRES        | -->| NUMERO DU CANAL DU FICHIER DE SERAFIN
00066 ! |    NGEO       | -->| NUMERO DU CANAL DU FICHIER MAILLEUR
00067 ! |    NLIM      | -->| NUMERO DU CANAL DU FICHIER DYNAM DE TELEMAC
00068 ! |    NFO1      |--> | NUMERO DU CANAL DU FICHIER TRIANGLE TRIGRID
00069 ! |________________|____|______________________________________________
00070 ! MODE : -->(DONNEE NON MODIFIEE), <--(RESULTAT), <-->(DONNEE MODIFIEE)
00071 !----------------------------------------------------------------------
00072 ! APPELE PAR : STBTEL
00073 ! APPEL DE : -
00074 !***********************************************************************
00075 !
00076 !    LISTE DES ENREGISTREMENTS DU FICHIER GEOMETRIQUE:
00077 !             (DOCUMENTION: NOTICE SIMAIL)
00078 !
00079 !***********************************************************************
00080 !
00081       IMPLICIT NONE
00082       INTEGER LNG,LU
00083       COMMON/INFO/LNG,LU
00084 !
00085       INTEGER NGEO , NPOIN , IBID
00086       INTEGER NELEM , MESH , NDP , NELMAX , NPMAX
00087       INTEGER IKLE(NELMAX,4)
00088       INTEGER I,J
00089 !
00090       DOUBLE PRECISION X(*) , Y(*),ZF(*)
00091 !
00092 ! COMMON
00093 !
00094       COMMON/GEO/ MESH , NDP , NPOIN , NELEM , NPMAX , NELMAX
00095 !
00096 !=======================================================================
00097 !   INITIALISATION
00098 !=======================================================================
00099 !
00100 !     REWIND NGEO
00101 !
00102 !
00103 !=======================================================================
00104 ! LECTURE SEQUENTIELLE DES COORDONNEES
00105 !=======================================================================
00106 !
00107       DO I=1,NPOIN
00108         READ(NGEO,*) J,X(I),Y(I),ZF(I)
00109         IF(I.NE.J) THEN
00110           WRITE(LU,*) 'ERROR IN THE LIST OF COORDINATES LINE ',I
00111           CALL PLANTE(1)
00112           STOP
00113         ENDIF
00114       ENDDO
00115 !
00116 !=======================================================================
00117 ! LECTURE SEQUENTIELLE DU TABLEAU IKLE
00118 !=======================================================================
00119 !
00120       DO I=1,NELEM
00121         READ(NGEO,*) J,IBID,IKLE(I,1),IKLE(I,2),IKLE(I,3)
00122       ENDDO
00123 !
00124 !=======================================================================
00125 !
00126       RETURN
00127       END

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