Esope source files

   1 : C CONS44    SOURCE    PV        07/10/05    21:15:23     5890           
   2 : C|-------------------------------------------------------------------|  
   3 : C|                                                                   | 
   4 : C|                            CONS44                                 | 
   5 : C|                                                                   |    
   6 : C|      IF1 ET IF2 SONT 2 QUADRANGLES : ON VA ESSAYER DE PLACER      |   
   7 : C|      UN HEXAEDRE OU UN PRISME                                     |    
   8 : C|                                                                   |  
   9 : C|-------------------------------------------------------------------|   
  10 : C                                                                        
  11 :         SUBROUTINE CONS44(II,JJ,IF1,IF2,IGAGNE)                    
  12 : C                                                                    
  13 :       IMPLICIT INTEGER(I-N)
  14 :       IMPLICIT REAL*8(A-H,O-Z)
  15 : -INC CCOPTIO                                                        
  16 : -INC TDEMAIT                                                         
  17 : C                                                                    
  18 : C        WRITE(6,1000)                                              
  19 : C1000    FORMAT(' -----### CONS44')                                
  20 : C                                                                    
  21 : C                                                                   
  21 :         CALL HEXA(II,JJ,IF1,IF2,IGAGNE)                                
  22 :         IF (IGAGNE.EQ.1) RETURN                                        
  23 : C                                                                    
  23 :         CALL PRISM1(II,JJ,IF1,IF2,IGAGNE)                             
  24 :         RETURN                                                      
  25 : C                                                                 
  26 : C       FIN DE LA SUBROUTINE CONS44                               
  27 :         END     
  28 :  
  29 :