Corrected call to invt/invk factorization

amgprec/amg_ainv_mod.f90

@@ -0,0 +1,49 @@
+!
+!
+!                       AMG-AINV: Approximate Inverse plugin for
+!                             AMG4PSBLAS version 1.0
+!
+!    (C) Copyright 2020
+!
+!                        Salvatore Filippone  University of Rome Tor Vergata
+!
+!    Redistribution and use in source and binary forms, with or without
+!    modification, are permitted provided that the following conditions
+!    are met:
+!      1. Redistributions of source code must retain the above copyright
+!         notice, this list of conditions and the following disclaimer.
+!      2. Redistributions in binary form must reproduce the above copyright
+!         notice, this list of conditions, and the following disclaimer in the
+!         documentation and/or other materials provided with the distribution.
+!      3. The name of the AMG4PSBLAS group or the names of its contributors may
+!         not be used to endorse or promote products derived from this
+!         software without specific written permission.
+!
+!    THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
+!    ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED
+!    TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
+!    PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE AMG4PSBLAS GROUP OR ITS CONTRIBUTORS
+!    BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
+!    CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
+!    SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
+!    INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
+!    CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
+!    ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
+!    POSSIBILITY OF SUCH DAMAGE.
+!
+!
+!
+module amg_ainv_mod
+  use amg_d_ainv_solver
+  use amg_d_invk_solver
+  use amg_d_invt_solver
+  use amg_s_ainv_solver
+  use amg_s_invk_solver
+  use amg_s_invt_solver
+  use amg_c_ainv_solver
+  use amg_c_invk_solver
+  use amg_c_invt_solver
+  use amg_c_ainv_solver
+  use amg_c_invk_solver
+  use amg_c_invt_solver
+end module amg_ainv_mod

amgprec/impl/solver/amg_c_invk_solver_bld.f90

@@ -69,7 +69,7 @@ subroutine amg_c_invk_solver_bld(a,desc_a,sv,info,b,amold,vmold,imold)
        & write(debug_unit,*) me,' ',trim(name),' start'
 
 
-  call psb_invk_bld(a,sv%fill_in,sv%inv_fill,&
+  call psb_invk_fact(a,sv%fill_in,sv%inv_fill,&
        & sv%w,sv%d,sv%z,desc_a,info,b)
 
 

amgprec/impl/solver/amg_c_invt_solver_bld.f90

@@ -67,7 +67,7 @@ subroutine amg_c_invt_solver_bld(a,desc_a,sv,info,b,amold,vmold,imold)
        & write(debug_unit,*) me,' ',trim(name),' start'
 
 
-  call psb_invt_bld(a,sv%fill_in,sv%inv_fill,&
+  call psb_invt_fact(a,sv%fill_in,sv%inv_fill,&
        & sv%thresh,sv%inv_thresh,&
        & sv%w,sv%d,sv%z,desc_a,info,b)
 

amgprec/impl/solver/amg_d_invk_solver_bld.f90

@@ -69,7 +69,7 @@ subroutine amg_d_invk_solver_bld(a,desc_a,sv,info,b,amold,vmold,imold)
        & write(debug_unit,*) me,' ',trim(name),' start'
 
 
-  call psb_invk_bld(a,sv%fill_in,sv%inv_fill,&
+  call psb_invk_fact(a,sv%fill_in,sv%inv_fill,&
        & sv%w,sv%d,sv%z,desc_a,info,b)
 
 

amgprec/impl/solver/amg_d_invt_solver_bld.f90

@@ -67,7 +67,7 @@ subroutine amg_d_invt_solver_bld(a,desc_a,sv,info,b,amold,vmold,imold)
        & write(debug_unit,*) me,' ',trim(name),' start'
 
 
-  call psb_invt_bld(a,sv%fill_in,sv%inv_fill,&
+  call psb_invt_fact(a,sv%fill_in,sv%inv_fill,&
        & sv%thresh,sv%inv_thresh,&
        & sv%w,sv%d,sv%z,desc_a,info,b)
 

amgprec/impl/solver/amg_s_invk_solver_bld.f90

@@ -69,7 +69,7 @@ subroutine amg_s_invk_solver_bld(a,desc_a,sv,info,b,amold,vmold,imold)
        & write(debug_unit,*) me,' ',trim(name),' start'
 
 
-  call psb_invk_bld(a,sv%fill_in,sv%inv_fill,&
+  call psb_invk_fact(a,sv%fill_in,sv%inv_fill,&
        & sv%w,sv%d,sv%z,desc_a,info,b)
 
 

amgprec/impl/solver/amg_s_invt_solver_bld.f90

@@ -67,7 +67,7 @@ subroutine amg_s_invt_solver_bld(a,desc_a,sv,info,b,amold,vmold,imold)
        & write(debug_unit,*) me,' ',trim(name),' start'
 
 
-  call psb_invt_bld(a,sv%fill_in,sv%inv_fill,&
+  call psb_invt_fact(a,sv%fill_in,sv%inv_fill,&
        & sv%thresh,sv%inv_thresh,&
        & sv%w,sv%d,sv%z,desc_a,info,b)
 

amgprec/impl/solver/amg_z_invk_solver_bld.f90

@@ -69,7 +69,7 @@ subroutine amg_z_invk_solver_bld(a,desc_a,sv,info,b,amold,vmold,imold)
        & write(debug_unit,*) me,' ',trim(name),' start'
 
 
-  call psb_invk_bld(a,sv%fill_in,sv%inv_fill,&
+  call psb_invk_fact(a,sv%fill_in,sv%inv_fill,&
        & sv%w,sv%d,sv%z,desc_a,info,b)
 
 

amgprec/impl/solver/amg_z_invt_solver_bld.f90

@@ -67,7 +67,7 @@ subroutine amg_z_invt_solver_bld(a,desc_a,sv,info,b,amold,vmold,imold)
        & write(debug_unit,*) me,' ',trim(name),' start'
 
 
-  call psb_invt_bld(a,sv%fill_in,sv%inv_fill,&
+  call psb_invt_fact(a,sv%fill_in,sv%inv_fill,&
        & sv%thresh,sv%inv_thresh,&
        & sv%w,sv%d,sv%z,desc_a,info,b)