Esope source files

   1 : C J3NOCO    SOURCE    CHAT      05/01/13    00:47:08     5004           
   2 :       SUBROUTINE J3NOCO(XY,XYC,NPTO,TOL,INO)
   3 : C----------------------------------------------------
   4 : C     LE POINT XY EST-IL CONFONDU AVEC UN POINT DE XYC
   5 : C
   6 : C     ESCLAVE DE J3COTO
   7 : C
   8 : C     CODE ICOD : 0 on ne sait pas
   9 : C                -1 est a l'interieur
  10 : C                -2 est a l'exterieur
  11 : C     PP 6/97
  12 : C     Pierre Pegon/JRC Ispra
  13 : C----------------------------------------------------
  14 : C
  15 :       IMPLICIT INTEGER(I-N)
  16 :       IMPLICIT REAL*8(A-H,O-Z)
  17 :       DIMENSION XY(2),XYC(2,NPTO)
  18 : C
  19 :       DO IE1=1,NPTO
  20 :         XL=SQRT((XY(1)-XYC(1,IE1))**2+(XY(2)-XYC(2,IE1))**2)
  21 :         IF(XL.LT.TOL)THEN
  22 :           INO=IE1
  23 :           RETURN
  24 :         ENDIF
  25 :       ENDDO
  26 : C
  27 :       INO=0
  28 : C
  29 :       RETURN
  30 :       END
  31 :  
  32 :