Esope source files

   1 : C DIMNOY    SOURCE    CHAT      05/01/12    22:51:06     5004           
   2 :       SUBROUTINE DIMNOY                                                         
   3 : ************************************************************************        
   4 : *                                                                               
   5 : *                             D I M N O Y                                       
   6 : *                             -----------                                       
   7 : *                                                                               
   8 : *            SOUS-PROGRAMME ASSOCIE A L'OPERATEUR "DIMNOYAU"                    
   9 : *                                                                               
  10 : * FONCTION:                                                                     
  11 : * ---------                                                                     
  12 : *                                                                               
  13 : *     DIMENSION DU NOYAU D'UN OBJET (ACTUELLEMENT, 'RIGIDITE' SEULEMENT)        
  14 : *                                                                               
  15 : * PHRASE D'APPEL (EN GIBIANE):                                                  
  16 : * ----------------------------                                                  
  17 : *                                                                               
  18 : *     NOMBRE = DIMNOYAU RIGID ;                                                 
  19 : *                                                                               
  20 : * ARGUMENTS (EN GIBIANE):                                                       
  21 : * -----------------------                                                       
  22 : *                                                                               
  23 : *     RIGID     'RIGIDITE'                                                      
  24 : *     NOMBRE    'ENTIER  '  DIMENSION DU NOYAU DE L'OBJET.                      
  25 : *                                                                               
  26 : * SOUS-PROGRAMMES APPELES:                                                      
  27 : * ------------------------                                                      
  28 : *                                                                               
  29 : *     LIRE, ECRIRE, DIMNO1.                                                     
  30 : *                                                                               
  31 : * AUTEUR, DATE DE CREATION:                                                     
  32 : * -------------------------                                                     
  33 : *                                                                               
  34 : *     PASCAL MANIGOT     10 SEPTEMBRE 1985                                      
  35 : *                                                                               
  36 : * LANGAGE:                                                                      
  37 : * --------                                                                      
  38 : *                                                                               
  39 : *     FORTRAN77 + EXTENSION: CARACTERES MIS DANS DES ENTIERS                    
  40 : *                                                                               
  41 : ************************************************************************        
  42 : *                                                                               
  43 :       IMPLICIT INTEGER(I-N)
  44 : -INC CCOPTIO                                                                    
  45 : *                                                                               
  46 : *                                                                               
  47 : *                                                                               
  48 :       ICODE = 1                                                                 
  48 :       CALL LIROBJ ('RIGIDITE',IPRIGI,ICODE,IRETOU)                              
  49 :       IF (IERR .NE. 0) RETURN                                                   
  50 : *                                                                               
  50 :       CALL DIMNO1 (IPRIGI,  NOYAU)                                              
  51 :       IF (IERR .NE. 0) RETURN                                                   
  52 : *                                                                               
  52 :       CALL ECRENT (NOYAU)                                                       
  53 : *                                                                               
  54 :       END                                                                       
  55 :