dcdatetimeputline.f90

subroutine DCDateTimePutLine(time, unit)
  !
  ! dc_date_types#DC_DATETIME 型変数の印字を行います. *unit* 
  ! には出力先の装置番号を
  ! 与えてください. *unit* を与えない場合, 標準出力へ表示されます.
  !
  use dc_date_types, only: DC_DATETIME
  use dc_date, only: toChar
  use dc_string, only: Printf
  use dc_trace, only: BeginSub, EndSub
  use dc_types, only: STDOUT
  implicit none
  type(DC_DATETIME), intent(in) :: time
  integer, intent(in), optional :: unit

  integer :: out_unit
  character(*), parameter :: subname = 'DCDateTimePutLine'
continue
  call BeginSub(subname)
  if (present(unit)) then
    out_unit = unit
  else
    out_unit = STDOUT
  end if
  call Printf(out_unit, '#<DC_DATETIME:: @date=%c @day=%d @sec=%f @caltype=%d @zone=%c>', i=(/time % day, time % caltype/), d=(/time % sec/), c1=trim(toChar(time)), c2=trim(time % zone))
999 continue
  call EndSub(subname)
end subroutine DCDateTimePutLine

subroutine DCDateTimePutLine_bc(time, unit)
  use dc_date_types, only: DC_DATETIME
  use dc_date, only: DCDateTimePutLine
  type(DC_DATETIME), intent(in) :: time
  integer, intent(in), optional :: unit
continue
  call DCDateTimePutLine( time, unit )
end subroutine DCDateTimePutLine_bc

subroutine DCDiffTimePutLine(diff, unit)
  !
  ! dc_date_types#DC_DIFFTIME 型変数の印字を行います. *unit* 
  ! には出力先の装置番号を
  ! 与えてください. *unit* を与えない場合, 標準出力へ表示されます.
  !
  use dc_date_types, only: DC_DIFFTIME
  use dc_date, only: toChar
  use dc_string, only: Printf
  use dc_trace, only: BeginSub, EndSub
  use dc_types, only: STDOUT
  implicit none
  type(DC_DIFFTIME), intent(in) :: diff
  integer, intent(in), optional :: unit

  integer :: out_unit
  character(*), parameter :: subname = 'DCDiffTimePutLine'
continue
  call BeginSub(subname)
  if (present(unit)) then
    out_unit = unit
  else
    out_unit = STDOUT
  end if
  call Printf(out_unit, '#<DC_DIFFTIME:: @diff=%c @mon=%d @day=%d @sec=%f>', i=(/diff % mon, diff % day/), d=(/diff % sec/), c1=trim(toChar(diff)))
999 continue
  call EndSub(subname)
end subroutine DCDiffTimePutLine

subroutine DCDiffTimePutLine_bc(diff, unit)
  use dc_date_types, only: DC_DIFFTIME
  use dc_date, only: DCDiffTimePutLine
  type(DC_DIFFTIME), intent(in) :: diff
  integer, intent(in), optional :: unit
continue
  call DCDiffTimePutLine( diff, unit )
end subroutine DCDiffTimePutLine_bc