C CONS34    SOURCE    PV        07/10/05    21:15:21     5890           
C|-------------------------------------------------------------------|          
C|                                                                   |          
C|                            CONS34                                 |          
C|                                                                   |          
C|     IF1 EST UN TRIANGLE ET IF2 EST UN QUADRANGLE. ON VA ESSAYER   |          
C|     DE PLACER UN PRISME OU UNE PYRAMIDE                           |          
C|                                                                   |          
C|-------------------------------------------------------------------|          
C                                                                               
       SUBROUTINE CONS34(II,JJ,IF1,IF2,IGAGNE)                                  
C                                                                               
      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8(A-H,O-Z)
-INC CCOPTIO                                                                    
-INC TDEMAIT                                                                    
       IGAGNE=0                                                                 
C                                                                               
C       WRITE(6,1000)                                                           
C1000   FORMAT(' -----### CONS34')                                              
C                                                                               
C                                                                               
*      VAL=.TRUE.                                                               
C                                                                               
       CALL PYRA1(II,JJ,IF1,IF2,IGAGNE,0)                                       
       IF (IGAGNE.EQ.1) RETURN                                                  
C                                                                               
*      CALL PRISM2(II,JJ,IF1,IF2,IGAGNE)                                        
       RETURN                                                                   
C                                                                               
C      FIN DE LA SUBROUTINE CONS34                                              
       END