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