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 :
© Cast3M 2003 - All rights reserved.
Disclaimer