ftoa Function

public pure function ftoa(x) result(s)

Format a real number with two decimal places.

Arguments

Type IntentOptional Attributes Name
real, intent(in) :: x

Return Value character(len=:), allocatable


Called by

proc~~ftoa~~CalledByGraph proc~ftoa ftoa proc~compute_watch_files_from_settings compute_watch_files_from_settings proc~compute_watch_files_from_settings->proc~ftoa proc~print_banner print_banner proc~print_banner->proc~ftoa proc~rebuild_watch_list rebuild_watch_list proc~rebuild_watch_list->proc~ftoa proc~rebuild_watch_list->proc~compute_watch_files_from_settings proc~rebuild_watch_list->proc~print_banner proc~report_changes report_changes proc~report_changes->proc~ftoa proc~run_command_and_report run_command_and_report proc~run_command_and_report->proc~ftoa proc~handle_manifest_change handle_manifest_change proc~handle_manifest_change->proc~rebuild_watch_list proc~run_once run_once proc~run_once->proc~run_command_and_report proc~watcher_init watcher_t%watcher_init proc~watcher_init->proc~rebuild_watch_list proc~watcher_init->proc~run_once proc~watcher_run watcher_t%watcher_run proc~watcher_run->proc~rebuild_watch_list proc~watcher_run->proc~report_changes proc~watcher_run->proc~run_command_and_report proc~watcher_run->proc~handle_manifest_change

Source Code

   pure function ftoa(x) result(s)
      real, intent(in) :: x
      character(len=:), allocatable :: s
      character(len=64) :: buf
      write(buf,'(f0.2)') x
      s = trim(buf)
   end function ftoa