Télécharger modp.eso

Retour à la liste

Numérotation des lignes :

  1. C MODP SOURCE PV 05/09/22 21:20:54 5181
  2. C DEPLACEMENT INTERACTIF D'UN NOEUD
  3. C
  4. SUBROUTINE MODP(XPROJ,IVU,KON1,ICPR,IDCP,IBOUJ)
  5. IMPLICIT INTEGER(I-N)
  6. COMMON /CMODI/LIGMAX,XPREC,YPREC
  7. DIMENSION XTR(2),YTR(2),ZTR(2)
  8. SEGMENT /KON1/(KON(NBCON,NMAX)),KON2.KON1
  9. SEGMENT XPROJ(3,ITE)
  10. SEGMENT IVU(0)
  11. SEGMENT ICPR(0)
  12. SEGMENT IDCP(0)
  13. SEGMENT IBOUJ(0)
  14. ztr(1)=0
  15. ztr(2)=0
  16. NBCON=KON(/1)
  17. NBCONR=NBCON-1
  18. CALL TRMESS('POINTEZ LE POINT A DEPLACER')
  19. 30 CONTINUE
  20. CALL MOPF3
  21. CALL TRDIG(X,Y,INCLE)
  22. IF (INCLE.EQ.3) RETURN
  23. * CHERCHER LE POINT DU MAILLAGE
  24. NBP=XPROJ(/2)
  25. CRIT=XPREC**2
  26. DO 10 IP=1,NBP
  27. IF (IVU(IP).NE.1) GOTO 10
  28. DIST=(XPROJ(1,IP)-X)**2+(XPROJ(2,IP)-Y)**2
  29. IF (DIST.LT.CRIT) GOTO 20
  30. 10 CONTINUE
  31. GOTO 30
  32. 20 CONTINUE
  33. CALL TRMESS('POINTEZ LA NOUVELLE POSITION DU POINT')
  34. CALL TRDIG(X,Y,INCLE)
  35. CALL TRMESS(' ')
  36. IF (INCLE.EQ.3) RETURN
  37. XPROJ(1,IP)=X
  38. XPROJ(2,IP)=Y
  39. IOEE=IDCP(IP)
  40. CALL PROMOD(ICPR,XPROJ,IOEE,4,IBOUJ)
  41. * REAFFICHER LES LIGNES MODIFIES
  42. call insegt(3,iresu)
  43. CALL CHCOUL(4)
  44. ICHAIN=IP
  45. 70 CONTINUE
  46. DO 50 ICON=1,NBCONR
  47. IP=KON(ICON,ICHAIN)
  48. IF (IP.EQ.0) GOTO 60
  49. XTR(1)=X
  50. YTR(1)=Y
  51. XTR(2)=XPROJ(1,IP)
  52. YTR(2)=XPROJ(2,IP)
  53. CALL POLRL(2,XTR,YTR,ZTR)
  54. 50 CONTINUE
  55. ICHAIN=KON(NBCON,ICHAIN)
  56. IF (ICHAIN.NE.0) GOTO 70
  57. 60 CONTINUE
  58. END
  59.  
  60.  
  61.  

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