* -INC SMNUAGE                                                                  
*                                                                               
*     OBJET DE TYPE 'NUAGE'                                                     
*                                                                               
      SEGMENT MNUAGE                                                                                                            
       CHARACTER*8 NUANOM(NVAR)
       CHARACTER*8 NUATYP(NVAR)
       INTEGER  NUAPOI(NVAR)
      ENDSEGMENT
      SEGMENT NUAVIN
       INTEGER NUAINT(NBCOUP)
      ENDSEGMENT
      SEGMENT NUAVFL
       REAL*8 NUAFLO(NBCOUP)
      ENDSEGMENT
      SEGMENT NUAVMO
       CHARACTER*8 NUAMOT(NBCOUP)                                                     
      ENDSEGMENT                   
      SEGMENT NUAVLO
        LOGICAL NUALOG(NBCOUP)                                                     
      ENDSEGMENT                                                                
       POINTEUR MNUAG1.MNUAGE,MNUAG2.MNUAGE,MNUAG3.MNUAGE
       POINTEUR NUAVI1.NUAVIN,NUAVI2.NUAVIN,NUAVI3.NUAVIN 
       POINTEUR NUAVF1.NUAVFL,NUAVF2.NUAVFL,NUAVF3.NUAVFL
       POINTEUR NUAVL1.NUAVLO,NUAVL2.NUAVLO,NUAVL3.NUAVLO
       POINTEUR NUAVM1.NUAVMO,NUAVM2.NUAVMO,NUAVM3.NUAVMO    
*                                                                                                                             
*     NVAR      : NOMBRE DE VARIABLES
*     NBCOUP    : NOMBRE DE POINTS
*     NUANOM    : TABLEAU DES NOMS DES VARIABLES
*     NUATYP    : TABLEAU DES TYPES DES VARIABLES
*     NUAPOI    : TABLEAU DE POINTEUR VERS NUAVIN OU NUAVFL OU NUAVMO 
*     NUAVAR    : TABLEAU DE POINTEURS SUR LES VARIABLES 
*     NUAFLO    : TABLEAU DES VALEURS SI FLOTTANT
*     NUAMOT    : TABLEAU DES VALEURS SI MOT
*