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