Télécharger la plaquette Cast3M


fr en

Télécharger copie5.eso

Retour à la liste

Numérotation des lignes : 

copie5

  1. C COPIE5    SOURCE    CB215821  20/11/25    13:22:23     10792          
  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.  
  40.  

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