Télécharger nordrm.eso

Retour à la liste

Numérotation des lignes :

  1. C NORDRM SOURCE CHAT 05/01/13 01:59:49 5004
  2. INTEGER FUNCTION NORDRM(J,K,IA,JA)
  3. IMPLICIT INTEGER(I-N)
  4. IMPLICIT REAL*8 (A-H,O-Z)
  5. DIMENSION IA(*),JA(*)
  6. C
  7. C POUR LE STOCKAGE MORSE
  8. C
  9. C
  10. C Retourne le num‚ro d'ordre de l'‚l‚ment K dans la liste des
  11. C voisins de J. Retourne 0 si les deux ‚l‚ments ne sont pas connect‚s.
  12. C
  13. C La structure du tableau JA est la suivante
  14. C
  15. C J=7 7 1 2 4 6 9 15 77 la liste des voisins par ordre croissant …
  16. C partir de l'‚l‚ment lui-mˆme.
  17. C
  18. C Le tableau correspondant … l'‚l‚ment J commence … l'adresse point‚e
  19. C par IA(J) et finit … l'adresse IA(J+1)-1.
  20. C
  21. IA0=IA(J)
  22. IA1=IA(J+1)-1
  23. DO 1 I=IA0,IA1
  24. IF(JA(I).EQ.K) THEN
  25. RETURN
  26. ENDIF
  27. 1 CONTINUE
  28. RETURN
  29. END
  30.  
  31.  

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