Sources Esope | Cast3M

nordrm
C NORDRM    SOURCE    CHAT      05/01/13    01:59:49     5004
       INTEGER FUNCTION NORDRM(J,K,IA,JA)
      IMPLICIT INTEGER(I-N)
       IMPLICIT REAL*8 (A-H,O-Z)
       DIMENSION IA(*),JA(*)
C
C POUR LE STOCKAGE MORSE
C
C
C Retourne le numro d'ordre de l'lment K dans la liste des
C voisins de J. Retourne 0 si les deux lments ne sont pas connects.
C
C La structure du tableau JA est la suivante
C
C J=7   7 1 2 4 6 9 15 77    la liste des voisins par ordre croissant 
C                            partir de l'lment lui-mme.
C
C Le tableau correspondant  l'lment J commence  l'adresse pointe
C par IA(J) et finit  l'adresse IA(J+1)-1.
C
       NORDRM=0
       IA0=IA(J)
       IA1=IA(J+1)-1
       DO 1 I=IA0,IA1
          IF(JA(I).EQ.K) THEN
             NORDRM=I
             RETURN
          ENDIF
 1     CONTINUE
       RETURN
       END