SUBROUTINE SCOPY(FROM, I, TO, J)
      INTEGER FROM(10000), TO(10000)
      INTEGER I, J, K1, K2
      K2 = J
      K1 = I
23000 IF(.NOT.(FROM(K1) .NE. 10002))GOTO 23002
      TO(K2) = FROM(K1)
      K2 = K2 + 1
23001 K1 = K1 + 1
      GOTO 23000
23002 CONTINUE
      TO(K2) = 10002
      RETURN
      END