Esope source files

   1 : C ELSN2D    SOURCE    CHAT      05/01/12    23:38:06     5004           
   2 : C   
   3 : C          
   4 :       SUBROUTINE ELSN2D( ISOM1,ISOM2,NBNEL,INDNO )    
   5 : C     *****************************************************************
   6 : C        ISOM1 : NOEUD D'INDICE MINIMUM
   7 : C        ISOM2 : NOEUD D'INDICE MAXIMUM
   8 : C     *****************************************************************
   9 :       IMPLICIT INTEGER(I-N)
  10 :       INTEGER ISOM1,ISOM2,NBNEL,INDNO    
  11 : C
  12 :       IF((ISOM2.EQ. (NBNEL-1)).AND.(ISOM1.EQ.1))THEN
  13 :         INDNO = NBNEL
  14 :       ELSE
  15 :         INDNO = ISOM2 -1
  16 :       ENDIF
  17 :  9999 END
  18 :  
  19 :