2
// ************************************************************************
4
// Kokkos: A Fast Kernel Package
5
// Copyright (2004) Sandia Corporation
7
// Under terms of Contract DE-AC04-94AL85000, there is a non-exclusive
8
// license for use of this work by or on behalf of the U.S. Government.
10
// This library is free software; you can redistribute it and/or modify
11
// it under the terms of the GNU Lesser General Public License as
12
// published by the Free Software Foundation; either version 2.1 of the
13
// License, or (at your option) any later version.
15
// This library is distributed in the hope that it will be useful, but
16
// WITHOUT ANY WARRANTY; without even the implied warranty of
17
// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
18
// Lesser General Public License for more details.
20
// You should have received a copy of the GNU Lesser General Public
21
// License along with this library; if not, write to the Free Software
22
// Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307
24
// Questions? Contact Michael A. Heroux (maherou@sandia.gov)
26
// ************************************************************************
29
#ifndef KOKKOS_FORTRAN_WRAPPERS_H
30
#define KOKKOS_FORTRAN_WRAPPERS_H
32
#include "Kokkos_f77func.hpp"
34
# define KOKKOS_DCRSMV_F77 F77_FUNC_(kokkos_dcrsmv,KOKKOS_DCRSMV)
35
# define KOKKOS_DCRSMM_F77 F77_FUNC_(kokkos_dcrsmm,KOKKOS_DCRSMM)
41
void PREFIX KOKKOS_DCRSMV_F77(const int *itrans, const int *udiag, const int *numRows,
42
const int *numCols, double values[],
43
int indices[], int profile[], double x[], double y[]);
45
void PREFIX KOKKOS_DCRSMM_F77(const int *itrans, const int *udiag, const int *numRows,
46
const int *numCols, double values[],
47
int indices[], int profile[],
48
double x[], const int *ldx, double y[], const int *ldy,
55
#endif /* KOKKOS_FORTRAN_WRAPPERS_H */