fdurastante/psblas3
1
0
Fork 0
mirror of https://github.com/sfilippone/psblas3.git synced 2026-10-07 07:04:57 +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 default setting for DUPL.
This commit is contained in:
Salvatore Filippone
2010-08-27 13:03:24 +00:00
parent 840a5b1c78
commit c7ac41d437
8 changed files with 8 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files
base/serial/f03/psb_c_csc_impl.f03
+1
View File
@@ -2823,6 +2823,7 @@ subroutine psb_c_csc_allocate_mnnz(m,n,a,nz)
call a%set_bld()
call a%set_triangle(.false.)
call a%set_unit(.false.)
call a%set_dupl(psb_dupl_def_)
end if
call psb_erractionrestore(err_act)
base/serial/f03/psb_c_csr_impl.f03
+1
View File
@@ -1487,6 +1487,7 @@ subroutine psb_c_csr_allocate_mnnz(m,n,a,nz)
call a%set_bld()
call a%set_triangle(.false.)
call a%set_unit(.false.)
call a%set_dupl(psb_dupl_def_)
end if
call psb_erractionrestore(err_act)
base/serial/f03/psb_d_csc_impl.f03
+1
View File
@@ -2696,6 +2696,7 @@ subroutine psb_d_csc_allocate_mnnz(m,n,a,nz)
call a%set_bld()
call a%set_triangle(.false.)
call a%set_unit(.false.)
call a%set_dupl(psb_dupl_def_)
end if
call psb_erractionrestore(err_act)
base/serial/f03/psb_d_csr_impl.f03
+1
View File
@@ -1537,6 +1537,7 @@ subroutine psb_d_csr_allocate_mnnz(m,n,a,nz)
call a%set_bld()
call a%set_triangle(.false.)
call a%set_unit(.false.)
call a%set_dupl(psb_dupl_def_)
end if
call psb_erractionrestore(err_act)
base/serial/f03/psb_s_csc_impl.f03
+1
View File
@@ -2461,6 +2461,7 @@ subroutine psb_s_csc_allocate_mnnz(m,n,a,nz)
call a%set_bld()
call a%set_triangle(.false.)
call a%set_unit(.false.)
call a%set_dupl(psb_dupl_def_)
end if
call psb_erractionrestore(err_act)
base/serial/f03/psb_s_csr_impl.f03
+1
View File
@@ -1295,6 +1295,7 @@ subroutine psb_s_csr_allocate_mnnz(m,n,a,nz)
call a%set_bld()
call a%set_triangle(.false.)
call a%set_unit(.false.)
call a%set_dupl(psb_dupl_def_)
end if
call psb_erractionrestore(err_act)
base/serial/f03/psb_z_csc_impl.f03
+1
View File
@@ -2824,6 +2824,7 @@ subroutine psb_z_csc_allocate_mnnz(m,n,a,nz)
call a%set_bld()
call a%set_triangle(.false.)
call a%set_unit(.false.)
call a%set_dupl(psb_dupl_def_)
end if
call psb_erractionrestore(err_act)
base/serial/f03/psb_z_csr_impl.f03
+1
View File
@@ -1487,6 +1487,7 @@ subroutine psb_z_csr_allocate_mnnz(m,n,a,nz)
call a%set_bld()
call a%set_triangle(.false.)
call a%set_unit(.false.)
call a%set_dupl(psb_dupl_def_)
end if
call psb_erractionrestore(err_act)