dcdatetimeeval.f90 File Reference

Go to the source code of this file.

Functions/Subroutines
subroutine	dcdatetimeeval1 (time, year, mon, day, hour, min, sec, caltype, zone, sclyear, sclmon, sclday, sclsec)
subroutine	dcdifftimeeval1 (diff, year, mon, day, hour, min, sec, nondim, sclyear, sclmon, sclday, sclsec, sclnondim, err)
real(dp) function	dcdatetimeevalday (time)
real(dp) function	dcdifftimeevalday (diff)
real(dp) function	dcdatetimeevalhour (time)
real(dp) function	dcdifftimeevalhour (diff)
real(dp) function	dcdatetimeevalmin (time)
real(dp) function	dcdifftimeevalmin (diff)
real(dp) function	dcdatetimeevalsec (time)
real(dp) function	dcdifftimeevalsec (diff)
real(dp) function	dcdifftimeevalnondim (diff)
type(dc_scaled_sec) function	dcdatetimeevalsclsec (time)
type(dc_scaled_sec) function	dcdifftimeevalsclsec (diff)
real(dp) function	dcdatetimeevalbyunit (time, unit, unit_symbol)
real(dp) function	dcdifftimeevalbyunit (diff, unit, unit_symbol)

Function/Subroutine Documentation

dcdatetimeeval1()

subroutine dcdatetimeeval1	(	type(dc_datetime), intent(in)	time,
		integer, intent(out), optional	year,
		integer, intent(out), optional	mon,
		integer, intent(out), optional	day,
		integer, intent(out), optional	hour,
		integer, intent(out), optional	min,
		real(dp), intent(out), optional	sec,
		integer, intent(out), optional	caltype,
		character(*), intent(out), optional	zone,
		type(dc_scaled_sec), intent(out), optional	sclyear,
		type(dc_scaled_sec), intent(out), optional	sclmon,
		type(dc_scaled_sec), intent(out), optional	sclday,
		type(dc_scaled_sec), intent(out), optional	sclsec
	)

Definition at line 12 of file dcdatetimeeval.f90.

  !
  ! dc_date_types#DC_DATETIME 型変数 *time* を
  ! 年 *year*, 月 *mon*, 日 *day*, 時間 *hour*, 分 *min*, 秒 *sec*,
  ! 暦法 *caltype*, タイムゾーン *zone* に変換して返します.
  !
  use dc_types, only: dp
  use dc_date_types, only: dc_datetime, &
    & cyclic_mdays, cal_noleap, cal_julian, cal_cyclic, &
    & year_months, year_days, four_years, four_century, &
    & hour_seconds, min_seconds
  use dc_scaledsec, only:  dc_scaled_sec, &
    & assignment(=), dcscaledsecputline, &
    & operator(==), operator(>), operator(<), operator(>=), operator(<=), &
    & operator(+), operator(-), operator(*), operator(/), mod, modulo, &
    & abs, int, floor, ceiling
  use dc_trace, only: beginsub, endsub
  implicit none
  type(DC_DATETIME), intent(in):: time
  integer, intent(out), optional:: year ! 年
  integer, intent(out), optional:: mon  ! 月
  integer, intent(out), optional:: day  ! 日
  integer, intent(out), optional:: hour ! 時
  integer, intent(out), optional:: min  ! 分
  real(DP),intent(out), optional:: sec  ! 秒
  integer, intent(out), optional:: caltype ! 暦法
  character(*), intent(out), optional:: zone ! タイムゾーン (UTC からの時差)
  type(DC_SCALED_SEC), intent(out), optional:: sclyear ! 年 (DC_SCALED_SEC 型)
  type(DC_SCALED_SEC), intent(out), optional:: sclmon  ! 月 (DC_SCALED_SEC 型)
  type(DC_SCALED_SEC), intent(out), optional:: sclday  ! 日 (DC_SCALED_SEC 型)
  type(DC_SCALED_SEC), intent(out), optional:: sclsec  ! 秒 (DC_SCALED_SEC 型)
 
  type(DC_SCALED_SEC):: iyear, month, iday, imon, isec
  !character(*), parameter :: subname = 'DCDateTimeEval1'
