The TELEMAC-MASCARET system  trunk
Functions/Subroutines
influ.f File Reference

Go to the source code of this file.

Functions/Subroutines

subroutine influ (ICOL, LIGNE, DEFATT, TROUVE, LUIGN, MOTCLE, SIZE, MOTIGN, LONIGN, NMAXR, NFICDA, GESTD)
 

Function/Subroutine Documentation

◆ influ()

subroutine influ ( integer  ICOL,
character(len=*)  LIGNE,
character(len=path_len), dimension(*)  DEFATT,
integer, dimension(4,*)  TROUVE,
logical  LUIGN,
character(len=72), dimension(4,*)  MOTCLE,
integer, dimension(4,*)  SIZE,
character(len=72), dimension(100)  MOTIGN,
integer, dimension(100)  LONIGN,
integer, dimension(4)  NMAXR,
integer  NFICDA,
logical  GESTD 
)
Brief:
DECODES THE SUBMIT FIELD FROM COLUMN ICOL+1 OF THE CURRENT LINE. TESTS THE PRESENCE OF THE 4 FIELDS. RECOGNISES CHAMP2. MOVES THE POINTER ICOL TO THE LAST DECODED CHARACTER.

O. QUIQUEMPOIX (LNH) 16/08/1994

J-M HERVOUET (LNH) 14/01/2008 V5P8 CORRECTION: IN MOTCH1(1:LCAR), LCAR SHOULD NOT EXCEED 10

N.DURAND (HRW), S.E.BOURBAN (HRW) 13/07/2010 V6P0 Translation of French comments within the FORTRAN sources into English comments

N.DURAND (HRW), S.E.BOURBAN (HRW) 21/08/2010 V6P0 Creation of DOXYGEN tags for automated documentation and cross-referencing of the FORTRAN sources

Parameters
[out]DEFATTTableau des submits par defaut
[in]GESTDLogique d'appel par le gestionnaire d'etudes
[in,out]ICOLPosition courante du pointeur dans la ligne
[in,out]LIGNELigne en cours de decodage
[in]LONIGNTableau des longueurs des mots edamox
[in]LUIGNLogique pour les mots a ne pas classer
[in]MOTCLETableau des mots cles actifs
[in]MOTIGNTableau des mots cles dus a edamox a ignorer
[in]NFICDANumero de canal du fichier des donnees
[in]NMAXRTableau des index maximum reels par types
[in]SIZETableau des longueurs des mots cles
[in,out]TROUVEIndicateur d'etat des mots cles = 0 : AUCUNE VALEUR TROUVEE = 1 : VALEUR PAR DEFAUT TROUVEE = 2 : VALEUR TROUVEE (FICHIER DE DONNEES) = 3 : AUCUNE VALEUR TROUVEE (OPTIONNELLE) = 5 : TABLEAU DE MOTS A SUBMIT COMPACTE = 6 : MOT CLE A SUBMIT FORCE NON AFFECTE = 7 : MOT CLE A SUBMIT FORCE AFFECTE (DICO) = 8 : MOT CLE A SUBMIT FORCE AFFECTE (CAS) = 9 : FICHIER DICO : SUBMIT + VALEUR LANCEUR =10 : FICHIER CAS : SUBMIT + VALEUR LANCEUR

Definition at line 8 of file influ.f.

+ Here is the call graph for this function:
+ Here is the caller graph for this function: