Sources Esope | Cast3M

mono
C MONO      SOURCE    PV        05/09/22    21:21:31     5181
C   NOMMER UN POINT
C
      SUBROUTINE MONO(XPROJ,IVU,IDCP)
      IMPLICIT INTEGER(I-N)
      COMMON /CMODI/LIGMAX,XPREC,YPREC
      CHARACTER*8 ZONE
      SEGMENT XPROJ(3,ITE)
      SEGMENT IVU(0)
      SEGMENT IDCP(0)
      CALL TRMESS('POINTEZ LE POINT A NOMMER')
  30  CONTINUE
      CALL mopf3
      CALL TRDIG(X,Y,INCLE)
      IF (INCLE.EQ.3) RETURN
*  CHERCHER LE POINT DU MAILLAGE
      NBP=XPROJ(/2)
      CRIT=XPREC**2
      DO 10 IP=1,NBP
      IF (IVU(IP).NE.1) GOTO 10
      DIST=(XPROJ(1,IP)-X)**2+(XPROJ(2,IP)-Y)**2
      IF (DIST.LT.CRIT) GOTO 20
  10  CONTINUE
      GOTO 30
  20  CONTINUE
      CALL TRGET('DONNEZ LE NOM DU POINT : ',ZONE)
      INUM=IDCP(IP)
      CALL NOMOBJ('POINT',ZONE,INUM)
      CALL CHCOUL(6)
      call insegt(4,iresu)
      CALL TRLABL(XPROJ(1,IP),XPROJ(2,IP),0.,ZONE,8,0.15)
      END