Exemplo n.º 1
0
bool 		fwritef(
	int		fd,
	float	f
){
	int part;

	part = (int)f;
	if(!fwritei(fd,part)) return FALSE;
	if(!fwritec(fd,'.'))  return FALSE;
	part = ((int)(f*PRECISION));
	if(!fwritei(fd,part)) return FALSE;
	return TRUE;
}
Exemplo n.º 2
0
/* fortran interface */
void fwritec_(char *fname, int *lfname, int *irec, int *lrec, float *a) {
	fwritec(fname,*lfname,*irec,*lrec,a);
}