continue
  !call BeginSub(subname)
  if (present(zone)) then
    zone = time % zone
  end if
  if (present(caltype)) then
    caltype = time % caltype
  end if
  isec = time % sec
  if (present(hour)) then
    hour = floor(isec / hour_seconds)
    isec = modulo(isec, hour_seconds)
  end if
  if (present(min)) then
    min = floor(isec / min_seconds)
    isec = modulo(isec, min_seconds)
  end if
  if (present(sec)) then
    sec = isec
  end if
  if (present(sclsec)) then
    sclsec = isec
  end if
 
  if (time % caltype == cal_cyclic) then
    iday = time % day
    if (present(year)) year = 0
    if (present(sclyear)) sclyear = 0
    if (present(sclmon)) then
      sclmon = floor(iday / cyclic_mdays)
      iday = ceiling( modulo(iday, cyclic_mdays) )
    elseif (present(mon)) then
      mon = floor(iday / cyclic_mdays)
      iday = ceiling( modulo(iday, cyclic_mdays) )
    end if
    if (present(day)) day = iday
    if (present(sclday)) sclday = iday
    goto 999
  endif
  if (time % caltype == cal_noleap) then
    iday = int( modulo(time%day - 91, year_days) )
    iyear = int( (time%day - 91 - iday) / year_days )
  else
    if (time % caltype == cal_julian .or. time%day < 640196) then
      iday = int( modulo(time%day - 92, four_years) )
      iyear = int( (time%day - 92 - iday) / four_years ) * 4
    else
      iday = int( modulo(time%day - 94, four_century) )
      iyear = int( (time%day - 94 - iday) / four_century ) * 400
      if (iday == four_century - 1) then
        iyear = iyear + 300
        iday = 36525
      else
        iyear = iyear + int( iday / 36524 ) * 100
        iday = int( modulo(iday, 36524) )
      endif
      iyear = iyear + int( iday / four_years ) * 4
      iday = int( modulo(iday, four_years) )
    endif
    if (iday == four_years - 1) then
      iyear = iyear + 3
      iday = year_days
    else
      iyear = iyear + int( iday / year_days )
      iday = int( modulo(iday, year_days) )
    endif
  endif
 
  iday = iday * 10 + 922
  month = int( iday / 306 )
 
  if (present(sclyear)) then
    imon = mod(month - 1, year_months) + 1
    sclyear = iyear + int( (month - imon) / year_months )
  elseif (present(year)) then
    imon = mod(month - 1, year_months) + 1
    year = iyear + int( (month - imon) / year_months )
  else
    imon = month
  end if
  if (present(sclmon)) then
    iday = int( mod(iday, 306) / 10 ) + 1
    sclmon = imon
  elseif (present(mon)) then
    iday = int( mod(iday, 306) / 10 ) + 1
    mon = imon
  else
    iday = int( iday / 10 )  + 1
  end if
 
  if (present(day)) day = iday
  if (present(sclday)) sclday = iday
 
999 continue
  !call EndSub(subname)

References dc_date_types::cal_cyclic, dc_date_types::cal_julian, dc_date_types::cal_noleap, dc_date_types::cyclic_mdays, dc_scaledsec::dcscaledsecputline(), dc_types::dp, dc_date_types::four_century, dc_date_types::four_years, dc_date_types::hour_seconds, dc_date_types::min_seconds, dc_date_types::year_days, and dc_date_types::year_months.

Here is the call graph for this function:

dcdatetimeevalbyunit()

real(dp) function dcdatetimeevalbyunit	(	type(dc_datetime), intent(in)	time,
		character(*), intent(in)	unit,
		integer, intent(in), optional	unit_symbol
	)

Definition at line 499 of file dcdatetimeeval.f90.

  !
  ! dc_date_types#DC_DATETIME 型変数の日時を *unit* または
  ! *unit_symbol* の単位
  ! に換算して倍精度実数型変数で返します. 
  ! 
  ! *unit* には
  ! 日 dc_date_types#UNIT_DAY, 時 dc_date_types#UNIT_HOUR,
  ! 分 dc_date_types#UNIT_MIN, 秒 dc_date_types#UNIT_SEC 
  ! を与えることが可能です. 
  !
  ! *unit_symbol* には
  ! 日 dc_date_types#UNIT_SYMBOL_DAY, 時 dc_date_types#UNIT_SYMBOL_HOUR,
  ! 分 dc_date_types#UNIT_SYMBOL_MIN, 秒 dc_date_types#UNIT_SYMBOL_SEC 
  ! を与えることが可能です. 
  !
  ! これらに該当しないものを *unit* または *unit_symbol* 
  ! に与えた場合, もしくは引数を両方とも与えない場合, 0.0 が返ります.
  !
  use dc_types, only: dp, token
  use dc_date_generic, only: evalsec, evalmin, evalhour, evalday, parsetimeunits
  use dc_date_types, only: dc_datetime, &
    & unit_symbol_day, unit_symbol_hour, unit_symbol_min, unit_symbol_sec, &
    & unit_symbol_err
  implicit none
  real(DP):: result
  type(DC_DATETIME), intent(in):: time
  character(*), intent(in):: unit
  integer, intent(in), optional:: unit_symbol
  integer:: symbol
