Esope source files

   1 : C NORDRM    SOURCE    CHAT      05/01/13    01:59:49     5004           
   2 :        INTEGER FUNCTION NORDRM(J,K,IA,JA) 
   3 :       IMPLICIT INTEGER(I-N)
   4 :        IMPLICIT REAL*8 (A-H,O-Z)
   5 :        DIMENSION IA(*),JA(*)
   6 : C
   7 : C POUR LE STOCKAGE MORSE     
   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 JA est la suivante
  14 : C
  15 : C J=7   7 1 2 4 6 9 15 77    la liste des voisins par ordre croissant …
  16 : C                            partir de l'‚l‚ment lui-mˆme. 
  17 : C
  18 : C Le tableau correspondant … l'‚l‚ment J commence … l'adresse point‚e
  19 : C par IA(J) et finit … l'adresse IA(J+1)-1.
  20 : C
  21 :        NORDRM=0
  22 :        IA0=IA(J)
  23 :        IA1=IA(J+1)-1
  24 :        DO 1 I=IA0,IA1
  25 :           IF(JA(I).EQ.K) THEN
  26 :              NORDRM=I
  27 :              RETURN
  28 :           ENDIF
  29 :  1     CONTINUE
  30 :        RETURN
  31 :        END
  32 :