FTN4,L,Q
C 
C   DATE:  SEPTEMBER 10,1979
C   NAME:  STV
C   SOURCE: 02145-18015 
C   RELOC:  02145-16009 
C   PGMR:  D.E.B. 
C 
C******************************************************************** 
C  (C) COPYRIGHT HEWLETT-PACKARD COMPANY 1979.  ALL RIGHTS
C  RESERVED.  NO PART OF THIS PROGRAM MAY BE PHOTOCOPIED, 
C  REPRODUCED OR TRANSLATED TO ANOTHER PROGRAM LANGUAGE WITHOUT 
C  THE PRIOR WRITTEN CONSENT OF HELWETT-PACKARD COMPANY.
C******************************************************************** 
C 
C  STV IS A STRING MOVE ROUTINE WHICH MOVES S2 STARTING AT WORD O2
C  INTO S1 STARTING AT O1 AND MOVING LN WORDS.
C  IT IS CALLED BY FTEST , THE L=SERIES FUNCTIONAL TEST AND ITS 
C  ASSOCIATED SUBROUTINES.
C 
      SUBROUTINE STV  (S1,O1,S2,O2,LN), 02145-1X015  REV.2001  791109 
      IMPLICIT INTEGER(A-Z) 
      INTEGER S1(1) 
      INTEGER S2(2) 
      DO 100 I=1,LN 
100   S1(O1+I-1)=S2(O2+I-1) 
      RETURN
      END 
                                                          