dcunits_com Module Reference

dc_units モジュール用の内部モジュール More...

Functions/Subroutines
subroutine, public	dcunitssetline (line)
subroutine, public	dcunitsgettoken (tokentype, ivalue, dvalue, cvalue)

Variables
integer, parameter, public	s_eof = -128
	ファイル/文字列終端シンボル
integer, parameter, public	s_shift = 300
	シフト演算子シンボル
integer, parameter, public	s_text = 301
	テキスト/名前トークンシンボル
integer, parameter, public	s_multiply = 302
	乗算演算子シンボル
integer, parameter, public	s_divide = 303
	除算演算子シンボル
integer, parameter, public	s_exponent = 304
	指数演算子シンボル
integer, parameter, public	s_openpar = 305
	開き括弧シンボル
integer, parameter, public	s_closepar = 306
	閉じ括弧シンボル
integer, parameter, public	s_real = 307
	実数シンボル
integer, parameter, public	s_integer = 308
	整数シンボル

Detailed Description

dc_units モジュール用の内部モジュール

Author

Eizi TOYODA, Yasuhiro MORIKAWA

Copyright

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

Function/Subroutine Documentation

dcunitsgettoken()

subroutine, public dcunits_com::dcunitsgettoken	(	integer, intent(out)	tokentype,
		integer, dimension(5), intent(out)	ivalue,
		real(dp), intent(out)	dvalue,
		character(*), intent(out)	cvalue
	)

入力行から次のトークンを取得します

入力行をスキャンし, 次のトークンを返します. トークンの種類には演算子, 数値, テキストがあります.

Parameters

[out]	tokentype	トークンの種類 (S_EOF, S_TEXT など)
[out]	ivalue	整数値配列 (整数トークン用)
[out]	dvalue	実数値 (実数トークン用)
[out]	cvalue	文字値 (トークン文字列)

Definition at line 172 of file dcunits_com.f90.

    use dc_regex, only: match
    implicit none
    integer, intent(out):: tokentype
    integer, intent(out):: ivalue(5)
    real(DP), intent(out):: dvalue
    character(*), intent(out):: cvalue
    integer:: iend, istr, ilen, ios
    ivalue = 0
    dvalue = 0.0_dp
    cvalue = ""
    iend = len_trim(thisline)
    do
      if (i > iend) exit
      ! '#' 文字が現われれば EOF シンボルを返す
      call match("^##", thisline(i:), istr, ilen)
      if (istr > 0) then
        i = iend + 1
        tokentype = s_eof
        return
      endif
      ! 空白を無視
      call match("^#s+", thisline(i:), istr, ilen)
      if (istr > 0) then
        i = i + ilen
        if (i > iend) exit
      endif
      ! シフト演算子チェック
      call match("^@", thisline(i:), istr, ilen)
      if (istr <= 0) call match("^from", thisline(i:), istr, ilen)
      if (istr <= 0) call match("^at", thisline(i:), istr, ilen)
      if (istr > 0) then
        i = i + ilen
        tokentype = s_shift
        cvalue = thisline(i: i+ilen-1)
        return
      endif
      ! 名前チェック
      call match("^#a#w*#a", thisline(i:), istr, ilen)
      if (istr <= 0) call match("^[#a'""]", thisline(i:), istr, ilen)
      if (istr > 0) then
        tokentype = s_text
        cvalue = thisline(i: i+ilen-1)
        i = i + ilen
        return
      endif
      ! '*' の前に '**' を認知せねば。
      call match("^#^", thisline(i:), istr, ilen)
      if (istr <= 0) call match("^#*#*", thisline(i:), istr, ilen)
      if (istr > 0) then
        tokentype = s_exponent
        cvalue = thisline(i: i+ilen-1)
        i = i + ilen
        return
      endif
      ! 実数にならない小数点は S_MULTIPLY
      call match("^#.[^#d]", thisline(i:), istr, ilen)
      if (istr <= 0) call match("^#*", thisline(i:), istr, ilen)
      if (istr > 0) then
        tokentype = s_multiply
        cvalue = thisline(i: i+ilen-1)
        i = i + 1
        return
      endif
      ! 実数チェック. 小数点は語頭にあれば必ず数字が伴うので安心せよ
      call match("^[-+]?#d*#.#d*[EeDd][-+]?#d+", thisline(i:), istr, ilen)
      if (istr <= 0) call match("^[-+]?#d*#.#d*", thisline(i:), istr, ilen)
      if (istr > 0) then
        read(thisline(i: i+ilen-1), fmt=*, &
          & iostat=ios) dvalue
        if (ios /= 0) dvalue = huge(dvalue)
        cvalue = thisline(i: i+ilen-1)
        tokentype = s_real
        i = i + ilen
        return
      endif
      ! 整数チェック
      call match("^[-+]?#d+", thisline(i:), istr, ilen)
      if (istr > 0) then
        read(thisline(i: i+ilen-1), fmt=*, &
          & iostat=ios) ivalue(1)
        if (ios /= 0) ivalue(1) = huge(1)
        cvalue = thisline(i: i+ilen-1)
        tokentype = s_integer
        i = i + ilen
        return
      endif
      ! ほかの１字トークンチェック
      if (thisline(i:i) == '/') then
        tokentype = s_divide
        cvalue = thisline(i:i)
        i = i + 1
        return
      endif
      if (thisline(i:i) == '(') then
        tokentype = s_openpar
        cvalue = thisline(i:i)
        i = i + 1
        return
      endif
      if (thisline(i:i) == ')') then
        tokentype = s_closepar
        cvalue = thisline(i:i)
        i = i + 1
        return
      endif
      ! だめだこりゃ。はい次いってみよう
      tokentype = ichar(thisline(i:i))
      cvalue = thisline(i:i)
      i = i + 1
      return
    enddo
    i = iend + 1
    tokentype = s_eof
    cvalue = ""

