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

Merged precision fix for csprt from trunk.

Browse Source
This commit is contained in:
Salvatore Filippone
2008-09-20 09:33:52 +00:00
parent 00c1468c6c
commit 7c38528a66
2 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files
base/serial/psb_dcsprt.f90
+1 -1
View File
@@ -58,7 +58,7 @@ subroutine psb_dcsprt(iout,a,iv,eirs,eics,head,ivr,ivc)
character(len=*), optional :: head
integer, intent(in), optional :: ivr(:), ivc(:)
character(len=*), parameter :: frmtr='(2(i6,1x),es16.8,2(i6,1x))'
character(len=*), parameter :: frmtr='(2(i6,1x),es26.18,2(i6,1x))'
integer :: irs,ics,i,j
if (present(eirs)) then
base/serial/psb_zcsprt.f90
+1 -1
View File
@@ -58,7 +58,7 @@ subroutine psb_zcsprt(iout,a,iv,eirs,eics,head,ivr,ivc)
character(len=*), optional :: head
integer, intent(in), optional :: ivr(:), ivc(:)
character(len=*), parameter :: frmtr='(2(i6,1x),2(es16.8,1x),2(i6,1x))'
character(len=*), parameter :: frmtr='(2(i6,1x),2(es26.18,1x),2(i6,1x))'
integer :: irs,ics,i,j
if (present(eirs)) then