Changed output format to ES.

17 years ago · ad74d3c06a
parent 810931820e
commit ad74d3c06a
2 changed files with 2 additions and 2 deletions
--- 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 
--- 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