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 "ifp_arch.h"
00029 
00030 extern "C"
00031 {
00032     void F77NAME(dgemm)(char *transa, char *transb, integer *m, integer *n, integer *k,
00033         double *alpha, const double *a, integer *lda, const double *b, 
00034         integer *ldb, double *beta, double *c, integer *ldc);
00035     
00036     void F77NAME(dtrsm)(char *side, char *uplo, char *transa, char *diag,
00037         integer *m, integer *n, double *alpha, const double *A, integer *lda,
00038         const double *B, integer *ldb);
00039 
00040     void F77NAME(dtrmm)(char *side, char *uplo, char *transa, char *diag,
00041         integer *m, integer *n, double *alpha, const double *A, integer *lda,
00042         const double *B, integer *ldb);
00043 
00044     void F77NAME(dsymm)(char *side, char *uplo, integer *m, integer *n, 
00045         double *alpha, const double *A, integer *lda, const double *B, 
00046         integer *ldb, double *beta, double *C, integer *ldc);
00047 
00048     void F77NAME(dsyrk)(char *uplo, char *transa, integer *n, integer *k, 
00049         double *alpha, double *A, integer *lda, double *beta, double *C, 
00050         integer *ldc);
00051 
00052     void F77NAME(dsyr2k)(char *uplo, char *transa, integer *n, integer *k, 
00053         double *alpha, double *A, integer *lda, double *B, integer *ldb,
00054         double *beta, double *C, integer *ldc);
00055 }
00056