f_utl_r2c Function

public function f_utl_r2c(r) result(c)

Convert real to char.

Arguments

Type IntentOptional Attributes Name
real(kind=wp), intent(in) :: r

Return Value character(len=256)


Source Code

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