dcdatetimesetcaltype.f90

Path: dcdatetimesetcaltype.f90
Last Update: Mon Dec 25 23:31:07 JST 2006

暦法の設定

Authors:Yasuhiro MORIKAWA
Version:$Id: dcdatetimesetcaltype.f90,v 1.2 2006/12/25 14:31:07 morikawa Exp $
Tag Name:$Name: gt4f90io-20070627 $
Copyright:Copyright (C) GFD Dennou Club, 2000-2005. All rights reserved.
License:See COPYRIGHT

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

Required files

Methods

Included Modules

dc_date_types dc_trace dc_message dc_date

Public Instance methods

Subroutine :
caltype :integer, intent(in)

暦法のデフォルトを設定します. dc_date_types#CAL_CYCLIC, dc_date_types#CAL_NOLEAP, dc_date_types#CAL_JULIAN, dc_date_types#CAL_GREGORIAN のいづれかを引数 caltype に与えてください.

なお, この手続きを呼ばない場合, デフォルトの暦法は dc_date_types#CAL_GREGORIAN に設定されています.

[Source]

subroutine DCDateTimeSetCaltype(caltype)
  !
  ! 暦法のデフォルトを設定します.
  ! dc_date_types#CAL_CYCLIC, dc_date_types#CAL_NOLEAP, 
  ! dc_date_types#CAL_JULIAN, dc_date_types#CAL_GREGORIAN
  ! のいづれかを引数 *caltype* に与えてください.
  !
  ! なお, この手続きを呼ばない場合, デフォルトの暦法は
  ! dc_date_types#CAL_GREGORIAN に設定されています.
  !
  use dc_date_types, only: caltype_default => caltype
  use dc_trace, only: BeginSub, EndSub
  use dc_message, only: MessageNotify
  use dc_date, only: ValidCaltype
  implicit none
  integer, intent(in):: caltype
  character(*), parameter :: subname = 'DCDateTimeSetCaltype'
continue
  call BeginSub(subname, 'caltype=<%d>', i=(/caltype/))
  if (ValidCaltype(caltype)) then
    caltype_default = caltype
  else
    call MessageNotify('W', subname, 'caltype=<%d> is invalid calender type.', i=(/caltype/))
  end if
  call EndSub(subname, 'dc_date_types#caltype_default=<%d>', i=(/caltype_default/))
end subroutine DCDateTimeSetCaltype

[Validate]