From d13bdf7310d10ec6f5a452e20f95cc55a6acf638 Mon Sep 17 00:00:00 2001
From: Antoine Cyril David Hoffmann <ahoffman@spcpc606.epfl.ch>
Date: Tue, 5 Jan 2021 13:36:13 +0100
Subject: [PATCH] slight output change
---
src/auxval.F90 | 9 ++++++---
1 file changed, 6 insertions(+), 3 deletions(-)
diff --git a/src/auxval.F90 b/src/auxval.F90
index 6c281046..3dff0e00 100644
--- a/src/auxval.F90
+++ b/src/auxval.F90
@@ -23,9 +23,12 @@ subroutine auxval
DO i_ = 0,num_procs-1
CALL mpi_barrier(MPI_COMM_WORLD, ierr)
- IF (my_id .EQ. i_) WRITE (*,'(I2,A9,I3,A8,I3,A8,I3,A8,I3,A15,I6)') &
- i_,': ikrs = ', ikrs, ' ikre = ', ikre, 'ikzs = ', ikzs, ' ikze = ', ikze, &
- 'alloc_local = ', alloc_local_1+alloc_local_2
+ IF (my_id .EQ. i_) THEN
+ WRITE (*,'(I2,A9,I3,A8,I3,A8,I3,A8,I3,A15,I6)') &
+ i_,': ikrs = ', ikrs, ' ikre = ', ikre, 'ikzs = ', ikzs, ' ikze = ', ikze
+ WRITE (*,'(A14,I4,A10,I4,A15,I6)') &
+ ' local_nkr = ',local_nkr,' offset = ',local_nkr_offset,' alloc_local = ', alloc_local_1+alloc_local_2
+ ENDIF
ENDDO
END SUBROUTINE auxval
--
GitLab