/iraf/iraf/unix/hlib/i1mach.f