Télécharger racli2.eso

Retour à la liste

Numérotation des lignes :

  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. -INC CCOPTIO
  20. -INC SMELEME
  21. *
  22. * PARAMETRES: (E)=ENTREE (S)=SORTIE (+ = CONTENU DANS UN COMMUN)
  23. * -----------
  24. *
  25. * IPF (E) POINT
  26. * L2 (E) LIGNE
  27. * NL2 (S) LIGNE DE RACCORDEMENT POINT-LIGNE
  28. *
  29. * AUTEUR, DATE DE CREATION:
  30. * -------------------------
  31. *
  32. * LIONEL VIVAN 23 NOVEMBRE 1987
  33. *
  34. * LANGAGE:
  35. * --------
  36. *
  37. * ESOPE + FORTRAN77
  38. *
  39. ************************************************************************
  40. *
  41. *
  42. CALL ECROBJ('MAILLAGE',L2)
  43. CALL PRINVE
  44. IF (IERR.NE.0) RETURN
  45. CALL LIROBJ('MAILLAGE',L2B,1,IRETOU)
  46. IF (IERR.NE.0) RETURN
  47. CALL RACLI1(L2B,IPF,NL2B)
  48. IF (IERR.NE.0) RETURN
  49. CALL ECROBJ('MAILLAGE',NL2B)
  50. CALL PRINVE
  51. IF (IERR.NE.0) RETURN
  52. CALL LIROBJ('MAILLAGE',NL2,1,IRETOU)
  53. IF (IERR.NE.0) RETURN
  54. *
  55. MELEME=L2B
  56. SEGSUP,MELEME
  57. MELEME=NL2B
  58. SEGSUP,MELEME
  59. *
  60. END
  61.  
  62.  

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