From 50e4139c3b12908648a6dabdf7f75023025fc6b8 Mon Sep 17 00:00:00 2001
From: Antonio De Lucreziis <antonio.delucreziis@gmail.com>
Date: Thu, 13 Mar 2025 13:53:30 +0100
Subject: [PATCH] griejipger

---
 arnoldi.c | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/arnoldi.c b/arnoldi.c
index 1b13f9d..58ee02b 100644
--- 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;