Esope source files

   1 : C INDIC     SOURCE    CHAT      05/01/13    00:35:58     5004           
   2 : C INDIC       SOURCE                                                            
   3 :       SUBROUTINE INDIC                                                          
   4 : C=======================================================================        
   5 : C     OPERATEUR INDIQUANT LA QUALITE D'UN MAILLAGE                              
   6 : C          PHILIPPE BEAUMIER  90                                                
   7 : C     LECTURE DES MOTS CLES DE LA PROCEDURE ET APPEL A INDCR                    
   8 : C                                                                               
   9 : C                                                                               
  10 : C     SYNTAXE                                                                   
  11 : C     -------                                                                   
  12 : C                                                                               
  13 : C     CHL = INDI GEOM1 NOMI ...;                                                
  14 : C                                                                               
  15 : C        GEOM1 = OBJET DE TYPE GEOMETRIE                                        
  16 : C        NOMI  = MOTS CLES                                                      
  17 : C        CHL   = OBJET DE TYPE CHAMALEM (NOUVEAU CHAMALEM, OF COURSE|)          
  18 : C                                                                               
  19 : C=======================================================================        
  20 : C                                                                               
  21 :       IMPLICIT INTEGER(I-N)
  22 :       IMPLICIT REAL*8(A-H,O-Z)                                                  
  23 :       CHARACTER*4 MOCLE(1)                                                      
  24 : C                                                                               
  25 :       DATA MOCLE/'PLAN'/                                                        
  26 :       IMAIL=0                                                                   
  27 :       ICHA=0                                                                    
  28 :       IER1=0                                                                    
  29 :       IER2=0                                                                    
  30 :       IER3=0                                                                    
  31 : C                                                                               
  32 : C     LECTURE DU MAILLAGE (OBJET DE TYPE MAILLAGE)                              
  33 : C                                                                               
  33 :       CALL LIROBJ('MAILLAGE',IMAIL,1,IER1)                                      
  34 :       IF(IER1.EQ.0) GOTO 666                                                    
  35 : C                                                                               
  36 : C     LECTURE DES MOTS CLES                                                     
  37 : C                                                                               
  37 :       CALL LIRMOT(MOCLE,1,IER2,1)                                               
  38 :       IF(IER2.EQ.0) GOTO 666                                                    
  39 : C                                                                               
  40 : C     APPEL DE LA PROCEDURE DE CREATION DU CHAMALEM                             
  41 : C                                                                               
  42 :       IM=1                                                                      
  43 : C     IM EST LE NOMBRE DE MOTS CLES LUS                                         
  43 :       CALL INDCR(MOCLE,1,IER3,IMAIL,ICHA)                                       
  44 : C     IF(IER3.EQ.0) THEN                                                        
  44 : C       CALL ERREUR( )                                                          
  45 : C     ELSE                                                                      
  45 :         CALL ECROBJ('MCHAML',ICHA)                                              
  46 : C     ENDIF                                                                     
  47 : C                                                                               
  48 : 666   RETURN                                                                    
  49 :       END                                                                       
  50 :