/*Copyright (C) 1992, 1996 by Thomas Glen Smith.  All Rights Reserved.*/
/* dblcopy APL2 V1.0.0 *************************************************
* Called by dtacopy and real.                                          *
* Copies a double floating array.                                      *
***********************************************************************/
#define INCLUDES 0
#include "includes.h"
double *dblcopy(to,from,cnt,incr)
double *to,*from;
int cnt,incr;
{
	while(cnt--) {
		*to++=*from;
		from+=incr;
	}
	return(to);
}