1 : C COPIE5 SOURCE CHAT 05/01/12 22:20:03 5004
2 : SUBROUTINE COPIE5(IPOIN1,IPOIN2)
3 : *--------------------------------------------------------------------*
4 : * *
5 : * Duplication d'un CHPOINT sans pour autant d{sactiver les *
6 : * segments. On ne duplique pas la g{om{trie. *
7 : * *
8 : * Param}tres: *
9 : * *
10 : * IPOIN1 CHPOINT @ dupliquer *
11 : * IPOIN2 CHPOINT dupliqu{ du pr{c{dent *
12 : * *
13 : * Auteur, date de cr{ation: *
14 : * *
15 : * Denis ROBERT-MOUGIN, le 6 juillet 1989. *
16 : * *
17 : *--------------------------------------------------------------------*
18 : IMPLICIT INTEGER(I-N)
19 : -INC SMCHPOI
20 : *
21 : MCHPO1 = IPOIN1
22 : SEGINI,MCHPOI=MCHPO1
23 : IPOIN2 = MCHPOI
24 : NSOUPO = IPCHP(/1)
25 : *
26 : DO 100 I=1,NSOUPO
27 : MSOUP1 = IPCHP(I)
28 : SEGINI,MSOUPO=MSOUP1
29 : IPCHP(I) = MSOUPO
30 : MPOVA1 = IPOVAL
31 : SEGINI,MPOVAL=MPOVA1
32 : IPOVAL = MPOVAL
33 : 100 CONTINUE
34 : * END DO
35 : *
36 : RETURN
37 : END
38 :
© Cast3M 2003 - All rights reserved.
Disclaimer