diff --git a/amgprec/amg_c_ainv_solver.F90 b/amgprec/amg_c_ainv_solver.F90 index fa9c7bf0..b3e5c376 100644 --- a/amgprec/amg_c_ainv_solver.F90 +++ b/amgprec/amg_c_ainv_solver.F90 @@ -62,9 +62,6 @@ module amg_c_ainv_solver procedure, pass(sv) :: cseti => amg_c_ainv_solver_cseti procedure, pass(sv) :: csetc => amg_c_ainv_solver_csetc procedure, pass(sv) :: csetr => amg_c_ainv_solver_csetr -!!$ procedure, pass(sv) :: seti => amg_c_ainv_solver_seti -!!$ procedure, pass(sv) :: setc => amg_c_ainv_solver_setc -!!$ procedure, pass(sv) :: setr => amg_c_ainv_solver_setr procedure, pass(sv) :: descr => amg_c_ainv_solver_descr procedure, pass(sv) :: default => c_ainv_solver_default procedure, nopass :: stringval => c_ainv_stringval diff --git a/amgprec/amg_d_ainv_solver.F90 b/amgprec/amg_d_ainv_solver.F90 index 7045082d..1ae413f1 100644 --- a/amgprec/amg_d_ainv_solver.F90 +++ b/amgprec/amg_d_ainv_solver.F90 @@ -62,9 +62,6 @@ module amg_d_ainv_solver procedure, pass(sv) :: cseti => amg_d_ainv_solver_cseti procedure, pass(sv) :: csetc => amg_d_ainv_solver_csetc procedure, pass(sv) :: csetr => amg_d_ainv_solver_csetr -!!$ procedure, pass(sv) :: seti => amg_d_ainv_solver_seti -!!$ procedure, pass(sv) :: setc => amg_d_ainv_solver_setc -!!$ procedure, pass(sv) :: setr => amg_d_ainv_solver_setr procedure, pass(sv) :: descr => amg_d_ainv_solver_descr procedure, pass(sv) :: default => d_ainv_solver_default procedure, nopass :: stringval => d_ainv_stringval diff --git a/amgprec/amg_s_ainv_solver.F90 b/amgprec/amg_s_ainv_solver.F90 index 665a868f..18ad64ba 100644 --- a/amgprec/amg_s_ainv_solver.F90 +++ b/amgprec/amg_s_ainv_solver.F90 @@ -62,9 +62,6 @@ module amg_s_ainv_solver procedure, pass(sv) :: cseti => amg_s_ainv_solver_cseti procedure, pass(sv) :: csetc => amg_s_ainv_solver_csetc procedure, pass(sv) :: csetr => amg_s_ainv_solver_csetr -!!$ procedure, pass(sv) :: seti => amg_s_ainv_solver_seti -!!$ procedure, pass(sv) :: setc => amg_s_ainv_solver_setc -!!$ procedure, pass(sv) :: setr => amg_s_ainv_solver_setr procedure, pass(sv) :: descr => amg_s_ainv_solver_descr procedure, pass(sv) :: default => s_ainv_solver_default procedure, nopass :: stringval => s_ainv_stringval diff --git a/amgprec/amg_z_ainv_solver.F90 b/amgprec/amg_z_ainv_solver.F90 index b0634900..b0b12fc9 100644 --- a/amgprec/amg_z_ainv_solver.F90 +++ b/amgprec/amg_z_ainv_solver.F90 @@ -62,9 +62,6 @@ module amg_z_ainv_solver procedure, pass(sv) :: cseti => amg_z_ainv_solver_cseti procedure, pass(sv) :: csetc => amg_z_ainv_solver_csetc procedure, pass(sv) :: csetr => amg_z_ainv_solver_csetr -!!$ procedure, pass(sv) :: seti => amg_z_ainv_solver_seti -!!$ procedure, pass(sv) :: setc => amg_z_ainv_solver_setc -!!$ procedure, pass(sv) :: setr => amg_z_ainv_solver_setr procedure, pass(sv) :: descr => amg_z_ainv_solver_descr procedure, pass(sv) :: default => z_ainv_solver_default procedure, nopass :: stringval => z_ainv_stringval diff --git a/amgprec/impl/solver/amg_c_ainv_solver_setc.f90 b/amgprec/impl/solver/amg_c_ainv_solver_setc.f90 deleted file mode 100644 index 2c3eccdc..00000000 --- a/amgprec/impl/solver/amg_c_ainv_solver_setc.f90 +++ /dev/null @@ -1,71 +0,0 @@ -! -! -! 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. -! -! -subroutine amg_c_ainv_solver_setc(sv,what,val,info) - - - use psb_base_mod - use amg_c_ainv_solver, amg_protect_name => amg_c_ainv_solver_setc - - Implicit None - - ! Arguments - class(amg_c_ainv_solver_type), intent(inout) :: sv - integer(psb_ipk_), intent(in) :: what - character(len=*), intent(in) :: val - integer(psb_ipk_), intent(out) :: info - ! - integer(psb_ipk_) :: err_act, ival - character(len=20) :: name='amg_c_ainv_solver_setc' - - info = psb_success_ - call psb_erractionsave(err_act) - - ival = sv%stringval(val) - if (ival >=0) then - call sv%set(what,ival,info) - end if - - if (info /= psb_success_) then - info = psb_err_from_subroutine_ - call psb_errpush(info, name) - goto 9999 - end if - - call psb_erractionrestore(err_act) - return - -9999 call psb_error_handler(err_act) - return -end subroutine amg_c_ainv_solver_setc diff --git a/amgprec/impl/solver/amg_c_ainv_solver_seti.f90 b/amgprec/impl/solver/amg_c_ainv_solver_seti.f90 deleted file mode 100644 index 8d52497f..00000000 --- a/amgprec/impl/solver/amg_c_ainv_solver_seti.f90 +++ /dev/null @@ -1,70 +0,0 @@ -! -! -! 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. -! -! -subroutine amg_c_ainv_solver_seti(sv,what,val,info) - - - use psb_base_mod - use amg_c_ainv_solver, amg_protect_name => amg_c_ainv_solver_seti - - Implicit None - - ! Arguments - class(amg_c_ainv_solver_type), intent(inout) :: sv - integer(psb_ipk_), intent(in) :: what - integer(psb_ipk_), intent(in) :: val - integer(psb_ipk_), intent(out) :: info - ! - integer(psb_ipk_) :: err_act - character(len=20) :: name='amg_c_ainv_solver_seti' - - info = psb_success_ - call psb_erractionsave(err_act) - - select case(what) - case(amg_sub_fillin_) - sv%fill_in = val - case(amg_ainv_alg_) - sv%alg = val - case default -!!$ write(0,*) name,': Error: invalid WHAT' -!!$ info = -2 - end select - - call psb_erractionrestore(err_act) - return - -9999 call psb_error_handler(err_act) - return -end subroutine amg_c_ainv_solver_seti diff --git a/amgprec/impl/solver/amg_c_ainv_solver_setr.f90 b/amgprec/impl/solver/amg_c_ainv_solver_setr.f90 deleted file mode 100644 index 7dbe0fa7..00000000 --- a/amgprec/impl/solver/amg_c_ainv_solver_setr.f90 +++ /dev/null @@ -1,69 +0,0 @@ -! -! -! 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. -! -! -subroutine amg_c_ainv_solver_setr(sv,what,val,info) - - - use psb_base_mod - use amg_c_ainv_solver, amg_protect_name => amg_c_ainv_solver_setr - - Implicit None - - ! Arguments - class(amg_c_ainv_solver_type), intent(inout) :: sv - integer(psb_ipk_), intent(in) :: what - real(psb_spk_), intent(in) :: val - integer(psb_ipk_), intent(out) :: info - ! - integer(psb_ipk_) :: err_act - character(len=20) :: name='amg_c_ainv_solver_setr' - - call psb_erractionsave(err_act) - info = psb_success_ - - select case(what) - case(amg_sub_iluthrs_) - sv%thresh = val - case default -!!$ write(0,*) name,': Error: invalid WHAT' -!!$ info = -2 -!!$ goto 9999 - end select - - call psb_erractionrestore(err_act) - return - -9999 call psb_error_handler(err_act) - return -end subroutine amg_c_ainv_solver_setr diff --git a/amgprec/impl/solver/amg_c_invk_solver_seti.f90 b/amgprec/impl/solver/amg_c_invk_solver_seti.f90 deleted file mode 100644 index 52c23eb8..00000000 --- a/amgprec/impl/solver/amg_c_invk_solver_seti.f90 +++ /dev/null @@ -1,69 +0,0 @@ -! -! -! 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. -! -! -subroutine amg_c_invk_solver_seti(sv,what,val,info) - - - use psb_base_mod - use amg_c_invk_solver, amg_protect_name => amg_c_invk_solver_seti - - Implicit None - - ! Arguments - class(amg_c_invk_solver_type), intent(inout) :: sv - integer(psb_ipk_), intent(in) :: what - integer(psb_ipk_), intent(in) :: val - integer(psb_ipk_), intent(out) :: info - ! - integer(psb_ipk_) :: err_act - character(len=20) :: name='d_invk_solver_seti' - - info = psb_success_ - call psb_erractionsave(err_act) - - select case(what) - case(amg_sub_fillin_) - sv%fill_in = val - case(amg_inv_fillin_) - sv%inv_fill = val - case default - ! call sv%amg_c_base_solver_type%set(what,val,info) - end select - - call psb_erractionrestore(err_act) - return - -9999 call psb_error_handler(err_act) - return -end subroutine amg_c_invk_solver_seti diff --git a/amgprec/impl/solver/amg_c_invt_solver_seti.f90 b/amgprec/impl/solver/amg_c_invt_solver_seti.f90 deleted file mode 100644 index 3cd19581..00000000 --- a/amgprec/impl/solver/amg_c_invt_solver_seti.f90 +++ /dev/null @@ -1,70 +0,0 @@ -! -! -! 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. -! -! -subroutine amg_c_invt_solver_seti(sv,what,val,info) - - - use psb_base_mod - use amg_c_invt_solver, amg_protect_name => amg_c_invt_solver_seti - - Implicit None - - ! Arguments - class(amg_c_invt_solver_type), intent(inout) :: sv - integer(psb_ipk_), intent(in) :: what - integer(psb_ipk_), intent(in) :: val - integer(psb_ipk_), intent(out) :: info - ! - Integer(Psb_Ipk_) :: err_act - character(len=20) :: name='amg_c_invt_solver_seti' - - info = psb_success_ - call psb_erractionsave(err_act) - - select case(what) - case(amg_sub_fillin_) - sv%fill_in = val - case(amg_inv_fillin_) - sv%inv_fill = val - case default -!!$ write(0,*) name,': Error: invalid WHAT' -!!$ info = -2 - end select - - call psb_erractionrestore(err_act) - return - -9999 call psb_error_handler(err_act) - return -end subroutine amg_c_invt_solver_seti diff --git a/amgprec/impl/solver/amg_c_invt_solver_setr.f90 b/amgprec/impl/solver/amg_c_invt_solver_setr.f90 deleted file mode 100644 index eec1287f..00000000 --- a/amgprec/impl/solver/amg_c_invt_solver_setr.f90 +++ /dev/null @@ -1,69 +0,0 @@ -! -! -! 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. -! -! -subroutine amg_c_invt_solver_setr(sv,what,val,info) - - - use psb_base_mod - use amg_c_invt_solver, amg_protect_name => amg_c_invt_solver_setr - - Implicit None - - ! Arguments - class(amg_c_invt_solver_type), intent(inout) :: sv - integer(psb_ipk_), intent(in) :: what - real(psb_spk_), intent(in) :: val - integer(psb_ipk_), intent(out) :: info - ! - Integer(Psb_Ipk_) :: err_act - character(len=20) :: name='amg_c_invt_solver_setr' - - call psb_erractionsave(err_act) - info = psb_success_ - - select case(what) - case(amg_sub_iluthrs_) - sv%thresh = val - case(amg_inv_thresh_) - sv%inv_thresh = val - case default - ! call sv%amg_c_base_solver_type%set(what,val,info) - end select - - call psb_erractionrestore(err_act) - return - -9999 call psb_error_handler(err_act) - return -end subroutine amg_c_invt_solver_setr diff --git a/amgprec/impl/solver/amg_d_ainv_solver_setc.f90 b/amgprec/impl/solver/amg_d_ainv_solver_setc.f90 deleted file mode 100644 index 260f8a84..00000000 --- a/amgprec/impl/solver/amg_d_ainv_solver_setc.f90 +++ /dev/null @@ -1,71 +0,0 @@ -! -! -! 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. -! -! -subroutine amg_d_ainv_solver_setc(sv,what,val,info) - - - use psb_base_mod - use amg_d_ainv_solver, amg_protect_name => amg_d_ainv_solver_setc - - Implicit None - - ! Arguments - class(amg_d_ainv_solver_type), intent(inout) :: sv - integer(psb_ipk_), intent(in) :: what - character(len=*), intent(in) :: val - integer(psb_ipk_), intent(out) :: info - ! - integer(psb_ipk_) :: err_act, ival - character(len=20) :: name='amg_d_ainv_solver_setc' - - info = psb_success_ - call psb_erractionsave(err_act) - - ival = sv%stringval(val) - if (ival >=0) then - call sv%set(what,ival,info) - end if - - if (info /= psb_success_) then - info = psb_err_from_subroutine_ - call psb_errpush(info, name) - goto 9999 - end if - - call psb_erractionrestore(err_act) - return - -9999 call psb_error_handler(err_act) - return -end subroutine amg_d_ainv_solver_setc diff --git a/amgprec/impl/solver/amg_d_ainv_solver_seti.f90 b/amgprec/impl/solver/amg_d_ainv_solver_seti.f90 deleted file mode 100644 index 2d7c5a64..00000000 --- a/amgprec/impl/solver/amg_d_ainv_solver_seti.f90 +++ /dev/null @@ -1,70 +0,0 @@ -! -! -! 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. -! -! -subroutine amg_d_ainv_solver_seti(sv,what,val,info) - - - use psb_base_mod - use amg_d_ainv_solver, amg_protect_name => amg_d_ainv_solver_seti - - Implicit None - - ! Arguments - class(amg_d_ainv_solver_type), intent(inout) :: sv - integer(psb_ipk_), intent(in) :: what - integer(psb_ipk_), intent(in) :: val - integer(psb_ipk_), intent(out) :: info - ! - integer(psb_ipk_) :: err_act - character(len=20) :: name='amg_d_ainv_solver_seti' - - info = psb_success_ - call psb_erractionsave(err_act) - - select case(what) - case(amg_sub_fillin_) - sv%fill_in = val - case(amg_ainv_alg_) - sv%alg = val - case default -!!$ write(0,*) name,': Error: invalid WHAT' -!!$ info = -2 - end select - - call psb_erractionrestore(err_act) - return - -9999 call psb_error_handler(err_act) - return -end subroutine amg_d_ainv_solver_seti diff --git a/amgprec/impl/solver/amg_d_ainv_solver_setr.f90 b/amgprec/impl/solver/amg_d_ainv_solver_setr.f90 deleted file mode 100644 index 6a816c16..00000000 --- a/amgprec/impl/solver/amg_d_ainv_solver_setr.f90 +++ /dev/null @@ -1,69 +0,0 @@ -! -! -! 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. -! -! -subroutine amg_d_ainv_solver_setr(sv,what,val,info) - - - use psb_base_mod - use amg_d_ainv_solver, amg_protect_name => amg_d_ainv_solver_setr - - Implicit None - - ! Arguments - class(amg_d_ainv_solver_type), intent(inout) :: sv - integer(psb_ipk_), intent(in) :: what - real(psb_dpk_), intent(in) :: val - integer(psb_ipk_), intent(out) :: info - ! - integer(psb_ipk_) :: err_act - character(len=20) :: name='amg_d_ainv_solver_setr' - - call psb_erractionsave(err_act) - info = psb_success_ - - select case(what) - case(amg_sub_iluthrs_) - sv%thresh = val - case default -!!$ write(0,*) name,': Error: invalid WHAT' -!!$ info = -2 -!!$ goto 9999 - end select - - call psb_erractionrestore(err_act) - return - -9999 call psb_error_handler(err_act) - return -end subroutine amg_d_ainv_solver_setr diff --git a/amgprec/impl/solver/amg_d_invk_solver_seti.f90 b/amgprec/impl/solver/amg_d_invk_solver_seti.f90 deleted file mode 100644 index 61ba5c51..00000000 --- a/amgprec/impl/solver/amg_d_invk_solver_seti.f90 +++ /dev/null @@ -1,69 +0,0 @@ -! -! -! 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. -! -! -subroutine amg_d_invk_solver_seti(sv,what,val,info) - - - use psb_base_mod - use amg_d_invk_solver, amg_protect_name => amg_d_invk_solver_seti - - Implicit None - - ! Arguments - class(amg_d_invk_solver_type), intent(inout) :: sv - integer(psb_ipk_), intent(in) :: what - integer(psb_ipk_), intent(in) :: val - integer(psb_ipk_), intent(out) :: info - ! - integer(psb_ipk_) :: err_act - character(len=20) :: name='d_invk_solver_seti' - - info = psb_success_ - call psb_erractionsave(err_act) - - select case(what) - case(amg_sub_fillin_) - sv%fill_in = val - case(amg_inv_fillin_) - sv%inv_fill = val - case default - ! call sv%amg_d_base_solver_type%set(what,val,info) - end select - - call psb_erractionrestore(err_act) - return - -9999 call psb_error_handler(err_act) - return -end subroutine amg_d_invk_solver_seti diff --git a/amgprec/impl/solver/amg_d_invt_solver_seti.f90 b/amgprec/impl/solver/amg_d_invt_solver_seti.f90 deleted file mode 100644 index 6690f4a8..00000000 --- a/amgprec/impl/solver/amg_d_invt_solver_seti.f90 +++ /dev/null @@ -1,70 +0,0 @@ -! -! -! 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. -! -! -subroutine amg_d_invt_solver_seti(sv,what,val,info) - - - use psb_base_mod - use amg_d_invt_solver, amg_protect_name => amg_d_invt_solver_seti - - Implicit None - - ! Arguments - class(amg_d_invt_solver_type), intent(inout) :: sv - integer(psb_ipk_), intent(in) :: what - integer(psb_ipk_), intent(in) :: val - integer(psb_ipk_), intent(out) :: info - ! - Integer(Psb_Ipk_) :: err_act - character(len=20) :: name='amg_d_invt_solver_seti' - - info = psb_success_ - call psb_erractionsave(err_act) - - select case(what) - case(amg_sub_fillin_) - sv%fill_in = val - case(amg_inv_fillin_) - sv%inv_fill = val - case default -!!$ write(0,*) name,': Error: invalid WHAT' -!!$ info = -2 - end select - - call psb_erractionrestore(err_act) - return - -9999 call psb_error_handler(err_act) - return -end subroutine amg_d_invt_solver_seti diff --git a/amgprec/impl/solver/amg_d_invt_solver_setr.f90 b/amgprec/impl/solver/amg_d_invt_solver_setr.f90 deleted file mode 100644 index 059c76f2..00000000 --- a/amgprec/impl/solver/amg_d_invt_solver_setr.f90 +++ /dev/null @@ -1,69 +0,0 @@ -! -! -! 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. -! -! -subroutine amg_d_invt_solver_setr(sv,what,val,info) - - - use psb_base_mod - use amg_d_invt_solver, amg_protect_name => amg_d_invt_solver_setr - - Implicit None - - ! Arguments - class(amg_d_invt_solver_type), intent(inout) :: sv - integer(psb_ipk_), intent(in) :: what - real(psb_dpk_), intent(in) :: val - integer(psb_ipk_), intent(out) :: info - ! - Integer(Psb_Ipk_) :: err_act - character(len=20) :: name='amg_d_invt_solver_setr' - - call psb_erractionsave(err_act) - info = psb_success_ - - select case(what) - case(amg_sub_iluthrs_) - sv%thresh = val - case(amg_inv_thresh_) - sv%inv_thresh = val - case default - ! call sv%amg_d_base_solver_type%set(what,val,info) - end select - - call psb_erractionrestore(err_act) - return - -9999 call psb_error_handler(err_act) - return -end subroutine amg_d_invt_solver_setr diff --git a/amgprec/impl/solver/amg_s_ainv_solver_setc.f90 b/amgprec/impl/solver/amg_s_ainv_solver_setc.f90 deleted file mode 100644 index c86fc580..00000000 --- a/amgprec/impl/solver/amg_s_ainv_solver_setc.f90 +++ /dev/null @@ -1,71 +0,0 @@ -! -! -! 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. -! -! -subroutine amg_s_ainv_solver_setc(sv,what,val,info) - - - use psb_base_mod - use amg_s_ainv_solver, amg_protect_name => amg_s_ainv_solver_setc - - Implicit None - - ! Arguments - class(amg_s_ainv_solver_type), intent(inout) :: sv - integer(psb_ipk_), intent(in) :: what - character(len=*), intent(in) :: val - integer(psb_ipk_), intent(out) :: info - ! - integer(psb_ipk_) :: err_act, ival - character(len=20) :: name='amg_s_ainv_solver_setc' - - info = psb_success_ - call psb_erractionsave(err_act) - - ival = sv%stringval(val) - if (ival >=0) then - call sv%set(what,ival,info) - end if - - if (info /= psb_success_) then - info = psb_err_from_subroutine_ - call psb_errpush(info, name) - goto 9999 - end if - - call psb_erractionrestore(err_act) - return - -9999 call psb_error_handler(err_act) - return -end subroutine amg_s_ainv_solver_setc diff --git a/amgprec/impl/solver/amg_s_ainv_solver_seti.f90 b/amgprec/impl/solver/amg_s_ainv_solver_seti.f90 deleted file mode 100644 index 8aa73595..00000000 --- a/amgprec/impl/solver/amg_s_ainv_solver_seti.f90 +++ /dev/null @@ -1,70 +0,0 @@ -! -! -! 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. -! -! -subroutine amg_s_ainv_solver_seti(sv,what,val,info) - - - use psb_base_mod - use amg_s_ainv_solver, amg_protect_name => amg_s_ainv_solver_seti - - Implicit None - - ! Arguments - class(amg_s_ainv_solver_type), intent(inout) :: sv - integer(psb_ipk_), intent(in) :: what - integer(psb_ipk_), intent(in) :: val - integer(psb_ipk_), intent(out) :: info - ! - integer(psb_ipk_) :: err_act - character(len=20) :: name='amg_s_ainv_solver_seti' - - info = psb_success_ - call psb_erractionsave(err_act) - - select case(what) - case(amg_sub_fillin_) - sv%fill_in = val - case(amg_ainv_alg_) - sv%alg = val - case default -!!$ write(0,*) name,': Error: invalid WHAT' -!!$ info = -2 - end select - - call psb_erractionrestore(err_act) - return - -9999 call psb_error_handler(err_act) - return -end subroutine amg_s_ainv_solver_seti diff --git a/amgprec/impl/solver/amg_s_ainv_solver_setr.f90 b/amgprec/impl/solver/amg_s_ainv_solver_setr.f90 deleted file mode 100644 index abe7dead..00000000 --- a/amgprec/impl/solver/amg_s_ainv_solver_setr.f90 +++ /dev/null @@ -1,69 +0,0 @@ -! -! -! 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. -! -! -subroutine amg_s_ainv_solver_setr(sv,what,val,info) - - - use psb_base_mod - use amg_s_ainv_solver, amg_protect_name => amg_s_ainv_solver_setr - - Implicit None - - ! Arguments - class(amg_s_ainv_solver_type), intent(inout) :: sv - integer(psb_ipk_), intent(in) :: what - real(psb_spk_), intent(in) :: val - integer(psb_ipk_), intent(out) :: info - ! - integer(psb_ipk_) :: err_act - character(len=20) :: name='amg_s_ainv_solver_setr' - - call psb_erractionsave(err_act) - info = psb_success_ - - select case(what) - case(amg_sub_iluthrs_) - sv%thresh = val - case default -!!$ write(0,*) name,': Error: invalid WHAT' -!!$ info = -2 -!!$ goto 9999 - end select - - call psb_erractionrestore(err_act) - return - -9999 call psb_error_handler(err_act) - return -end subroutine amg_s_ainv_solver_setr diff --git a/amgprec/impl/solver/amg_s_invk_solver_seti.f90 b/amgprec/impl/solver/amg_s_invk_solver_seti.f90 deleted file mode 100644 index f6f1efee..00000000 --- a/amgprec/impl/solver/amg_s_invk_solver_seti.f90 +++ /dev/null @@ -1,69 +0,0 @@ -! -! -! 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. -! -! -subroutine amg_s_invk_solver_seti(sv,what,val,info) - - - use psb_base_mod - use amg_s_invk_solver, amg_protect_name => amg_s_invk_solver_seti - - Implicit None - - ! Arguments - class(amg_s_invk_solver_type), intent(inout) :: sv - integer(psb_ipk_), intent(in) :: what - integer(psb_ipk_), intent(in) :: val - integer(psb_ipk_), intent(out) :: info - ! - integer(psb_ipk_) :: err_act - character(len=20) :: name='d_invk_solver_seti' - - info = psb_success_ - call psb_erractionsave(err_act) - - select case(what) - case(amg_sub_fillin_) - sv%fill_in = val - case(amg_inv_fillin_) - sv%inv_fill = val - case default - ! call sv%amg_s_base_solver_type%set(what,val,info) - end select - - call psb_erractionrestore(err_act) - return - -9999 call psb_error_handler(err_act) - return -end subroutine amg_s_invk_solver_seti diff --git a/amgprec/impl/solver/amg_s_invt_solver_seti.f90 b/amgprec/impl/solver/amg_s_invt_solver_seti.f90 deleted file mode 100644 index 7fa8567d..00000000 --- a/amgprec/impl/solver/amg_s_invt_solver_seti.f90 +++ /dev/null @@ -1,70 +0,0 @@ -! -! -! 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. -! -! -subroutine amg_s_invt_solver_seti(sv,what,val,info) - - - use psb_base_mod - use amg_s_invt_solver, amg_protect_name => amg_s_invt_solver_seti - - Implicit None - - ! Arguments - class(amg_s_invt_solver_type), intent(inout) :: sv - integer(psb_ipk_), intent(in) :: what - integer(psb_ipk_), intent(in) :: val - integer(psb_ipk_), intent(out) :: info - ! - Integer(Psb_Ipk_) :: err_act - character(len=20) :: name='amg_s_invt_solver_seti' - - info = psb_success_ - call psb_erractionsave(err_act) - - select case(what) - case(amg_sub_fillin_) - sv%fill_in = val - case(amg_inv_fillin_) - sv%inv_fill = val - case default -!!$ write(0,*) name,': Error: invalid WHAT' -!!$ info = -2 - end select - - call psb_erractionrestore(err_act) - return - -9999 call psb_error_handler(err_act) - return -end subroutine amg_s_invt_solver_seti diff --git a/amgprec/impl/solver/amg_s_invt_solver_setr.f90 b/amgprec/impl/solver/amg_s_invt_solver_setr.f90 deleted file mode 100644 index d8bb8052..00000000 --- a/amgprec/impl/solver/amg_s_invt_solver_setr.f90 +++ /dev/null @@ -1,69 +0,0 @@ -! -! -! 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. -! -! -subroutine amg_s_invt_solver_setr(sv,what,val,info) - - - use psb_base_mod - use amg_s_invt_solver, amg_protect_name => amg_s_invt_solver_setr - - Implicit None - - ! Arguments - class(amg_s_invt_solver_type), intent(inout) :: sv - integer(psb_ipk_), intent(in) :: what - real(psb_spk_), intent(in) :: val - integer(psb_ipk_), intent(out) :: info - ! - Integer(Psb_Ipk_) :: err_act - character(len=20) :: name='amg_s_invt_solver_setr' - - call psb_erractionsave(err_act) - info = psb_success_ - - select case(what) - case(amg_sub_iluthrs_) - sv%thresh = val - case(amg_inv_thresh_) - sv%inv_thresh = val - case default - ! call sv%amg_s_base_solver_type%set(what,val,info) - end select - - call psb_erractionrestore(err_act) - return - -9999 call psb_error_handler(err_act) - return -end subroutine amg_s_invt_solver_setr diff --git a/amgprec/impl/solver/amg_z_ainv_solver_setc.f90 b/amgprec/impl/solver/amg_z_ainv_solver_setc.f90 deleted file mode 100644 index fec47cd5..00000000 --- a/amgprec/impl/solver/amg_z_ainv_solver_setc.f90 +++ /dev/null @@ -1,71 +0,0 @@ -! -! -! 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. -! -! -subroutine amg_z_ainv_solver_setc(sv,what,val,info) - - - use psb_base_mod - use amg_z_ainv_solver, amg_protect_name => amg_z_ainv_solver_setc - - Implicit None - - ! Arguments - class(amg_z_ainv_solver_type), intent(inout) :: sv - integer(psb_ipk_), intent(in) :: what - character(len=*), intent(in) :: val - integer(psb_ipk_), intent(out) :: info - ! - integer(psb_ipk_) :: err_act, ival - character(len=20) :: name='amg_z_ainv_solver_setc' - - info = psb_success_ - call psb_erractionsave(err_act) - - ival = sv%stringval(val) - if (ival >=0) then - call sv%set(what,ival,info) - end if - - if (info /= psb_success_) then - info = psb_err_from_subroutine_ - call psb_errpush(info, name) - goto 9999 - end if - - call psb_erractionrestore(err_act) - return - -9999 call psb_error_handler(err_act) - return -end subroutine amg_z_ainv_solver_setc diff --git a/amgprec/impl/solver/amg_z_ainv_solver_seti.f90 b/amgprec/impl/solver/amg_z_ainv_solver_seti.f90 deleted file mode 100644 index 0e34866f..00000000 --- a/amgprec/impl/solver/amg_z_ainv_solver_seti.f90 +++ /dev/null @@ -1,70 +0,0 @@ -! -! -! 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. -! -! -subroutine amg_z_ainv_solver_seti(sv,what,val,info) - - - use psb_base_mod - use amg_z_ainv_solver, amg_protect_name => amg_z_ainv_solver_seti - - Implicit None - - ! Arguments - class(amg_z_ainv_solver_type), intent(inout) :: sv - integer(psb_ipk_), intent(in) :: what - integer(psb_ipk_), intent(in) :: val - integer(psb_ipk_), intent(out) :: info - ! - integer(psb_ipk_) :: err_act - character(len=20) :: name='amg_z_ainv_solver_seti' - - info = psb_success_ - call psb_erractionsave(err_act) - - select case(what) - case(amg_sub_fillin_) - sv%fill_in = val - case(amg_ainv_alg_) - sv%alg = val - case default -!!$ write(0,*) name,': Error: invalid WHAT' -!!$ info = -2 - end select - - call psb_erractionrestore(err_act) - return - -9999 call psb_error_handler(err_act) - return -end subroutine amg_z_ainv_solver_seti diff --git a/amgprec/impl/solver/amg_z_ainv_solver_setr.f90 b/amgprec/impl/solver/amg_z_ainv_solver_setr.f90 deleted file mode 100644 index 0ad516e7..00000000 --- a/amgprec/impl/solver/amg_z_ainv_solver_setr.f90 +++ /dev/null @@ -1,69 +0,0 @@ -! -! -! 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. -! -! -subroutine amg_z_ainv_solver_setr(sv,what,val,info) - - - use psb_base_mod - use amg_z_ainv_solver, amg_protect_name => amg_z_ainv_solver_setr - - Implicit None - - ! Arguments - class(amg_z_ainv_solver_type), intent(inout) :: sv - integer(psb_ipk_), intent(in) :: what - real(psb_dpk_), intent(in) :: val - integer(psb_ipk_), intent(out) :: info - ! - integer(psb_ipk_) :: err_act - character(len=20) :: name='amg_z_ainv_solver_setr' - - call psb_erractionsave(err_act) - info = psb_success_ - - select case(what) - case(amg_sub_iluthrs_) - sv%thresh = val - case default -!!$ write(0,*) name,': Error: invalid WHAT' -!!$ info = -2 -!!$ goto 9999 - end select - - call psb_erractionrestore(err_act) - return - -9999 call psb_error_handler(err_act) - return -end subroutine amg_z_ainv_solver_setr diff --git a/amgprec/impl/solver/amg_z_invk_solver_seti.f90 b/amgprec/impl/solver/amg_z_invk_solver_seti.f90 deleted file mode 100644 index f5299d6a..00000000 --- a/amgprec/impl/solver/amg_z_invk_solver_seti.f90 +++ /dev/null @@ -1,69 +0,0 @@ -! -! -! 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. -! -! -subroutine amg_z_invk_solver_seti(sv,what,val,info) - - - use psb_base_mod - use amg_z_invk_solver, amg_protect_name => amg_z_invk_solver_seti - - Implicit None - - ! Arguments - class(amg_z_invk_solver_type), intent(inout) :: sv - integer(psb_ipk_), intent(in) :: what - integer(psb_ipk_), intent(in) :: val - integer(psb_ipk_), intent(out) :: info - ! - integer(psb_ipk_) :: err_act - character(len=20) :: name='d_invk_solver_seti' - - info = psb_success_ - call psb_erractionsave(err_act) - - select case(what) - case(amg_sub_fillin_) - sv%fill_in = val - case(amg_inv_fillin_) - sv%inv_fill = val - case default - ! call sv%amg_z_base_solver_type%set(what,val,info) - end select - - call psb_erractionrestore(err_act) - return - -9999 call psb_error_handler(err_act) - return -end subroutine amg_z_invk_solver_seti diff --git a/amgprec/impl/solver/amg_z_invt_solver_seti.f90 b/amgprec/impl/solver/amg_z_invt_solver_seti.f90 deleted file mode 100644 index bc4bca10..00000000 --- a/amgprec/impl/solver/amg_z_invt_solver_seti.f90 +++ /dev/null @@ -1,70 +0,0 @@ -! -! -! 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. -! -! -subroutine amg_z_invt_solver_seti(sv,what,val,info) - - - use psb_base_mod - use amg_z_invt_solver, amg_protect_name => amg_z_invt_solver_seti - - Implicit None - - ! Arguments - class(amg_z_invt_solver_type), intent(inout) :: sv - integer(psb_ipk_), intent(in) :: what - integer(psb_ipk_), intent(in) :: val - integer(psb_ipk_), intent(out) :: info - ! - Integer(Psb_Ipk_) :: err_act - character(len=20) :: name='amg_z_invt_solver_seti' - - info = psb_success_ - call psb_erractionsave(err_act) - - select case(what) - case(amg_sub_fillin_) - sv%fill_in = val - case(amg_inv_fillin_) - sv%inv_fill = val - case default -!!$ write(0,*) name,': Error: invalid WHAT' -!!$ info = -2 - end select - - call psb_erractionrestore(err_act) - return - -9999 call psb_error_handler(err_act) - return -end subroutine amg_z_invt_solver_seti diff --git a/amgprec/impl/solver/amg_z_invt_solver_setr.f90 b/amgprec/impl/solver/amg_z_invt_solver_setr.f90 deleted file mode 100644 index 49fd2c4d..00000000 --- a/amgprec/impl/solver/amg_z_invt_solver_setr.f90 +++ /dev/null @@ -1,69 +0,0 @@ -! -! -! 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. -! -! -subroutine amg_z_invt_solver_setr(sv,what,val,info) - - - use psb_base_mod - use amg_z_invt_solver, amg_protect_name => amg_z_invt_solver_setr - - Implicit None - - ! Arguments - class(amg_z_invt_solver_type), intent(inout) :: sv - integer(psb_ipk_), intent(in) :: what - real(psb_dpk_), intent(in) :: val - integer(psb_ipk_), intent(out) :: info - ! - Integer(Psb_Ipk_) :: err_act - character(len=20) :: name='amg_z_invt_solver_setr' - - call psb_erractionsave(err_act) - info = psb_success_ - - select case(what) - case(amg_sub_iluthrs_) - sv%thresh = val - case(amg_inv_thresh_) - sv%inv_thresh = val - case default - ! call sv%amg_z_base_solver_type%set(what,val,info) - end select - - call psb_erractionrestore(err_act) - return - -9999 call psb_error_handler(err_act) - return -end subroutine amg_z_invt_solver_setr