IFPACK: ifp_blas3.h Source File

00001 
00002 /*      LAPACK++ (V. 1.0 Beta)                      */
00003 /*      (C) 1992-1994 All Rights Reserved.              */
00004 /*
00005               LAPACK++ 1.0: Linear Algebra Package 1.0
00006                University of Tennessee, Knoxvilee, TN.
00007             Oak Ridge National Laboratory, Oak Ridge, TN.
00008         Authors: J. J. Dongarra, E. Greaser, R. Pozo, D. Walker
00009                  (C) 1992-1993 All Rights Reserved
00010 
00011                              NOTICE
00012 
00013  Permission to use, copy, modify, and distribute this software and
00014  its documentation for any purpose and without fee is hereby granted
00015  provided that the above copyright notice appear in all copies and
00016  that both the copyright notice and this permission notice appear in
00017  supporting documentation.
00018 
00019  Neither the Institutions (University of Tennessee, and Oak Ridge National
00020  Laboratory) nor the Authors make any representations about the suitability
00021  of this software for any purpose.  This software is provided ``as is''
00022  without express or implied warranty.
00023 
00024  LAPACK++ was funded in part by the U.S. Department of Energy, the
00025  National Science Foundation and the State of Tennessee.
00026 */
00027 
00028 #include "Ifpack_config.h"
00029 
00030 #include "ifp_arch.h"
00031 
00032 extern "C"
00033 {
00034     IFPACK_DEPRECATED void F77NAME(dgemm)(char *transa, char *transb, integer *m, integer *n, integer *k,
00035         double *alpha, const double *a, integer *lda, const double *b, 
00036         integer *ldb, double *beta, double *c, integer *ldc);
00037     
00038     IFPACK_DEPRECATED void F77NAME(dtrsm)(char *side, char *uplo, char *transa, char *diag,
00039         integer *m, integer *n, double *alpha, const double *A, integer *lda,
00040         const double *B, integer *ldb);
00041 
00042     IFPACK_DEPRECATED void F77NAME(dtrmm)(char *side, char *uplo, char *transa, char *diag,
00043         integer *m, integer *n, double *alpha, const double *A, integer *lda,
00044         const double *B, integer *ldb);
00045 
00046     IFPACK_DEPRECATED void F77NAME(dsymm)(char *side, char *uplo, integer *m, integer *n, 
00047         double *alpha, const double *A, integer *lda, const double *B, 
00048         integer *ldb, double *beta, double *C, integer *ldc);
00049 
00050     IFPACK_DEPRECATED void F77NAME(dsyrk)(char *uplo, char *transa, integer *n, integer *k, 
00051         double *alpha, double *A, integer *lda, double *beta, double *C, 
00052         integer *ldc);
00053 
00054     IFPACK_DEPRECATED void F77NAME(dsyr2k)(char *uplo, char *transa, integer *n, integer *k, 
00055         double *alpha, double *A, integer *lda, double *B, integer *ldb,
00056         double *beta, double *C, integer *ldc);
00057 }
00058