References dc_regex::match(), s_closepar, s_divide, s_eof, s_exponent, s_integer, s_multiply, s_openpar, s_real, s_shift, and s_text.

Here is the call graph for this function:

dcunitssetline()

subroutine, public dcunits_com::dcunitssetline

(

character(*), intent(in)

line

)

スキャナの入力行を設定します

スキャンする入力行を設定し, スキャナ位置をリセットします.

Parameters

[in]

line

スキャンする入力行

Definition at line 142 of file dcunits_com.f90.

    implicit none
    character(*), intent(in):: line
    thisline = line
    i = 1

Variable Documentation

s_closepar

dcunits_com::s_closepar = 306

閉じ括弧シンボル

Definition at line 103 of file dcunits_com.f90.

  integer, parameter:: S_CLOSEPAR = 306

s_divide

dcunits_com::s_divide = 303

除算演算子シンボル

Definition at line 88 of file dcunits_com.f90.

  integer, parameter:: S_DIVIDE = 303

s_eof

dcunits_com::s_eof = -128

ファイル/文字列終端シンボル

Definition at line 68 of file dcunits_com.f90.

  integer, parameter:: S_EOF = -128

s_exponent

dcunits_com::s_exponent = 304

指数演算子シンボル

Definition at line 93 of file dcunits_com.f90.

  integer, parameter:: S_EXPONENT = 304

s_integer

dcunits_com::s_integer = 308

整数シンボル

Definition at line 113 of file dcunits_com.f90.

  integer, parameter:: S_INTEGER = 308

s_multiply

dcunits_com::s_multiply = 302

乗算演算子シンボル

Definition at line 83 of file dcunits_com.f90.

  integer, parameter:: S_MULTIPLY = 302

s_openpar

dcunits_com::s_openpar = 305

開き括弧シンボル

Definition at line 98 of file dcunits_com.f90.

  integer, parameter:: S_OPENPAR = 305

s_real

dcunits_com::s_real = 307

実数シンボル

Definition at line 108 of file dcunits_com.f90.

  integer, parameter:: S_REAL = 307

s_shift

dcunits_com::s_shift = 300

シフト演算子シンボル

Definition at line 73 of file dcunits_com.f90.

  integer, parameter:: S_SHIFT = 300

s_text

dcunits_com::s_text = 301

テキスト/名前トークンシンボル

Definition at line 78 of file dcunits_com.f90.

  integer, parameter:: S_TEXT = 301