/usr/include/fortran_matrix.h is in libhypre-dev 2.8.0b-3.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 | /*BHEADER**********************************************************************
* Copyright (c) 2008, Lawrence Livermore National Security, LLC.
* Produced at the Lawrence Livermore National Laboratory.
* This file is part of HYPRE. See file COPYRIGHT for details.
*
* HYPRE is free software; you can redistribute it and/or modify it under the
* terms of the GNU Lesser General Public License (as published by the Free
* Software Foundation) version 2.1 dated February 1999.
*
* $Revision: 2.8 $
***********************************************************************EHEADER*/
#ifndef FORTRAN_STYLE_MATRIX
#define FORTRAN_STYLE_MATRIX
#include "_hypre_utilities.h"
typedef struct
{
hypre_longint globalHeight;
hypre_longint height;
hypre_longint width;
double* value;
HYPRE_Int ownsValues;
} utilities_FortranMatrix;
#ifdef __cplusplus
extern "C" {
#endif
utilities_FortranMatrix*
utilities_FortranMatrixCreate(void);
void
utilities_FortranMatrixAllocateData( hypre_longint h, hypre_longint w,
utilities_FortranMatrix* mtx );
void
utilities_FortranMatrixWrap( double*, hypre_longint gh, hypre_longint h, hypre_longint w,
utilities_FortranMatrix* mtx );
void
utilities_FortranMatrixDestroy( utilities_FortranMatrix* mtx );
hypre_longint
utilities_FortranMatrixGlobalHeight( utilities_FortranMatrix* mtx );
hypre_longint
utilities_FortranMatrixHeight( utilities_FortranMatrix* mtx );
hypre_longint
utilities_FortranMatrixWidth( utilities_FortranMatrix* mtx );
double*
utilities_FortranMatrixValues( utilities_FortranMatrix* mtx );
void
utilities_FortranMatrixClear( utilities_FortranMatrix* mtx );
void
utilities_FortranMatrixClearL( utilities_FortranMatrix* mtx );
void
utilities_FortranMatrixSetToIdentity( utilities_FortranMatrix* mtx );
void
utilities_FortranMatrixTransposeSquare( utilities_FortranMatrix* mtx );
void
utilities_FortranMatrixSymmetrize( utilities_FortranMatrix* mtx );
void
utilities_FortranMatrixCopy( utilities_FortranMatrix* src, HYPRE_Int t,
utilities_FortranMatrix* dest );
void
utilities_FortranMatrixIndexCopy( HYPRE_Int* index,
utilities_FortranMatrix* src, HYPRE_Int t,
utilities_FortranMatrix* dest );
void
utilities_FortranMatrixSetDiagonal( utilities_FortranMatrix* mtx,
utilities_FortranMatrix* d );
void
utilities_FortranMatrixGetDiagonal( utilities_FortranMatrix* mtx,
utilities_FortranMatrix* d );
void
utilities_FortranMatrixAdd( double a,
utilities_FortranMatrix* mtxA,
utilities_FortranMatrix* mtxB,
utilities_FortranMatrix* mtxC );
void
utilities_FortranMatrixDMultiply( utilities_FortranMatrix* d,
utilities_FortranMatrix* mtx );
void
utilities_FortranMatrixMultiplyD( utilities_FortranMatrix* mtx,
utilities_FortranMatrix* d );
void
utilities_FortranMatrixMultiply( utilities_FortranMatrix* mtxA, HYPRE_Int tA,
utilities_FortranMatrix* mtxB, HYPRE_Int tB,
utilities_FortranMatrix* mtxC );
double
utilities_FortranMatrixFNorm( utilities_FortranMatrix* mtx );
double
utilities_FortranMatrixValue( utilities_FortranMatrix* mtx,
hypre_longint i, hypre_longint j );
double*
utilities_FortranMatrixValuePtr( utilities_FortranMatrix* mtx,
hypre_longint i, hypre_longint j );
double
utilities_FortranMatrixMaxValue( utilities_FortranMatrix* mtx );
void
utilities_FortranMatrixSelectBlock( utilities_FortranMatrix* mtx,
hypre_longint iFrom, hypre_longint iTo,
hypre_longint jFrom, hypre_longint jTo,
utilities_FortranMatrix* block );
void
utilities_FortranMatrixUpperInv( utilities_FortranMatrix* u );
HYPRE_Int
utilities_FortranMatrixPrint( utilities_FortranMatrix* mtx, const char *fileName);
#ifdef __cplusplus
}
#endif
#endif /* FORTRAN_STYLE_MATRIX */
|