/**************************************************************************/
Cell truncate_file(FILE *f, UDCell cur, UDCell ud) {
/**************************************************************************/
Cell truncate_file(FILE *f, UDCell cur, UDCell ud) {