monitor_obj_Formats Subroutine

private pure subroutine monitor_obj_Formats(this)

Defines how to print values. Format specifier for an integer Format specifier for a real Format specifier for a logical Format specifier for a full line

Type Bound

monitor_obj

Arguments

Type IntentOptional Attributes Name
class(monitor_obj), intent(inout) :: this

A monitor object

Called by

proc~~monitor_obj_formats~~CalledByGraph proc~monitor_obj_formats monitor_obj%monitor_obj_Formats proc~monitor_obj_init monitor_obj%monitor_obj_Init proc~monitor_obj_init->proc~monitor_obj_formats proc~monitor_set_create monitor_set%monitor_set_Create proc~monitor_set_create->proc~monitor_obj_init proc~cdifs_obj_preparesolvermonitor cdifs_obj_PrepareSolverMonitor proc~cdifs_obj_preparesolvermonitor->proc~monitor_set_create proc~respart_set_createmonitor ResPart_set%ResPart_set_CreateMonitor proc~cdifs_obj_preparesolvermonitor->proc~respart_set_createmonitor proc~grans_obj_preparesolvermonitor grans_obj_PrepareSolverMonitor proc~grans_obj_preparesolvermonitor->proc~monitor_set_create proc~grans_obj_preparesolvermonitor->proc~respart_set_createmonitor proc~particle_set_createmonitor particle_set%particle_set_CreateMonitor proc~particle_set_createmonitor->proc~monitor_set_create proc~respart_set_createmonitor->proc~monitor_set_create proc~cdifs_obj_preparesolver cdifs_obj_PrepareSolver proc~cdifs_obj_preparesolver->proc~cdifs_obj_preparesolvermonitor proc~grans_obj_preparesolver grans_obj_PrepareSolver proc~grans_obj_preparesolver->proc~grans_obj_preparesolvermonitor interface~cdifs_obj_preparesolver cdifs_obj%cdifs_obj_PrepareSolver interface~cdifs_obj_preparesolver->proc~cdifs_obj_preparesolver interface~grans_obj_preparesolver grans_obj%grans_obj_PrepareSolver interface~grans_obj_preparesolver->proc~grans_obj_preparesolver

Source Code

    pure subroutine monitor_obj_Formats(this)
      !> Defines how to print values.
      implicit none
      class(monitor_obj), intent(inout) :: this                                !! A monitor object

      !< Format specifier for an integer
      write(this%FMT(1),fmt="(a,I0,a)") "(I",colSize,")"
      !< Format specifier for a real
      write(this%FMT(2),fmt="(a,I0,a)") "(ES",colSize,".6)"
      !< Format specifier for a logical
      write(this%FMT(3),fmt="(a,I0,a)") "(L",colSize,")"
      !< Format specifier for a full line
      write(this%FMT(4),fmt='(a,I0,a,I0,a)') "(",size(this%col),"(a",colSize,",a))"

      return
    end subroutine monitor_obj_Formats