Esope source files

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