read_matching_summary_real Subroutine

public subroutine read_matching_summary_real(value, key, result_value)

Arguments

Type IntentOptional Attributes Name
character(len=*), intent(in) :: value
character(len=*), intent(in) :: key
real(kind=dp), intent(out) :: result_value

Calls

proc~~read_matching_summary_real~~CallsGraph proc~read_matching_summary_real read_matching_summary_real proc~is_decimal_real_token is_decimal_real_token proc~read_matching_summary_real->proc~is_decimal_real_token

Called by

proc~~read_matching_summary_real~~CalledByGraph proc~read_matching_summary_real read_matching_summary_real proc~read_matching_plane_summary_key read_matching_plane_summary_key proc~read_matching_plane_summary_key->proc~read_matching_summary_real

Source Code

  subroutine read_matching_summary_real(value, key, result_value)
    character(len=*), intent(in) :: value, key
    real(dp), intent(out) :: result_value
    integer :: ios

    if (.not. is_decimal_real_token(trim(value))) then
      error stop 'Resume checkpoint matching-plane key has an invalid real token: '//trim(key)
    end if
    read (value, *, iostat=ios) result_value
    if (ios /= 0) error stop 'Resume checkpoint matching-plane real value could not be parsed: '//trim(key)
  end subroutine read_matching_summary_real