Télécharger posit.eso

Retour à la liste

Numérotation des lignes :

  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.  
  11. -INC PPARAM
  12. -INC CCOPTIO
  13. C
  14. CALL POS(IPT1,I1,I2,IND)
  15. IF (IND.EQ.0) GOTO 20
  16. J=5
  17. RETURN
  18. 20 CALL POS(IPT1,I2,I3,IND)
  19. IF (IND.EQ.0) GOTO 30
  20. J=4
  21. RETURN
  22. 30 CALL POS(IPT1,I4,I3,IND)
  23. IF (IND.EQ.0) GOTO 40
  24. J=6
  25. RETURN
  26. 40 CALL POS(IPT1,I1,I4,IND)
  27. IF (IND.EQ.0) GOTO 50
  28. J=3
  29. RETURN
  30. 50 J=2
  31. RETURN
  32. END
  33.  
  34.  

© Cast3M 2003 - Tous droits réservés.
Mentions légales