C #CPRAY V1A 8-MAY-72. C LAST UPDATE: C SUBROUTINE CPRAY(B,A,N) DIMENSION B(N), A(N) C C *PURPOSE. C ROUTINE TO COPY VECTOR "B" INTO "A". C C *PARAMETERS: C C B - REAL ARRAY OF LENGTH "N" OR MORE BEING SOURCE. C A - REAL ARRAY OF LENGTH "N" OR MORE RECIEVING COPY. C N - INTEGER LOGICAL LENGTH OF THE VECTORS. C C INPUT PARAMETERS: C B, N C OUTPUT PARAMETERS: C A C C *METHOD. C STRAIGHTFORWARD. C C *ACCURACY. C C *RESTRICTIONS. C C *ERROR CONDITIONS. C C *NON STANDARD ROUTINES CALLED. C C *TYPICAL TIMES. C C *ORIGIN. M.R.MANNING. C C *COMMENTS. C THIS ROUTINE WILL OFTEN BE REPLACED BY A MACHINE LANGUAGE C ONE IN WHICH CASE THE CALLING OVERHEAD MAY BE WORTHWHILE. C THE FORTRAN VERSION IS MAINLY FOR PORTABILITY AND AS A C LANGUAGE EXTENDING ROUTINE. C C #END. C DO 10 I= 1, N 10 A(I)= B(I) RETURN END