SURFEX v7.3: /home/dasprezs/EXPORT_v7_3/src/LIB/XRD38/LFI/lficom2.h Source File

Go to the documentation of this file.
00001 C
00002 C       FONCTION SERVANT A RENDRE FATALE OU NON UNE ERREUR DETECTEE,
00003 C       A L'AIDE DU CODE-REPONSE COURANT, DU NIVEAU DE FILTRAGE GLOBAL,
00004 C       ET DE L'OPTION D'ERREUR FATALE PROPRE AU FICHIER.
00005 C       S'IL N'Y A PAS DE FICHIER (I5678=0, D'OU DIMENSIONNEMENT DE
00006 C          *LERFAT*), LE NIVEAU DE FILTRAGE JOUE LE ROLE PRINCIPAL.
00007 C
00008       INTEGER IXNIMS, I1234, I5678, I3456, IXC, IXM, IXT, IABCDE, IFGHIJ
00009       INTEGER IKLMNO, IPQRST, IUVWXY, IZABCD, IEFGHI
00010 C
00011       LOGICAL LLMOER
00012 C
00013       LLMOER (I1234,I5678)=I1234.EQ.-16.OR.
00014      S (I1234.NE.0.AND.(LFI%NERFAG.EQ.0.OR.(LFI%NERFAG.EQ.1
00015      S .AND.LFI%LERFAT(I5678))))
00016 C
00017 C       FONCTION DONNANT LE PLUS HAUT NIVEAU DE MESSAGERIE ACCEPTABLE
00018 C       POUR L'UNITE LOGIQUE DE RANG "I3456" .
00019 C       (UTILISATION DES NIVEAUX DE MESSAGERIE GLOBAL ET PROPRE AU
00020 C        FICHIER - MEME REMARQUE QUE CI-DESSUS SI I3456=0, POUR NIVMES)
00021 C
00022       IXNIMS (I3456)=MIN0 (2,2*LFI%NIMESG,
00023      S                 MAX0 (2*LFI%NIMESG-2,LFI%NIVMES(I3456)))
00024 C
00025 C       Fonctions servant a l'adressage 1D dans les tableaux CNOMAR,
00026 C     MLGPOS et MDES1D, MTAMPD.
00027 C
00028       IXC (IABCDE,IFGHIJ) = IABCDE + LFI%JPNXNA * ( IFGHIJ - 1 )
00029       IXM (IKLMNO,IPQRST) = IKLMNO + LFI%JPLARD * ( IPQRST - 1 )
00030       IXT (IUVWXY,IZABCD,IEFGHI) = IUVWXY + LFI%JPLARD *
00031      S ( LFI%MFACTM(IEFGHI) * IZABCD + LFI%JPNPDF * ( IEFGHI - 1 ) )
00032 C