dc_string::stod Interface Reference

Private Member Functions
real(dp) function	atod_scalar (string_in)

Detailed Description

Definition at line 57 of file dc_string.f90.

Member Function/Subroutine Documentation

atod_scalar()

real(dp) function dc_string::stod::atod_scalar ( character(len = *), intent(in)  string_in )

private

Definition at line 557 of file dc_string.f90.

    !
    ! string で与えられる文字型変数を、倍精度実数型変数にして返します。
    ! もしも string が数値に変換できない場合、0.0 が返ります。
    !
    use dc_types, only: string
    character(len = *), intent(in):: string_in
    integer:: ios
    character(len = STRING):: buffer
    integer:: ipoint, iexp
    intrinsic scan

    continue

    buffer = string_in
    ! もし整定数をいれてしまった場合は小数点を附加
    if (index(buffer, '.') == 0) then
      iexp = scan(buffer, "eEdD")
      if (iexp /= 0) then
        buffer(iexp+1: len(buffer)) = buffer(iexp: len(buffer)-1)
        ipoint = iexp
      else
        ipoint = len_trim(buffer) + 1
      endif
      buffer(ipoint: ipoint) = '.'
    endif
    read(unit=buffer, fmt="(g80.10)", iostat=ios) result
    if (ios /= 0) result = 0.0

---

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

• dc_utils/dc_string.f90