damocles.f

Go to the documentation of this file.
00001 C:\opentelemac\v7p0\sources\utils\damocles\damocles.f
00002 !
00061                      SUBROUTINE DAMOCLES
00062 !                    *******************
00063 !
00064      &( ADRESS , DIMENS , NMAX   , DOC    , LLNG , LLU ,
00065      &  MOTINT , MOTREA , MOTLOG , MOTCAR ,
00066      &  MOTCLE , TROUVE , NFICMO , NFICDA , GESTD  )
00067 !
00068 !***********************************************************************
00069 ! DAMOCLES   V6P0                                   21/08/2010
00070 !***********************************************************************
00071 !
00072 !
00073 !
00074 !
00075 !
00076 !
00077 !
00078 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
00079 !| ADRESS         |<--| TABLEAU DES ADRESSES DES MOTS CLES
00080 !| DIMENS         |<--| TABLEAU DES DIMENSIONS DES MOTS CLES
00081 !| DOC            |-->| LOGIQUE DE DOCUMENTATION DE LA SORTIE
00082 !|                |   | = VRAI : IMPRIME L'AIDE (FICHIER RESULTAT)
00083 !|                |   | = FAUX : N'IMPRIME PAS L'AIDE
00084 !| GESTD          |-->| LOGIQUE D'APPEL PAR LE GESTIONNAIRE D'ETUDES
00085 !| LLNG           |-->| NUMERO DE LA LANGUE DE DECODAGE
00086 !| LLU            |-->| NUMERO DE L'UNITE LOGIQUE DES SORTIES
00087 !| MOTCAR         |<--| TABLEAU DES VALEURS CARACTERES
00088 !| MOTCLE         |<--| TABLEAU DES MOTS CLES ACTIFS
00089 !| MOTINT         |<--| TABLEAU DES VALEURS ENTIERES
00090 !| MOTLOG         |<--| TABLEAU DES VALEURS LOGIQUES
00091 !| MOTREA         |<--| TABLEAU DES VALEURS REELLES
00092 !| NFICDA         |-->| NUMERO DE CANAL DU FICHIER DES DONNEES
00093 !| NFICMO         |-->| NUMERO DE CANAL DU FICHIER DES MOTS-CLES
00094 !| NMAX           |-->| TAILLE MAXIMALE AUTORISEE POUR LES TABLEAUX
00095 !| TROUVE         |<--| INDICATEUR D'ETAT DES MOTS CLES
00096 !|                |   | = 0 : AUCUNE VALEUR TROUVEE
00097 !|                |   | = 1 : VALEUR PAR DEFAUT TROUVEE
00098 !|                |   | = 2 : VALEUR TROUVEE (FICHIER DE DONNEES)
00099 !|                |   | = 3 : AUCUNE VALEUR TROUVEE (OPTIONNELLE)
00100 !|                |   | = 5 : TABLEAU DE MOTS A SUBMIT COMPACTE
00101 !|                |   | = 6 : MOT CLE A SUBMIT FORCE NON AFFECTE
00102 !|                |   | = 7 : MOT CLE A SUBMIT FORCE AFFECTE (DICO)
00103 !|                |   | = 8 : MOT CLE A SUBMIT FORCE AFFECTE (CAS)
00104 !|                |   | = 9 : FICHIER DICO : SUBMIT + VALEUR LANCEUR
00105 !|                |   | =10 : FICHIER CAS  : SUBMIT + VALEUR LANCEUR
00106 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
00107 !
00108       IMPLICIT NONE
00109 !
00110       INTEGER            ,INTENT(IN)    :: NMAX,LLU,NFICMO,NFICDA
00111       INTEGER            ,INTENT(INOUT) :: LLNG
00112       INTEGER            ,INTENT(OUT)   :: MOTINT(*),ADRESS(4,*)
00113       INTEGER            ,INTENT(OUT)   :: DIMENS(4,*),TROUVE(4,*)
00114       LOGICAL            ,INTENT(OUT)   :: MOTLOG(*)
00115       LOGICAL            ,INTENT(IN)    :: DOC, GESTD
00116       CHARACTER(LEN=72)  ,INTENT(OUT)   :: MOTCLE(4,*)
00117       CHARACTER(LEN=144) ,INTENT(OUT)   :: MOTCAR(*)
00118       DOUBLE PRECISION   ,INTENT(OUT)   :: MOTREA(*)
00119 !
00120 !     AUTOMATIC ARRAYS
00121 !
00122       INTEGER            :: DEFINT(NMAX),USRINT(NMAX)
00123       INTEGER            :: SIZE(4,NMAX)
00124       INTEGER            :: INDIC(4,NMAX)
00125       LOGICAL            :: DEFLOG(NMAX),USRLOG(NMAX),UTINDX(4,NMAX)
00126       CHARACTER(LEN=144) :: MOTATT(4,NMAX),DEFATT(NMAX),USRATT(NMAX)
00127       CHARACTER(LEN=144) :: DEFCAR(NMAX),USRCAR(NMAX)
00128       DOUBLE PRECISION   :: DEFREA(NMAX),USRREA(NMAX)
00129 !
00130       INTEGER,PARAMETER :: NBLANG = 2
00131       INTEGER :: RETRY,I
00132       RETRY = 0
00133 !
00134 !-----------------------------------------------------------------------
00135 !
00136 !     CALLS DAMOC
00137 !
00138       CALL DAMOC( ADRESS , DIMENS , NMAX   , DOC    , LLNG   , LLU  ,
00139      &            MOTINT , MOTREA , MOTLOG , MOTCAR , MOTATT ,
00140      &            DEFINT , DEFREA , DEFLOG , DEFCAR , DEFATT ,
00141      &            USRINT , USRREA , USRLOG , USRCAR , USRATT ,
00142      &            MOTCLE , SIZE   , TROUVE , UTINDX , NFICMO , NFICDA ,
00143      &            INDIC  , GESTD  , NBLANG , RETRY )
00144 !
00145       IF(RETRY.EQ.1) THEN
00146         REWIND(NFICMO)
00147         REWIND(NFICDA)
00148         DO I=1,10
00149           WRITE(LLU,*)
00150           WRITE(LLU,*) 'DAMOCLE: TRYING ANOTHER LANGUAGE'
00151         ENDDO
00152         LLNG=3-LLNG
00153         CALL DAMOC( ADRESS, DIMENS, NMAX   , DOC    , LLNG   , LLU,
00154      &              MOTINT, MOTREA, MOTLOG , MOTCAR , MOTATT ,
00155      &              DEFINT, DEFREA, DEFLOG , DEFCAR , DEFATT ,
00156      &              USRINT, USRREA, USRLOG , USRCAR , USRATT ,
00157      &              MOTCLE, SIZE  , TROUVE , UTINDX , NFICMO , NFICDA,
00158      &              INDIC , GESTD , NBLANG , RETRY )
00159       ENDIF
00160 !
00161 !-----------------------------------------------------------------------
00162 !
00163       RETURN
00164       END

Generated on Fri Aug 31 2013 18:12:58 by S.E.Bourban (HRW) using doxygen 1.7.0