The TELEMAC-MASCARET system  trunk
initri.f
Go to the documentation of this file.
1 ! *****************
2  SUBROUTINE initri
3 ! *****************
4 !
5  &( npoin1,typele,ngeo,nfo1)
6 !
7 !***********************************************************************
8 ! PROGICIEL : STBTEL V5.2 07.04.1993 P. LANG (LHF)
9 !***********************************************************************
10 !
11 ! FONCTION : INITIALISATION DES INFORMATIONS DANS LE CAS DE TRIGRID
12 !
13 !-----------------------------------------------------------------------
14 ! ARGUMENTS
15 ! .________________.____.______________________________________________
16 ! ! NOM |MODE! ROLE
17 ! !________________|____!______________________________________________
18 ! ! NPOIN1 !<-- ! NOMBRE DE POINTS DU MAILLAGE
19 ! ! TYPELE !<-- ! TYPE D'ELEMENT DU MAILLAGE (ICI TRIAGLES)
20 ! !________________!____!______________________________________________
21 ! ! COMMON: ! !
22 ! ! GEO: ! !
23 ! ! MESH !<-- ! TYPE DES ELEMENTS DU MAILLAGE
24 ! ! NDP !<-- ! NOMBRE DE NOEUDS PAR ELEMENTS ( ICI FORCEMENT
25 ! ! NPOIN !<-- ! NOMBRE TOTAL DE NOEUDS DU MAILLAGE
26 ! ! NELEM !<-- ! NOMBRE TOTAL D'ELEMENTS DU MAILLAGE
27 ! ! FICH: ! !
28 ! ! NRES ! -->! NUMERO DU CANAL DU FICHIER DE SERAFIN
29 ! ! NGEO ! -->! NUMERO DU CANAL DU FICHIER MAILLEUR
30 ! ! NLIM ! -->! NUMERO DU CANAL DU FICHIER DYNAM DE TELEMAC
31 ! ! NFO1 ! -->! NUMERO DU CANAL DU FICHIER TRIANGLE DE TRIGRID
32 ! !________________!____!______________________________________________
33 ! MODE : -->(DONNEE NON MODIFIEE), <--(RESULTAT), <-->(DONNEE MODIFIEE)
34 !-----------------------------------------------------------------------
35 ! APPELE PAR : HOMERE
36 ! APPEL DE :
37 !***********************************************************************
38 !
40  IMPLICIT NONE
41 !
42  INTEGER, INTENT(IN) :: NGEO, NFO1
43  INTEGER, INTENT(INOUT) :: NPOIN1
44  CHARACTER(LEN=*), INTENT(INOUT) :: TYPELE
45 !
46  CHARACTER(LEN=1) ZDUMMY
47 !
48 ! COMMON
49 !
50 !
51  rewind(ngeo)
52  rewind(nfo1)
53  READ (ngeo,*) npoin1
54  npoin = npoin1
55  nelem = 0
56  1 CONTINUE
57  READ (nfo1, '(A1)', end=9000) zdummy
58  nelem = nelem + 1
59  GOTO 1
60 !
61  9000 CONTINUE
62  typele = 'TRIANGLES '
63  ndp = 3
64  mesh = 3
65 !
66  RETURN
67  END
subroutine initri(NPOIN1, TYPELE, NGEO, NFO1)
Definition: initri.f:7