diff --git a/base/serial/psb_dcsprt.f90 b/base/serial/psb_dcsprt.f90
index e4f3e546..0efdbbc4 100644
--- a/base/serial/psb_dcsprt.f90
+++ b/base/serial/psb_dcsprt.f90
@@ -57,7 +57,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),e16.8,2(i6,1x))'
+  character(len=*), parameter       :: frmtr='(2(i6,1x),es16.8,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 9323b252..f1599362 100644
--- a/base/serial/psb_zcsprt.f90
+++ b/base/serial/psb_zcsprt.f90
@@ -57,7 +57,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(e16.8,1x),2(i6,1x))'
+  character(len=*), parameter       :: frmtr='(2(i6,1x),2(es16.8,1x),2(i6,1x))'
   integer  :: irs,ics,i,j
 
   if (present(eirs)) then