/iraf/iraf/unix/hlib/d1mach.f