Take out debug print

2026-10-18 03:42:10 +00:00 · 2026-06-12 16:09:40 +02:00
parent 525f971978
commit 150724341f
1 changed files with 1 additions and 1 deletions
@@ -342,7 +342,7 @@ contains
    else
      nullify(s2p)
    end if
-    write(0,*) 'krylov: s1 s2 ',associated(s1p),associated(s2p)
+    !write(0,*) 'krylov: s1 s2 ',associated(s1p),associated(s2p)
    call stringc2f(methd,fmethd)
    feps    = eps
    fitmax  = itmax