Epetra Package Browser (Single Doxygen Collection) Development
Loading...
Searching...
No Matches
Epetra_Fortran_wrappers.h
Go to the documentation of this file.
1/*
2//@HEADER
3// ************************************************************************
4//
5// Epetra: Linear Algebra Services Package
6// Copyright 2011 Sandia Corporation
7//
8// Under the terms of Contract DE-AC04-94AL85000 with Sandia Corporation,
9// the U.S. Government retains certain rights in this software.
10//
11// Redistribution and use in source and binary forms, with or without
12// modification, are permitted provided that the following conditions are
13// met:
14//
15// 1. Redistributions of source code must retain the above copyright
16// notice, this list of conditions and the following disclaimer.
17//
18// 2. Redistributions in binary form must reproduce the above copyright
19// notice, this list of conditions and the following disclaimer in the
20// documentation and/or other materials provided with the distribution.
21//
22// 3. Neither the name of the Corporation nor the names of the
23// contributors may be used to endorse or promote products derived from
24// this software without specific prior written permission.
25//
26// THIS SOFTWARE IS PROVIDED BY SANDIA CORPORATION "AS IS" AND ANY
27// EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
28// IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
29// PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL SANDIA CORPORATION OR THE
30// CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL,
31// EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO,
32// PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR
33// PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF
34// LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING
35// NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
36// SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
37//
38// Questions? Contact Michael A. Heroux (maherou@sandia.gov)
39//
40// ************************************************************************
41//@HEADER
42*/
43
44#define EPETRA_FORTRAN
45#ifdef EPETRA_ADDRESS64BIT
46#define EPETRA_OBJECT_PTR long integer
47#else
48#define EPETRA_OBJECT_PTR integer
49#endif
50#define EPETRA_ERROR_FLAG integer
51
55
58
62 EPETRA_ERROR_FLAG epetra_map_numMyelements
63 EPETRA_ERROR_FLAG epetra_map_numGlobalelements
64
72
73
74 EPETRA_OBJECT_PTR epetra_localmap_create
75 EPETRA_OBJECT_PTR epetra_blockmap_create1
76 EPETRA_OBJECT_PTR epetra_blockmap_create2
77 EPETRA_OBJECT_PTR epetra_localblockmap_create1
78 EPETRA_OBJECT_PTR epetra_localblockmap_create2
79
80 EPETRA_OBJECT_PTR epetra_crsmatrix_create
81 EPETRA_OBJECT_PTR epetra_vbrmatrix_create
82
83 EPETRA_OBJECT_PTR epetra_multivector_create
84
85
86 EPETRA_ERROR_FLAG epetra_vbrmatrix_allocate
87 EPETRA_ERROR_FLAG epetra_vbrmatrix_putblockrow
88 EPETRA_ERROR_FLAG epetra_vbrmatrix_fillcomplete
89 EPETRA_ERROR_FLAG epetra_vbrmatrix_matvec
90
91 EPETRA_ERROR_FLAG epetra_crsmatrix_allocate
92 EPETRA_ERROR_FLAG epetra_crsmatrix_putrow
93 EPETRA_ERROR_FLAG epetra_crsmatrix_sumintodiagonal
94 EPETRA_ERROR_FLAG epetra_crsmatrix_fillcomplete
95 EPETRA_ERROR_FLAG epetra_crsmatrix_matvec
96
int MANGLE() epetra_vector_norm1(EPETRA_OBJECT_REF x, double *scalar)
EPETRA_OBJECT_PTR MANGLE() epetra_mpicomm_create2(MPI_Comm *comm)
EPETRA_OBJECT_PTR MANGLE() epetra_map_create1(EPETRA_INT numGlobalElements, EPETRA_INT indexBase, EPETRA_OBJECT_REF comm)
Epetra_Map
EPETRA_OBJECT_PTR MANGLE() epetra_vector_create2(EPETRA_INT CopyValues, EPETRA_OBJECT_REF map, double *V)
EPETRA_OBJECT_PTR MANGLE() epetra_mpicomm_create1()
Epetra_Comm
EPETRA_OBJECT_PTR MANGLE() epetra_vector_create1(EPETRA_OBJECT_REF map)
Epetra_Vector
EPETRA_OBJECT_PTR MANGLE() epetra_serialcomm_create()
int MANGLE() epetra_vector_random(EPETRA_OBJECT_REF x)
int MANGLE() epetra_vector_norm2(EPETRA_OBJECT_REF x, double *scalar)
int MANGLE() epetra_comm_mypid(EPETRA_OBJECT_REF comm)
EPETRA_OBJECT_PTR MANGLE() epetra_map_create3(EPETRA_INT numGlobalElements, EPETRA_INT numLocalElements, int *updateList, EPETRA_INT indexBase, EPETRA_OBJECT_REF comm)
int MANGLE() epetra_vector_putscalar(EPETRA_OBJECT_REF x, EPETRA_DOUBLE scalar)
int MANGLE() epetra_comm_numproc(EPETRA_OBJECT_REF comm)
EPETRA_OBJECT_PTR MANGLE() epetra_map_create2(EPETRA_INT numGlobalElements, EPETRA_INT numMyElements, EPETRA_INT indexBase, EPETRA_OBJECT_REF comm)
int MANGLE() epetra_vector_update(EPETRA_OBJECT_REF x, EPETRA_DOUBLE scalara, EPETRA_OBJECT_REF a, EPETRA_DOUBLE scalarb, EPETRA_OBJECT_REF b, EPETRA_DOUBLE scalarx)
void * EPETRA_OBJECT_PTR
#define EPETRA_ERROR_FLAG