C VTRANS    SOURCE    CHAT      05/01/13    04:10:23     5004           
      SUBROUTINE VTRANS(VEC1,VEC2,LVEC)                                         
      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8(A-H,O-Z)                                                  
************************************************************************        
*                                                                               
*                             V T R A N S                                       
*                             -----------                                       
*                                                                               
* FONCTION:                                                                     
* ---------                                                                     
*     MET LES VALEURS DE VEC2 DANS VEC1, PUIS REMET VEC2 A ZERO                 
*                                                                               
* PARAMETRES:   (E)=ENTREE   (S)=SORTIE   (+ = CONTENU DANS UN COMMUN)          
* -----------                                                                   
*                                                                               
*     VEC1   (E/S) VECTEUR RECEVANT LES VALEURS DE VEC2                         
*     VEC2   (E/S) VECTEUR A TRANSFERER DANS VEC1, PUIS MIS A ZERO              
*     LVEC    (E)  LONGUEUR DES VECTEURS                                        
*                                                                               
* AUTEUR, DATE DE CREATION:                                                     
* -------------------------                                                     
*     DENIS ROBERT, LE 3 DECEMBRE 1988.                                         
*                                                                               
* LANGAGE:                                                                      
* --------                                                                      
*     FORTRAN77                                                                 
*                                                                               
************************************************************************        
*                                                                               
      REAL*8 VEC1(*),VEC2(*)                                                    
      PARAMETER ( ZERO=0.D0 )                                                   
*                                                                               
      DO 10 I=1,LVEC                                                            
         VEC1(I)=VEC2(I)                                                        
         VEC2(I)=ZERO                                                           
 10      CONTINUE                                                               
*     END DO                                                                    
*                                                                               
      END