Esope source files

   1 : C CONS34    SOURCE    PV        07/10/05    21:15:21     5890           
   2 : C|-------------------------------------------------------------------|          
   3 : C|                                                                   |          
   4 : C|                            CONS34                                 |          
   5 : C|                                                                   |          
   6 : C|     IF1 EST UN TRIANGLE ET IF2 EST UN QUADRANGLE. ON VA ESSAYER   |          
   7 : C|     DE PLACER UN PRISME OU UNE PYRAMIDE                           |          
   8 : C|                                                                   |          
   9 : C|-------------------------------------------------------------------|          
  10 : C                                                                               
  11 :        SUBROUTINE CONS34(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 :        IGAGNE=0                                                                 
  18 : C                                                                               
  19 : C       WRITE(6,1000)                                                           
  20 : C1000   FORMAT(' -----### CONS34')                                              
  21 : C                                                                               
  22 : C                                                                               
  23 : *      VAL=.TRUE.                                                               
  24 : C                                                                               
  24 :        CALL PYRA1(II,JJ,IF1,IF2,IGAGNE,0)                                       
  25 :        IF (IGAGNE.EQ.1) RETURN                                                  
  26 : C                                                                               
  26 : *      CALL PRISM2(II,JJ,IF1,IF2,IGAGNE)                                        
  27 :        RETURN                                                                   
  28 : C                                                                               
  29 : C      FIN DE LA SUBROUTINE CONS34                                              
  30 :        END                                                                      
  31 :  
  32 :