From fe9885bfde614fa0f73ce2ef1722dac638843470 Mon Sep 17 00:00:00 2001 From: hqpi Date: Tue, 12 Mar 2024 22:35:31 +0800 Subject: [PATCH] fix bugs in readHmnR.f90 --- src/readHmnR.f90 | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/readHmnR.f90 b/src/readHmnR.f90 index 1fbaa9f..164f475 100644 --- a/src/readHmnR.f90 +++ b/src/readHmnR.f90 @@ -797,7 +797,7 @@ subroutine readsparse_overlap 1003 continue close(13) - if (cpuid.eq.0) write(stdout, '(a, i)')' >> Number of non-zeros splen_overlap_input', splen_overlap_input + if (cpuid.eq.0) write(stdout, '(a, i20)')' >> Number of non-zeros splen_overlap_input', splen_overlap_input if (cpuid.eq.0) write(stdout, '(a)')' >> Sparse overlap matrix reading finished ' return @@ -895,7 +895,7 @@ subroutine readsparse_valley_operator Nrpts_valley=ir if (cpuid.eq.0) write(stdout, '(a, i6)')' >> Nrpts_valley is ', Nrpts_valley - if (cpuid.eq.0) write(stdout, '(a)')' >> splen_valley_input', splen_valley_input, j + if (cpuid.eq.0) write(stdout, '(a, 2i10)')' >> splen_valley_input', splen_valley_input, j if (cpuid.eq.0) write(stdout, '(a)')' >> Valley operator reading finished ' return