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.

jrd

=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
Justin R. Davis, Ph.D.
davis@Domain.Removed
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

#!/bin/sh
# to unpack, sh this message in an empty directory
PATH=/bin:/usr/bin
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)
       stop
       end
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