griejipger

1 year ago · 50e4139c3b
parent b229c92d30
commit 50e4139c3b
1 changed files with 3 additions and 0 deletions
--- a/arnoldi.c
+++ b/arnoldi.c
@ -197,6 +197,9 @@ PetscErrorCode ArnoldiIteration(Mat A, Vec b, PetscInt n, PetscInt m, Vec *Q, do
    int rank, total;
    MPI_Comm_rank(PETSC_COMM_WORLD, &rank);
    MPI_Comm_size(PETSC_COMM_WORLD, &total);
+
+    char *hostname;
+    PetscCall(PetscGetHostName(hostname, sizeof(hostname)));
    printf("Process %d of %d\n", rank, total);

    PetscScalar eps = 1e-12;