Sources Esope | Cast3M

j3noco
C J3NOCO    SOURCE    CHAT      05/01/13    00:47:08     5004
      SUBROUTINE J3NOCO(XY,XYC,NPTO,TOL,INO)
C----------------------------------------------------
C     LE POINT XY EST-IL CONFONDU AVEC UN POINT DE XYC
C
C     ESCLAVE DE J3COTO
C
C     CODE ICOD : 0 on ne sait pas
C                -1 est a l'interieur
C                -2 est a l'exterieur
C     PP 6/97
C     Pierre Pegon/JRC Ispra
C----------------------------------------------------
C
      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8(A-H,O-Z)
      DIMENSION XY(2),XYC(2,NPTO)
C
      DO IE1=1,NPTO
        XL=SQRT((XY(1)-XYC(1,IE1))**2+(XY(2)-XYC(2,IE1))**2)
        IF(XL.LT.TOL)THEN
          INO=IE1
          RETURN
        ENDIF
      ENDDO
C
      INO=0
C
      RETURN
      END