Esope source files

   1 : C CONS33    SOURCE    PV        07/10/05    21:15:19     5890           
   2 : C|-------------------------------------------------------------------|          
   3 : C|                                                                   |          
   4 : C|                         C33.FOR                                   |          
   5 : C|                                                                   |          
   6 : C|     IF1 ET IF2 SONT DES TRIANGLES. ON VA ESSAYER DE PLACER        |          
   7 : C|     UN TETRAEDRE OU UNE PYRAMIDE                                  |          
   8 : C|                                                                   |          
   9 : C|-------------------------------------------------------------------|          
  10 : C                                                                               
  11 :        SUBROUTINE CONS33(II,JJ,IF1,IF2,IGAGNE,IBOUT)                            
  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(' -----### CONS33')                                              
  20 : C                                                                               
  21 : C                                                                               
  22 : *      VAL=.TRUE.                                                               
  23 : C                                                                               
  24 : C                                                                               
  24 : *      call COM33(II,JJ,IF1,IF2,IGAGNE)
  25 : *      IF (IGAGNE.EQ.1) RETURN
  25 :        CALL TETRA(II,JJ,IF1,IF2,IGAGNE,IBOUT)                                   
  26 :        IF (IGAGNE.EQ.1) RETURN                                                  
  27 : C                                                                               
  28 : C                                                                               
  29 : C      FIN DE LA SUBROUTINE CONS33                                              
  30 :        END                                                                      
  31 :  
  32 :