Télécharger la plaquette Cast3M


fr en

Télécharger nordrc.eso

Retour à la liste

Numérotation des lignes : 

nordrc

  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
  27.        IF(K.EQ.J) RETURN
  29.        DO 1 IKA=2,NNZ
  30.           IF(KA(J,IKA).EQ.J) RETURN
  31.           IF(KA(J,IKA).EQ.K) THEN
  32.              NORDRC=IKA
  33.              RETURN
  34.           ENDIF
  35.  1     CONTINUE
  36.        RETURN
  37.        END
  38.  
  39.  

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