Merge pull request #143 from pihanqi/master

fix bugs in readHmnR.f90
quanshengwu · Mar 12, 2024 · b47f267 · b47f267
2 parents c748c23 + 3616ff1
commit b47f267
Showing 1 changed file with 2 additions and 2 deletions.
diff --git 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