Esope source files

   1 : C DIME10    SOURCE    CHAT      05/01/12    22:50:22     5004           
   2 : * DIMENSION D'UN OBJET DE TYPE "NUAGE".                                      
   3 :       SUBROUTINE DIME10 (IPOINT,JEMIL,LDIM)                                           
   4 : ************************************************************************        
   5 : *                                                                               
   6 : *                             D I M E 1 0                                       
   7 : *                             -----------                                       
   8 : *                                                                               
   9 : * FONCTION:                                                                     
  10 : * ---------                                                                     
  11 : *                                                                               
  12 : *     DETERMINER LA DIMENSION D'UN OBJET DE TYPE "NUAGE   ".                    
  13 : *                                                                               
  14 : * MODE D'APPEL:                                                                 
  15 : * -------------                                                                 
  16 : *                                                                               
  16 : *     CALL DIME10 (IPOINT,LDIM)                                                 
  17 : *                                                                               
  18 : * PARAMETRES:  (E)=ENTREE   (S)=SORTIE                                          
  19 : * -----------                                                                   
  20 : *                                                                               
  21 : *     IPOINT  ENTIER    (E)  POINTEUR DE L'OBJET DE TYPE "NUAGE   ".
  22 : *     JEMIL   ENTIER    (E)  =1 SI ON VEUT LE NOMBRE DE VARIABLE
  23 : *                            =2 SI ON VEUT LE NOMBRE DE UPLETS
  24 : *     LDIM    ENTIER    (S)  DIMENSION DE L'OBJET.                              
  25 : *                                                                               
  26 : * AUTEUR, DATE DE CREATION:                                                     
  27 : * -------------------------                                                     
  28 : *                                                                               
  29 : *     SUO     LE 9 MAI 1994                                             
  30 : *                                                                               
  31 : * LANGAGE:                                                                      
  32 : * --------                                                                      
  33 : *                                                                               
  34 : *     ESOPE + FORTRAN77                                                         
  35 : *                                                                               
  36 : ************************************************************************        
  37 : *                                                                              
  38 :       IMPLICIT INTEGER(I-N)
  39 : -INC SMNUAGE                                                                    
  40 : * 
  41 :       LDIM=0
  42 :       MNUAGE=IPOINT
  43 :       SEGACT,MNUAGE
  44 :       IF (JEMIL.EQ.1) THEN       
  45 :         LDIM=NUANOM(/2)
  46 :       ELSE
  47 :         IF (NUATYP(1).EQ.'FLOTTANT') THEN
  48 :           NUAVFL=NUAPOI(1)
  49 :           SEGACT,NUAVFL
  50 :           LDIM=NUAFLO(/1)
  51 :           SEGDES,NUAVFL
  52 :         ELSEIF (NUATYP(1).EQ.'MOT     ') THEN
  53 :           NUAVMO=NUAPOI(1)
  54 :           SEGACT,NUAVMO
  55 :           LDIM=NUAMOT(/2)
  56 :           SEGDES,NUAVMO
  57 :         ELSEIF (NUATYP(1).EQ.'LOGIQUE ') THEN
  58 :           NUAVLO=NUAPOI(1)
  59 :           SEGACT,NUAVLO
  60 :           LDIM=NUALOG(/1)
  61 :           SEGDES,NUAVLO
  62 :         ELSE
  63 :           NUAVIN=NUAPOI(1)
  64 :           SEGACT,NUAVIN
  65 :           LDIM=NUAINT(/1)
  66 :           SEGDES,NUAVIN
  67 :         ENDIF
  68 :       ENDIF                                                                                             
  69 :       SEGDES,MNUAGE                                                       
  70 : * 
  71 : 666   CONTINUE
  72 :       RETURN                                                                              
  73 :       END                                                                       
  74 :