added d1mach.f also to libquad