dcdatetimeparseunits.f90 File Reference

Go to the source code of this file.

Functions/Subroutines
integer function	dcdatetimeparseunits (str)
	単位を表す文字列の解析

Function/Subroutine Documentation

dcdatetimeparseunits()

integer function dcdatetimeparseunits

(

character(*), intent(in)

str

)

単位を表す文字列の解析

Author

Yasuhiro MORIKAWA

Copyright

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

このファイルには日時単位の文字列を解析する実装手続きが含まれています。

単位文字列を解析して対応するシンボルを返す

引数 str に与えられた文字列を解釈し, 日時の単位を示す シンボルを返します. それぞれ以下の文字列が日時の単位として解釈されます. 大文字と小文字は区別されません.

単位	文字列定数
年	dc_date_types#UNIT_YEAR
月	dc_date_types#UNIT_MONTH
日	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

返るシンボル (整数型) は以下の通りです.

単位	シンボル定数
年	dc_date_types#UNIT_SYMBOL_YEAR
月	dc_date_types#UNIT_SYMBOL_MONTH
日	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

これらに該当しない文字列を str に与えた場合, dc_date_types#UNIT_SYMBOL_ERR が返ります.

Parameters

[in]

str

解析する文字列

Returns

日時の単位を示すシンボル

Definition at line 94 of file dcdatetimeparseunits.f90.

 
  use dc_types, only: token
  use dc_date_types, only: unit_year, unit_month, unit_day, &
    & unit_hour, unit_min, unit_sec, unit_nondim, &
    & unit_symbol_year, unit_symbol_month, unit_symbol_day, &
    & unit_symbol_hour, unit_symbol_min, unit_symbol_sec, &
    & unit_symbol_nondim, unit_symbol_err
  use dc_string, only: strieq
  implicit none
  character(*), intent(in):: str
  integer:: symbol
  integer:: unit_str_size, i
  character(TOKEN):: unit
continue
  unit = adjustl(str)
  unit_str_size = size(unit_nondim)
  do i = 1, unit_str_size
    if (strieq(trim(unit), trim(unit_nondim(i)))) then
      symbol = unit_symbol_nondim
      return
    end if
  end do
 
  unit_str_size = size(unit_sec)
  do i = 1, unit_str_size
    if (strieq(trim(unit), trim(unit_sec(i)))) then
      symbol = unit_symbol_sec
      return
    end if
  end do
 
  unit_str_size = size(unit_min)
  do i = 1, unit_str_size
    if (strieq(trim(unit), trim(unit_min(i)))) then
      symbol = unit_symbol_min
      return
    end if
  end do
 
  unit_str_size = size(unit_hour)
  do i = 1, unit_str_size
    if (strieq(trim(unit), trim(unit_hour(i)))) then
      symbol = unit_symbol_hour
      return
    end if
  end do
 
  unit_str_size = size(unit_day)
  do i = 1, unit_str_size
    if (strieq(trim(unit), trim(unit_day(i)))) then
      symbol = unit_symbol_day
      return
    end if
  end do
 
  unit_str_size = size(unit_month)
  do i = 1, unit_str_size
    if (strieq(trim(unit), trim(unit_month(i)))) then
      symbol = unit_symbol_month
      return
    end if
  end do
 
  unit_str_size = size(unit_year)
  do i = 1, unit_str_size
    if (strieq(trim(unit), trim(unit_year(i)))) then
      symbol = unit_symbol_year
      return
    end if
  end do
 
  symbol = unit_symbol_err
 

References dc_types::token, dc_date_types::unit_day, dc_date_types::unit_hour, dc_date_types::unit_min, dc_date_types::unit_month, dc_date_types::unit_nondim, dc_date_types::unit_sec, 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_month, dc_date_types::unit_symbol_nondim, dc_date_types::unit_symbol_sec, dc_date_types::unit_symbol_year, and dc_date_types::unit_year.