sim_print Subroutine

private subroutine sim_print(me)

Arguments

Type IntentOptional Attributes Name
type(simulation_t), intent(in) :: me

Calls

proc~~sim_print~~CallsGraph proc~sim_print sim_print interface~to_str to_str proc~sim_print->interface~to_str proc~s_to_str s_to_str proc~sim_print->proc~s_to_str proc~str_from_int str_from_int interface~to_str->proc~str_from_int proc~str_from_real str_from_real interface~to_str->proc~str_from_real

Called by

proc~~sim_print~~CalledByGraph proc~sim_print sim_print proc~sim_step_management simulation_t%sim_step_management proc~sim_step_management->proc~sim_print proc~main_loop main_loop proc~main_loop->proc~sim_step_management program~reims_p reims_p program~reims_p->proc~main_loop

Source Code

subroutine sim_print(me)
    type(simulation_t), intent(in) :: me
    character(19) :: scheme
    scheme = 'Implicit  new dt = '
    if(me%explicit) scheme = 'Explicit  new dt = '
    if(me%rejected) scheme = 'Rejected  new dt = '
    print*, scheme, s_to_str(me%dt), '  t = ', s_to_str(me%t), '  no. = ', to_str(me%step)
end subroutine sim_print