C COPIES NWPR WORDS FROM ARRAY IB1 TO IB2 SUBROUTINE COPYR(IB1,IB2,NWPR) DIMENSION IB1(10),IB2(10) DO 1 I=1,NWPR 1 IB2(I)=IB1(I) RETURN END