C DIME10    SOURCE    CHAT      05/01/12    22:50:22     5004           
* DIMENSION D'UN OBJET DE TYPE "NUAGE".                                      
      SUBROUTINE DIME10 (IPOINT,JEMIL,LDIM)                                           
************************************************************************        
*                                                                               
*                             D I M E 1 0                                       
*                             -----------                                       
*                                                                               
* FONCTION:                                                                     
* ---------                                                                     
*                                                                               
*     DETERMINER LA DIMENSION D'UN OBJET DE TYPE "NUAGE   ".                    
*                                                                               
* MODE D'APPEL:                                                                 
* -------------                                                                 
*                                                                               
*     CALL DIME10 (IPOINT,LDIM)                                                 
*                                                                               
* PARAMETRES:  (E)=ENTREE   (S)=SORTIE                                          
* -----------                                                                   
*                                                                               
*     IPOINT  ENTIER    (E)  POINTEUR DE L'OBJET DE TYPE "NUAGE   ".
*     JEMIL   ENTIER    (E)  =1 SI ON VEUT LE NOMBRE DE VARIABLE
*                            =2 SI ON VEUT LE NOMBRE DE UPLETS
*     LDIM    ENTIER    (S)  DIMENSION DE L'OBJET.                              
*                                                                               
* AUTEUR, DATE DE CREATION:                                                     
* -------------------------                                                     
*                                                                               
*     SUO     LE 9 MAI 1994                                             
*                                                                               
* LANGAGE:                                                                      
* --------                                                                      
*                                                                               
*     ESOPE + FORTRAN77                                                         
*                                                                               
************************************************************************        
*                                                                              
      IMPLICIT INTEGER(I-N)
-INC SMNUAGE                                                                    
* 
      LDIM=0
      MNUAGE=IPOINT
      SEGACT,MNUAGE
      IF (JEMIL.EQ.1) THEN       
        LDIM=NUANOM(/2)
      ELSE
        IF (NUATYP(1).EQ.'FLOTTANT') THEN
          NUAVFL=NUAPOI(1)
          SEGACT,NUAVFL
          LDIM=NUAFLO(/1)
          SEGDES,NUAVFL
        ELSEIF (NUATYP(1).EQ.'MOT     ') THEN
          NUAVMO=NUAPOI(1)
          SEGACT,NUAVMO
          LDIM=NUAMOT(/2)
          SEGDES,NUAVMO
        ELSEIF (NUATYP(1).EQ.'LOGIQUE ') THEN
          NUAVLO=NUAPOI(1)
          SEGACT,NUAVLO
          LDIM=NUALOG(/1)
          SEGDES,NUAVLO
        ELSE
          NUAVIN=NUAPOI(1)
          SEGACT,NUAVIN
          LDIM=NUAINT(/1)
          SEGDES,NUAVIN
        ENDIF
      ENDIF                                                                                             
      SEGDES,MNUAGE                                                       
* 
666   CONTINUE
      RETURN                                                                              
      END