dc_calendar_types Module Reference

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

Variable Documentation

cal_360day

integer, parameter, public dc_calendar_types::cal_360day = 6

Definition at line 130 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 113 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 127 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 124 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 118 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 109 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 210 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 207 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 205 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 212 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 201 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 226 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 222 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 225 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 224 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 227 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 223 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 228 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 215 of file dc_calendar_types.f90.

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