Esope source files

   1 : C J3NUMP    SOURCE    CHAT      05/01/13    00:47:11     5004           
   2 :       SUBROUTINE J3NUMP(IST1,NPTO2,INUM2)
   3 : C----------------------------------------------------------------
   4 : C     NUMERO DU NOEUD DE 2 QUI EST COMMUN AU DEUX COTES
   5 : C     INTERSECTE PAR A
   6 : C
   7 : C     PP 6/97
   8 : C     Pierre Pegon/JRC Ispra
   9 : C----------------------------------------------------------------
  10 :       IMPLICIT INTEGER(I-N)
  11 :       DIMENSION IST1(3)
  12 : C
  13 :       I1=IST1(2)
  14 :       I2=IST1(3)
  15 : C
  16 :       INUM2=MAX(I1,I2)
  17 :       IF(INUM2.EQ.NPTO2)THEN
  18 :           IF((I1.EQ.1).OR.(I2.EQ.1))INUM2=1
  19 :       ENDIF
  20 : C
  21 :       RETURN
  22 :       END
  23 :       
  24 :  
  25 :