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

Go to the source code of this file.

Functions/Subroutines

subroutine damoc (ADRESS, DIMENS, NMAX, DOC, LLNG, LLU, MOTINT, MOTREA, MOTLOG, MOTCAR, MOTATT, DEFINT, DEFREA, DEFLOG, DEFCAR, DEFATT, USRINT, USRREA, USRLOG, USRCAR, USRATT, MOTCLE, TAILLE, TROUVE, UTINDX, NFICMO, NFICDA, INDIC, GESTD, NBLANG, RETRY)
 

Function/Subroutine Documentation

◆ damoc()

subroutine damoc ( integer, dimension(4,*)  ADRESS,
integer, dimension(4,*)  DIMENS,
integer  NMAX,
logical  DOC,
integer  LLNG,
integer  LLU,
integer, dimension(*)  MOTINT,
double precision, dimension(*)  MOTREA,
logical, dimension(*)  MOTLOG,
character(len=path_len), dimension(*)  MOTCAR,
character(len=path_len), dimension(4,*)  MOTATT,
integer, dimension(*)  DEFINT,
double precision, dimension(*)  DEFREA,
logical, dimension(*)  DEFLOG,
character(len=path_len), dimension(*)  DEFCAR,
character(len=path_len), dimension(*)  DEFATT,
integer, dimension(*)  USRINT,
double precision, dimension(*)  USRREA,
logical, dimension(*)  USRLOG,
character(len=path_len), dimension(*)  USRCAR,
character(len=path_len), dimension(*)  USRATT,
character(len=72), dimension(4,*)  MOTCLE,
integer, dimension(4,*)  TAILLE,
integer, dimension(4,*)  TROUVE,
logical, dimension(4,*)  UTINDX,
integer  NFICMO,
integer  NFICDA,
integer, dimension(4,*)  INDIC,
logical  GESTD,
integer  NBLANG,
integer  RETRY 
)
Parameters
[out]nmaxTAILLE Tableau des longueurs des mots cles
[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
[out]USRATTTableau des submits a usage local
[out]USRCARTableau des valeurs caracteres a usage local
[out]USRINTTableau des valeurs entieres a usage local
[out]USRLOGTableau des valeurs logiques a usage local
[out]USRREATableau des valeurs reelles a usage local
[out]UTINDXTableau de logiques d'utilisation des index
[out]llngTAILLE Tableau des longueurs des mots cles
[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
[out]USRATTTableau des submits a usage local
[out]USRCARTableau des valeurs caracteres a usage local
[out]USRINTTableau des valeurs entieres a usage local
[out]USRLOGTableau des valeurs logiques a usage local
[out]USRREATableau des valeurs reelles a usage local
[out]UTINDXTableau de logiques d'utilisation des index
[out]lluTAILLE Tableau des longueurs des mots cles
[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
[out]USRATTTableau des submits a usage local
[out]USRCARTableau des valeurs caracteres a usage local
[out]USRINTTableau des valeurs entieres a usage local
[out]USRLOGTableau des valeurs logiques a usage local
[out]USRREATableau des valeurs reelles a usage local
[out]UTINDXTableau de logiques d'utilisation des index
[out]nficmoTAILLE Tableau des longueurs des mots cles
[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
[out]USRATTTableau des submits a usage local
[out]USRCARTableau des valeurs caracteres a usage local
[out]USRINTTableau des valeurs entieres a usage local
[out]USRLOGTableau des valeurs logiques a usage local
[out]USRREATableau des valeurs reelles a usage local
[out]UTINDXTableau de logiques d'utilisation des index
[out]nficdaTAILLE Tableau des longueurs des mots cles
[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
[out]USRATTTableau des submits a usage local
[out]USRCARTableau des valeurs caracteres a usage local
[out]USRINTTableau des valeurs entieres a usage local
[out]USRLOGTableau des valeurs logiques a usage local
[out]USRREATableau des valeurs reelles a usage local
[out]UTINDXTableau de logiques d'utilisation des index
[out]nblangTAILLE Tableau des longueurs des mots cles
[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
[out]USRATTTableau des submits a usage local
[out]USRCARTableau des valeurs caracteres a usage local
[out]USRINTTableau des valeurs entieres a usage local
[out]USRLOGTableau des valeurs logiques a usage local
[out]USRREATableau des valeurs reelles a usage local
[out]UTINDXTableau de logiques d'utilisation des index
[out]retryTAILLE Tableau des longueurs des mots cles
[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
[out]USRATTTableau des submits a usage local
[out]USRCARTableau des valeurs caracteres a usage local
[out]USRINTTableau des valeurs entieres a usage local
[out]USRLOGTableau des valeurs logiques a usage local
[out]USRREATableau des valeurs reelles a usage local
[out]UTINDXTableau de logiques d'utilisation des index

Definition at line 12 of file damoc.f.

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