Parse a real with a default fallback on I/O error.
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| character(len=*), | intent(in) | :: | s | |||
| real, | intent(in) | :: | default |
pure real function parse_real(s, default) result(v) character(len=*), intent(in) :: s real, intent(in) :: default integer :: ios read(s, *, iostat=ios) v if (ios /= 0) v = default end function parse_real