Sources Esope | Cast3M

posit
C POSIT     SOURCE    CHAT      05/01/13    02:18:09     5004
C
C    PROCEDURE DE RECHERCHE DE LA POSITION D'UNE FACE (POINTEE PAR IPT1)
C    PAR RAPPORT A LA FACE 1 DE COINS I1,I2,I3 ET I4; ELLE RENVOIE DANS
C    J LE NUMERO DE LA FACE.
C
       SUBROUTINE POSIT(IPT1,I1,I2,I3,I4,J)
      IMPLICIT INTEGER(I-N)
-INC SMELEME
 
-INC PPARAM
-INC CCOPTIO
C
       CALL POS(IPT1,I1,I2,IND)
       IF (IND.EQ.0) GOTO 20
       J=5
       RETURN
20     CALL POS(IPT1,I2,I3,IND)
       IF (IND.EQ.0) GOTO 30
       J=4
       RETURN
30     CALL POS(IPT1,I4,I3,IND)
       IF (IND.EQ.0) GOTO 40
       J=6
       RETURN
40     CALL POS(IPT1,I1,I4,IND)
       IF (IND.EQ.0) GOTO 50
       J=3
       RETURN
50     J=2
       RETURN
       END