imprim.f

Go to the documentation of this file.
00001 C:\opentelemac\v7p0\sources\stbtel\imprim.f
00002 !
00020                         SUBROUTINE IMPRIM
00021 !                       *****************
00022 !
00023      &(NPOIN1,NPOIN,TYPELE,NELEM,TITRE,MAILLE,PRECIS)
00024 !
00025 !***********************************************************************
00026 ! PROGICIEL : STBTEL V5.2        31/08/89    J-C GALLAND
00027 !
00028 !     FONCTION  : IMPRESSION DANS LE LISTING D'INFORMATIONS GENERALES
00029 !
00030 !-----------------------------------------------------------------------
00031 !                             ARGUMENTS
00032 ! .________________.____.______________________________________________
00033 ! |      NOM       |MODE|                   ROLE
00034 ! |________________|____|______________________________________________
00035 ! | NPOIN1         | -->| NOMBRE DE POINT DONNES PAR LE MAILLEUR
00036 ! | NPOIN          | -->| NOMBRE REEL DE POINTS
00037 ! | TYPELE         | -->| TYPE DES ELEMENTS
00038 ! | NELEM          | -->| NOMBRE D'ELEMENTS
00039 ! | TITRE          | -->| TITRE DU MAILLAGE
00040 ! | MAILLE         | -->| NOM DU MAILLEUR UTILISE
00041 ! | PRECIS         | -->| FORMAT DE LECTURE DES COORDONNEES DES NOEUDS
00042 ! |________________|____|______________________________________________
00043 ! MODE : -->(DONNEE NON MODIFIEE), <--(RESULTAT), <-->(DONNEE MODIFIEE)
00044 !-----------------------------------------------------------------------
00045 ! APPELE PAR : HOMERE
00046 ! APPEL DE : -
00047 !***********************************************************************
00048 !
00049       IMPLICIT NONE
00050       INTEGER LNG,LU
00051       COMMON/INFO/LNG,LU
00052 !
00053       INTEGER NPOIN1, NPOIN, NELEM
00054 !
00055       CHARACTER*11 TYPELE
00056       CHARACTER*80 TITRE
00057       CHARACTER*9  MAILLE
00058       CHARACTER*6  PRECIS
00059 !
00060 !-----------------------------------------------------------------------
00061 !
00062       IF (LNG.EQ.1) WRITE(LU,10) MAILLE
00063       IF (LNG.EQ.2) WRITE(LU,3010) MAILLE
00064 !
00065  10   FORMAT(/,1X,'MAILLEUR : ',A9,/,
00066      &         1X,'--------')
00067  3010 FORMAT(/,1X,'MESH GENERATOR : ',A9,/,
00068      &         1X,'--------------')
00069 !
00070       IF (LNG.EQ.1.AND.MAILLE(1:8).EQ.'SUPERTAB') WRITE(LU,  20) PRECIS
00071       IF (LNG.EQ.2.AND.MAILLE(1:8).EQ.'SUPERTAB') WRITE(LU,3020) PRECIS
00072 !
00073  20   FORMAT(1X,'(COORDONNEES DES NOEUDS LUES EN ',A6,' PRECISION)',/)
00074  3020 FORMAT(1X,'(COORDINATES OF NODES ARE READ IN ',A6,' PRECISION)',/)
00075 !
00076       IF (LNG.EQ.1) WRITE(LU,30) TITRE,NPOIN1,NPOIN,NELEM,TYPELE
00077       IF (LNG.EQ.2) WRITE(LU,3030) TITRE,NPOIN1,NPOIN,NELEM,TYPELE
00078 !
00079  30   FORMAT(//,1X,'DONNEES LUES SUR LE FICHIER UNIVERSEL',
00080      &        /,1X,'-------------------------------------',/
00081      &        /,1X,'TITRE DU MAILLAGE                 : ',A72,
00082      &        /,1X,'NOMBRE REEL DE POINTS             : ',I11,
00083      &        /,1X,'NUMERO MAXI DONNE PAR LE MAILLEUR : ',I11,
00084      &        /,1X,'NOMBRE TOTAL D''ELEMENTS           : ',I11,
00085      &        /,1X,'TYPE D''ELEMENTS                   :      ',A11)
00086 !
00087  3030 FORMAT(//,1X,'DATAS READ IN THE UNIVERSAL FILE',
00088      &        /,1X,'---------------------------------',/
00089      &        /,1X,'TITLE OF THE MESH                 : ',A72,
00090      &        /,1X,'REAL NUMBER OF POINTS             : ',I11,
00091      &        /,1X,'MAX. NUMBER GIVEN BY THE MESH GENERATOR: ',I11,
00092      &        /,1X,'TOTAL NUMBER OF ELEMENTS           : ',I11,
00093      &        /,1X,'TYPE OF ELEMENTS                   :      ',A11)
00094 !
00095       RETURN
00096       END

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