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

Go to the documentation of this file.
00001 C Jan-2011 P. Marguinaud Thread-safe LFI
00002       SUBROUTINE LFIIST_MT (LFI, KRANG, LDAPFE )
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 STATISTIQUES D'UTILISATION D'UNE
00008 C     UNITE LOGIQUE TRAITEE PAR LE LOGICIEL DE FICHIERS INDEXES LFI.
00009 C     CE SOUS-PROGRAMME EST ***A USAGE INTERNE*** DU LOGICIEL; CELUI
00010 C     A APPELER PAR L'UTILISATEUR QUI DESIRE AVOIR CES STATISTIQUES
00011 C     AUTREMENT QU'A LA FERMETURE DU FICHIER EST *LFISTA* .
00012 C**
00013 C    ARGUMENTS : KRANG  (ENTREE) ==> RANG ( DANS LA TABLE *LFI%NUMERO* )
00014 C                                    DE L'UNITE LOGIQUE CONCERNEE;
00015 C                LDAPFE (ENTREE) ==> VRAI SI L'APPEL EST FAIT LORS DE
00016 C                                    LA FERMETURE (PAR *LFIFER*) .
00017 C
00018 C    Modifications:
00019 C
00020 C    02/06/97, Jean Clochard.
00021 C
00022 C              -Modification des impressions pour que l'annee puisse
00023 C               etre imprimee avec 4 chiffres.
00024 C
00025 #ifndef f77
00026 #include "precision.h"
00027 #endif
00028 C
00029       TYPE(LFICOM) :: LFI
00030       CHARACTER CLOPER*(LFI%JPLSPX)
00031 C
00032 #ifndef f77
00033       INTEGER (KIND=JPDBLE) IIDATE, IIHEUR
00034 #else
00035       INTEGER IIDATE, IIHEUR
00036 #endif
00037       INTEGER KRANG, INUMER, IREP, IMDESC, IDATEM, IHEURM, IANNEE, IMOIS
00038       INTEGER IJOUR, IHEURE, IMINUT, ISECON, IDECAL, IDERNI, INLNOM, J
00039       INTEGER IDEROP, IDERCO, IDERAP, INBPIR, INBALO, IFACTM, ILARPH
00040       INTEGER INALPP, ILONGF, ILDONN, INTRUA, INALDO, INPPIU, INUTIL
00041       INTEGER INTRUO, ILOMIN, ILOMAX, IREESP, IREECO, IREELO, INALIP
00042       INTEGER INAMAX, INMOUL, INMOUE, INMOUT, INMOLL, INMOLE, INMOLT
00043       INTEGER INLECT, INECRI, INRENO, INSUPP, INIMES, INTPPI
00044 C
00045       LOGICAL LDAPFE
00046 C
00047 #include "lficom2.h"
00048 #include "lficom_mt.h"
00049 C**
00050 C     1.  -  CONTROLES DES PARAMETRES D'APPEL.
00051 C-----------------------------------------------------------------------
00052 C
00053       REAL(KIND=JPRB) :: ZHOOK_HANDLE
00054       IF (LHOOK) CALL DR_HOOK('LFIIST_MT',0,ZHOOK_HANDLE)
00055       IF (KRANG.LE.0.OR.KRANG.GT.LFI%JPNXFI) THEN
00056         INUMER=LFI%JPNIL
00057       ELSE
00058         INUMER=LFI%NUMERO(KRANG)
00059         IREP=0
00060       ENDIF
00061 C
00062       IF (INUMER.EQ.LFI%JPNIL) THEN
00063         IREP=-14
00064         GOTO 1001
00065       ENDIF
00066 C**
00067 C     2.  -  IMPRESSION DES STATISTIQUES.
00068 C-----------------------------------------------------------------------
00069 C
00070       CALL LFIDAH_MT (LFI, IIDATE,IIHEUR)
00071       IDATEM=IIDATE
00072       IHEURM=IIHEUR
00073       IANNEE=IDATEM/10000
00074       IJOUR =MOD (IDATEM,100)
00075       IMOIS =IDATEM/100-100*IANNEE
00076       IHEURE=IHEURM/10000
00077       ISECON=MOD (IHEURM,100)
00078       IMINUT=IHEURM/100-100*IHEURE
00079 C
00080       IF (LFI%LFRANC) THEN
00081         WRITE (UNIT=LFI%NULOUT,FMT=9010)INUMER,IANNEE,IMOIS,
00082      S                                  IJOUR,IHEURE,IMINUT,ISECON
00083 C
00084         IF (LDAPFE) THEN
00085           WRITE (UNIT=LFI%NULOUT,FMT=9020)
00086         ELSEIF (LFI%LNOUFI(KRANG)) THEN
00087           WRITE (UNIT=LFI%NULOUT,FMT=9025)
00088         ENDIF
00089 C
00090       ELSE
00091         WRITE (UNIT=LFI%NULOUT,FMT=9011)INUMER,IANNEE,IMOIS,
00092      S                                  IJOUR,IHEURE,IMINUT,ISECON
00093 C
00094         IF (LDAPFE) THEN
00095           WRITE (UNIT=LFI%NULOUT,FMT=9021)
00096         ELSEIF (LFI%LNOUFI(KRANG)) THEN
00097           WRITE (UNIT=LFI%NULOUT,FMT=9026)
00098         ENDIF
00099 C
00100       ENDIF
00101 C
00102       IF (.NOT.LDAPFE.OR.IXNIMS(KRANG).EQ.0) THEN
00103 C
00104         IF (LFI%LFRANC) THEN
00105           CLMESS=' X NOM du Fichier='''
00106         ELSE
00107           CLMESS=' X File NAME='''
00108         ENDIF
00109 C
00110         IDECAL=INDEX (CLMESS,'''')
00111         IDERNI=111
00112         INLNOM=MIN0 (LFI%NLNOMF(KRANG),LFI%JPLFIX,IDERNI-2-IDECAL)
00113         CLMESS(IDECAL+1:IDECAL+INLNOM+1)=
00114      S    LFI%CNOMFI(KRANG)(1:INLNOM)//''''
00115         CLMESS(IDERNI:IDERNI)='X'
00116         WRITE (UNIT=LFI%NULOUT,FMT=9015)CLMESS
00117 C
00118         IF (LFI%CNOMSY(KRANG).NE.LFI%CNOMFI(KRANG)) THEN
00119 C
00120           IF (LFI%LFRANC) THEN
00121             CLMESS=' X NOM *SYSTEME*: '''
00122           ELSE
00123             CLMESS=' X SYSTEM NAME: '''
00124           ENDIF
00125 C
00126           IDECAL=INDEX (CLMESS,'''')
00127           IDERNI=111
00128           INLNOM=MIN0 (LFI%NLNOMS(KRANG),LFI%JPLFIX,IDERNI-2-IDECAL)
00129           CLMESS(IDECAL+1:IDECAL+INLNOM+1)=
00130      S          LFI%CNOMSY(KRANG)(1:INLNOM)//''''
00131           CLMESS(IDERNI:IDERNI)='X'
00132           WRITE (UNIT=LFI%NULOUT,FMT=9015)CLMESS
00133         ENDIF
00134 C
00135       ENDIF
00136 C
00137       IDEROP=LFI%NDEROP(KRANG)
00138 C
00139       IF (IDEROP.EQ.0) THEN
00140         CLOPER='LFIOUV'
00141       ELSEIF (IDEROP.EQ.1) THEN
00142         CLOPER='LFIECR'
00143       ELSEIF (IDEROP.EQ.2) THEN
00144         CLOPER='LFILEC'
00145       ELSEIF (IDEROP.EQ.3) THEN
00146         CLOPER='LFIMST'
00147       ELSEIF (IDEROP.EQ.4) THEN
00148         CLOPER='LFIERF'
00149       ELSEIF (IDEROP.EQ.5) THEN
00150         CLOPER='LFINIM'
00151       ELSEIF (IDEROP.EQ.6) THEN
00152         CLOPER='LFITAM'
00153       ELSEIF (IDEROP.EQ.7) THEN
00154         CLOPER='LFINFO'
00155       ELSEIF (IDEROP.EQ.8) THEN
00156         CLOPER='LFISTA'
00157       ELSEIF (IDEROP.EQ.9) THEN
00158         CLOPER='LFIFER'
00159       ELSEIF (IDEROP.EQ.10) THEN
00160         CLOPER='LFILAS'
00161       ELSEIF (IDEROP.EQ.11) THEN
00162         CLOPER='LFICAS'
00163       ELSEIF (IDEROP.EQ.12) THEN
00164         CLOPER='LFINAF'
00165       ELSEIF (IDEROP.EQ.13) THEN
00166         CLOPER='LFIREN'
00167       ELSEIF (IDEROP.EQ.14) THEN
00168         CLOPER='LFIPOS'
00169       ELSEIF (IDEROP.EQ.15) THEN
00170         CLOPER='LFISUP'
00171       ELSEIF (IDEROP.EQ.16) THEN
00172         CLOPER='LFILAP'
00173       ELSEIF (IDEROP.EQ.17) THEN
00174         CLOPER='LFICAP'
00175       ELSEIF (IDEROP.EQ.18) THEN
00176         CLOPER='LFILAF'
00177       ELSEIF (IDEROP.EQ.19) THEN
00178         CLOPER='LFIOEF'
00179       ELSEIF (IDEROP.EQ.20) THEN
00180         CLOPER='LFIOSF'
00181       ELSEIF (IDEROP.EQ.21) THEN
00182         CLOPER='LFIOMF'
00183       ELSEIF (IDEROP.EQ.22) THEN
00184         CLOPER='LFIPXF'
00185       ELSE
00186         CLOPER=LFI%CHINCO(:LFI%JPLSPX)
00187       ENDIF
00188 C
00189       IDERCO=LFI%NDERCO(KRANG)
00190       IDERAP=LFI%MDES1D(IXM(LFI%JPNAPH,KRANG))
00191       INBPIR=LFI%MDES1D(IXM(LFI%JPNPIR,KRANG))
00192       INBALO=LFI%MDES1D(IXM(LFI%JPNALO,KRANG))
00193       IFACTM=LFI%MFACTM(KRANG)
00194       ILARPH=LFI%JPLARD*IFACTM
00195       INALPP=LFI%JPNAPP*IFACTM
00196 C
00197       IF (LFI%LMODIF(KRANG).AND..NOT.LDAPFE) THEN
00198 C
00199 C         Il faut inclure, dans la longueur totale du fichier,
00200 C     les eventuels articles physiques (de donnees, mais aussi d'index)
00201 C     qui n'auraient pas encore ete ecrits.
00202 C
00203         DO 201 J=0,LFI%JPNPDF-1
00204         IDERAP=MAX0 (IDERAP,LFI%NUMAPD(J,KRANG))
00205   201   CONTINUE
00206 C
00207         INTPPI=(INBALO-1+INALPP)/INALPP
00208 C
00209         IF (INTPPI.GT.INBPIR) THEN
00210           IMDESC=LFI%MDES1D(IXM(ILARPH+1-INTPPI+INBPIR,KRANG))
00211           IDERAP=MAX0 (IDERAP,IMDESC+1)
00212         ENDIF
00213 C
00214       ENDIF
00215 C
00216       ILONGF=ILARPH*IDERAP
00217       ILDONN=LFI%MDES1D(IXM(LFI%JPLTAL,KRANG))
00218 C
00219       IF (LDAPFE) THEN
00220         INTRUA=LFI%MDES1D(IXM(LFI%JPNTRU,KRANG))
00221       ELSE
00222         INTRUA=LFI%MDES1D(IXM(LFI%JPNTRU,KRANG))+LFI%NBTROU(KRANG)
00223       ENDIF
00224 C
00225       INALDO=INBALO-INTRUA
00226 C
00227 C        NOMBRE DE P.P.I. "UTILES" (EN DECOMPTANT LES TROUS D'INDEX)
00228 C
00229       INPPIU=(INALDO-1+INALPP)/INALPP
00230       INUTIL=ILONGF-ILDONN-ILARPH*(1+2*INPPIU)
00231       INTRUO=LFI%NBTROU(KRANG)
00232       ILOMIN=LFI%MDES1D(IXM(LFI%JPLNAL,KRANG))
00233       ILOMAX=LFI%MDES1D(IXM(LFI%JPLXAL,KRANG))
00234 C
00235       IF (LFI%LFRANC) THEN
00236         WRITE (UNIT=LFI%NULOUT,FMT=9030)CLOPER,IDERCO
00237         WRITE (UNIT=LFI%NULOUT,FMT=9040)ILONGF,ILDONN,ILARPH,INUTIL
00238         WRITE (UNIT=LFI%NULOUT,FMT=9050)INTRUA,INTRUO
00239 C
00240         IF (LDAPFE.OR..NOT.LFI%LMIMAL(KRANG)) THEN
00241           WRITE (UNIT=LFI%NULOUT,FMT=9060)INALDO,ILOMIN,ILOMAX
00242         ELSE
00243           WRITE (UNIT=LFI%NULOUT,FMT=9070)INALDO,ILOMIN,ILOMAX
00244         ENDIF
00245 C
00246       ELSE
00247         WRITE (UNIT=LFI%NULOUT,FMT=9031)CLOPER,IDERCO
00248         WRITE (UNIT=LFI%NULOUT,FMT=9041)ILONGF,ILDONN,ILARPH,INUTIL
00249         WRITE (UNIT=LFI%NULOUT,FMT=9051)INTRUA,INTRUO
00250 C
00251         IF (LDAPFE.OR..NOT.LFI%LMIMAL(KRANG)) THEN
00252           WRITE (UNIT=LFI%NULOUT,FMT=9061)INALDO,ILOMIN,ILOMAX
00253         ELSE
00254           WRITE (UNIT=LFI%NULOUT,FMT=9071)INALDO,ILOMIN,ILOMAX
00255         ENDIF
00256 C
00257       ENDIF
00258 C
00259       IF (LDAPFE) THEN
00260         IREESP=LFI%MDES1D(IXM(LFI%JPNRES,KRANG))-LFI%NREESP(KRANG)
00261         IREECO=LFI%MDES1D(IXM(LFI%JPNREC,KRANG))-LFI%NREECO(KRANG)
00262         IREELO=LFI%MDES1D(IXM(LFI%JPNREL,KRANG))-LFI%NREELO(KRANG)
00263       ELSE
00264         IREESP=LFI%MDES1D(IXM(LFI%JPNRES,KRANG))
00265         IREECO=LFI%MDES1D(IXM(LFI%JPNREC,KRANG))
00266         IREELO=LFI%MDES1D(IXM(LFI%JPNREC,KRANG))
00267       ENDIF
00268 C
00269       IDATEM=LFI%MDES1D(IXM(LFI%JPDCRE,KRANG))
00270       IHEURM=LFI%MDES1D(IXM(LFI%JPHCRE,KRANG))
00271       IANNEE=IDATEM/10000
00272       IJOUR =MOD (IDATEM,100)
00273       IMOIS =IDATEM/100-100*IANNEE
00274       IHEURE=IHEURM/10000
00275       ISECON=MOD (IHEURM,100)
00276       IMINUT=IHEURM/100-100*IHEURE
00277 C
00278       IF (LFI%LFRANC) THEN
00279         IF (.NOT.LFI%LNOUFI(KRANG))
00280      S     WRITE (UNIT=LFI%NULOUT,FMT=9080)' AVANT',IREESP,IREECO,IREELO
00281         WRITE (UNIT=LFI%NULOUT,FMT=9080)'DEPUIS',LFI%NREESP(KRANG),
00282      S             LFI%NREECO(KRANG),LFI%NREELO(KRANG)
00283         WRITE (UNIT=LFI%NULOUT,FMT=9090)
00284      S        'CREATION du FICHIER (Premiere Ouverture)',
00285      S        IANNEE,IMOIS,IJOUR,IHEURE,IMINUT,ISECON
00286       ELSE
00287         IF (.NOT.LFI%LNOUFI(KRANG))
00288      S     WRITE (UNIT=LFI%NULOUT,FMT=9081)'BEFORE',IREESP,IREECO,IREELO
00289         WRITE (UNIT=LFI%NULOUT,FMT=9081)' SINCE',LFI%NREESP(KRANG),
00290      S         LFI%NREECO(KRANG), LFI%NREELO(KRANG)
00291         WRITE (UNIT=LFI%NULOUT,FMT=9091)
00292      S         'FILE CREATION (Very First Opening)  ',
00293      S         IANNEE,IMOIS,IJOUR,IHEURE,IMINUT,ISECON
00294       ENDIF
00295 C
00296       IF (.NOT.LFI%LNOUFI(KRANG).OR.LFI%LMODIF(KRANG)) THEN
00297         IDATEM=LFI%MDES1D(IXM(LFI%JPDMNG,KRANG))
00298         IHEURM=LFI%MDES1D(IXM(LFI%JPHMNG,KRANG))
00299         IANNEE=IDATEM/10000
00300         IJOUR =MOD (IDATEM,100)
00301         IMOIS =IDATEM/100-100*IANNEE
00302         IHEURE=IHEURM/10000
00303         ISECON=MOD (IHEURM,100)
00304         IMINUT=IHEURM/100-100*IHEURE
00305 C
00306         IF (LFI%LFRANC) THEN
00307           WRITE (UNIT=LFI%NULOUT,FMT=9090)
00308      S               'Premiere Modification "NON GARANTIE"    ',
00309      S               IANNEE,IMOIS,IJOUR,IHEURE,IMINUT,ISECON
00310         ELSE
00311           WRITE (UNIT=LFI%NULOUT,FMT=9091)
00312      S               'First "not guaranteed" Modification  ',
00313      S               IANNEE,IMOIS,IJOUR,IHEURE,IMINUT,ISECON
00314         ENDIF
00315 C
00316       ENDIF
00317 C
00318       IF (LDAPFE.OR..NOT.LFI%LNOUFI(KRANG)) THEN
00319         IDATEM=LFI%MDES1D(IXM(LFI%JPDDMG,KRANG))
00320         IHEURM=LFI%MDES1D(IXM(LFI%JPHDMG,KRANG))
00321         IANNEE=IDATEM/10000
00322         IJOUR =MOD (IDATEM,100)
00323         IMOIS =IDATEM/100-100*IANNEE
00324         IHEURE=IHEURM/10000
00325         ISECON=MOD (IHEURM,100)
00326         IMINUT=IHEURM/100-100*IHEURE
00327 C
00328         IF (LFI%LFRANC) THEN
00329           WRITE (UNIT=LFI%NULOUT,FMT=9090)
00330      S               'Derniere FERMETURE apres Modification   ',
00331      S               IANNEE,IMOIS,IJOUR,IHEURE,IMINUT,ISECON
00332         ELSE
00333           WRITE (UNIT=LFI%NULOUT,FMT=9091)
00334      S               'Last CLOSE made after a Modification',
00335      S               IANNEE,IMOIS,IJOUR,IHEURE,IMINUT,ISECON
00336         ENDIF
00337 C
00338       ENDIF
00339 C
00340       INALIP=INALPP*INBPIR
00341       INAMAX=INALIP+INALPP*(ILARPH-LFI%JPLDOC)
00342       INMOUL=LFI%NBMOLU(KRANG)
00343       INMOUE=LFI%NBMOEC(KRANG)
00344       INMOUT=INMOUL+INMOUE
00345       INMOLL=ILARPH*LFI%NBREAD(KRANG)
00346       INMOLE=ILARPH*LFI%NBWRIT(KRANG)
00347       INMOLT=INMOLL+INMOLE
00348       INLECT=LFI%NBLECT(KRANG)
00349       INECRI=LFI%NBNECR(KRANG)+LFI%NREESP(KRANG)+
00350      S       LFI%NREECO(KRANG)+LFI%NREELO(KRANG)
00351       INRENO=LFI%NBRENO(KRANG)
00352       INSUPP=LFI%NBSUPP(KRANG)
00353 C
00354       IF (LFI%LFRANC) THEN
00355         WRITE (UNIT=LFI%NULOUT,FMT=9100)INALIP,INAMAX
00356         WRITE (UNIT=LFI%NULOUT,FMT=9110)
00357      S             'UTILISATEUR','EN LECTURE','EN ECRITURE',
00358      S             INMOUL,INMOUE,INMOUT
00359         WRITE (UNIT=LFI%NULOUT,FMT=9110)
00360      S             ' LOGICIEL  ','PAR "READ"','PAR "WRITE"',
00361      S             INMOLL,INMOLE,INMOLT
00362         WRITE (UNIT=LFI%NULOUT,FMT=9120)INLECT,INECRI,INRENO,INSUPP
00363       ELSE
00364         WRITE (UNIT=LFI%NULOUT,FMT=9101)INALIP,INAMAX
00365         WRITE (UNIT=LFI%NULOUT,FMT=9111)
00366      S             '  USER  ',' For INPUT  ',' For OUTPUT  ',
00367      S             INMOUL,INMOUE,INMOUT
00368         WRITE (UNIT=LFI%NULOUT,FMT=9111)
00369      S             'SOFTWARE','Through READ','Through WRITE',
00370      S             INMOLL,INMOLE,INMOLT
00371         WRITE (UNIT=LFI%NULOUT,FMT=9121)INLECT,INECRI,INRENO,INSUPP
00372       ENDIF
00373 C**
00374 C    10.  -  PHASE TERMINALE : MESSAGERIE INTERNE EVENTUELLE,
00375 C            VIA LE SOUS-PROGRAMME "LFIEMS", ET ABORT EVENTUEL.
00376 C-----------------------------------------------------------------------
00377 C
00378  1001 CONTINUE
00379       LLFATA=LLMOER (IREP,KRANG)
00380 C
00381       IF (LFI%LMISOP.OR.LLFATA) THEN
00382         INIMES=2
00383         CLNSPR='LFIIST'
00384         WRITE (UNIT=CLMESS,FMT='(''IREP='',I4,'', KRANG='
00385 ',I3,     S         '', LDAPFE= '',L1)') IREP,KRANG,LDAPFE
00386         CALL LFIEMS_MT (LFI, INUMER,INIMES,IREP,LLFATA,
00387      S                  CLMESS,CLNSPR,CLACTI)
00388       ENDIF
00389 C
00390       IF (LHOOK) CALL DR_HOOK('LFIIST_MT',1,ZHOOK_HANDLE)
00391       RETURN
00392 C
00393  9010 FORMAT (/,/,T2,110('X'),/,' X',T111,'X',/,' X',T15,
00394      S 'Statistiques d''Utilisation de l''Unite Logique Indexee',I4,
00395      S ' (le',I5.2,2('/',I2.2),' a',I3.2,2(':',I2.2),')',T111,'X',
00396      S /,' X',T15,42('- '),'-',T111,'X',/,' X',T111,'X')
00397 C
00398  9011 FORMAT (/,/,T2,110('X'),/,' X',T111,'X',/,' X',T15,
00399      S 'Statistics of Use for LFI Indexed Logical Unit Number',I4,
00400      S ' (on',I5.2,2('/',I2.2),' at',I3.2,2(':',I2.2),')',T111,'X',
00401      S /,' X',T15,42('- '),'-',T111,'X',/,' X',T111,'X')
00402 C
00403  9015 FORMAT (A,/,' X',T111,'X')
00404 C
00405  9020 FORMAT (' X',T29,
00406      S '----- Cette Unite Logique est en cours de FERMETURE -----',
00407      S T111,'X',/,' X',T111,'X')
00408 C
00409  9021 FORMAT (' X',T30,
00410      S '----- This Logical Unit is currently being CLOSED -----',
00411      S T111,'X',/,' X',T111,'X')
00412 C
00413  9025 FORMAT (' X',T30,
00414      S '----- Cette Unite Logique est en mode "CREATION" -----',
00415      S T111,'X',/,' X',T111,'X')
00416 C
00417  9026 FORMAT (' X',T31,
00418      S '----- This Logical Unit is in "CREATION" Mode -----',
00419      S T111,'X',/,' X',T111,'X')
00420 C
00421  9030 FORMAT (' X  Dernier Sous-Programme utilise: "',A6,
00422      S '", Code-Reponse correspondant a cet appel:',I4,
00423      S T111,'X',/,' X',T111,'X')
00424 C
00425  9031 FORMAT (' X  Name of Last Used SUBROUTINE: "',A6,
00426      S '", Response Code corresponding to this call:',I4,
00427      S T111,'X',/,' X',T111,'X')
00428 C
00429  9040 FORMAT (' X  LONGUEUR TOTALE en mots: du FICHIER=',I9,
00430      S ', des DONNEES=',I9,', d''un Article "PHYSIQUE"=',I6,T111,'X',
00431      S /,' X',T111,'X',/,' X  Mots "PERDUS" par l''Utili',
00432      S 'sation (Articles d''Index inutiles, Trous, Fin du fichier) =',
00433      S I8,T111,'X',/,' X',T111,'X')
00434 C
00435  9041 FORMAT (' X  TOTAL LENGTH in words: of FILE=',I9,
00436      S ', of DATA=',I9,', of a "PHYSICAL" Record=',I6,T111,'X',
00437      S /,' X',T111,'X',/,' X  Words currently "LOST" by previous ',
00438      S 'Usage (Unnecessary Index Records, Holes, End of file)=',
00439      S I8,T111,'X',/,' X',T111,'X')
00440 C
00441  9050 FORMAT (' X  Nombre de TROUS REPERTORIES: Actuellement',I6,
00442      S ', dont',I6,' CREE(S) et NON RECYCLE(S) depuis OUVERTURE',
00443      S T111,'X',/,' X',T111,'X')
00444 C
00445  9051 FORMAT (' X  Number of HOLES within INDEX: Currently',I6,
00446      S ', among which',I6,' CREATED and NOT RE-USED since OPENING',
00447      S T111,'X',/,' X',T111,'X')
00448 C
00449  9060 FORMAT (' X  Nombre d''ARTICLES LOGIQUES de DONNEES=',I6,
00450      S ', Longueur Mini/Maxi=',I7,' /',I7,T111,'X',/,' X',T111,'X')
00451 C
00452  9061 FORMAT (' X  Number of LOGICAL RECORDS of DATA=',I6,
00453      S ', Minimum/maximum length=',I7,' /',I7,T111,'X',/,' X',T111,'X')
00454 C
00455  9070 FORMAT (' X  Nombre d''ARTICLES LOGIQUES de DONNEES=',I6,
00456      S ', Longueur Mini/Maxi (A PRIORI)=',I7,' /',I7,
00457      S T111,'X',/,' X',T111,'X')
00458 C
00459  9071 FORMAT (' X  Number of LOGICAL RECORDS of DATA=',I6,
00460      S ', Minimum/Maximum Length (A PRIORI)=',I7,' /',I7,
00461      S T111,'X',/,' X',T111,'X')
00462 C
00463  9080 FORMAT (' X  ',A6,' Ouverture, Nombre de REECRITURES Sur PLACE/',
00464      S 'Plus COURTES/Plus LONGUES=',I6,2(' /',I6),
00465      S T111,'X',/,' X',T111,'X')
00466 C
00467  9081 FORMAT (' X  ',A6,' Opening, Number of RE-WRITE(s): In PLACE/',
00468      S 'SHORTER/LONGER=',I6,2(' /',I6),
00469      S T111,'X',/,' X',T111,'X')
00470 C
00471  9090 FORMAT (' X  ',A40,' le',I5.2,2('/',I2.2),' a',I3.2,2(':',I2.2),
00472      S T111,'X',/,' X',T111,'X')
00473 C
00474  9091 FORMAT (' X  ',A36,' on',I5.2,2('/',I2.2),' at',I3.2,2(':',I2.2),
00475      S T111,'X',/,' X',T111,'X')
00476 C
00477  9100 FORMAT(' X  Nombre d''ARTICLES LOGIQUES gerables (TROUS compris)',
00478      S       ' SANS/AVEC DEBORDEMENT =',I7,' /',I7,
00479      S T111,'X',/,' X',T111,'X')
00480 C
00481  9101 FORMAT(' X  Number of LOGICAL RECORDS STORE-able (HOLES included)'
00482      S       ,' WITHOUT/WITH OVERFLOW=',I7,' /',I7,
00483      S T111,'X',/,' X',T111,'X')
00484 C
00485  9110 FORMAT (' X  Nombre de Mots ',A11,' demandes ',A10,'/',A11,
00486      S        '/AU TOTAL=',I9,2(' /',I9),T111,'X',/,' X',T111,'X')
00487 C
00488  9111 FORMAT (' X  Number of ',A8,' Words requested ',A12,'/',A13,
00489      S        '/TOTAL=',I9,2(' /',I9),T111,'X',/,' X',T111,'X')
00490 C
00491  9120 FORMAT (' X  Nombre d''ARTICLES LOGIQUES LUS/ECRITS/RENOMMES/',
00492      S        'SUPPRIMES depuis Ouverture=',I6,3(' /',I6),
00493      S T111,'X',/,' X',T111,'X',/,T2,110('X'),/)
00494 C
00495  9121 FORMAT (' X  Number of LOGICAL RECORDS: READ/WRITTEN/RENAMED/',
00496      S        'SUPPRESSED since Opening = ',I6,3(' /',I6),
00497      S T111,'X',/,' X',T111,'X',/,T2,110('X'),/)
00498 C
00499       END
00500