SUBROUTINE N,A,CC
Found at: ftp.icm.edu.pl:70/packages/netlib/port/movefr.f
SUBROUTINE MOVEFR(N,A,B)
C
C MOVEFR MOVES N REAL ITEMS FROM A TO B
C USING A FORWARDS DO LOOP
C
REAL A(1),B(1)
C
IF(N .LE. 0) RETURN
C
DO 10 I = 1, N
10 B(I) = A(I)
C
RETURN
C
END
.