| { |
| PetscErrorCode ierr; |
| Vec in,out; |
| int i,M,m,*rows,start,end; |
| PetscInt i,M,m,*rows,start,end; |
| PetscScalar *array,one = 1.0; |
| PetscFunctionBegin; |
| PetscErrorCode STSetFromOptions(ST st) |
| { |
| PetscErrorCode ierr; |
| int i; |
| PetscInt i; |
| char type[256]; |
| PetscTruth flg; |
| const char *mode_list[3] = { "copy", "inplace", "shell" }; |
| PetscErrorCode STMatShellCreate(ST st,Mat *mat) |
| { |
| PetscErrorCode ierr; |
| int n, m, N, M; |
| PetscInt n, m, N, M; |
| PetscTruth hasA, hasB; |
| PetscFunctionBegin; |
| PetscErrorCode STAssociatedKSPSolve(ST st,Vec b,Vec x) |
| { |
| PetscErrorCode ierr; |
| int its; |
| PetscInt its; |
| KSPConvergedReason reason; |
| PetscFunctionBegin; |
| PetscErrorCode STAssociatedKSPSolveTranspose(ST st,Vec b,Vec x) |
| { |
| PetscErrorCode ierr; |
| int its; |
| PetscInt its; |
| KSPConvergedReason reason; |
| PetscFunctionBegin; |