continue
  symbol = unit_symbol_err
  if ( present(unit_symbol) ) then
    symbol = unit_symbol
  else
    symbol = parsetimeunits(unit)
  end if
 
  if ( symbol == unit_symbol_sec ) then
    result = evalsec(time)
  elseif ( symbol == unit_symbol_min ) then
    result = evalmin(time)
  elseif ( symbol == unit_symbol_hour ) then
    result = evalhour(time)
  elseif ( symbol == unit_symbol_day ) then
    result = evalday(time)
  else
    result = 0.0_dp
  end if

References dc_types::dp, dc_types::token, dc_date_types::unit_symbol_day, dc_date_types::unit_symbol_err, dc_date_types::unit_symbol_hour, dc_date_types::unit_symbol_min, and dc_date_types::unit_symbol_sec.

dcdatetimeevalday()

real(dp) function dcdatetimeevalday

(

type(dc_datetime), intent(in)

time

)

Definition at line 248 of file dcdatetimeeval.f90.

  !
  ! dc_date_types#DC_DATETIME 型変数の日時を日数に換算して
  ! 倍精度実数型変数で返します. (例えば 12 時間は 0.5 日と換算されます).
  !
  use dc_types, only: dp
  use dc_date_generic, only: eval
  use dc_date_types, only: dc_datetime
  use dc_scaledsec, only: dc_scaled_sec, assignment(=), operator(/), operator(+)
  implicit none
  real(DP):: result
  type(DC_DATETIME), intent(in):: time
  type(DC_SCALED_SEC):: day, sec
continue
  call eval(time, sclday = day, sclsec = sec)
  result = day + sec / time % day_seconds

References dc_types::dp.

dcdatetimeevalhour()

real(dp) function dcdatetimeevalhour

(

type(dc_datetime), intent(in)

time

)

Definition at line 288 of file dcdatetimeeval.f90.

  !
  ! dc_date_types#DC_DATETIME 型変数の日時を時間に換算して
  ! 倍精度実数型変数で返します.
  ! (例えば 2 日は 48 時間に, 30 分 は 0.5 時間と換算されます).
  !
  use dc_types, only: dp
  use dc_date_generic, only: eval
  use dc_date_types, only: dc_datetime, hour_seconds
  use dc_scaledsec, only: dc_scaled_sec, assignment(=), operator(/), &
    & operator(+), operator(*), int
  implicit none
  real(DP):: result
  type(DC_DATETIME), intent(in):: time
  type(DC_SCALED_SEC):: day, sec
continue
  call eval(time, sclday = day, sclsec = sec)
  result = (day * time % day_seconds + sec) / hour_seconds

References dc_types::dp, and dc_date_types::hour_seconds.

dcdatetimeevalmin()

real(dp) function dcdatetimeevalmin

(

type(dc_datetime), intent(in)

time

)

Definition at line 332 of file dcdatetimeeval.f90.

  !
  ! dc_date_types#DC_DATETIME 型変数の日時を分に換算して
  ! 倍精度実数型変数で返します.
  ! (例えば 1 日は 3600 分に, 30 秒 は 0.5 分と換算されます).
  !
  use dc_types, only: dp
  use dc_date_generic, only: eval
  use dc_date_types, only: dc_datetime, min_seconds
  use dc_scaledsec, only: dc_scaled_sec, assignment(=), operator(/), &
    & operator(+), operator(*), int
  implicit none
  real(DP):: result
  type(DC_DATETIME), intent(in):: time
  type(DC_SCALED_SEC):: day, sec
continue
  call eval(time, sclday = day, sclsec = sec)
  result = (day * time % day_seconds + sec) / min_seconds

