C CONS44    SOURCE    PV        07/10/05    21:15:23     5890           
C|-------------------------------------------------------------------|  
C|                                                                   | 
C|                            CONS44                                 | 
C|                                                                   |    
C|      IF1 ET IF2 SONT 2 QUADRANGLES : ON VA ESSAYER DE PLACER      |   
C|      UN HEXAEDRE OU UN PRISME                                     |    
C|                                                                   |  
C|-------------------------------------------------------------------|   
C                                                                        
        SUBROUTINE CONS44(II,JJ,IF1,IF2,IGAGNE)                    
C                                                                    
      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8(A-H,O-Z)
-INC CCOPTIO                                                        
-INC TDEMAIT                                                         
C                                                                    
C        WRITE(6,1000)                                              
C1000    FORMAT(' -----### CONS44')                                
C                                                                    
C                                                                   
        CALL HEXA(II,JJ,IF1,IF2,IGAGNE)                                
        IF (IGAGNE.EQ.1) RETURN                                        
C                                                                    
        CALL PRISM1(II,JJ,IF1,IF2,IGAGNE)                             
        RETURN                                                      
C                                                                 
C       FIN DE LA SUBROUTINE CONS44                               
        END