mirror of
https://github.com/saitohirga/WSJT-X.git
synced 2024-11-26 22:28:41 -05:00
eaa540b65b
- Remove alsa/oss from configure.ac and regenerate configure file. - Note it is MAP65 not WSJT. - rfile3a.f90 -> rfile3a.F90 for gfortran preprocessor. - Comment out compiler option that does not work on gfortran for now. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/map65@1151 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
23 lines
379 B
C
23 lines
379 B
C
#include <stdio.h>
|
|
|
|
void rfile3_(char *infile, char buf[], int *nbytes0)
|
|
{
|
|
int n,nbytes;
|
|
static int first=1;
|
|
static FILE *fd=NULL;
|
|
|
|
nbytes=*nbytes0;
|
|
if(first) {
|
|
fd = fopen(infile,"rb");
|
|
if(fd == NULL) {
|
|
printf("Cannot open %s\n",infile);
|
|
exit(0);
|
|
}
|
|
first=0;
|
|
}
|
|
|
|
n=fread(buf,1,nbytes,fd);
|
|
printf("b: %d %d\n",nbytes,n);
|
|
return(n);
|
|
}
|