matrix.c (2c76e3bec69661047018a1b8ea17dca2d9d5328f) matrix.c (354c94de58a434b7a4e66a8dd3b0b59d9623044d)
1#define PETSCMAT_DLL
2
3/*
4 This is where the abstract matrix operations are defined
5*/
6
7#include "src/mat/matimpl.h" /*I "petscmat.h" I*/
8#include "vecimpl.h"

--- 100 unchanged lines hidden (view full) ---

109 PetscFunctionReturn(0);
110}
111
112#undef __FUNCT__
113#define __FUNCT__ "MatConjugate"
114/*@C
115 MatConjugate - replaces the matrix values with their complex conjugates
116
1#define PETSCMAT_DLL
2
3/*
4 This is where the abstract matrix operations are defined
5*/
6
7#include "src/mat/matimpl.h" /*I "petscmat.h" I*/
8#include "vecimpl.h"

--- 100 unchanged lines hidden (view full) ---

109 PetscFunctionReturn(0);
110}
111
112#undef __FUNCT__
113#define __FUNCT__ "MatConjugate"
114/*@C
115 MatConjugate - replaces the matrix values with their complex conjugates
116
117 Not Collective
117 Collective on Mat
118
119 Input Parameters:
120. mat - the matrix
121
122 Level: advanced
123
124.seealso: VecConjugate()
125@*/
126PetscErrorCode PETSCMAT_DLLEXPORT MatConjugate(Mat mat)
127{
128 PetscErrorCode ierr;
129
130 PetscFunctionBegin;
131 PetscValidHeaderSpecific(mat,MAT_COOKIE,1);
132 if (!mat->assembled) SETERRQ(PETSC_ERR_ARG_WRONGSTATE,"Not for unassembled matrix");
118
119 Input Parameters:
120. mat - the matrix
121
122 Level: advanced
123
124.seealso: VecConjugate()
125@*/
126PetscErrorCode PETSCMAT_DLLEXPORT MatConjugate(Mat mat)
127{
128 PetscErrorCode ierr;
129
130 PetscFunctionBegin;
131 PetscValidHeaderSpecific(mat,MAT_COOKIE,1);
132 if (!mat->assembled) SETERRQ(PETSC_ERR_ARG_WRONGSTATE,"Not for unassembled matrix");
133 if (!mat->ops->conjugate) SETERRQ(PETSC_ERR_SUP,"Not provided for this matrix format, send email to petsc-maint@mcs.anl.gov");
133 ierr = (*mat->ops->conjugate)(mat);CHKERRQ(ierr);
134 PetscFunctionReturn(0);
135}
136
137#undef __FUNCT__
138#define __FUNCT__ "MatRestoreRow"
139/*@C
140 MatRestoreRow - Frees any temporary space allocated by MatGetRow().

--- 6083 unchanged lines hidden --- 		134 ierr = (*mat->ops->conjugate)(mat);CHKERRQ(ierr);
135 PetscFunctionReturn(0);
136}
137
138#undef __FUNCT__
139#define __FUNCT__ "MatRestoreRow"
140/*@C
141 MatRestoreRow - Frees any temporary space allocated by MatGetRow().

--- 6083 unchanged lines hidden ---