ifp_blas1.h

00001 /*@HEADER
00002 // ***********************************************************************
00003 // 
00004 //       Ifpack: Object-Oriented Algebraic Preconditioner Package
00005 //                 Copyright (2002) Sandia Corporation
00006 // 
00007 // Under terms of Contract DE-AC04-94AL85000, there is a non-exclusive
00008 // license for use of this work by or on behalf of the U.S. Government.
00009 // 
00010 // This library is free software; you can redistribute it and/or modify
00011 // it under the terms of the GNU Lesser General Public License as
00012 // published by the Free Software Foundation; either version 2.1 of the
00013 // License, or (at your option) any later version.
00014 //  
00015 // This library is distributed in the hope that it will be useful, but
00016 // WITHOUT ANY WARRANTY; without even the implied warranty of
00017 // MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
00018 // Lesser General Public License for more details.
00019 //  
00020 // You should have received a copy of the GNU Lesser General Public
00021 // License along with this library; if not, write to the Free Software
00022 // Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307
00023 // USA
00024 // Questions? Contact Michael A. Heroux (maherou@sandia.gov) 
00025 // 
00026 // ***********************************************************************
00027 //@HEADER
00028 */
00029 
00030 /*      LAPACK++ (V. 1.0 Beta)                      */
00031 /*      (C) 1992-1994 All Rights Reserved.              */
00032 /*
00033               LAPACK++ 1.0: Linear Algebra Package 1.0
00034                University of Tennessee, Knoxvilee, TN.
00035             Oak Ridge National Laboratory, Oak Ridge, TN.
00036         Authors: J. J. Dongarra, E. Greaser, R. Pozo, D. Walker
00037                  (C) 1992-1993 All Rights Reserved
00038 
00039                              NOTICE
00040 
00041  Permission to use, copy, modify, and distribute this software and
00042  its documentation for any purpose and without fee is hereby granted
00043  provided that the above copyright notice appear in all copies and
00044  that both the copyright notice and this permission notice appear in
00045  supporting documentation.
00046 
00047  Neither the Institutions (University of Tennessee, and Oak Ridge National
00048  Laboratory) nor the Authors make any representations about the suitability
00049  of this software for any purpose.  This software is provided ``as is''
00050  without express or implied warranty.
00051 
00052  LAPACK++ was funded in part by the U.S. Department of Energy, the
00053  National Science Foundation and the State of Tennessee.
00054 */
00055 
00056 #ifndef _IFP_BLAS1_H_
00057 #define _IFP_BLAS1_H_
00058 
00059 #include "ifp_arch.h"
00060 
00061 extern "C"
00062 {
00063 
00064 
00065     double F77NAME(dasum)(const integer *n, const double *dx, const integer *incx);
00066 
00067 
00068     void F77NAME(daxpy)(const integer *n, const double *da, const double *dx, 
00069             const integer *incx, double *dy, const integer *incy);
00070 
00071     void F77NAME(dcopy)(const integer *n, double *dx, const integer *incx, double *dy, 
00072                         const integer *incy);
00073 
00074 
00075     double F77NAME(ddot)(const integer *n, const double *dx, const integer *incx, 
00076                         const double *dy, const integer *incy);
00077 
00078     double F77NAME(dnrm2)(const integer *n, const double *dx, const integer *incx); 
00079 
00080     void F77NAME(drot)(const integer *n, double *dx, const integer *incx, double *dy, 
00081                         const integer *incy, const double *c, const double *s);
00082 
00083     void F77NAME(drotg)(double *da, double *db, double *c, double *s);
00084 
00085     void F77NAME(dscal)(const integer *n, double *da, double *dx, const integer *incx);
00086 
00087     void F77NAME(dswap)(const integer *n, double *dx, const integer *incx, double *dy, 
00088                         const integer *incy);
00089 
00090     integer F77NAME(idamax)(const integer *n, const double *dx, const integer *incx);
00091 
00092 
00093 /*           AT&T CC        Gnu g++  */
00094 #if defined(COMPLEXH)|| defined(_Complex_h )
00095 
00096     double F77NAME(zdotc)(complex *c, const integer *n, const complex *cx, 
00097             const integer *incx, const complex *cy, const integer *incy);
00098 
00099     double F77NAME(zdotu)(complex *c, const integer *n, const complex *cx, 
00100         const integer *incx, const complex *cy, const integer *incy);
00101 
00102     void F77NAME(zaxpy)(const integer *n, const complex *da, const complex *dx, 
00103             const integer *incx, complex *dy, const integer *incy);
00104 
00105     void F77NAME(zcopy)(const integer *n, complex *dx, const integer *incx, 
00106                 complex *dy, const integer *incy);
00107 
00108     double  F77NAME(dzasum)(const integer *n, const complex *dx, const integer *incx);
00109 
00110     double  F77NAME(dznrm2)(const integer *n, const complex *dx, const integer *incx); 
00111 
00112     void F77NAME(zdscal)(const integer *n, const double *da, complex *dx, 
00113             const integer *incx);
00114 
00115     void F77NAME(zscal)(const integer *n, const complex *da, complex *dx, 
00116             const integer *incx);
00117 
00118     integer F77NAME(izamax)(const integer *n, const complex *dx, const integer *incx);
00119 
00120     void F77NAME(zswap)(const integer *n, complex *dx, const integer *incx, 
00121                 complex *dy, integer *incy);
00122 
00123 #endif
00124 }
00125 
00126 #endif
00127 
 All Classes Files Functions Variables Enumerations Friends
Generated on Wed Apr 13 10:05:22 2011 for IFPACK by  doxygen 1.6.3