1. PRINCI.F
This program is needed in the Fortran folder. It permits to determine the size of the matrix used during the computation.
C **************
PROGRAM PRINCI.F
C **************
C-----------------------------------------------------------------------
C PROGRAMME PRINCIPAL DE TELEMAC
C-----------------------------------------------------------------------
C NOTE:
C PRINCI NE SERT QU'A DIMENSIONNER LES TABLEAUX A ET IA DANS
C LESQUELS SERONT STOCKES TOUS LES TABLEAUX DE REELS ET D'ENTIERS
C DU PROGRAMME TELEMAC.SI NPOIN EST LE NOMBRE DE POINTS DU MAILLAGE,
C UTILISER LES FORMULES SUIVANTES POUR UNE PREMIERE EXECUTION.
C IDIMA = 130 NPOIN , IDIMIA = 20 NPOIN
C LES VALEURS EXACTES DE IDIMA ET IDIMIA SONT DONNEES DANS LE LISTING
C APRES UNE EXECUTION.
INTEGER IDIMA,IDIMIA,NPOIN
PARAMETER ( IDIMA=958182 , IDIMIA=90460 )
DOUBLE PRECISION A(IDIMA)
INTEGER IA(IDIMIA),NPRIV,LU,LNG
COMMON/INFO/LNG,LU
C APRES UNE EXECUTION LA DIMENSION EXACTE DE A ET IA EST
C DONNEE DANS LE DEBUT DU LISTING.
C-----------------------------------------------------------------------
C CANAL DE SORTIE LISTING ET LANGUE
LU = 6
LNG = 1
C-----------------------------------------------------------------------
C NOMBRE DE TABLEAUX PRIVES NECESSAIRES DANS TELEMAC
NPRIV=0
CALL HOMERE(A,IDIMA,IA,IDIMIA,NPRIV)
IF(LNG.EQ.1) WRITE(LU,10)
IF(LNG.EQ.2) WRITE(LU,11)
10 FORMAT(1X,///,1X,'FIN NORMALE DU PROGRAMME',///)
11 FORMAT(1X,///,1X,'CORRECT END OF RUN',///)
STOP
END
2. EXAMPLES OF SUBROUTINES USED BY TELEMAC-2D