dc_string::get_array Interface Reference

Public Member Functions
subroutine	str2ip (int_ptr, string_in)
subroutine	str2rp (real_ptr, string_in)
subroutine	str2dp (double_ptr, string_in)

Detailed Description

Definition at line 120 of file dc_string.f90.

Member Function/Subroutine Documentation

str2dp()

subroutine dc_string::get_array::str2dp	(	real(dp), dimension(:), pointer	double_ptr,
		character(len = *), intent(in)	string_in )

カンマ区切り文字列を倍精度実数配列ポインタに変換

string で与えられる文字型変数をカンマ「,」で区切り、 倍精度実数型配列ポインタ double_ptr(:) にして返します。 double_ptr(:) の配列サイズは string の内容に応じて自動的に決まります。 ただし、double_ptr(:) は必ず空状態または不定状態で与えてください。 既に割り付けられている場合、メモリリークを起こします。

Parameters

[out]	double_ptr	倍精度実数配列ポインタ
[in]	string_in	カンマ区切り文字列

Definition at line 856 of file dc_string.f90.

    real(DP), pointer:: double_ptr(:) !(out)
    character(len = *), intent(in):: string_in
    integer:: i, j, idx, nvalues
    continue
    nvalues = 1
    i = 1
    do
      idx = index(string_in(i: ), ',')
      if (idx == 0) exit
      i = i + idx - 1 + 1
      nvalues = nvalues + 1
    enddo
    allocate(double_ptr(nvalues))
    i = 1
    j = 1
    do
      idx = index(string_in(i: ), ',')
      if (idx == 0) then
        double_ptr(j) = stod(string_in(i: ))
        exit
      endif
      double_ptr(j) = stod(string_in(i: i+idx-2))
      i = i + idx - 1 + 1
      j = j + 1
    enddo

str2ip()

subroutine dc_string::get_array::str2ip	(	integer, dimension(:), pointer	int_ptr,
		character(len = *), intent(in)	string_in )

カンマ区切り文字列を整数配列ポインタに変換

string で与えられる文字型変数をカンマ「,」で区切り、 整数型配列ポインタ int_ptr(:) にして返します。 int_ptr(:) の配列サイズは string の内容に応じて自動的に決まります。 ただし、int_ptr(:) は必ず空状態または不定状態で与えてください。 既に割り付けられている場合、メモリリークを起こします。

Parameters

[out]	int_ptr	整数配列ポインタ
[in]	string_in	カンマ区切り文字列

Definition at line 760 of file dc_string.f90.

    integer, pointer:: int_ptr(:) !(out)
    character(len = *), intent(in):: string_in
    integer:: i, j, idx, nvalues
    continue
    nvalues = 1
    i = 1
    do
      idx = index(string_in(i: ), ',')
      if (idx == 0) exit
      i = i + idx - 1 + 1
      nvalues = nvalues + 1
    enddo
    allocate(int_ptr(nvalues))
    i = 1
    j = 1
    do
      idx = index(string_in(i: ), ',')
      if (idx == 0) then
        int_ptr(j) = stoi(string_in(i: ))
        exit
      endif
      int_ptr(j) = stoi(string_in(i: i+idx-2))
      i = i + idx - 1 + 1
      j = j + 1
    enddo

str2rp()

subroutine dc_string::get_array::str2rp	(	real(sp), dimension(:), pointer	real_ptr,
		character(len = *), intent(in)	string_in )

カンマ区切り文字列を単精度実数配列ポインタに変換

string で与えられる文字型変数をカンマ「,」で区切り、 単精度実数型配列ポインタ real_ptr(:) にして返します。 real_ptr(:) の配列サイズは string の内容に応じて自動的に決まります。 ただし、real_ptr(:) は必ず空状態または不定状態で与えてください。 既に割り付けられている場合、メモリリークを起こします。

Parameters

[out]	real_ptr	単精度実数配列ポインタ
[in]	string_in	カンマ区切り文字列

Definition at line 808 of file dc_string.f90.

    real(SP), pointer:: real_ptr(:) !(out)
    character(len = *), intent(in):: string_in
    integer:: i, j, idx, nvalues
    continue
    nvalues = 1
    i = 1
    do
      idx = index(string_in(i: ), ',')
      if (idx == 0) exit
      i = i + idx - 1 + 1
      nvalues = nvalues + 1
    enddo
    allocate(real_ptr(nvalues))
    i = 1
    j = 1
    do
      idx = index(string_in(i: ), ',')
      if (idx == 0) then
        real_ptr(j) = stor(string_in(i: ))
        exit
      endif
      real_ptr(j) = stor(string_in(i: i+idx-2))
      i = i + idx - 1 + 1
      j = j + 1
    enddo

---

The documentation for this interface was generated from the following file:

• /build/gtool5-1.0.0~rc5/debian/build-parallel/src/dc_utils/dc_string.f90