/**
* 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);
}
