SURFEX v7.3: /home/dasprezs/EXPORT_v7_3/src/LIB/XRD38/FA/facom2.h Source File

Go to the documentation of this file.
00001       INTEGER I1234, I5678, I3456, IXNVMS
00002       LOGICAL LLMOER
00003 C
00004 C       Fonction servant a rendre fatale ou non une erreur detectee,
00005 C       a l'aide du code reponse courant, du niveau de filtrage global,
00006 C       et de l'option d'erreur fatale propre au fichier.
00007 C       s'il n'y a pas de fichier (I5678=0, d'ou dimensionnement de
00008 C          *LERRFA*), le niveau de filtrage joue le role principal.
00009 C
00010       LLMOER (I1234,I5678)=I1234.EQ.-66.OR.
00011      S (I1234.NE.0.AND.(FA%NRFAGA.EQ.0.OR.
00012      S (FA%NRFAGA.EQ.1.AND.FA%LERRFA(I5678))))
00013 C*
00014 C       Fonction "en ligne" donnant le plus haut niveau de messagerie
00015 C       acceptable pour l'unite logique de rang "I3456"
00016 C       (utilisation des niveaux de messagerie global et propre au
00017 C        fichier; s'il n'y a pas de fichier - I3456=0, d'ou le dimensio-
00018 C        nnement de *NIVOMS* a partir de zero, le niveau de filtrage
00019 C        global joue seul)
00020 C
00021       IXNVMS (I3456)=MIN (2,2*FA%NIMSGA,MAX 
00022      S                  (2*FA%NIMSGA-2,FA%NIVOMS(I3456)))
00023 C