Merged precision fix for csprt from trunk.

16 years ago · 7c38528a66
parent 00c1468c6c
commit 7c38528a66
2 changed files with 2 additions and 2 deletions
--- 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 
--- 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