dcdatetimeputline.f90

Path: dcdatetimeputline.f90
Last Update: Sun Dec 17 17:16:52 JST 2006

dc_date_types#DC_DATETIME, dc_date_types#DC_DIFFTIME の印字

Authors:Yasuhiro MORIKAWA
Version:$Id: dcdatetimeputline.f90,v 1.2 2006/12/17 08:16:52 morikawa Exp $
Tag Name:$Name: gt4f90io-20070719 $
Copyright:Copyright (C) GFD Dennou Club, 2000-2005. All rights reserved.
License:See COPYRIGHT

このファイルで提供される手続き群は dc_date モジュールにて提供されます。

Methods

Included Modules

dc_date_types dc_date dc_string dc_trace dc_types

Public Instance methods

Subroutine :
time :type(DC_DATETIME), intent(in)
unit :integer, intent(in), optional

dc_date_types#DC_DATETIME 型変数の印字を行います. unit には出力先の装置番号を 与えてください. unit を与えない場合, 標準出力へ表示されます.

[Source]

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 :
diff :type(DC_DIFFTIME), intent(in)
unit :integer, intent(in), optional

dc_date_types#DC_DIFFTIME 型変数の印字を行います. unit には出力先の装置番号を 与えてください. unit を与えない場合, 標準出力へ表示されます.

[Source]

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

[Validate]