*}
long flength(char *fname) { long length = -1L; FILE *fptr; fptr = fopen(fname, "rb"); if(fptr != NULL) { fseek(fptr, 0L, SEEK_END); length = ftell(fptr); fclose(fptr); } return length; }