The TELEMAC-MASCARET system
trunk
|
Go to the source code of this file.
Functions/Subroutines | |
subroutine | influ (ICOL, LIGNE, DEFATT, TROUVE, LUIGN, MOTCLE, SIZE, MOTIGN, LONIGN, NMAXR, NFICDA, GESTD) |
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 | ||
) |
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
[out] | DEFATT | Tableau des submits par defaut |
[in] | GESTD | Logique d'appel par le gestionnaire d'etudes |
[in,out] | ICOL | Position courante du pointeur dans la ligne |
[in,out] | LIGNE | Ligne en cours de decodage |
[in] | LONIGN | Tableau des longueurs des mots edamox |
[in] | LUIGN | Logique pour les mots a ne pas classer |
[in] | MOTCLE | Tableau des mots cles actifs |
[in] | MOTIGN | Tableau des mots cles dus a edamox a ignorer |
[in] | NFICDA | Numero de canal du fichier des donnees |
[in] | NMAXR | Tableau des index maximum reels par types |
[in] | SIZE | Tableau des longueurs des mots cles |
[in,out] | TROUVE | Indicateur 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.