MINICERN/mathlib/gen/divon/dvcopy.F

   1 *
   2 * $Id$
   3 *
   4 * $Log$
   5 * Revision 1.1.1.1  1996/04/01 15:03:26  mclareni
   6 * Mathlib gen
   7 *
   8 *
   9 #include "gen/pilot.h"
  10       SUBROUTINE DVCOPY(N,A,B)
  11       INTEGER N
  12       DOUBLE PRECISION A(N), B(N)
  13       INTEGER I
  14       DO 10 I=1,N
  15       B(I)=A(I)
  16  10   CONTINUE
  17       RETURN
  18       END