C NORDRC SOURCE CHAT 05/01/13 01:59:46 5004 IMPLICIT INTEGER(I-N) IMPLICIT REAL*8 (A-H,O-Z) DIMENSION KA(NEL,NNZ) C C POUR LE STOCKAGE COMPRESSE C C C Retourne le num‚ro d'ordre de l'‚l‚ment K dans la liste des C voisins de J. Retourne 0 si les deux ‚l‚ments ne sont pas connect‚s. C C La structure du tableau KA(NEL,NNZ) est la suivante C C KA C . C . C J=7 7 2 4 6 8 9 15 7 7 7 C - ----- ------ ----- C | | | | C | | | +-> comblement jusqu'… NNZ avec la valeur de J C | | +-> les voisins de num‚ro sup‚rieur en ordre croissant C | +-> les voisins de num‚ros inf‚rieur par ordre croissant C +-----> lui-mˆme C IF(K.EQ.J) RETURN DO 1 IKA=2,NNZ IF(KA(J,IKA).EQ.J) RETURN IF(KA(J,IKA).EQ.K) THEN NORDRC=IKA RETURN ENDIF 1 CONTINUE RETURN END
© Cast3M 2003 - Tous droits réservés.
Mentions légales