| /petsc/src/mat/impls/sbaij/mpi/ |
| H A D | mmsbaij.c | 189 PetscScalar *atmp; in MatDisAssemble_MPISBAIJ() local
196 PetscCall(PetscMalloc1(A->rmap->bs, &atmp)); in MatDisAssemble_MPISBAIJ()
246 for (l = 0; l < bs; l++) atmp[l] = a[j * bs2 + l]; in MatDisAssemble_MPISBAIJ()
248 atmp = a + j * bs2 + k * bs; in MatDisAssemble_MPISBAIJ()
250 PetscCall(MatSetValues_SeqSBAIJ(Bnew, bs, rvals, 1, &col, atmp, B->insertmode)); in MatDisAssemble_MPISBAIJ()
256 PetscCall(PetscFree(atmp)); in MatDisAssemble_MPISBAIJ()
|
| H A D | mpisbaij.c | 2511 PetscReal atmp; in MatGetRowMaxAbs_MPISBAIJ() local
2553 atmp = PetscAbsScalar(*ba); in MatGetRowMaxAbs_MPISBAIJ()
2556 if (PetscRealPart(va[row]) < atmp) va[row] = atmp; in MatGetRowMaxAbs_MPISBAIJ()
2557 if (work[col] < atmp) work[col] = atmp; in MatGetRowMaxAbs_MPISBAIJ()
|
| /petsc/src/mat/impls/baij/mpi/ |
| H A D | mmbaij.c | 135 MatScalar *a, *atmp; in MatDisAssemble_MPIBAIJ() local
177 atmp = a + j * bs2; in MatDisAssemble_MPIBAIJ()
178 PetscCall(MatSetValuesBlocked_SeqBAIJ(Bnew, 1, &i, 1, &col, atmp, B->insertmode)); in MatDisAssemble_MPIBAIJ()
|
| /petsc/src/ts/tutorials/power_grid/stability_9bus/ |
| H A D | ex9busadj.c | 737 PetscScalar atmp = (PetscScalar)a; in IJacobian() local
747 PetscCall(MatSetValues(A, 1, &row, 1, &row, &atmp, ADD_VALUES)); in IJacobian()
749 PetscCall(MatSetValues(A, 1, &row, 1, &row, &atmp, ADD_VALUES)); in IJacobian()
751 PetscCall(MatSetValues(A, 1, &row, 1, &row, &atmp, ADD_VALUES)); in IJacobian()
753 PetscCall(MatSetValues(A, 1, &row, 1, &row, &atmp, ADD_VALUES)); in IJacobian()
755 PetscCall(MatSetValues(A, 1, &row, 1, &row, &atmp, ADD_VALUES)); in IJacobian()
757 PetscCall(MatSetValues(A, 1, &row, 1, &row, &atmp, ADD_VALUES)); in IJacobian()
759 PetscCall(MatSetValues(A, 1, &row, 1, &row, &atmp, ADD_VALUES)); in IJacobian()
|
| H A D | ex9busoptfd.c | 739 PetscScalar atmp = (PetscScalar)a; in IJacobian() local
749 PetscCall(MatSetValues(A, 1, &row, 1, &row, &atmp, ADD_VALUES)); in IJacobian()
751 PetscCall(MatSetValues(A, 1, &row, 1, &row, &atmp, ADD_VALUES)); in IJacobian()
753 PetscCall(MatSetValues(A, 1, &row, 1, &row, &atmp, ADD_VALUES)); in IJacobian()
755 PetscCall(MatSetValues(A, 1, &row, 1, &row, &atmp, ADD_VALUES)); in IJacobian()
757 PetscCall(MatSetValues(A, 1, &row, 1, &row, &atmp, ADD_VALUES)); in IJacobian()
759 PetscCall(MatSetValues(A, 1, &row, 1, &row, &atmp, ADD_VALUES)); in IJacobian()
761 PetscCall(MatSetValues(A, 1, &row, 1, &row, &atmp, ADD_VALUES)); in IJacobian()
|
| H A D | ex9bus.c | 1024 PetscScalar atmp = (PetscScalar)a; in IJacobian() local
1034 PetscCall(MatSetValues(A, 1, &row, 1, &row, &atmp, ADD_VALUES)); in IJacobian()
1036 PetscCall(MatSetValues(A, 1, &row, 1, &row, &atmp, ADD_VALUES)); in IJacobian()
1038 PetscCall(MatSetValues(A, 1, &row, 1, &row, &atmp, ADD_VALUES)); in IJacobian()
1040 PetscCall(MatSetValues(A, 1, &row, 1, &row, &atmp, ADD_VALUES)); in IJacobian()
1042 PetscCall(MatSetValues(A, 1, &row, 1, &row, &atmp, ADD_VALUES)); in IJacobian()
1044 PetscCall(MatSetValues(A, 1, &row, 1, &row, &atmp, ADD_VALUES)); in IJacobian()
1046 PetscCall(MatSetValues(A, 1, &row, 1, &row, &atmp, ADD_VALUES)); in IJacobian()
|
| H A D | ex9busopt.c | 881 PetscScalar atmp = (PetscScalar)a; in IJacobian() local
891 PetscCall(MatSetValues(A, 1, &row, 1, &row, &atmp, ADD_VALUES)); in IJacobian()
893 PetscCall(MatSetValues(A, 1, &row, 1, &row, &atmp, ADD_VALUES)); in IJacobian()
895 PetscCall(MatSetValues(A, 1, &row, 1, &row, &atmp, ADD_VALUES)); in IJacobian()
897 PetscCall(MatSetValues(A, 1, &row, 1, &row, &atmp, ADD_VALUES)); in IJacobian()
899 PetscCall(MatSetValues(A, 1, &row, 1, &row, &atmp, ADD_VALUES)); in IJacobian()
901 PetscCall(MatSetValues(A, 1, &row, 1, &row, &atmp, ADD_VALUES)); in IJacobian()
903 PetscCall(MatSetValues(A, 1, &row, 1, &row, &atmp, ADD_VALUES)); in IJacobian()
|
| /petsc/src/mat/impls/sbaij/seq/ |
| H A D | sbaij2.c | 1518 PetscReal atmp; in MatGetRowMaxAbs_SeqSBAIJ() local
1545 atmp = PetscAbsScalar(*aa); in MatGetRowMaxAbs_SeqSBAIJ()
1548 if (PetscRealPart(x[row]) < atmp) x[row] = atmp; in MatGetRowMaxAbs_SeqSBAIJ()
1549 if (*aj > i && PetscRealPart(x[col]) < atmp) x[col] = atmp; in MatGetRowMaxAbs_SeqSBAIJ()
|
| /petsc/src/mat/impls/baij/seq/ |
| H A D | baij.c | 2603 PetscReal atmp; in MatGetRowMaxAbs_SeqBAIJ() local
2627 atmp = PetscAbsScalar(*aa); in MatGetRowMaxAbs_SeqBAIJ()
2630 if (PetscAbsScalar(x[row]) < atmp) { in MatGetRowMaxAbs_SeqBAIJ()
2631 x[row] = atmp; in MatGetRowMaxAbs_SeqBAIJ()
2647 PetscReal atmp; in MatGetRowSumAbs_SeqBAIJ() local
2670 atmp = PetscAbsScalar(*aa); in MatGetRowSumAbs_SeqBAIJ()
2673 x[row] += atmp; in MatGetRowSumAbs_SeqBAIJ()
|
| /petsc/src/mat/impls/dense/seq/ |
| H A D | dense.c | 2922 PetscReal atmp; in MatGetRowMaxAbs_SeqDense() local
2934 atmp = PetscAbsScalar(aa[i + a->lda * j]); in MatGetRowMaxAbs_SeqDense()
2935 if (PetscAbsScalar(x[i]) < atmp) { in MatGetRowMaxAbs_SeqDense()
2936 x[i] = atmp; in MatGetRowMaxAbs_SeqDense()
|
| /petsc/src/mat/impls/aij/seq/ |
| H A D | aij.c | 3007 PetscReal atmp; in MatGetRowMaxAbs_SeqAIJ() local
3026 atmp = PetscAbsScalar(*aa); in MatGetRowMaxAbs_SeqAIJ()
3027 if (PetscAbsScalar(x[i]) < atmp) { in MatGetRowMaxAbs_SeqAIJ()
3028 x[i] = atmp; in MatGetRowMaxAbs_SeqAIJ()
|