mirror of
https://github.com/sfilippone/amg4psblas.git
synced 2026-10-06 22:55:12 +00:00
Fix USE statement
This commit is contained in:
@@ -81,7 +81,7 @@
|
||||
subroutine amg_c_smoothers_bld(a,desc_a,prec,info,amold,vmold,imold)
|
||||
|
||||
use psb_base_mod
|
||||
use amg_c_prec_type
|
||||
use amg_c_prec_type, amg_protect_name => amg_c_smoothers_bld
|
||||
|
||||
Implicit None
|
||||
|
||||
|
||||
@@ -81,7 +81,7 @@
|
||||
subroutine amg_d_smoothers_bld(a,desc_a,prec,info,amold,vmold,imold)
|
||||
|
||||
use psb_base_mod
|
||||
use amg_d_prec_type
|
||||
use amg_d_prec_type, amg_protect_name => amg_d_smoothers_bld
|
||||
|
||||
Implicit None
|
||||
|
||||
|
||||
@@ -81,7 +81,7 @@
|
||||
subroutine amg_s_smoothers_bld(a,desc_a,prec,info,amold,vmold,imold)
|
||||
|
||||
use psb_base_mod
|
||||
use amg_s_prec_type
|
||||
use amg_s_prec_type, amg_protect_name => amg_s_smoothers_bld
|
||||
|
||||
Implicit None
|
||||
|
||||
|
||||
@@ -81,7 +81,7 @@
|
||||
subroutine amg_z_smoothers_bld(a,desc_a,prec,info,amold,vmold,imold)
|
||||
|
||||
use psb_base_mod
|
||||
use amg_z_prec_type
|
||||
use amg_z_prec_type, amg_protect_name => amg_z_smoothers_bld
|
||||
|
||||
Implicit None
|
||||
|
||||
|
||||
Reference in New Issue
Block a user