Home
last modified time | relevance | path

Searched refs:stmp (Results 1 – 9 of 9) sorted by relevance

/petsc/src/mat/impls/baij/seq/
H A Ddgefa2.c18 MatScalar *aa, *ax, *ay, work[4], stmp; in PetscKernel_A_gets_inverse_A_2() local
60 stmp = a[l + k3]; in PetscKernel_A_gets_inverse_A_2()
62 a[k4] = stmp; in PetscKernel_A_gets_inverse_A_2()
66 stmp = -1. / a[k4]; in PetscKernel_A_gets_inverse_A_2()
69 for (ll = 0; ll < i__2; ll++) aa[ll] *= stmp; in PetscKernel_A_gets_inverse_A_2()
75 stmp = a[l + j3]; in PetscKernel_A_gets_inverse_A_2()
78 a[k + j3] = stmp; in PetscKernel_A_gets_inverse_A_2()
83 for (ll = 0; ll < i__3; ll++) ay[ll] += stmp * ax[ll]; in PetscKernel_A_gets_inverse_A_2()
99 stmp = -a[k4]; in PetscKernel_A_gets_inverse_A_2()
102 for (ll = 0; ll < i__2; ll++) aa[ll] *= stmp; in PetscKernel_A_gets_inverse_A_2()
[all …]
H A Ddgefa7.c18 MatScalar *aa, *ax, *ay, work[49], stmp; in PetscKernel_A_gets_inverse_A_7() local
61 stmp = a[l + k3]; in PetscKernel_A_gets_inverse_A_7()
63 a[k4] = stmp; in PetscKernel_A_gets_inverse_A_7()
67 stmp = -1. / a[k4]; in PetscKernel_A_gets_inverse_A_7()
70 for (ll = 0; ll < i__2; ll++) aa[ll] *= stmp; in PetscKernel_A_gets_inverse_A_7()
76 stmp = a[l + j3]; in PetscKernel_A_gets_inverse_A_7()
79 a[k + j3] = stmp; in PetscKernel_A_gets_inverse_A_7()
84 for (ll = 0; ll < i__3; ll++) ay[ll] += stmp * ax[ll]; in PetscKernel_A_gets_inverse_A_7()
100 stmp = -a[k4]; in PetscKernel_A_gets_inverse_A_7()
103 for (ll = 0; ll < i__2; ll++) aa[ll] *= stmp; in PetscKernel_A_gets_inverse_A_7()
[all …]
H A Ddgefa6.c18 MatScalar *aa, *ax, *ay, work[36], stmp; in PetscKernel_A_gets_inverse_A_6() local
61 stmp = a[l + k3]; in PetscKernel_A_gets_inverse_A_6()
63 a[k4] = stmp; in PetscKernel_A_gets_inverse_A_6()
67 stmp = -1. / a[k4]; in PetscKernel_A_gets_inverse_A_6()
70 for (ll = 0; ll < i__2; ll++) aa[ll] *= stmp; in PetscKernel_A_gets_inverse_A_6()
76 stmp = a[l + j3]; in PetscKernel_A_gets_inverse_A_6()
79 a[k + j3] = stmp; in PetscKernel_A_gets_inverse_A_6()
84 for (ll = 0; ll < i__3; ll++) ay[ll] += stmp * ax[ll]; in PetscKernel_A_gets_inverse_A_6()
100 stmp = -a[k4]; in PetscKernel_A_gets_inverse_A_6()
103 for (ll = 0; ll < i__2; ll++) aa[ll] *= stmp; in PetscKernel_A_gets_inverse_A_6()
[all …]
H A Ddgefa5.c18 MatScalar *aa, *ax, *ay, stmp; in PetscKernel_A_gets_inverse_A_5() local
61 stmp = a[l + k3]; in PetscKernel_A_gets_inverse_A_5()
63 a[k4] = stmp; in PetscKernel_A_gets_inverse_A_5()
67 stmp = -1. / a[k4]; in PetscKernel_A_gets_inverse_A_5()
70 for (ll = 0; ll < i__2; ll++) aa[ll] *= stmp; in PetscKernel_A_gets_inverse_A_5()
76 stmp = a[l + j3]; in PetscKernel_A_gets_inverse_A_5()
79 a[k + j3] = stmp; in PetscKernel_A_gets_inverse_A_5()
84 for (ll = 0; ll < i__3; ll++) ay[ll] += stmp * ax[ll]; in PetscKernel_A_gets_inverse_A_5()
100 stmp = -a[k4]; in PetscKernel_A_gets_inverse_A_5()
103 for (ll = 0; ll < i__2; ll++) aa[ll] *= stmp; in PetscKernel_A_gets_inverse_A_5()
[all …]
H A Ddgefa4.c18 MatScalar *aa, *ax, *ay, work[16], stmp; in PetscKernel_A_gets_inverse_A_4() local
61 stmp = a[l + k3]; in PetscKernel_A_gets_inverse_A_4()
63 a[k4] = stmp; in PetscKernel_A_gets_inverse_A_4()
67 stmp = -1. / a[k4]; in PetscKernel_A_gets_inverse_A_4()
70 for (ll = 0; ll < i__2; ll++) aa[ll] *= stmp; in PetscKernel_A_gets_inverse_A_4()
76 stmp = a[l + j3]; in PetscKernel_A_gets_inverse_A_4()
79 a[k + j3] = stmp; in PetscKernel_A_gets_inverse_A_4()
84 for (ll = 0; ll < i__3; ll++) ay[ll] += stmp * ax[ll]; in PetscKernel_A_gets_inverse_A_4()
100 stmp = -a[k4]; in PetscKernel_A_gets_inverse_A_4()
103 for (ll = 0; ll < i__2; ll++) aa[ll] *= stmp; in PetscKernel_A_gets_inverse_A_4()
[all …]
H A Ddgefa3.c18 MatScalar *aa, *ax, *ay, work[9], stmp; in PetscKernel_A_gets_inverse_A_3() local
61 stmp = a[l + k3]; in PetscKernel_A_gets_inverse_A_3()
63 a[k4] = stmp; in PetscKernel_A_gets_inverse_A_3()
67 stmp = -1. / a[k4]; in PetscKernel_A_gets_inverse_A_3()
70 for (ll = 0; ll < i__2; ll++) aa[ll] *= stmp; in PetscKernel_A_gets_inverse_A_3()
76 stmp = a[l + j3]; in PetscKernel_A_gets_inverse_A_3()
79 a[k + j3] = stmp; in PetscKernel_A_gets_inverse_A_3()
84 for (ll = 0; ll < i__3; ll++) ay[ll] += stmp * ax[ll]; in PetscKernel_A_gets_inverse_A_3()
100 stmp = -a[k4]; in PetscKernel_A_gets_inverse_A_3()
103 for (ll = 0; ll < i__2; ll++) aa[ll] *= stmp; in PetscKernel_A_gets_inverse_A_3()
[all …]
/petsc/src/mat/impls/sbaij/mpi/
H A Dmmsbaij.c11 PetscInt bs = mat->rmap->bs, *stmp, mbs = sbaij->mbs, vec_size, nt; in MatSetUpMultiply_MPISBAIJ() local
110 PetscCall(PetscMalloc1(2 * ec, &stmp)); in MatSetUpMultiply_MPISBAIJ()
112 for (i = 0; i < ec; i++) stmp[i] = i; in MatSetUpMultiply_MPISBAIJ()
113 PetscCall(ISCreateBlock(PETSC_COMM_SELF, bs, ec, stmp, PETSC_COPY_VALUES, &to)); in MatSetUpMultiply_MPISBAIJ()
145 for (i = 0; i < ec; i++) stmp[i] = (k + i); in MatSetUpMultiply_MPISBAIJ()
147 for (i = ec; i < 2 * ec; i++) stmp[i] = sgarray[i - ec]; in MatSetUpMultiply_MPISBAIJ()
149 PetscCall(ISCreateBlock(PETSC_COMM_SELF, bs, 2 * ec, stmp, PETSC_COPY_VALUES, &to)); in MatSetUpMultiply_MPISBAIJ()
164 PetscCall(PetscFree(stmp)); in MatSetUpMultiply_MPISBAIJ()
/petsc/src/mat/impls/baij/mpi/
H A Dmmbaij.c12 PetscInt bs = mat->rmap->bs, *stmp; in MatSetUpMultiply_MPIBAIJ() local
101 PetscCall(PetscMalloc1(ec, &stmp)); in MatSetUpMultiply_MPIBAIJ()
102 for (i = 0; i < ec; i++) stmp[i] = i; in MatSetUpMultiply_MPIBAIJ()
103 PetscCall(ISCreateBlock(PETSC_COMM_SELF, bs, ec, stmp, PETSC_OWN_POINTER, &to)); in MatSetUpMultiply_MPIBAIJ()
/petsc/src/vec/is/sf/impls/basic/nvshmem/
H A Dsfnvshmem.cu82 PetscInt tmp, stmp[4], rtmp[4]; /* tmps for send/recv buffers */ in PetscSFSetUp_Basic_NVSHMEM() local
95 stmp[0] = nRemoteRootRanks; in PetscSFSetUp_Basic_NVSHMEM()
96 stmp[1] = sf->leafbuflen[PETSCSF_REMOTE]; in PetscSFSetUp_Basic_NVSHMEM()
97 stmp[2] = nRemoteLeafRanks; in PetscSFSetUp_Basic_NVSHMEM()
98 stmp[3] = bas->rootbuflen[PETSCSF_REMOTE]; in PetscSFSetUp_Basic_NVSHMEM()
100 PetscCallMPI(MPIU_Allreduce(stmp, rtmp, 4, MPIU_INT, MPI_MAX, comm)); in PetscSFSetUp_Basic_NVSHMEM()