Télécharger mono.eso

Retour à la liste

Numérotation des lignes :

  1. C MONO SOURCE PV 05/09/22 21:21:31 5181
  2. C NOMMER UN POINT
  3. C
  4. SUBROUTINE MONO(XPROJ,IVU,IDCP)
  5. IMPLICIT INTEGER(I-N)
  6. COMMON /CMODI/LIGMAX,XPREC,YPREC
  7. CHARACTER*8 ZONE
  8. SEGMENT XPROJ(3,ITE)
  9. SEGMENT IVU(0)
  10. SEGMENT IDCP(0)
  11. CALL TRMESS('POINTEZ LE POINT A NOMMER')
  12. 30 CONTINUE
  13. CALL mopf3
  14. CALL TRDIG(X,Y,INCLE)
  15. IF (INCLE.EQ.3) RETURN
  16. * CHERCHER LE POINT DU MAILLAGE
  17. NBP=XPROJ(/2)
  18. CRIT=XPREC**2
  19. DO 10 IP=1,NBP
  20. IF (IVU(IP).NE.1) GOTO 10
  21. DIST=(XPROJ(1,IP)-X)**2+(XPROJ(2,IP)-Y)**2
  22. IF (DIST.LT.CRIT) GOTO 20
  23. 10 CONTINUE
  24. GOTO 30
  25. 20 CONTINUE
  26. CALL TRGET('DONNEZ LE NOM DU POINT : ',ZONE)
  27. INUM=IDCP(IP)
  28. CALL NOMOBJ('POINT',ZONE,INUM)
  29. CALL CHCOUL(6)
  30. call insegt(4,iresu)
  31. CALL TRLABL(XPROJ(1,IP),XPROJ(2,IP),0.,ZONE,8,0.15)
  32. END
  33.  
  34.  
  35.  

© Cast3M 2003 - Tous droits réservés.
Mentions légales