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 )

Parse comma-separated string to double precision real array pointer

Parses string_in separated by comma "," and returns double precision real array pointer double_ptr(:). The array size is determined automatically based on string content. double_ptr must be null or undefined when passed. Memory leak occurs if already allocated.

Parameters

[out]	double_ptr	Double precision real array pointer
[in]	string_in	Comma-separated string

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 )

Parse comma-separated string to integer array pointer

Parses string_in separated by comma "," and returns integer array pointer int_ptr(:). The array size is determined automatically based on string content. int_ptr must be null or undefined when passed. Memory leak occurs if already allocated.

Parameters

[out]	int_ptr	Integer array pointer
[in]	string_in	Comma-separated string

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 )

Parse comma-separated string to single precision real array pointer

Parses string_in separated by comma "," and returns single precision real array pointer real_ptr(:). The array size is determined automatically based on string content. real_ptr must be null or undefined when passed. Memory leak occurs if already allocated.

Parameters

[out]	real_ptr	Single precision real array pointer
[in]	string_in	Comma-separated string

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