References dc_types::dp, and dc_date_types::min_seconds.

dcdatetimeevalsclsec()

type(dc_scaled_sec) function dcdatetimeevalsclsec

(

type(dc_datetime), intent(in)

time

)

Definition at line 445 of file dcdatetimeeval.f90.

  !
  ! dc_date_types#DC_DATETIME 型変数の日時を秒に換算して
  ! DC_SCALED_SEC 型で返します.
  !
  ! 年の要素は無視されます. すなわち, 1999-01-01 が格納された time と
  ! 2007-01-01 が格納された time からは同じ値が返ります.
  ! (これはもしかすると望ましく無い動作かもしれません).
  !
  use dc_types, only: dp
  use dc_date_generic, only: eval
  use dc_date_types, only: dc_datetime
  use dc_scaledsec, only: dc_scaled_sec, operator(/), &
    & operator(+), operator(*), int
  implicit none
  type(DC_SCALED_SEC):: result
  type(DC_DATETIME), intent(in):: time
  type(DC_SCALED_SEC):: day, sec
continue
  call eval(time, sclday = day, sclsec = sec)
  result = day * time % day_seconds + sec

References dc_types::dp.

dcdatetimeevalsec()

real(dp) function dcdatetimeevalsec

(

type(dc_datetime), intent(in)

time

)

Definition at line 376 of file dcdatetimeeval.f90.

  !
  ! dc_date_types#DC_DATETIME 型変数の日時を秒に換算して
  ! 倍精度実数型変数で返します.
  !
  ! 年の要素は無視されます. すなわち, 1999-01-01 が格納された time と
  ! 2007-01-01 が格納された time からは同じ値が返ります.
  ! (これはもしかすると望ましく無い動作かもしれません).
  !
  use dc_types, only: dp
  use dc_date_generic, only: eval
  use dc_date_types, only: dc_datetime
  use dc_scaledsec, only: assignment(=)
  implicit none
  real(DP):: result
  type(DC_DATETIME), intent(in):: time
  integer:: day
  real(DP):: sec, day_seconds
continue
  call eval(time, day = day, sec = sec)
  day_seconds = time % day_seconds
  result = day * day_seconds + sec

References dc_date_types::day_seconds, and dc_types::dp.

dcdifftimeeval1()

subroutine dcdifftimeeval1	(	type(dc_difftime), intent(in)	diff,
		integer, intent(out), optional	year,
		integer, intent(out), optional	mon,
		integer, intent(out), optional	day,
		integer, intent(out), optional	hour,
		integer, intent(out), optional	min,
		real(dp), intent(out), optional	sec,
		real(dp), intent(out), optional	nondim,
		type(dc_scaled_sec), intent(out), optional	sclyear,
		type(dc_scaled_sec), intent(out), optional	sclmon,
		type(dc_scaled_sec), intent(out), optional	sclday,
		type(dc_scaled_sec), intent(out), optional	sclsec,
		type(dc_scaled_sec), intent(out), optional	sclnondim,
		logical, intent(out), optional	err
	)

Definition at line 145 of file dcdatetimeeval.f90.

  !
  ! dc_date_types#DC_DIFFTIME 型変数 *diff* を
  ! 年 *year*, 月 *mon*, 日 *day*, 時間 *hour*, 分 *min*, 秒 *sec*,
  ! 無次元時間 *nondim* に変換して返します.
  !
  use dc_types, only: dp
  use dc_trace, only: beginsub, endsub
  use dc_error, only: storeerror, dc_noerr, dc_enodimtime, dc_edimtime
  use dc_date_types, only: dc_difftime, &
    & min_seconds, hour_seconds, year_months
  use dc_scaledsec, only:  dc_scaled_sec, &
    & assignment(=), dcscaledsecputline, &
    & operator(==), operator(>), operator(<), operator(>=), operator(<=), &
    & operator(+), operator(-), operator(*), operator(/), mod, modulo, &
    & abs, int, floor, ceiling
  implicit none
  type(DC_DIFFTIME), intent(in):: diff
  integer, intent(out), optional:: year ! 年
  integer, intent(out), optional:: mon  ! 月
  integer, intent(out), optional:: day  ! 日
  integer, intent(out), optional:: hour ! 時
  integer, intent(out), optional:: min  ! 分
  real(DP),intent(out), optional:: sec  ! 秒
  real(DP),intent(out), optional:: nondim  ! 無次元時間. Nondimensional time
  type(DC_SCALED_SEC), intent(out), optional:: sclyear ! 年 (DC_SCALED_SEC 型)
  type(DC_SCALED_SEC), intent(out), optional:: sclmon  ! 月 (DC_SCALED_SEC 型)
  type(DC_SCALED_SEC), intent(out), optional:: sclday  ! 日 (DC_SCALED_SEC 型)
  type(DC_SCALED_SEC), intent(out), optional:: sclsec  ! 秒 (DC_SCALED_SEC 型)
  type(DC_SCALED_SEC), intent(out), optional:: sclnondim  ! 無次元時間 (DC_SCALED_SEC 型)
  logical, intent(out), optional :: err
  type(DC_SCALED_SEC):: imon, isec
  integer:: stat
  character(*), parameter :: subname = 'DCDiffTimeEval1'
