Example of a Fortran folder

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

 Condin.f ; Q.f ; VIT.f

Return