Converts char to real.
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
character(len=*), | intent(in) | :: | c |
function f_utl_c2r(c) result(r) ! ==== Description !! Converts char to real. ! ==== Declarations character(len=*), intent(in) :: c real(wp) :: r ! ==== Instructions read(c, *) r end function f_utl_c2r