Sources Esope | Cast3M

elsn2d
C ELSN2D    SOURCE    CHAT      05/01/12    23:38:06     5004
C
C
      SUBROUTINE ELSN2D( ISOM1,ISOM2,NBNEL,INDNO )
C     *****************************************************************
C        ISOM1 : NOEUD D'INDICE MINIMUM
C        ISOM2 : NOEUD D'INDICE MAXIMUM
C     *****************************************************************
      IMPLICIT INTEGER(I-N)
      INTEGER ISOM1,ISOM2,NBNEL,INDNO
C
      IF((ISOM2.EQ. (NBNEL-1)).AND.(ISOM1.EQ.1))THEN
        INDNO = NBNEL
      ELSE
        INDNO = ISOM2 -1
      ENDIF
 9999 END