Derived types and parameters of calendar and date. More...

Data Types
type	dc_cal

type	dc_cal_date

Variables
integer, parameter, public	cal_user_defined = 1

integer, parameter, public	cal_cyclic = 2

integer, parameter, public	cal_noleap = 3

integer, parameter, public	cal_julian = 4

integer, parameter, public	cal_gregorian = 5

integer, parameter, public	cal_360day = 6

character(*), dimension(8), parameter, public	unit_sec = (/ 'seconds', 'second ', 'secs. ', 'secs ', 'sec. ', 'sec ', 's. ', 's '/)

character(*), dimension(4), parameter, public	unit_min = (/ 'minutes', 'minute ', 'min. ', 'min '/)

character(*), dimension(8), parameter, public	unit_hour = (/ 'hours', 'hour ', 'hrs. ', 'hrs ', 'hr. ', 'hr ', 'h. ', 'h '/)

character(*), dimension(4), parameter, public	unit_day = (/ 'days', 'day ', 'd. ', 'd '/)

character(*), dimension(6), parameter, public	unit_month = (/ 'months', 'month ', 'mon. ', 'mon ', 'mo. ', 'mo '/)

character(*), dimension(4), parameter, public	unit_year = (/ 'years', 'year ', 'yr. ', 'yr '/)

integer, parameter, public	unit_symbol_err = -1

integer, parameter, public	unit_symbol_sec = 2

integer, parameter, public	unit_symbol_min = 3

integer, parameter, public	unit_symbol_hour = 4

integer, parameter, public	unit_symbol_day = 5

integer, parameter, public	unit_symbol_month = 6

integer, parameter, public	unit_symbol_year = 7

Detailed Description

Derived types and parameters of calendar and date.

Author: Youhei SASAKI, Yasuhiro MORIKAWA

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

Variable Documentation

◆ cal_360day

integer, parameter, public dc_calendar_types::cal_360day = 6

Definition at line 121 of file dc_calendar_types.f90.

121 integer, parameter:: CAL_360DAY = 6 ! 1 年 360 日 (1 月 30 日) の暦.

◆ cal_cyclic

integer, parameter, public dc_calendar_types::cal_cyclic = 2

Definition at line 104 of file dc_calendar_types.f90.

104 integer, parameter:: CAL_CYCLIC = 2 ! 1 ヵ月を 30.6 日 (CYCLIC_MDAYS)

◆ cal_gregorian

integer, parameter, public dc_calendar_types::cal_gregorian = 5

Definition at line 118 of file dc_calendar_types.f90.

118 integer, parameter:: CAL_GREGORIAN = 5 ! グレゴリオ暦.

◆ cal_julian

integer, parameter, public dc_calendar_types::cal_julian = 4

Definition at line 115 of file dc_calendar_types.f90.

115 integer, parameter:: CAL_JULIAN = 4 ! ユリウス暦.

◆ cal_noleap

integer, parameter, public dc_calendar_types::cal_noleap = 3

Definition at line 109 of file dc_calendar_types.f90.

109 integer, parameter:: CAL_NOLEAP = 3 ! 1 年 365 日 (閏年無し) の暦.

◆ cal_user_defined

integer, parameter, public dc_calendar_types::cal_user_defined = 1

Definition at line 100 of file dc_calendar_types.f90.

100 integer, parameter:: CAL_USER_DEFINED = 1

◆ unit_day

character(*), dimension(4), parameter, public dc_calendar_types::unit_day = (/ 'days', 'day ', 'd. ', 'd '/)

Definition at line 197 of file dc_calendar_types.f90.

197 character(*), parameter, dimension(4) :: UNIT_DAY = (/ &

198 & 'days', 'day ', 'd. ', 'd '/) ! 日の単位を示す文字列

◆ unit_hour

character(*), dimension(8), parameter, public dc_calendar_types::unit_hour = (/ 'hours', 'hour ', 'hrs. ', 'hrs ', 'hr. ', 'hr ', 'h. ', 'h '/)

