Télécharger racli2.eso

Retour à la liste

Numérotation des lignes :

racli2
  1. C RACLI2 SOURCE CHAT 05/01/13 02:44:26 5004
  2. SUBROUTINE RACLI2(IPF,L2, NL2)
  3. ************************************************************************
  4. *
  5. * R A C L I 2
  6. * -----------
  7. *
  8. * FONCTION:
  9. * ---------
  10. *
  11. * CREER UNE LIGNE 'NL2' COMMENCANT AU POINT F
  12. * ET S'APPUYANT SUR LA LIGNE 'L2'
  13. * L'ORIENTATION EST POINT-LIGNE
  14. *
  15. * MODULES UTILISES:
  16. * -----------------
  17. *
  18. IMPLICIT INTEGER(I-N)
  19.  
  20. -INC PPARAM
  21. -INC CCOPTIO
  22. -INC SMELEME
  23. *
  24. * PARAMETRES: (E)=ENTREE (S)=SORTIE (+ = CONTENU DANS UN COMMUN)
  25. * -----------
  26. *
  27. * IPF (E) POINT
  28. * L2 (E) LIGNE
  29. * NL2 (S) LIGNE DE RACCORDEMENT POINT-LIGNE
  30. *
  31. * AUTEUR, DATE DE CREATION:
  32. * -------------------------
  33. *
  34. * LIONEL VIVAN 23 NOVEMBRE 1987
  35. *
  36. * LANGAGE:
  37. * --------
  38. *
  39. * ESOPE + FORTRAN77
  40. *
  41. ************************************************************************
  42. *
  43. *
  44. CALL ECROBJ('MAILLAGE',L2)
  45. CALL PRINVE
  46. IF (IERR.NE.0) RETURN
  47. CALL LIROBJ('MAILLAGE',L2B,1,IRETOU)
  48. IF (IERR.NE.0) RETURN
  49. CALL RACLI1(L2B,IPF,NL2B)
  50. IF (IERR.NE.0) RETURN
  51. CALL ECROBJ('MAILLAGE',NL2B)
  52. CALL PRINVE
  53. IF (IERR.NE.0) RETURN
  54. CALL LIROBJ('MAILLAGE',NL2,1,IRETOU)
  55. IF (IERR.NE.0) RETURN
  56. *
  57. MELEME=L2B
  58. SEGSUP,MELEME
  59. MELEME=NL2B
  60. SEGSUP,MELEME
  61. *
  62. END
  63.  
  64.  

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