Esope source files

   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 :        NORDRC=1
  27 :        IF(K.EQ.J) RETURN
  28 :        NORDRC=0
  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 :