psblas3:

base/modules/psb_base_linmap_mod.f90 Broken name of called generic.
12 years ago · 4b95f5cba0
parent b508c9ad85
commit 4b95f5cba0
1 changed files with 2 additions and 2 deletions
--- a/base/modules/psb_base_linmap_mod.f90
+++ b/base/modules/psb_base_linmap_mod.f90
@ -166,8 +166,8 @@ contains
    integer(psb_ipk_)     :: info 

    mapout%kind = map%kind
-    call psb_safe_ab_copy(map%iaggr,mapout%iaggr,info)
-    call psb_safe_ab_copy(map%naggr,mapout%naggr,info)
+    call psb_safe_ab_cpy(map%iaggr,mapout%iaggr,info)
+    call psb_safe_ab_cpy(map%naggr,mapout%naggr,info)
    mapout%p_desc_X => map%p_desc_X 
    mapout%p_desc_Y => map%p_desc_Y
    call map%desc_X%clone(mapout%desc_X,info)