5 &(npoin1,npoin,typele,nelem,titre,maille,precis)
34 INTEGER,
INTENT(IN) :: NPOIN1, NPOIN, NELEM
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
45 3010
FORMAT(/,1x,
'MESH GENERATOR : ',a9,/,
46 & 1x,
'--------------')
48 IF (maille(1:8).EQ.
'SUPERTAB')
WRITE(
lu,3020) precis
50 3020
FORMAT(1x,
'(COORDINATES OF NODES ARE READ IN ',a6,
' PRECISION)',/)
52 WRITE(
lu,3030) titre,npoin1,npoin,nelem,typele
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)
subroutine imprim(NPOIN1, NPOIN, TYPELE, NELEM, TITRE, MAILLE, PRECIS)