IFPACK Development
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 "Ifpack_config.h"
00060 
00061 #include "ifp_arch.h"
00062 
00063 extern "C"
00064 {
00065 
00066 
00067     IFPACK_DEPRECATED double F77NAME(dasum)(const integer *n, const double *dx, const integer *incx);
00068 
00069 
00070     IFPACK_DEPRECATED void F77NAME(daxpy)(const integer *n, const double *da, const double *dx, 
00071             const integer *incx, double *dy, const integer *incy);
00072 
00073     IFPACK_DEPRECATED void F77NAME(dcopy)(const integer *n, double *dx, const integer *incx, double *dy, 
00074                         const integer *incy);
00075 
00076 
00077     IFPACK_DEPRECATED double F77NAME(ddot)(const integer *n, const double *dx, const integer *incx, 
00078                         const double *dy, const integer *incy);
00079 
00080     IFPACK_DEPRECATED double F77NAME(dnrm2)(const integer *n, const double *dx, const integer *incx); 
00081 
00082     IFPACK_DEPRECATED void F77NAME(drot)(const integer *n, double *dx, const integer *incx, double *dy, 
00083                         const integer *incy, const double *c, const double *s);
00084 
00085     IFPACK_DEPRECATED void F77NAME(drotg)(double *da, double *db, double *c, double *s);
00086 
00087     IFPACK_DEPRECATED void F77NAME(dscal)(const integer *n, double *da, double *dx, const integer *incx);
00088 
00089     IFPACK_DEPRECATED void F77NAME(dswap)(const integer *n, double *dx, const integer *incx, double *dy, 
00090                         const integer *incy);
00091 
00092     IFPACK_DEPRECATED integer F77NAME(idamax)(const integer *n, const double *dx, const integer *incx);
00093 
00094 
00095 /*           AT&T CC        Gnu g++  */
00096 #if defined(COMPLEXH)|| defined(_Complex_h )
00097 
00098     IFPACK_DEPRECATED double F77NAME(zdotc)(complex *c, const integer *n, const complex *cx, 
00099             const integer *incx, const complex *cy, const integer *incy);
00100 
00101     IFPACK_DEPRECATED double F77NAME(zdotu)(complex *c, const integer *n, const complex *cx, 
00102         const integer *incx, const complex *cy, const integer *incy);
00103 
00104     IFPACK_DEPRECATED void F77NAME(zaxpy)(const integer *n, const complex *da, const complex *dx, 
00105             const integer *incx, complex *dy, const integer *incy);
00106 
00107     IFPACK_DEPRECATED void F77NAME(zcopy)(const integer *n, complex *dx, const integer *incx, 
00108                 complex *dy, const integer *incy);
00109 
00110     IFPACK_DEPRECATED double    F77NAME(dzasum)(const integer *n, const complex *dx, const integer *incx);
00111 
00112     IFPACK_DEPRECATED double    F77NAME(dznrm2)(const integer *n, const complex *dx, const integer *incx); 
00113 
00114     IFPACK_DEPRECATED void F77NAME(zdscal)(const integer *n, const double *da, complex *dx, 
00115             const integer *incx);
00116 
00117     IFPACK_DEPRECATED void F77NAME(zscal)(const integer *n, const complex *da, complex *dx, 
00118             const integer *incx);
00119 
00120     IFPACK_DEPRECATED integer F77NAME(izamax)(const integer *n, const complex *dx, const integer *incx);
00121 
00122     IFPACK_DEPRECATED void F77NAME(zswap)(const integer *n, complex *dx, const integer *incx, 
00123                 complex *dy, integer *incy);
00124 
00125 #endif
00126 }
00127 
00128 #endif
00129 
 All Classes Files Functions Variables Enumerations Friends