Télécharger nordrc.eso

Retour à la liste

Numérotation des lignes :

  1. C NORDRC SOURCE CHAT 05/01/13 01:59:46 5004
  2. INTEGER FUNCTION NORDRC(J,K,KA,NEL,NNZ)
  3. IMPLICIT INTEGER(I-N)
  4. IMPLICIT REAL*8 (A-H,O-Z)
  5. DIMENSION KA(NEL,NNZ)
  6. C
  7. C POUR LE STOCKAGE COMPRESSE
  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 KA(NEL,NNZ) est la suivante
  14. C
  15. C KA
  16. C .
  17. C .
  18. C J=7 7 2 4 6 8 9 15 7 7 7
  19. C - ----- ------ -----
  20. C | | | |
  21. C | | | +-> comblement jusqu'… NNZ avec la valeur de J
  22. C | | +-> les voisins de num‚ro sup‚rieur en ordre croissant
  23. C | +-> les voisins de num‚ros inf‚rieur par ordre croissant
  24. C +-----> lui-mˆme
  25. C
  26. IF(K.EQ.J) RETURN
  27. DO 1 IKA=2,NNZ
  28. IF(KA(J,IKA).EQ.J) RETURN
  29. IF(KA(J,IKA).EQ.K) THEN
  30. NORDRC=IKA
  31. RETURN
  32. ENDIF
  33. 1 CONTINUE
  34. RETURN
  35. END
  36.  
  37.  

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