Definition at line 194 of file dc_calendar_types.f90.

  character(*), parameter, dimension(8) :: UNIT_HOUR = (/ &
    & 'hours', 'hour ', 'hrs. ', 'hrs  ', &
    & 'hr.  ', 'hr   ', 'h.   ', 'h    '/)         ! 時の単位を示す文字列

◆ unit_min

character(*), dimension(4), parameter, public dc_calendar_types::unit_min = (/ 'minutes', 'minute ', 'min. ', 'min '/)

Definition at line 192 of file dc_calendar_types.f90.

192 character(*), parameter, dimension(4) :: UNIT_MIN = (/ &

193 & 'minutes', 'minute ', 'min. ', 'min '/) ! 分の単位を示す文字列

◆ unit_month

character(*), dimension(6), parameter, public dc_calendar_types::unit_month = (/ 'months', 'month ', 'mon. ', 'mon ', 'mo. ', 'mo '/)

Definition at line 199 of file dc_calendar_types.f90.

  character(*), parameter, dimension(6) :: UNIT_MONTH = (/ &
    & 'months', 'month ', 'mon.  ', &
    & 'mon   ', 'mo.   ', 'mo    '/)               ! 月の単位を示す文字列

◆ unit_sec

character(*), dimension(8), parameter, public dc_calendar_types::unit_sec = (/ 'seconds', 'second ', 'secs. ', 'secs ', 'sec. ', 'sec ', 's. ', 's '/)

Definition at line 188 of file dc_calendar_types.f90.

  character(*), parameter, dimension(8) :: UNIT_SEC = (/ &
    & 'seconds', 'second ', 'secs.  ', 'secs   ', &
    & 'sec.   ', 'sec    ', 's.     ', 's      '/) ! 秒の単位を示す文字列

◆ unit_symbol_day

integer, parameter, public dc_calendar_types::unit_symbol_day = 5

Definition at line 213 of file dc_calendar_types.f90.

213 integer, parameter:: UNIT_SYMBOL_DAY = 5 ! 日の単位を示すシンボル

◆ unit_symbol_err

integer, parameter, public dc_calendar_types::unit_symbol_err = -1

Definition at line 209 of file dc_calendar_types.f90.

209 integer, parameter:: UNIT_SYMBOL_ERR = -1 ! 無効な単位を示すシンボル

◆ unit_symbol_hour

integer, parameter, public dc_calendar_types::unit_symbol_hour = 4

Definition at line 212 of file dc_calendar_types.f90.

212 integer, parameter:: UNIT_SYMBOL_HOUR = 4 ! 時間の単位を示すシンボル

◆ unit_symbol_min

integer, parameter, public dc_calendar_types::unit_symbol_min = 3

Definition at line 211 of file dc_calendar_types.f90.

211 integer, parameter:: UNIT_SYMBOL_MIN = 3 ! 分の単位を示すシンボル

◆ unit_symbol_month

integer, parameter, public dc_calendar_types::unit_symbol_month = 6

Definition at line 214 of file dc_calendar_types.f90.

214 integer, parameter:: UNIT_SYMBOL_MONTH = 6 ! 月の単位を示すシンボル

◆ unit_symbol_sec

integer, parameter, public dc_calendar_types::unit_symbol_sec = 2

Definition at line 210 of file dc_calendar_types.f90.

210 integer, parameter:: UNIT_SYMBOL_SEC = 2 ! 秒の単位を示すシンボル

◆ unit_symbol_year

integer, parameter, public dc_calendar_types::unit_symbol_year = 7

Definition at line 215 of file dc_calendar_types.f90.

215 integer, parameter:: UNIT_SYMBOL_YEAR = 7 ! 年の単位を示すシンボル

◆ unit_year

character(*), dimension(4), parameter, public dc_calendar_types::unit_year = (/ 'years', 'year ', 'yr. ', 'yr '/)

Definition at line 202 of file dc_calendar_types.f90.

202 character(*), parameter, dimension(4) :: UNIT_YEAR = (/ &

203 & 'years', 'year ', 'yr. ', 'yr '/) ! 年の単位を示す文字列

Data Types

Variables