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 モジュールにて提供されます。
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 に設定されています.
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