stringtool_obj_FormatTime Function

private pure function stringtool_obj_FormatTime(Time) result(val)

Returns a string of a time value formatted to ES12.4.

Type Bound

stringtool_obj

Arguments

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

Time

Return Value character(len=:), allocatable

Returned string with formatted time


Called by

proc~~stringtool_obj_formattime~~CalledByGraph proc~stringtool_obj_formattime stringtool_obj%stringtool_obj_FormatTime proc~eulerian_set_writehdf5 eulerian_set%eulerian_set_WriteHDF5 proc~eulerian_set_writehdf5->proc~stringtool_obj_formattime proc~marker_set_writehdf5 marker_set%marker_set_WriteHDF5 proc~marker_set_writehdf5->proc~stringtool_obj_formattime proc~particle_set_writehdf5 particle_set%particle_set_WriteHDF5 proc~particle_set_writehdf5->proc~stringtool_obj_formattime proc~respart_set_writehdf5 ResPart_set%ResPart_set_WriteHDF5 proc~respart_set_writehdf5->proc~stringtool_obj_formattime proc~respart_set_writehdf5->proc~marker_set_writehdf5 proc~solid_set_writehdf5 solid_set%solid_set_WriteHDF5 proc~solid_set_writehdf5->proc~stringtool_obj_formattime proc~solid_set_writehdf5->proc~marker_set_writehdf5

Source Code

    pure function stringtool_obj_FormatTime(time) result(val)
      !> Returns a string of a time value formatted to ES12.4.
      real(wp),         intent(in)  :: Time                                    !! Time
      character(len=:), allocatable :: val                                     !! Returned string with formatted time
      ! Work variables
      character(len=str64) :: tmpC

      write(tmpC,'(ES12.4)') time

      val = trim(adjustl(tmpC))

      return
    end function stringtool_obj_FormatTime