Esope source files

   1 : C DIMEN6    SOURCE    CHAT      05/01/12    22:50:44     5004           
   2 :       SUBROUTINE DIMEN6 (IPOINT,LDIM)                                           
   3 : ************************************************************************        
   4 : *                                                                               
   5 : *                             D I M E N 6                                       
   6 : *                             -----------                                       
   7 : *                                                                               
   8 : * FONCTION:                                                                     
   9 : * ---------                                                                     
  10 : *                                                                               
  11 : *    DETERMINER LA DIMENSION D'UN OBJET DE TYPE "LISTMOTS".                     
  12 : *                                                                               
  13 : * MODULES UTILISES:                                                             
  14 : * -----------------                                                             
  15 : *                                                                               
  16 :       IMPLICIT INTEGER(I-N)
  17 : -INC SMLMOTS                                                                    
  18 : *                                                                               
  19 : * PARAMETRES:   (E)=ENTREE   (S)=SORTIE   (+ = CONTENU DANS UN COMMUN)          
  20 : * -----------                                                                   
  21 : *                                                                               
  22 : *    IPOINT  ENTIER (E)    POINTEUR DE L'OBJET DE TYPE "LISTMOTS".              
  23 : *    LDIM    ENTIER (S)    DIMENSION DE L'OBJET.                                
  24 : *                                                                               
  25 : * AUTEUR, DATE DE CREATION:                                                     
  26 : * -------------------------                                                     
  27 : *                                                                               
  28 : *     DENIS  ROBERT      LE 13 OCTOBRE 1987                                     
  29 : *                                                                               
  30 : * LANGAGE:                                                                      
  31 : * --------                                                                      
  32 : *                                                                               
  33 : *     ESOPE + FORTRAN77                                                         
  34 : *                                                                               
  35 : ************************************************************************        
  36 : *                                                                               
  37 :       MLMOTS=IPOINT                                                             
  38 :       SEGACT,MLMOTS                                                             
  39 :       LDIM=MOTS(/2)                                                             
  40 :       SEGDES,MLMOTS                                                       
  41 : *                                                                               
  42 :       END                                                                       
  43 :