! Copyright (C) GFD Dennou Club, 2000. All rights reserved module dc_date_types implicit none ! 通日と通秒の対で日付時刻を表現する。 type DC_DATETIME sequence integer:: day double precision:: sec end type ! 「1ヵ月後」という概念に対応するため、month 欄を持つ。 ! 注意: 日付と違って月を normalize することはできない。 type DC_DIFFTIME sequence integer:: mon integer:: day double precision:: sec end type integer, parameter:: CAL_CYCLIC = 1 integer, parameter:: CAL_NOLEAP = 2 integer, parameter:: CAL_JULIAN = 3 integer, parameter:: CAL_GREGORIAN = 4 integer, save:: caltype = CAL_GREGORIAN double precision, save:: cyclic_mdays = 30.6 double precision, save:: day_seconds = 86400.0 end module