Télécharger copie5.eso

Retour à la liste

Numérotation des lignes :

  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.  
  39.  

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