C JDANSI    SOURCE    CHAT      05/01/13    00:49:24     5004           
      SUBROUTINE JDANSI ( I,J,L)                                                
C                                                                               
C     MOVE J DANS I SUR 1 LONGUEUR DE L                                         
C                                                                               
      IMPLICIT INTEGER(I-N)
       DIMENSION I(1),J(1)                                                      
      IF (L.EQ.0) GO TO 2                                                       
      DO 1 K=1,L                                                                
      I(K)=J(K)                                                                 
    1 CONTINUE                                                                  
    2 RETURN                                                                    
      END