c  To get d1mach, mail netlib
c       send d1mach from blas
