Esope source files

   1 : C EXFACE    SOURCE    CHAT      05/01/12    23:50:43     5004           
   2 : C    EXTRAIT UNE FACE D'UN PAVE MASSIF                                          
   3 : C   SI PAS DE NOMBRE INDIQUE REND TOUTES LES FACES                              
   4 : C  LES CUBES ONT 6 FACES  1=BAS 2=HAUT 3 ET 4,5 ET 6 OPPOSES                    
   5 : C  CERTAINS VOLUMES ONT 3 FACES 1=BAS 2=HAUT 3=POURTOUR                         
   6 : C                                                                               
   7 :       SUBROUTINE EXFACE                                                         
   8 :       IMPLICIT INTEGER(I-N)
   9 : -INC CCOPTIO                                                                    
  10 : -INC SMELEME                                                                    
  10 :       CALL LIROBJ('MAILLAGE',MELEME,1,IRETOU)                                   
  10 :       CALL LIRENT(IFAC,0,IRETOU)                                                
  11 :       IF (IERR.NE.0) RETURN                                                     
  12 :       SEGACT MELEME                                                             
  13 :       IF (IRETOU.EQ.0) GOTO 10                                                  
  13 :       IF (IFAC.LT.1.OR.IFAC.GT.LISREF(/1)) CALL ERREUR(36)                      
  14 :       IF (IERR.NE.0) RETURN                                                     
  15 :       IRET=LISREF(IFAC)                                                         
  16 :       SEGDES MELEME                                                             
  16 :       CALL ECROBJ('MAILLAGE',IRET)                                              
  17 :       RETURN                                                                    
  18 :   10  NBF=LISREF(/1)                                                            
  18 :       IF (NBF.EQ.0) CALL ERREUR(36)                                             
  19 :       IF (IERR.NE.0) RETURN                                                     
  20 :       DO 11 I=1,NBF                                                             
  21 :       II=NBF+1-I                                                                
  22 :       IRET=LISREF(II)                                                           
  22 :       CALL ECROBJ('MAILLAGE',IRET)                                              
  23 :   11  CONTINUE                                                                  
  24 :       SEGDES MELEME                                                             
  25 :       RETURN                                                                    
  26 :       END                                                                       
  27 :