continue
  !call BeginSub(subname)
  stat = dc_noerr
  if ( present(sclnondim) ) then
    if ( .not. diff % nondim_flag ) then
      stat = dc_edimtime
      goto 999
    end if
    sclnondim = diff % sec
  elseif ( present(nondim) ) then
    if ( .not. diff % nondim_flag ) then
      stat = dc_edimtime
      goto 999
    end if
    nondim = diff % sec
  else
    if ( diff % nondim_flag ) then
      stat = dc_enodimtime
      goto 999
    end if
  end if
 
  imon = diff % mon
  isec = diff % sec
  if (present(sclyear)) then
    sclyear = int( imon / year_months )
    imon = mod(imon, year_months)
  elseif (present(year)) then
    year = int( imon / year_months )
    imon = mod(imon, year_months)
  endif
 
  if (present(sclmon)) then
    sclmon = imon
  elseif (present(mon)) then
    mon = imon
  endif
 
  if (present(sclday)) then
    sclday = diff % day
  elseif (present(day)) then
    day = diff % day
  else
    isec = isec + diff % day * diff % day_seconds
  endif
 
  if (present(hour)) then
    hour = int(isec / hour_seconds)
    isec = mod(isec, hour_seconds)
  endif
  if (present(min)) then
    min = int(isec / min_seconds)
    isec = mod(isec, min_seconds)
  endif
 
  if (present(sec)) then
    sec = isec
  endif
  if (present(sclsec)) then
    sclsec = isec
  endif
999 continue
  call storeerror(stat, subname, err)
  !call EndSub(subname)

References dc_error::dc_edimtime, dc_error::dc_enodimtime, dc_error::dc_noerr, dc_scaledsec::dcscaledsecputline(), dc_types::dp, dc_date_types::hour_seconds, dc_date_types::min_seconds, dc_error::storeerror(), and dc_date_types::year_months.

Here is the call graph for this function:

dcdifftimeevalbyunit()

real(dp) function dcdifftimeevalbyunit	(	type(dc_difftime), intent(in)	diff,
		character(*), intent(in)	unit,
		integer, intent(in), optional	unit_symbol
	)

Definition at line 551 of file dcdatetimeeval.f90.

  !
  ! dc_date_types#DC_DIFFTIME 型変数の日時を *unit* の単位
  ! に換算して倍精度実数型変数で返します. 
  ! 
  ! *unit* には
  ! 日 dc_date_types#UNIT_DAY, 時 dc_date_types#UNIT_HOUR,
  ! 分 dc_date_types#UNIT_MIN, 秒 dc_date_types#UNIT_SEC, 
  ! 無次元時間 dc_date_types#UNIT_NONDIM
  ! を与えることが可能です. 
  ! 
  ! *unit_symbol* には
  ! 日 dc_date_types#UNIT_SYMBOL_DAY, 時 dc_date_types#UNIT_SYMBOL_HOUR,
  ! 分 dc_date_types#UNIT_SYMBOL_MIN, 秒 dc_date_types#UNIT_SYMBOL_SEC 
  ! 無次元時間 dc_date_types#UNIT_SYMBOL_NONDIM
  ! を与えることが可能です. 
  !
  ! これらに該当しないものを *unit* または *unit_symbol* 
  ! に与えた場合, もしくは引数を両方とも与えない場合, 0.0 が返ります.
  !
  use dc_types, only: dp, token
  use dc_date_generic, only: evalnondim, evalsec, evalmin, evalhour, evalday, &
    & parsetimeunits
  use dc_date_types, only: dc_difftime, &
    & unit_symbol_day, unit_symbol_hour, unit_symbol_min, &
    & unit_symbol_sec, unit_symbol_nondim, unit_symbol_err
  implicit none
  real(DP):: result
  type(DC_DIFFTIME), intent(in):: diff
  character(*), intent(in):: unit
  integer, intent(in), optional:: unit_symbol
  integer:: symbol
