From ad74d3c06abcf630c84301182e8beffc46c09db8 Mon Sep 17 00:00:00 2001 From: Salvatore Filippone Date: Tue, 23 Oct 2007 12:57:59 +0000 Subject: [PATCH] Changed output format to ES. --- 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 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