Télécharger coin.eso

Retour à la liste

Numérotation des lignes :

  1. C COIN SOURCE CHAT 05/01/12 22:13:01 5004
  2. C PROCEDURE DE RECHERCHE DES 4 COINS D'UNE FACE (POINTEE PAR IPT1)
  3. C ET DE SES DIMENSIONS.
  4. C
  5. SUBROUTINE COIN(IPT1,IP1,IP2,IP3,IP4,N1,N2)
  6. IMPLICIT INTEGER(I-N)
  7. -INC SMELEME
  8. -INC CCOPTIO
  9. MELEME=IPT1.LISREF(1)
  10. SEGACT MELEME
  11. N1=NUM(/2)
  12. NBNN1=NUM(/1)
  13. IP1=IPT1.NUM(1,1)
  14. SEGDES MELEME
  15. MELEME=IPT1.LISREF(2)
  16. SEGACT MELEME
  17. N2=NUM(/2)
  18. IP2=IPT1.NUM(NBNN1,N1)
  19. IP3=IPT1.NUM(2*NBNN1-1,N1*N2)
  20. SEGDES MELEME
  21. MELEME=IPT1.LISREF(4)
  22. SEGACT MELEME
  23. IP4=IPT1.NUM(3*NBNN1-2,N1*(N2-1)+1)
  24. SEGDES MELEME
  25. RETURN
  26. END
  27.  
  28.  

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