dc_calendar_types Module Reference

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

Derived types and parameters for "dc_calendar" are provided.

Derived types

Type	Description
DC_CAL	Calendar information
DC_CAL_DATE	Date information

Calendar type parameters

Parameter	Description
CAL_USER_DEFINED	User-defined calendar with arbitrary settings
CAL_GREGORIAN	Gregorian calendar
CAL_JULIAN	Julian calendar
CAL_NOLEAP	Calendar without leap year
CAL_360DAY	Calendar with 30 days per month
CAL_CYCLIC	Cyclic calendar (30.6 days per month)

Unit strings and symbols

Parameter	Description
UNIT_SEC	Strings for second unit
UNIT_MIN	Strings for minute unit
UNIT_HOUR	Strings for hour unit
UNIT_DAY	Strings for day unit
UNIT_MONTH	Strings for month unit
UNIT_YEAR	Strings for year unit
UNIT_SYMBOL_*	Integer symbols for units

Variable Documentation

cal_360day

integer, parameter, public dc_calendar_types::cal_360day = 6

Definition at line 121 of file dc_calendar_types.f90.

  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.

  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.

  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.

  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.

  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.

  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.

  character(*), parameter, dimension(4) :: UNIT_DAY = (/ &
    & '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.

  character(*), parameter, dimension(4) :: UNIT_MIN = (/ &
    & '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.

  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.

  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.

  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.

  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.

  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.

  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.

  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.

  character(*), parameter, dimension(4) :: UNIT_YEAR = (/ &
    & 'years', 'year ', 'yr.  ', 'yr   '/)         ! 年の単位を示す文字列