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; }
/* fortran interface */ void fwritec_(char *fname, int *lfname, int *irec, int *lrec, float *a) { fwritec(fname,*lfname,*irec,*lrec,a); }