Skip to content
Snippets Groups Projects
Commit d13bdf73 authored by Antoine Cyril David Hoffmann's avatar Antoine Cyril David Hoffmann
Browse files

slight output change

parent cca10970
No related branches found
No related tags found
No related merge requests found
...@@ -23,9 +23,12 @@ subroutine auxval ...@@ -23,9 +23,12 @@ subroutine auxval
DO i_ = 0,num_procs-1 DO i_ = 0,num_procs-1
CALL mpi_barrier(MPI_COMM_WORLD, ierr) CALL mpi_barrier(MPI_COMM_WORLD, ierr)
IF (my_id .EQ. i_) WRITE (*,'(I2,A9,I3,A8,I3,A8,I3,A8,I3,A15,I6)') & IF (my_id .EQ. i_) THEN
i_,': ikrs = ', ikrs, ' ikre = ', ikre, 'ikzs = ', ikzs, ' ikze = ', ikze, & WRITE (*,'(I2,A9,I3,A8,I3,A8,I3,A8,I3,A15,I6)') &
'alloc_local = ', alloc_local_1+alloc_local_2 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 ENDDO
END SUBROUTINE auxval END SUBROUTINE auxval
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment