Esope source files

   1 : C POSIT     SOURCE    CHAT      05/01/13    02:18:09     5004           
   2 : C                                                                               
   3 : C    PROCEDURE DE RECHERCHE DE LA POSITION D'UNE FACE (POINTEE PAR IPT1)        
   4 : C    PAR RAPPORT A LA FACE 1 DE COINS I1,I2,I3 ET I4; ELLE RENVOIE DANS         
   5 : C    J LE NUMERO DE LA FACE.                                                    
   6 : C                                                                               
   7 :        SUBROUTINE POSIT(IPT1,I1,I2,I3,I4,J)                                     
   8 :       IMPLICIT INTEGER(I-N)
   9 : -INC SMELEME                                                                    
  10 : -INC CCOPTIO                                                                    
  11 : C                                                                               
  11 :        CALL POS(IPT1,I1,I2,IND)                                                 
  12 :        IF (IND.EQ.0) GOTO 20                                                    
  13 :        J=5                                                                      
  14 :        RETURN                                                                   
  14 : 20     CALL POS(IPT1,I2,I3,IND)                                                 
  15 :        IF (IND.EQ.0) GOTO 30                                                    
  16 :        J=4                                                                      
  17 :        RETURN                                                                   
  17 : 30     CALL POS(IPT1,I4,I3,IND)                                                 
  18 :        IF (IND.EQ.0) GOTO 40                                                    
  19 :        J=6                                                                      
  20 :        RETURN                                                                   
  20 : 40     CALL POS(IPT1,I1,I4,IND)                                                 
  21 :        IF (IND.EQ.0) GOTO 50                                                    
  22 :        J=3                                                                      
  23 :        RETURN                                                                   
  24 : 50     J=2                                                                      
  25 :        RETURN                                                                   
  26 :        END                                                                      
  27 :