C COPIE7    SOURCE    CHAT      05/01/12    22:20:10     5004           
      SUBROUTINE COPIE7(IPOIN1,IPOIN2)                                          
      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8 (A-H,O-Z)                                                 
************************************************************************        
*                                                                               
*                             C O P I E 7                                       
*                             -----------                                       
*                                                                               
* FONCTION:                                                                     
* ---------                                                                     
*                                                                               
*     CREER UNE COPIE D'UN OBJET DE TYPE "POINT".                               
*                                                                               
* PARAMETRES:  (E)=ENTREE   (S)=SORTIE                                          
* -----------                                                                   
*                                                                               
*     IPOIN1  ENTIER    (E)  POINTEUR DE L'OBJET A COPIER.                      
*     IPOIN2  ENTIER    (S)  POINTEUR DE LA COPIE.                              
*                                                                               
* AUTEUR, DATE DE CREATION:                                                     
* -------------------------                                                     
*                                                                               
*     LIONEL VIVAN        14 MAI 1990                                           
*                                                                               
* LANGAGE:                                                                      
* --------                                                                      
*                                                                               
*     ESOPE + FORTRAN77                                                         
*                                                                               
************************************************************************        
*                                                                               
-INC CCOPTIO                                                                    
-INC SMCOORD                                                                    
*                                                                               
      IPOIN2 = 0                                                                
      CALL EXCOO1(IPOIN1,X1,Y1,Z1,D1)                                           
      IDIM1 = IDIM + 1                                                          
      NPTS = XCOOR(/1) / IDIM1                                                  
      NBPTS = NPTS + 1                                                          
      SEGADJ MCOORD                                                             
      XCOOR( NPTS * IDIM1 + 1 ) = X1                                            
      XCOOR( NPTS * IDIM1 + 2 ) = Y1                                            
      IF (IDIM.EQ.3) XCOOR( NPTS * IDIM1 + 3 ) = Z1                             
      XCOOR( NBPTS * IDIM1 ) = D1                                               
      IPOIN2 = NBPTS                                                            
      RETURN                                                                    
      END