/** * Return the minimum no. of integers which will hold n DoublePrecisions. */ Integer MDTOI_(Integer *n) { if (*n < 0) { Error("MDTOI_: negative argument",*n); } return (Integer) ( (MDTOB_(n) + sizeof(Integer) - 1) / sizeof(Integer) ); }
long tcg_mdtob(long n) { long an = n; return MDTOB_(&an); }
long tcg_mdtob(long n) { Integer an = n; return MDTOB_(&an); }