!== 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-20070729 $ ! Copyright:: Copyright (C) GFD Dennou Club, 2000-2005. All rights reserved. ! License:: See COPYRIGHT[link:../../COPYRIGHT] ! ! このファイルで提供される手続き群は dc_date モジュールにて提供されます。 ! 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, & & '#', & & 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 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, & & '#', & & i=(/diff % mon, diff % day/), d=(/diff % sec/), & & c1=trim(toChar(diff))) 999 continue call EndSub(subname) end subroutine DCDiffTimePutLine