git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/map65@344 ab8295b8-cf94-4d9e-aec4-7959e3be5d79

This commit is contained in:
Joe Taylor 2007-01-11 21:53:18 +00:00
parent 9286818715
commit 94a7851539

19
wfile3.c Normal file
View File

@ -0,0 +1,19 @@
#include <stdio.h>
void wfile3_(char *outfile, char buf[], int *nbytes0)
{
int n,nbytes;
static int first=1;
static FILE *fp=NULL;
nbytes=*nbytes0;
fp = fopen(outfile,"wb");
if(fp == NULL) {
printf("Cannot create %s\n",outfile);
exit(0);
}
n=fwrite(buf,1,nbytes,fp);
fclose(fp);
return(n);
}