The TELEMAC-MASCARET system  trunk
imprim.f
Go to the documentation of this file.
1 ! *****************
2  SUBROUTINE imprim
3 ! *****************
4 !
5  &(npoin1,npoin,typele,nelem,titre,maille,precis)
6 !
7 !***********************************************************************
8 ! PROGICIEL : STBTEL V5.2 31/08/89 J-C GALLAND
9 !
10 ! FONCTION : IMPRESSION DANS LE LISTING D'INFORMATIONS GENERALES
11 !
12 !-----------------------------------------------------------------------
13 ! ARGUMENTS
14 ! .________________.____.______________________________________________
15 ! | NOM |MODE| ROLE
16 ! |________________|____|______________________________________________
17 ! | NPOIN1 | -->| NOMBRE DE POINT DONNES PAR LE MAILLEUR
18 ! | NPOIN | -->| NOMBRE REEL DE POINTS
19 ! | TYPELE | -->| TYPE DES ELEMENTS
20 ! | NELEM | -->| NOMBRE D'ELEMENTS
21 ! | TITRE | -->| TITRE DU MAILLAGE
22 ! | MAILLE | -->| NOM DU MAILLEUR UTILISE
23 ! | PRECIS | -->| FORMAT DE LECTURE DES COORDONNEES DES NOEUDS
24 ! |________________|____|______________________________________________
25 ! MODE : -->(DONNEE NON MODIFIEE), <--(RESULTAT), <-->(DONNEE MODIFIEE)
26 !-----------------------------------------------------------------------
27 ! APPELE PAR : HOMERE
28 ! APPEL DE : -
29 !***********************************************************************
30 !
32  IMPLICIT NONE
33 !
34  INTEGER, INTENT(IN) :: NPOIN1, NPOIN, NELEM
35 !
36  CHARACTER(LEN=11), INTENT(IN) :: TYPELE
37  CHARACTER(LEN=80), INTENT(IN) :: TITRE
38  CHARACTER(LEN=9), INTENT(IN) :: MAILLE
39  CHARACTER(LEN=6), INTENT(IN) :: PRECIS
40 !
41 !-----------------------------------------------------------------------
42 !
43  WRITE(lu,3010) maille
44 !
45  3010 FORMAT(/,1x,'MESH GENERATOR : ',a9,/,
46  & 1x,'--------------')
47 !
48  IF (maille(1:8).EQ.'SUPERTAB') WRITE(lu,3020) precis
49 !
50  3020 FORMAT(1x,'(COORDINATES OF NODES ARE READ IN ',a6,' PRECISION)',/)
51 !
52  WRITE(lu,3030) titre,npoin1,npoin,nelem,typele
53 !
54  3030 FORMAT(//,1x,'DATAS READ IN THE UNIVERSAL FILE',
55  & /,1x,'---------------------------------',/
56  & /,1x,'TITLE OF THE MESH : ',a72,
57  & /,1x,'REAL NUMBER OF POINTS : ',i11,
58  & /,1x,'MAX. NUMBER GIVEN BY THE MESH GENERATOR: ',i11,
59  & /,1x,'TOTAL NUMBER OF ELEMENTS : ',i11,
60  & /,1x,'TYPE OF ELEMENTS : ',a11)
61 !
62  RETURN
63  END
subroutine imprim(NPOIN1, NPOIN, TYPELE, NELEM, TITRE, MAILLE, PRECIS)
Definition: imprim.f:7