[CONTACT]

[ABOUT]

[POLICY]

[ADVERTISE]

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

		
.


AD:

NEW PAGES:

[ODDNUGGET]

[GOPHER]