First update for new psblas interface

2 weeks ago · c6daa45aa8
parent 6c0a8831d8
commit c6daa45aa8
1 changed files with 1 additions and 1 deletions
--- a/cbind/amgprec/amg_dprec_cbind_mod.F90
+++ b/cbind/amgprec/amg_dprec_cbind_mod.F90
@ -342,7 +342,7 @@ contains
    else
      nullify(s2p)
    end if
-
+    write(0,*) 'krylov: s1 s2 ',associated(s1p),associated(s2p)
    call stringc2f(methd,fmethd)
    feps    = eps
    fitmax  = itmax