mpi/mkl_cpardiso/mkl_cpardiso.c

380   const PetscScalar *barray;
385   PetscCall(VecGetArrayRead(b, &barray));
390                                          mat_mkl_cpardiso->perm, &mat_mkl_cpardiso->nrhs, mat_mkl_cpardiso->iparm, &mat_mkl_cpardiso->msglvl, (void *)barray, (void *)xarray, &mat_mkl_cpardiso->comm_mkl_cpardiso, (PetscInt *)&mat_mkl_cpardiso->err));
394   PetscCall(VecRestoreArrayRead(b, &barray));
403   const PetscScalar *barray;
408   PetscCall(VecGetArrayRead(b, &barray));
413                                          mat_mkl_cpardiso->perm, &mat_mkl_cpardiso->nrhs, mat_mkl_cpardiso->iparm, &mat_mkl_cpardiso->msglvl, (void *)barray, (void *)xarray, &mat_mkl_cpardiso->comm_mkl_cpardiso, (PetscInt *)&mat_mkl_cpardiso->err));
417   PetscCall(VecRestoreArrayRead(b, &barray));
426   const PetscScalar *barray;
431   PetscCall(VecGetArrayRead(b, &barray));
436                                          mat_mkl_cpardiso->perm, &mat_mkl_cpardiso->nrhs, mat_mkl_cpardiso->iparm, &mat_mkl_cpardiso->msglvl, (void *)barray, (void *)xarray, &mat_mkl_cpardiso->comm_mkl_cpardiso, (PetscInt *)&mat_mkl_cpardiso->err));
440   PetscCall(VecRestoreArrayRead(b, &barray));
460   const PetscScalar *barray;
466     PetscCall(MatDenseGetArrayRead(B, &barray));
469     PetscCheck(barray != xarray, PETSC_COMM_SELF, PETSC_ERR_SUP, "B and X cannot share the same memory location");
474                                            mat_mkl_cpardiso->perm, &mat_mkl_cpardiso->nrhs, mat_mkl_cpardiso->iparm, &mat_mkl_cpardiso->msglvl, (void *)barray, (void *)xarray, &mat_mkl_cpardiso->comm_mkl_cpardiso, (PetscInt *)&mat_mkl_cpardiso->err));
476     PetscCall(MatDenseRestoreArrayRead(B, &barray));