dcdatetimesetcaltype.f90 File Reference

Go to the source code of this file.

Functions/Subroutines
subroutine	dcdatetimesetcaltype (caltype)
	暦法の設定

Function/Subroutine Documentation

dcdatetimesetcaltype()

subroutine dcdatetimesetcaltype

(

integer, intent(in)

caltype

)

暦法の設定

Author

Yasuhiro MORIKAWA

Copyright

Copyright (C) GFD Dennou Club, 2000-2026. All rights reserved.
License is BSD-2-Clause. see COPYRIGHT in detail

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

暦法のデフォルトを設定

暦法のデフォルトを設定します. 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 に設定されています.

Parameters

[in]

caltype

デフォルトに設定する暦法

Definition at line 49 of file dcdatetimesetcaltype.f90.

 
  use dc_date_types, only: caltype_default => caltype
  use dc_trace, only: beginsub, endsub
  use dc_message, only: messagenotify
  use dc_date_generic, 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/))

References dc_trace::beginsub(), dc_date_types::caltype, and dc_trace::endsub().

Here is the call graph for this function: