Searched refs:avec (Results 1 – 3 of 3) sorted by relevance
| /petsc/src/vec/vec/tutorials/ |
| H A D | ex6.c | 18 PetscScalar *avec, *array; in main() local
61 PetscCall(VecGetArray(vec, &avec)); in main()
68 PetscCall(PetscBinaryRead(fd, avec, sz, NULL, PETSC_SCALAR)); in main()
71 PetscCall(VecRestoreArray(vec, &avec)); in main()
|
| H A D | ex6f.F90 | 14 PetscScalar, pointer, dimension(:) :: avec
67 PetscCallA(VecGetArray(vec, avec, ierr))
78 PetscCallA(PetscBinaryRead(fd, avec, sz, PETSC_NULL_INTEGER, PETSC_SCALAR, ierr))
81 PetscCallA(VecRestoreArray(vec, avec, ierr))
|
| /petsc/src/ksp/ksp/impls/gmres/lgmres/ |
| H A D | lgmres.c | 108 PetscScalar *avec; in KSPLGMRESCycle() local
282 avec = lgmres->hwork; in KSPLGMRESCycle()
283 PetscCall(PetscArrayzero(avec, it_total + 1)); in KSPLGMRESCycle()
285 for (jj = 0; jj <= ii + 1 && jj < it_total + 1; jj++) avec[jj] += *HES(jj, ii) * *GRS(ii); in KSPLGMRESCycle()
289 PetscCall(VecMAXPBY(VEC_TEMP, it_total + 1, avec, 0, &VEC_VV(0))); /* answer is in VEC_TEMP */ in KSPLGMRESCycle()
|