/usr/include/fortran_matrix.h is in libhypre-dev 2.4.0b-7.
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 | /*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.5 $
***********************************************************************EHEADER*/
#ifndef FORTRAN_STYLE_MATRIX
#define FORTRAN_STYLE_MATRIX
typedef struct
{
long globalHeight;
long height;
long width;
double* value;
int ownsValues;
} utilities_FortranMatrix;
#ifdef __cplusplus
extern "C" {
#endif
utilities_FortranMatrix*
utilities_FortranMatrixCreate(void);
void
utilities_FortranMatrixAllocateData( long h, long w,
utilities_FortranMatrix* mtx );
void
utilities_FortranMatrixWrap( double*, long gh, long h, long w,
utilities_FortranMatrix* mtx );
void
utilities_FortranMatrixDestroy( utilities_FortranMatrix* mtx );
long
utilities_FortranMatrixGlobalHeight( utilities_FortranMatrix* mtx );
long
utilities_FortranMatrixHeight( utilities_FortranMatrix* mtx );
long
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, int t,
utilities_FortranMatrix* dest );
void
utilities_FortranMatrixIndexCopy( int* index,
utilities_FortranMatrix* src, 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, int tA,
utilities_FortranMatrix* mtxB, int tB,
utilities_FortranMatrix* mtxC );
double
utilities_FortranMatrixFNorm( utilities_FortranMatrix* mtx );
double
utilities_FortranMatrixValue( utilities_FortranMatrix* mtx,
long i, long j );
double*
utilities_FortranMatrixValuePtr( utilities_FortranMatrix* mtx,
long i, long j );
double
utilities_FortranMatrixMaxValue( utilities_FortranMatrix* mtx );
void
utilities_FortranMatrixSelectBlock( utilities_FortranMatrix* mtx,
long iFrom, long iTo,
long jFrom, long jTo,
utilities_FortranMatrix* block );
void
utilities_FortranMatrixUpperInv( utilities_FortranMatrix* u );
int
utilities_FortranMatrixPrint( utilities_FortranMatrix* mtx, char fileName[] );
#ifdef __cplusplus
}
#endif
#endif /* FORTRAN_STYLE_MATRIX */
|