Télécharger la plaquette Cast3M


fr en

Télécharger courb9.eso

Retour à la liste

Numérotation des lignes : 

courb9

  1. C COURB9    SOURCE    PV        20/03/24    21:16:25     10554          
  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.  
  22. -INC PPARAM
  23. -INC CCOPTIO
  24. -INC SMCOORD
  25. -INC SMELEME
  26. -INC TMCOURB
  27. *
  28. * PARAMETRES:   (E)=ENTREE   (S)=SORTIE   (+ = CONTENU DANS UN COMMUN)
  29. * -----------
  30. *
  31. *     ICOURB  (E)  POINTEUR DE COURBE PARAMETREE.
  32. *             (S)  CET OBJET N'EST PAS DETRUIT.
  33. *     IELEME  (E)  POINTEUR DU MAILLAGE DE LA COURBE PARAMETREE.
  34. *             (S)  = 0
  35. *    +IDIM    (E)  VOIR LE COMMUN "COPTIO".
  36. *    +MCOORD  (E)  VOIR LE COMMUN "COPTIO".
  37. *             (S)  SEGMENT RACCOURCI.
  38. *
  39.       INTEGER ICOURB,IELEME
  40. *
  41. * AUTEUR, DATE DE CREATION:
  42. * -------------------------
  43. *
  44. *     PASCAL MANIGOT     26 FEVRIER 1987
  45. *
  46. * LANGAGE:
  47. * --------
  48. *
  49. *     ESOPE77 FORTRAN77
  50. *
  51. ************************************************************************
  52. *
  53.       MELEME = IELEME
  54.       SEGSUP,MELEME
  55.       IELEME = 0
  56. *
  57.       SEGACT,MCOORD*md
  58.       NBPTA = nbpts
  59.       MCOURB = ICOURB
  60.       SEGACT,MCOURB
  61.       NBPTS = NBPTA - UCOU(/1)
  62.       SEGDES,MCOURB
  63.       SEGADJ,MCOORD
  64. *
  65.       END
  66.  
  67.  
  68.  

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