Sources Esope | Cast3M

jdansi
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