fdurastante/psblas3
1
0
Fork 0
mirror of https://github.com/sfilippone/psblas3.git synced 2026-10-16 10:52:08 +00:00
Code Issues Packages Projects Releases Wiki Activity

psblas3:

Browse Source 
base/modules/psb_base_linmap_mod.f90

Broken name of called generic.
This commit is contained in:
Salvatore Filippone
2013-03-31 21:09:13 +00:00
parent b508c9ad85
commit 4b95f5cba0
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files
base/modules/psb_base_linmap_mod.f90
+2 -2
View File
@@ -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)