/* Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
 */

#define import_spp
#define	import_libc
#define	import_xnames
#include <iraf.h>

/* C_COPY -- FIO copy file.
 */
c_copy (oldfile, newfile)
char	*oldfile;		/* name of file to be copied	*/
char	*newfile;		/* name of copied file 		*/
{
	XCHAR	tmp[SZ_FNAME];

	iferr (FCOPY (c_sppstr(oldfile), c_strupk (newfile, tmp, SZ_FNAME)))
	    return (ERR);
	else
	    return (OK);
}