Convert real to char.
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
real(kind=wp), | intent(in) | :: | r |
function f_utl_r2c(r) result(c) ! ==== Description !! Convert real to char. ! ==== Declarations real(wp), intent(in) :: r character(len=256) :: c ! ==== Instructions write(c, '(F7.2)') r c = adjustl(c) end function f_utl_r2c