BROWSER/doc_surf81/facom2_8ixnvms_8h_source.html

 !*
 !       Fonction "en ligne" donnant le plus haut niveau de messagerie
 !       acceptable pour l'unite logique de rang "I3456"
 !       (utilisation des niveaux de messagerie global et propre au
 !        fichier; s'il n'y a pas de fichier - I3456=0, d'ou le dimensio-
 !        nnement de *NIVOMS* a partir de zero, le niveau de filtrage
 !        global joue seul)
 !
 INTEGER (KIND=JPLIKB) FUNCTION IXNVMS (I3456)
 INTEGER (KIND=JPLIKB) :: I3456
 IXNVMS =MIN (2_JPLIKB ,2_JPLIKB *FA%NIMSGA,MAX (2_JPLIKB *FA%NIMSGA-2_JPLIKB ,FA%FICHIER(I3456)%NIVOMS))
 END FUNCTION
a
ERROR in a
Definition: ecsort_shared.h:90

n
ERROR in n
Definition: ecsort_shared.h:90

INTEGER
INTERFACE SUBROUTINE JPRB IMPLICIT NONE INTEGER(KIND=JPIM)

FA
INTERFACE SUBROUTINE FACILO_MT && FA
Definition: facilo_mt.h:4

FICHIER
! FONCTION SERVANT A RENDRE FATALE OU NON UNE ERREUR ! A L AIDE DU CODE REPONSE DU NIVEAU DE FILTRAGE ! ET DE L OPTION D ERREUR FATALE PROPRE AU FICHIER ! S IL N Y A PAS DE FICHIER(I5678=0, D 'OU DIMENSIONNEMENT DE ! *LERFAT *)

global
! Fonction servant a rendre fatale ou non une erreur ! a l aide du code reponse du niveau de filtrage global
Definition: facom2.llmoer.h:2