continue
  symbol = unit_symbol_err
  if ( present(unit_symbol) ) then
    symbol = unit_symbol
  else
    symbol = parsetimeunits(unit)
  end if
 
  if ( symbol == unit_symbol_nondim ) then
    result = evalnondim(diff)
  elseif ( symbol == unit_symbol_sec ) then
    result = evalsec(diff)
  elseif ( symbol == unit_symbol_min ) then
    result = evalmin(diff)
  elseif ( symbol == unit_symbol_hour ) then
    result = evalhour(diff)
  elseif ( symbol == unit_symbol_day ) then
    result = evalday(diff)
  else
    result = 0.0_dp
  end if

References dc_types::dp, dc_types::token, dc_date_types::unit_symbol_day, dc_date_types::unit_symbol_err, dc_date_types::unit_symbol_hour, dc_date_types::unit_symbol_min, dc_date_types::unit_symbol_nondim, and dc_date_types::unit_symbol_sec.

dcdifftimeevalday()

real(dp) function dcdifftimeevalday

(

type(dc_difftime), intent(in)

diff

)

Definition at line 266 of file dcdatetimeeval.f90.

  !
  ! dc_date_types#DC_DIFFTIME 型変数の日時を日数に換算して
  ! 倍精度実数型変数で返します. (例えば 12 時間は 0.5 日と換算されます).
  !
  ! 1 ヶ月は dc_date_types#CYCLIC_MDAYS と換算します.
  !
  use dc_types, only: dp
  use dc_date_generic, only: eval
  use dc_date_types, only: dc_difftime, cyclic_mdays
  use dc_scaledsec, only: dc_scaled_sec, assignment(=), operator(/), &
    & operator(+), operator(*), int
  implicit none
  real(DP):: result
  type(DC_DIFFTIME), intent(in):: diff
  type(DC_SCALED_SEC):: day, mon, sec
continue
  call eval(diff, sclmon = mon, sclday = day, sclsec = sec)
  result = int(mon * cyclic_mdays) + day + sec / diff % day_seconds

References dc_date_types::cyclic_mdays, and dc_types::dp.

dcdifftimeevalhour()

real(dp) function dcdifftimeevalhour

(

type(dc_difftime), intent(in)

diff

)

Definition at line 308 of file dcdatetimeeval.f90.

  !
  ! dc_date_types#DC_DIFFTIME 型変数の日時を時間に換算して
  ! 倍精度実数型変数で返します. 
  ! (例えば 2 日は 48 時間に, 30 分 は 0.5 時間と換算されます).
  !
  ! 1 ヶ月は dc_date_types#CYCLIC_MDAYS と換算します.
  !
  use dc_types, only: dp
  use dc_date_generic, only: eval
  use dc_date_types, only: dc_difftime, hour_seconds, cyclic_mdays
  use dc_scaledsec, only: dc_scaled_sec, assignment(=), operator(/), &
    & operator(+), operator(*), int
  implicit none
  real(DP):: result
  type(DC_DIFFTIME), intent(in):: diff
  type(DC_SCALED_SEC):: mon, day, sec
continue
  call eval(diff, sclmon = mon, sclday = day, sclsec = sec)
  result = ( int(mon * cyclic_mdays) + day &
    &         * diff % day_seconds + sec) / hour_seconds

References dc_date_types::cyclic_mdays, dc_types::dp, and dc_date_types::hour_seconds.

dcdifftimeevalmin()

real(dp) function dcdifftimeevalmin

(

type(dc_difftime), intent(in)

diff

)

