source:
issm/oecreview/Archive/12678-13393/ISSM-12898-12899.diff@
14312
Last change on this file since 14312 was 13394, checked in by , 13 years ago | |
---|---|
File size: 3.6 KB |
-
u/astrid-r1b/morlighe/issmuci/trunk-jpl/../trunk-jpl/src/c/classes/matrix/ElementVector.h
15 15 #include "../../EnumDefinitions/EnumDefinitions.h" 16 16 class Node; 17 17 class Vector; 18 class Parameters; 18 19 /*}}}*/ 19 20 20 21 class ElementVector{ -
u/astrid-r1b/morlighe/issmuci/trunk-jpl/../trunk-jpl/src/c/classes/matrix/Vector.cpp
24 24 /*FUNCTION Vector::Vector(){{{*/ 25 25 Vector::Vector(){ 26 26 27 #ifdef _HAVE_PETSC_ 27 28 this->pvector=NULL; 29 #endif 28 30 this->svector=NULL; 29 31 30 32 type=PetscVecType; //default … … 37 39 /*FUNCTION Vector::Vector(int M,bool fromlocalsize,int type){{{*/ 38 40 Vector::Vector(int M,bool fromlocalsize,int in_type){ 39 41 42 #ifdef _HAVE_PETSC_ 40 43 pvector=NULL; 44 #endif 41 45 svector=NULL; 42 46 type=in_type; 43 47 … … 59 63 /*FUNCTION Vector::Vector(IssmDouble* serial_vec,int M,int type){{{*/ 60 64 Vector::Vector(IssmDouble* serial_vec,int M,int in_type){ 61 65 66 #ifdef _HAVE_PETSC_ 62 67 pvector=NULL; 68 #endif 69 63 70 svector=NULL; 64 71 type=in_type; 65 72 -
u/astrid-r1b/morlighe/issmuci/trunk-jpl/../trunk-jpl/src/c/classes/matrix/ElementMatrix.h
15 15 #include "../../EnumDefinitions/EnumDefinitions.h" 16 16 class Node; 17 17 class Matrix; 18 class Parameters; 18 19 /*}}}*/ 19 20 20 21 class ElementMatrix{ -
u/astrid-r1b/morlighe/issmuci/trunk-jpl/../trunk-jpl/src/c/classes/matrix/Matrix.cpp
25 25 /*FUNCTION Matrix::Matrix(){{{*/ 26 26 Matrix::Matrix(){ 27 27 28 #ifdef _HAVE_PETSC_ 28 29 pmatrix=NULL; 30 #endif 29 31 smatrix=NULL; 30 32 31 33 type=PetscMatType; //default … … 38 40 /*FUNCTION Matrix::Matrix(int M,int N,int type){{{*/ 39 41 Matrix::Matrix(int M,int N,int in_type){ 40 42 43 #ifdef _HAVE_PETSC_ 41 44 pmatrix=NULL; 45 #endif 42 46 smatrix=NULL; 43 47 type=in_type; 44 48 … … 59 63 /*FUNCTION Matrix::Matrix(int M,int N,IssmDouble sparsity,int type){{{*/ 60 64 Matrix::Matrix(int M,int N,IssmDouble sparsity,int in_type){ 61 65 66 #ifdef _HAVE_PETSC_ 62 67 pmatrix=NULL; 68 #endif 63 69 smatrix=NULL; 64 70 type=in_type; 65 71 … … 79 85 /*FUNCTION Matrix::Matrix(IssmDouble* serial_mat, int M,int N,IssmDouble sparsity,int type){{{*/ 80 86 Matrix::Matrix(IssmDouble* serial_mat, int M,int N,IssmDouble sparsity,int in_type){ 81 87 88 #ifdef _HAVE_PETSC_ 82 89 pmatrix=NULL; 90 #endif 83 91 smatrix=NULL; 84 92 type=in_type; 85 93 … … 100 108 /*FUNCTION Matrix::Matrix(int M,int N,int connectivity,int numberofdofspernode,int type){{{*/ 101 109 Matrix::Matrix(int M,int N,int connectivity,int numberofdofspernode,int in_type){ 102 110 111 #ifdef _HAVE_PETSC_ 103 112 pmatrix=NULL; 113 #endif 104 114 smatrix=NULL; 105 115 type=in_type; 106 116
Note:
See TracBrowser
for help on using the repository browser.