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

psblas3:

Browse Source 
base/serial/f03/psb_c_csc_impl.f03
 base/serial/f03/psb_c_csr_impl.f03
 base/serial/f03/psb_d_csc_impl.f03
 base/serial/f03/psb_d_csr_impl.f03
 base/serial/f03/psb_s_csc_impl.f03
 base/serial/f03/psb_s_csr_impl.f03
 base/serial/f03/psb_z_csc_impl.f03
 base/serial/f03/psb_z_csr_impl.f03

Fixed steps for CP_TO/CP_FROM/MV_TO/MV_FROM
This commit is contained in:
Salvatore Filippone
2010-08-27 15:16:01 +00:00
parent c7ac41d437
commit 96eb6077a5
8 changed files with 33 additions and 33 deletions
Download Patch File Download Diff File Expand all files Collapse all files
base/serial/f03/psb_c_csc_impl.f03
+4 -4
View File
@@ -2474,7 +2474,7 @@ subroutine psb_c_mv_csc_to_fmt(a,b,info)
call a%free()
class default
call tmp%mv_from_fmt(a,info)
call a%mv_to_coo(tmp,info)
if (info == psb_success_) call b%mv_from_coo(tmp,info)
end select
@@ -2514,7 +2514,7 @@ subroutine psb_c_cp_csc_to_fmt(a,b,info)
b%val = a%val
class default
call tmp%cp_from_fmt(a,info)
call a%cp_to_coo(tmp,info)
if (info == psb_success_) call b%mv_from_coo(tmp,info)
end select
@@ -2554,7 +2554,7 @@ subroutine psb_c_mv_csc_from_fmt(a,b,info)
call b%free()
class default
call tmp%mv_from_fmt(b,info)
call b%mv_to_coo(tmp,info)
if (info == psb_success_) call a%mv_from_coo(tmp,info)
end select
@@ -2594,7 +2594,7 @@ subroutine psb_c_cp_csc_from_fmt(a,b,info)
a%val = b%val
class default
call tmp%cp_from_fmt(b,info)
call b%cp_to_coo(tmp,info)
if (info == psb_success_) call a%mv_from_coo(tmp,info)
end select
end subroutine psb_c_cp_csc_from_fmt
base/serial/f03/psb_c_csr_impl.f03
+4 -4
View File
@@ -2609,7 +2609,7 @@ subroutine psb_c_mv_csr_to_fmt(a,b,info)
call a%free()
class default
call tmp%mv_from_fmt(a,info)
call a%mv_to_coo(tmp,info)
if (info == psb_success_) call b%mv_from_coo(tmp,info)
end select
@@ -2648,7 +2648,7 @@ subroutine psb_c_cp_csr_to_fmt(a,b,info)
b%val = a%val
class default
call tmp%cp_from_fmt(a,info)
call a%cp_to_coo(tmp,info)
if (info == psb_success_) call b%mv_from_coo(tmp,info)
end select
@@ -2687,7 +2687,7 @@ subroutine psb_c_mv_csr_from_fmt(a,b,info)
call b%free()
class default
call tmp%mv_from_fmt(b,info)
call b%mv_to_coo(tmp,info)
if (info == psb_success_) call a%mv_from_coo(tmp,info)
end select
@@ -2726,7 +2726,7 @@ subroutine psb_c_cp_csr_from_fmt(a,b,info)
a%val = b%val
class default
call tmp%cp_from_fmt(b,info)
call b%cp_to_coo(tmp,info)
if (info == psb_success_) call a%mv_from_coo(tmp,info)
end select
end subroutine psb_c_cp_csr_from_fmt
base/serial/f03/psb_d_csc_impl.f03
+4 -4
View File
@@ -2347,7 +2347,7 @@ subroutine psb_d_mv_csc_to_fmt(a,b,info)
call a%free()
class default
call tmp%mv_from_fmt(a,info)
call a%mv_to_coo(tmp,info)
if (info == psb_success_) call b%mv_from_coo(tmp,info)
end select
@@ -2387,7 +2387,7 @@ subroutine psb_d_cp_csc_to_fmt(a,b,info)
b%val = a%val
class default
call tmp%cp_from_fmt(a,info)
call a%cp_to_coo(tmp,info)
if (info == psb_success_) call b%mv_from_coo(tmp,info)
end select
@@ -2427,7 +2427,7 @@ subroutine psb_d_mv_csc_from_fmt(a,b,info)
call b%free()
class default
call tmp%mv_from_fmt(b,info)
call b%mv_to_coo(tmp,info)
if (info == psb_success_) call a%mv_from_coo(tmp,info)
end select
@@ -2467,7 +2467,7 @@ subroutine psb_d_cp_csc_from_fmt(a,b,info)
a%val = b%val
class default
call tmp%cp_from_fmt(b,info)
call b%cp_to_coo(tmp,info)
if (info == psb_success_) call a%mv_from_coo(tmp,info)
end select
end subroutine psb_d_cp_csc_from_fmt
base/serial/f03/psb_d_csr_impl.f03
+5 -5
View File
@@ -2445,7 +2445,7 @@ subroutine psb_d_cp_csr_from_coo(a,b,info)
info = psb_success_
! This is to have fix_coo called behind the scenes
call tmp%cp_from_coo(b,info)
call b%cp_to_coo(tmp,info)
if (info == psb_success_) call a%mv_from_coo(tmp,info)
end subroutine psb_d_cp_csr_from_coo
@@ -2658,7 +2658,7 @@ subroutine psb_d_mv_csr_to_fmt(a,b,info)
call a%free()
class default
call tmp%mv_from_fmt(a,info)
call a%mv_to_coo(tmp,info)
if (info == psb_success_) call b%mv_from_coo(tmp,info)
end select
@@ -2698,7 +2698,7 @@ subroutine psb_d_cp_csr_to_fmt(a,b,info)
call psb_safe_cpy( a%val, b%val , info)
class default
call tmp%cp_from_fmt(a,info)
call a%cp_to_coo(tmp,info)
if (info == psb_success_) call b%mv_from_coo(tmp,info)
end select
@@ -2737,7 +2737,7 @@ subroutine psb_d_mv_csr_from_fmt(a,b,info)
call b%free()
class default
call tmp%mv_from_fmt(b,info)
call b%mv_to_coo(tmp,info)
if (info == psb_success_) call a%mv_from_coo(tmp,info)
end select
@@ -2777,7 +2777,7 @@ subroutine psb_d_cp_csr_from_fmt(a,b,info)
call psb_safe_cpy( b%val, a%val , info)
class default
call tmp%cp_from_fmt(b,info)
call b%cp_to_coo(tmp,info)
if (info == psb_success_) call a%mv_from_coo(tmp,info)
end select
end subroutine psb_d_cp_csr_from_fmt
base/serial/f03/psb_s_csc_impl.f03
+4 -4
View File
@@ -2112,7 +2112,7 @@ subroutine psb_s_mv_csc_to_fmt(a,b,info)
call a%free()
class default
call tmp%mv_from_fmt(a,info)
call a%mv_to_coo(tmp,info)
if (info == psb_success_) call b%mv_from_coo(tmp,info)
end select
@@ -2152,7 +2152,7 @@ subroutine psb_s_cp_csc_to_fmt(a,b,info)
b%val = a%val
class default
call tmp%cp_from_fmt(a,info)
call a%cp_to_coo(tmp,info)
if (info == psb_success_) call b%mv_from_coo(tmp,info)
end select
@@ -2192,7 +2192,7 @@ subroutine psb_s_mv_csc_from_fmt(a,b,info)
call b%free()
class default
call tmp%mv_from_fmt(b,info)
call b%mv_to_coo(tmp,info)
if (info == psb_success_) call a%mv_from_coo(tmp,info)
end select
@@ -2232,7 +2232,7 @@ subroutine psb_s_cp_csc_from_fmt(a,b,info)
a%val = b%val
class default
call tmp%cp_from_fmt(b,info)
call b%cp_to_coo(tmp,info)
if (info == psb_success_) call a%mv_from_coo(tmp,info)
end select
end subroutine psb_s_cp_csc_from_fmt
base/serial/f03/psb_s_csr_impl.f03
+4 -4
View File
@@ -2417,7 +2417,7 @@ subroutine psb_s_mv_csr_to_fmt(a,b,info)
call a%free()
class default
call tmp%mv_from_fmt(a,info)
call a%mv_to_coo(tmp,info)
if (info == psb_success_) call b%mv_from_coo(tmp,info)
end select
@@ -2456,7 +2456,7 @@ subroutine psb_s_cp_csr_to_fmt(a,b,info)
b%val = a%val
class default
call tmp%cp_from_fmt(a,info)
call a%cp_to_coo(tmp,info)
if (info == psb_success_) call b%mv_from_coo(tmp,info)
end select
@@ -2495,7 +2495,7 @@ subroutine psb_s_mv_csr_from_fmt(a,b,info)
call b%free()
class default
call tmp%mv_from_fmt(b,info)
call b%mv_to_coo(tmp,info)
if (info == psb_success_) call a%mv_from_coo(tmp,info)
end select
@@ -2534,7 +2534,7 @@ subroutine psb_s_cp_csr_from_fmt(a,b,info)
a%val = b%val
class default
call tmp%cp_from_fmt(b,info)
call b%cp_to_coo(tmp,info)
if (info == psb_success_) call a%mv_from_coo(tmp,info)
end select
end subroutine psb_s_cp_csr_from_fmt
base/serial/f03/psb_z_csc_impl.f03
+4 -4
View File
@@ -2475,7 +2475,7 @@ subroutine psb_z_mv_csc_to_fmt(a,b,info)
call a%free()
class default
call tmp%mv_from_fmt(a,info)
call a%mv_to_coo(tmp,info)
if (info == psb_success_) call b%mv_from_coo(tmp,info)
end select
@@ -2515,7 +2515,7 @@ subroutine psb_z_cp_csc_to_fmt(a,b,info)
b%val = a%val
class default
call tmp%cp_from_fmt(a,info)
call a%cp_to_coo(tmp,info)
if (info == psb_success_) call b%mv_from_coo(tmp,info)
end select
@@ -2555,7 +2555,7 @@ subroutine psb_z_mv_csc_from_fmt(a,b,info)
call b%free()
class default
call tmp%mv_from_fmt(b,info)
call b%mv_to_coo(tmp,info)
if (info == psb_success_) call a%mv_from_coo(tmp,info)
end select
@@ -2595,7 +2595,7 @@ subroutine psb_z_cp_csc_from_fmt(a,b,info)
a%val = b%val
class default
call tmp%cp_from_fmt(b,info)
call b%cp_to_coo(tmp,info)
if (info == psb_success_) call a%mv_from_coo(tmp,info)
end select
end subroutine psb_z_cp_csc_from_fmt
base/serial/f03/psb_z_csr_impl.f03
+4 -4
View File
@@ -2609,7 +2609,7 @@ subroutine psb_z_mv_csr_to_fmt(a,b,info)
call a%free()
class default
call tmp%mv_from_fmt(a,info)
call a%mv_to_coo(tmp,info)
if (info == psb_success_) call b%mv_from_coo(tmp,info)
end select
@@ -2648,7 +2648,7 @@ subroutine psb_z_cp_csr_to_fmt(a,b,info)
b%val = a%val
class default
call tmp%cp_from_fmt(a,info)
call a%cp_to_coo(tmp,info)
if (info == psb_success_) call b%mv_from_coo(tmp,info)
end select
@@ -2687,7 +2687,7 @@ subroutine psb_z_mv_csr_from_fmt(a,b,info)
call b%free()
class default
call tmp%mv_from_fmt(b,info)
call b%mv_to_coo(tmp,info)
if (info == psb_success_) call a%mv_from_coo(tmp,info)
end select
@@ -2726,7 +2726,7 @@ subroutine psb_z_cp_csr_from_fmt(a,b,info)
a%val = b%val
class default
call tmp%cp_from_fmt(b,info)
call b%cp_to_coo(tmp,info)
if (info == psb_success_) call a%mv_from_coo(tmp,info)
end select
end subroutine psb_z_cp_csr_from_fmt