Definition at line 352 of file dcdatetimeeval.f90.

  !
  ! dc_date_types#DC_DIFFTIME 型変数の日時を分に換算して
  ! 倍精度実数型変数で返します. 
  ! (例えば 1 日は 3600 分に, 30 秒 は 0.5 分と換算されます).
  !
  ! 1 ヶ月は dc_date_types#CYCLIC_MDAYS と換算します.
  !
  use dc_types, only: dp
  use dc_date_generic, only: eval
  use dc_date_types, only: dc_difftime, min_seconds, cyclic_mdays
  use dc_scaledsec, only: dc_scaled_sec, assignment(=), operator(/), &
    & operator(+), operator(*), int
  implicit none
  real(DP):: result
  type(DC_DIFFTIME), intent(in):: diff
  type(DC_SCALED_SEC):: mon, day, sec
continue
  call eval(diff, sclmon = mon, sclday = day, sclsec = sec)
  result = ( int(mon * cyclic_mdays) + day &
    &         * diff % day_seconds + sec) / min_seconds

References dc_date_types::cyclic_mdays, dc_types::dp, and dc_date_types::min_seconds.

dcdifftimeevalnondim()

real(dp) function dcdifftimeevalnondim

(

type(dc_difftime), intent(in)

diff

)

Definition at line 426 of file dcdatetimeeval.f90.

  !
  ! dc_date_types#DC_DIFFTIME 型変数の日時を無時限時間に換算して
  ! 倍精度実数型変数で返します.
  !
  ! 1 ヶ月は dc_date_types#CYCLIC_MDAYS と換算します.
  !
  use dc_types, only: dp
  use dc_date_generic, only: eval
  use dc_date_types, only: dc_difftime, cyclic_mdays
  implicit none
  real(DP):: result
  type(DC_DIFFTIME), intent(in):: diff
  real(DP):: nondim
continue
  call eval(diff, nondim=nondim)
  result = nondim

References dc_date_types::cyclic_mdays, and dc_types::dp.

dcdifftimeevalsclsec()

type(dc_scaled_sec) function dcdifftimeevalsclsec

(

type(dc_difftime), intent(in)

diff

)

Definition at line 468 of file dcdatetimeeval.f90.

  !
  ! dc_date_types#DC_DIFFTIME 型変数の日時を秒に換算して
  ! DC_SCALED_SEC 型で返します.
  !
  ! 1 ヶ月は dc_date_types#CYCLIC_MDAYS と換算します.
  !
  use dc_types, only: dp
  use dc_date_generic, only: eval
  use dc_date_types, only: dc_difftime, cyclic_mdays
  use dc_scaledsec, only: dc_scaled_sec, operator(/), &
    & operator(==), operator(+), operator(*), int
  implicit none
  type(DC_SCALED_SEC):: result
  type(DC_DIFFTIME), intent(in):: diff
  type(DC_SCALED_SEC):: mon, day, sec
  type(DC_SCALED_SEC):: zero_sec
continue
  if ( .not. diff % nondim_flag ) then
    call eval(diff, sclmon = mon, sclday = day, sclsec = sec)
    if ( mon == zero_sec ) then
      result = day * diff % day_seconds + sec
    else
      result = ( int(mon * cyclic_mdays) + day ) * diff % day_seconds + sec
    end if
  else
    call eval(diff, sclnondim = sec)
    result = sec
  end if

References dc_date_types::cyclic_mdays, and dc_types::dp.

dcdifftimeevalsec()

real(dp) function dcdifftimeevalsec

(

type(dc_difftime), intent(in)

diff

)

Definition at line 400 of file dcdatetimeeval.f90.

  !
  ! dc_date_types#DC_DIFFTIME 型変数の日時を秒に換算して
  ! 倍精度実数型変数で返します.
  !
  ! 1 ヶ月は dc_date_types#CYCLIC_MDAYS と換算します.
  !
  use dc_types, only: dp
  use dc_date_generic, only: eval
  use dc_date_types, only: dc_difftime, cyclic_mdays
  use dc_scaledsec, only: assignment(=)
  implicit none
  real(DP):: result
  type(DC_DIFFTIME), intent(in):: diff
  integer:: mon, day
  real(DP):: sec, day_seconds
continue
  if ( .not. diff % nondim_flag ) then
    call eval(diff, mon = mon, day = day, sec = sec)
    day_seconds = diff % day_seconds
    result = int(mon * cyclic_mdays) + day * day_seconds + sec
  else
    call eval(diff, nondim = result)
  end if

References dc_date_types::cyclic_mdays, dc_date_types::day_seconds, and dc_types::dp.