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

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