initri.f

Go to the documentation of this file.
00001 C:\opentelemac\v7p0\sources\stbtel\initri.f
00002 !
00023                         SUBROUTINE INITRI
00024 !                       *****************
00025 !
00026      &( NPOIN1,TYPELE,NGEO,NFO1)
00027 !
00028 !***********************************************************************
00029 ! PROGICIEL : STBTEL V5.2      07.04.1993  P. LANG     (LHF)
00030 !***********************************************************************
00031 !
00032 !     FONCTION  : INITIALISATION DES INFORMATIONS DANS LE CAS DE TRIGRID
00033 !
00034 !-----------------------------------------------------------------------
00035 !                             ARGUMENTS
00036 ! .________________.____.______________________________________________
00037 ! !      NOM       |MODE!                   ROLE
00038 ! !________________|____!______________________________________________
00039 ! ! NPOIN1         !<-- ! NOMBRE DE POINTS DU MAILLAGE
00040 ! ! TYPELE         !<-- ! TYPE D'ELEMENT DU MAILLAGE (ICI TRIAGLES)
00041 ! !________________!____!______________________________________________
00042 ! ! COMMON:        !    !
00043 ! !  GEO:          !    !
00044 ! !    MESH        !<-- ! TYPE DES ELEMENTS DU MAILLAGE
00045 ! !    NDP         !<-- ! NOMBRE DE NOEUDS PAR ELEMENTS ( ICI FORCEMENT
00046 ! !    NPOIN       !<-- ! NOMBRE TOTAL DE NOEUDS DU MAILLAGE
00047 ! !    NELEM       !<-- ! NOMBRE TOTAL D'ELEMENTS DU MAILLAGE
00048 ! !    NPMAX       ! -->! DIMENSION EFFECTIVE DES TABLEAUX X ET Y
00049 ! !                !    ! (NPMAX = NPOIN + 100)
00050 ! !    NELMAX      ! -->! DIMENSION EFFECTIVE DES TABLEAUX CONCERNANT
00051 ! !                !    ! LES ELEMENTS (NELMAX = NELEM + 200)
00052 ! !  FICH:         !    !
00053 ! !    NRES        ! -->! NUMERO DU CANAL DU FICHIER DE SERAFIN
00054 ! !    NGEO       ! -->! NUMERO DU CANAL DU FICHIER MAILLEUR
00055 ! !    NLIM      ! -->! NUMERO DU CANAL DU FICHIER DYNAM DE TELEMAC
00056 !     NFO1       -->! NUMERO DU CANAL DU FICHIER TRIANGLE DE TRIGRID
00057 ! !________________!____!______________________________________________
00058 ! MODE : -->(DONNEE NON MODIFIEE), <--(RESULTAT), <-->(DONNEE MODIFIEE)
00059 !-----------------------------------------------------------------------
00060 ! APPELE PAR : HOMERE
00061 ! APPEL DE :
00062 !***********************************************************************
00063 !
00064       IMPLICIT NONE
00065 !
00066       INTEGER       MESH, NDP, NPOIN, NELEM, NPMAX, NELMAX
00067       INTEGER       NGEO
00068       INTEGER       NPOIN1, NFO1
00069       CHARACTER*(*) TYPELE
00070       CHARACTER*1   ZDUMMY
00071 !
00072 ! COMMON
00073 !
00074       COMMON/GEO/MESH, NDP, NPOIN, NELEM, NPMAX, NELMAX
00075 !
00076       REWIND (NGEO)
00077       REWIND (NFO1)
00078       READ (NGEO,*) NPOIN1
00079       NPOIN = NPOIN1
00080       NELEM = 0
00081  1    CONTINUE
00082         READ (NFO1, '(A1)', END=9000) ZDUMMY
00083         NELEM = NELEM + 1
00084       GOTO 1
00085 !
00086  9000 CONTINUE
00087       TYPELE = 'TRIANGLES  '
00088       NDP = 3
00089       MESH = 3
00090 !
00091       RETURN
00092       END

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