Télécharger courb9.eso

Retour à la liste

Numérotation des lignes :

  1. C COURB9 SOURCE CHAT 05/01/12 22:25:28 5004
  2. SUBROUTINE COURB9 (ICOURB,IELEME)
  3. ************************************************************************
  4. *
  5. * C O U R B 9
  6. * -----------
  7. *
  8. * FONCTION:
  9. * ---------
  10. *
  11. * SUPPRIMER TOUTE TRACE DU MAILLAGE D'UNE COURBE PARAMETREE
  12. * FRAICHEMENT MODELISEE, C'EST-A-DIRE:
  13. * - LE "MAILLAGE" ASSOCIE A LA COURBE,
  14. * - TOUS LES POINTS INTERIEURS DE LA COURBE (QUI SONT SUPPOSES ETRE
  15. * LES DERNIERS POINTS CONSIGNES DANS LE TABLEAU "XCOOR").
  16. *
  17. * MODULES UTILISES:
  18. * -----------------
  19. *
  20. IMPLICIT INTEGER(I-N)
  21. -INC CCOPTIO
  22. -INC SMCOORD
  23. -INC SMELEME
  24. -INC TMCOURB
  25. *
  26. * PARAMETRES: (E)=ENTREE (S)=SORTIE (+ = CONTENU DANS UN COMMUN)
  27. * -----------
  28. *
  29. * ICOURB (E) POINTEUR DE COURBE PARAMETREE.
  30. * (S) CET OBJET N'EST PAS DETRUIT.
  31. * IELEME (E) POINTEUR DU MAILLAGE DE LA COURBE PARAMETREE.
  32. * (S) = 0
  33. * +IDIM (E) VOIR LE COMMUN "COPTIO".
  34. * +MCOORD (E) VOIR LE COMMUN "COPTIO".
  35. * (S) SEGMENT RACCOURCI.
  36. *
  37. INTEGER ICOURB,IELEME
  38. *
  39. * AUTEUR, DATE DE CREATION:
  40. * -------------------------
  41. *
  42. * PASCAL MANIGOT 26 FEVRIER 1987
  43. *
  44. * LANGAGE:
  45. * --------
  46. *
  47. * ESOPE77 FORTRAN77
  48. *
  49. ************************************************************************
  50. *
  51. MELEME = IELEME
  52. SEGSUP,MELEME
  53. IELEME = 0
  54. *
  55. SEGACT,MCOORD
  56. NBPTA = XCOOR(/1) / (IDIM+1)
  57. MCOURB = ICOURB
  58. SEGACT,MCOURB
  59. NBPTS = NBPTA - UCOU(/1)
  60. SEGDES,MCOURB
  61. SEGADJ,MCOORD
  62. *
  63. END
  64.  
  65.  

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