LAPACK Archives

[Lapack] send dblas1.f from blas1 1 (fwd)

FYI, the email system is no longer sending all
the dependency per routines:

  *  get a particular routine and all it depends on
         send dgeco from linpack

The original request was "send      dblas1.f  from blas"
the response is below.


Justin R. Davis, Ph.D.
Research Associate
Civil and Coastal Engineering
365 Weil Hall
University of Florida
Gainesville, FL 32611-6580
352-392-1436 x1528

---------- Forwarded message ----------
Date: Thu, 19 Feb 2009 11:13:35 -0500 (EST)
From: daemon@Domain.Removed
To: davis@Domain.Removed
Subject: Re: send dblas1.f from blas1  1

# to unpack, sh this message in an empty directory
echo "Anything free comes with no guarantee!"
cat > dblas1.f <<'bigmail CUT HERE............'
       subroutine dblas()
       d = dasum(n,dx,incx)
       call daxpy(n,da,dx,incx,dy,incy)
       call  dcopy(n,dx,incx,dy,incy)
       d = ddot(n,dx,incx,dy,incy)
       d = dmach(job)
       d = dnrm2 ( n, dx, incx)
       call  drot (n,dx,incx,dy,incy,c,s)
       call drotg(da,db,c,s)
       call  dscal(n,da,dx,incx)
       call  dswap (n,dx,incx,dy,incy)
       i = idamax(n,dx,incx)
bigmail CUT HERE............
#define END

<Prev in Thread] Current Thread [Next in Thread>

For additional information you may use the LAPACK/ScaLAPACK Forum.
Or one of the mailing lists, or