Sources Esope | Cast3M

C NORDRC    SOURCE    CHAT      05/01/13    01:59:46     5004
       INTEGER FUNCTION NORDRC(J,K,KA,NEL,NNZ)
      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
       NORDRC=1
       IF(K.EQ.J) RETURN
       NORDRC=0
       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