SURFEX v7.3: /home/dasprezs/EXPORT_v7_3/src/LIB/XRD38/LFI/mt/lficfg

Go to the documentation of this file.
00001 C Jan-2011 P. Marguinaud Thread-safe LFI
00002       SUBROUTINE LFICFG_MT (LFI)
00003       USE LFIMOD, ONLY : LFICOM
00004       USE PARKIND1, ONLY : JPRB
00005       USE YOMHOOK , ONLY : LHOOK, DR_HOOK
00006 C****
00007 C         Sous-programme imprimant les "PARAMETER" de base definissant
00008 C     la configuration dans laquelle tourne le logiciel de fichiers
00009 C     indexes LFI.
00010 C**
00011 C         Ce sous-programme n'a pas d'arguments.
00012 C
00013 #ifndef f77
00014 #include "precision.h"
00015 #endif
00016 C
00017       TYPE(LFICOM) :: LFI
00018       INTEGER IREP, INUMER, INIMES
00019 #include "lficom_mt.h"
00020 C
00021 C**
00022 C     1.  -  INITIALISATIONS.
00023 C-----------------------------------------------------------------------
00024 C
00025       REAL(KIND=JPRB) :: ZHOOK_HANDLE
00026       IF (LHOOK) CALL DR_HOOK('LFICFG_MT',0,ZHOOK_HANDLE)
00027       IF (LFI%LFICFG_LLPREA) THEN
00028         CALL LFIINI_MT (LFI, 2)
00029         LFI%LFICFG_LLPREA=.FALSE.
00030       ENDIF
00031 C
00032 C         Envoi d'une banniere.
00033 C
00034       IREP=0
00035       INUMER=LFI%JPNIL
00036       CLNSPR='LFICFG'
00037       WRITE (UNIT=LFI%NULOUT,FMT='(///)')
00038 C
00039       IF (LFI%LFRANC) THEN
00040         CLMESS='Configuration du logiciel LFI'//
00041      S             ' ("PARAMETER" de base):'
00042       ELSE
00043         CLMESS='Configuration of LFI software (basic "PARAMETER"):'
00044       ENDIF
00045 C
00046       INIMES=2
00047       LLFATA=.FALSE.
00048       CALL LFIEMS_MT (LFI, INUMER,INIMES,IREP,LLFATA,CLMESS,
00049      S                CLNSPR,CLACTI)
00050       WRITE (UNIT=LFI%NULOUT,FMT='(/)')
00051 C**
00052 C     2.  -  IMPRESSION DES "PARAMETER" DE BASE DU LOGICIEL.
00053 C-----------------------------------------------------------------------
00054 C
00055       IF (LFI%LFRANC) THEN
00056         WRITE (UNIT=LFI%NULOUT,FMT=9005)LFI%JPNBIM
00057         WRITE (UNIT=LFI%NULOUT,FMT=9007)LFI%JPNBIC
00058         WRITE (UNIT=LFI%NULOUT,FMT=9010)LFI%JPNCMO
00059         WRITE (UNIT=LFI%NULOUT,FMT=9020)LFI%JPNCPN
00060         WRITE (UNIT=LFI%NULOUT,FMT=9030)LFI%JPLARD,LFI%JPLARC
00061         WRITE (UNIT=LFI%NULOUT,FMT=9035)LFI%JPFACX
00062         WRITE (UNIT=LFI%NULOUT,FMT=9037)LFI%JPXUFM
00063         WRITE (UNIT=LFI%NULOUT,FMT=9040)LFI%JPRECL
00064         WRITE (UNIT=LFI%NULOUT,FMT=9050)LFI%JPNXFI
00065         WRITE (UNIT=LFI%NULOUT,FMT=9060)LFI%JPNPIA
00066         WRITE (UNIT=LFI%NULOUT,FMT=9070)LFI%JPNXPI
00067         WRITE (UNIT=LFI%NULOUT,FMT=9080)LFI%JPNPIS
00068         WRITE (UNIT=LFI%NULOUT,FMT=9090)LFI%JPNAPP
00069         WRITE (UNIT=LFI%NULOUT,FMT=9100)LFI%JPLDOC
00070         WRITE (UNIT=LFI%NULOUT,FMT=9110)LFI%JPNPDF
00071         WRITE (UNIT=LFI%NULOUT,FMT=9120)LFI%JPNXPR
00072         WRITE (UNIT=LFI%NULOUT,FMT=9130)LFI%JPNIL
00073         WRITE (UNIT=LFI%NULOUT,FMT=9135)LFI%JPLFTX
00074         WRITE (UNIT=LFI%NULOUT,FMT=9137)LFI%JPLFIX
00075       ELSE
00076         WRITE (UNIT=LFI%NULOUT,FMT=9006)LFI%JPNBIM
00077         WRITE (UNIT=LFI%NULOUT,FMT=9008)LFI%JPNBIC
00078         WRITE (UNIT=LFI%NULOUT,FMT=9011)LFI%JPNCMO
00079         WRITE (UNIT=LFI%NULOUT,FMT=9021)LFI%JPNCPN
00080         WRITE (UNIT=LFI%NULOUT,FMT=9031)LFI%JPLARD,LFI%JPLARC
00081         WRITE (UNIT=LFI%NULOUT,FMT=9036)LFI%JPFACX
00082         WRITE (UNIT=LFI%NULOUT,FMT=9038)LFI%JPXUFM
00083         WRITE (UNIT=LFI%NULOUT,FMT=9041)LFI%JPRECL
00084         WRITE (UNIT=LFI%NULOUT,FMT=9051)LFI%JPNXFI
00085         WRITE (UNIT=LFI%NULOUT,FMT=9061)LFI%JPNPIA
00086         WRITE (UNIT=LFI%NULOUT,FMT=9071)LFI%JPNXPI
00087         WRITE (UNIT=LFI%NULOUT,FMT=9081)LFI%JPNPIS
00088         WRITE (UNIT=LFI%NULOUT,FMT=9091)LFI%JPNAPP
00089         WRITE (UNIT=LFI%NULOUT,FMT=9101)LFI%JPLDOC
00090         WRITE (UNIT=LFI%NULOUT,FMT=9111)LFI%JPNPDF
00091         WRITE (UNIT=LFI%NULOUT,FMT=9121)LFI%JPNXPR
00092         WRITE (UNIT=LFI%NULOUT,FMT=9131)LFI%JPNIL
00093         WRITE (UNIT=LFI%NULOUT,FMT=9136)LFI%JPLFTX
00094         WRITE (UNIT=LFI%NULOUT,FMT=9138)LFI%JPLFIX
00095       ENDIF
00096 C
00097 C         Envoi d'un message terminal.
00098 C
00099       WRITE (UNIT=LFI%NULOUT,FMT='(/)')
00100 C
00101       IF (LFI%LFRANC) THEN
00102         CLMESS='Fin d''impression de la '//
00103      S             'Configuration du logiciel LFI'
00104       ELSE
00105         CLMESS='End of dump of LFI software configuration'
00106       ENDIF
00107 C
00108       CALL LFIEMS_MT (LFI, INUMER,INIMES,IREP,LLFATA,
00109      S                CLMESS,CLNSPR,CLACTI)
00110       WRITE (UNIT=LFI%NULOUT,FMT='(///)')
00111 C
00112       IF (LHOOK) CALL DR_HOOK('LFICFG_MT',1,ZHOOK_HANDLE)
00113       RETURN
00114 C
00115  9005 FORMAT(' Nombre de Bits par mot machine.......................',
00116      S       I5)
00117 C
00118  9006 FORMAT(' Number of Bits per computer word.....................',
00119      S       I5)
00120 C
00121  9007 FORMAT(' Nombre de Bits par caractere machine.................',
00122      S       I5)
00123 C
00124  9008 FORMAT(' Number of Bits per computer character................',
00125      S       I5)
00126 C
00127  9010 FORMAT('    ... d''ou Nombre de caracteres par mot.............',
00128      S       I5)
00129 C
00130  9011 FORMAT('    ... so Number of characters per word is...........',
00131      S       I5)
00132 C
00133  9020 FORMAT(' Nombre maximum de Caracteres par NOM d''ARTICLE.......',
00134      S       I5)
00135 C
00136  9021 FORMAT(' Maximum number of Characters per RECORD NAME.........',
00137      S       I5)
00138 C
00139  9030 FORMAT(' Longueur d''Article PHYSIQUE Elementaire des Fichiers.',
00140      S       I5,' Mots (',I5,' Caracteres )')
00141 C
00142  9031 FORMAT(' Elementary PHYSICAL Record Length of Files...........',
00143      S       I5,' Words (',I5,' Characters )')
00144 C
00145  9035 FORMAT(' Facteur Multiplicatif Maximal de cette Longueur......',
00146      S       I5)
00147 C
00148  9036 FORMAT(' Maximum Multiply Factor of this elementary Length....',
00149      S       I5)
00150 C
00151  9037 FORMAT(' Nombre maximum d''associations explicites',/,
00152      S       '   entre Unites Logiques et Facteurs Multiplicatifs...',
00153      S       I5)
00154 C
00155  9038 FORMAT(' Maximum number of explicit associations',/,
00156      S       '         between Logical Units and Multiply Factors...',
00157      S       I5)
00158 C
00159  9040 FORMAT(' "RECL" Elementaire pour l''"OPEN" des Fichiers........',
00160      S       I5)
00161 C
00162  9041 FORMAT(' Elementary "RECL" parameter for "OPEN" of Files......',
00163      S       I5)
00164 C
00165  9050 FORMAT(' Nombre maximum de Fichiers ouverts en meme temps',/,
00166      S       '        (si leur "facteur multiplicatif" vaut 1 ).....',
00167      S       I5)
00168 C
00169  9051 FORMAT(' Maximum number of Files open at the same time',/,
00170      S       '               (if their "multiply factor" is 1 ).....',
00171      S       I5)
00172 C
00173  9060 FORMAT(' Nombre de *PAIRES* de "PAGES d''INDEX"',/,
00174      S       '        (en memoire) *PREALLOUEES* par Fichier........',
00175      S       I5)
00176 C
00177  9061 FORMAT(' Number of *PREALLOCATED PAIRS* of "INDEX PAGES"',/,
00178      S       '        (in software commons) per File................',
00179      S       I5)
00180 C
00181  9070 FORMAT(' Nombre TOTAL de *PAIRES* de "PAGES d''INDEX"',/,
00182      S       '        (en memoire) ALLOUABLES.......................',
00183      S       I5)
00184 C
00185  9071 FORMAT(' TOTAL number of *PAIRS* of "INDEX PAGES"',/,
00186      S       '        (in software commons) allocatable.............',
00187      S       I5)
00188 C
00189  9080 FORMAT('    ... d''ou Nombre de P.P.I. non preallouees.........',
00190      S       I5)
00191 C
00192  9081 FORMAT('    ... so Number of P.I.P. not preallocated is.......',
00193      S       I5)
00194 C
00195  9090 FORMAT(' Nombre Maxi. utile de NOMS d''ARTICLES',/,
00196      S       '        par PAGE ou ARTICLE d''INDEX Elementaire.......',
00197      S       I5)
00198 C
00199  9091 FORMAT(' Maximum number of usable RECORD NAMES',/,
00200      S       '        per Elementary INDEX PAGE or RECORD...........',
00201      S       I5)
00202 C
00203  9100 FORMAT(' Longueur de la Partie DOCUMENTAIRE du 1er Article....',
00204      S       I5,' Mots')
00205 C
00206  9101 FORMAT(' Length of DOCUMENTARY part in 1st physical record....',
00207      S       I5,' Words')
00208 C
00209  9110 FORMAT(' Nombre de PAGES de DONNEES par Fichier...............',
00210      S       I5)
00211 C
00212  9111 FORMAT(' Number of DATA PAGES per FILE........................',
00213      S       I5)
00214 C
00215  9120 FORMAT(' Nombre Maximum de PAIRES d''ARTICLES d''INDEX',/,
00216      S       '        Reservables a la Creation d''un Fichier........',
00217      S       I5)
00218 C
00219  9121 FORMAT(' Maximum number of PAIRS of INDEX RECORDS',/,
00220      S       '        that may be RESERVED at File Creation.........',
00221      S       I5)
00222 C
00223  9130 FORMAT(' Code "VALEUR ABSENTE"', /,
00224      S       '      pour certaines Tables D''ENTIERS.................',
00225      S       I5)
00226 C
00227  9131 FORMAT(' "MISSING VALUE" code', /,
00228      S       '      for some INTEGER-type Tables....................',
00229      S       I5)
00230 C
00231  9135 FORMAT(' Longueur Maximale des Noms de Fichiers',/,
00232      S       '                 traitable proprement.................',
00233      S       I5,' Caracteres')
00234 C
00235  9136 FORMAT(' Maximum Length of File Names',/,
00236      S       '                    carefully handled.................',
00237      S       I5,' Characters')
00238 C
00239  9137 FORMAT(' Longueur Maximale imprimable des Noms de Fichiers....',
00240      S       I5,' Caracteres')
00241 C
00242  9138 FORMAT(' Maximum printable Length of File Names (most cases)..',
00243      S       I5,' Characters')
00244 C
00245       END
00246