fix some stuff in tob64.f