From 7c38528a664dca6d62fc0c4a818844738fad4e81 Mon Sep 17 00:00:00 2001 From: Salvatore Filippone Date: Sat, 20 Sep 2008 09:33:52 +0000 Subject: [PATCH] Merged precision fix for csprt from trunk. --- base/serial/psb_dcsprt.f90 | 2 +- base/serial/psb_zcsprt.f90 | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/base/serial/psb_dcsprt.f90 b/base/serial/psb_dcsprt.f90 index 61ab8612..c93f670d 100644 --- a/base/serial/psb_dcsprt.f90 +++ b/base/serial/psb_dcsprt.f90 @@ -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 diff --git a/base/serial/psb_zcsprt.f90 b/base/serial/psb_zcsprt.f90 index 8dc6c93d..d5904f84 100644 --- a/base/serial/psb_zcsprt.f90 +++ b/base/serial/psb_zcsprt.f90 @@ -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