fdoc_progress.f90 › fdoc_progress

subroutinewarn

subroutine warn(message)

Write warning message to standard error, keeping the bar intact. This can be called from any thread.

Arguments

Name	Type	Intent	Attributes	Description
message	character(len=*)	in		the warning

Calls

draw

Source

Show the code

subroutine warn(message)
    character(len=*), intent(in) :: message !! the warning

    !$omp critical (file_io)
    if (drawn) write (output_unit, '(a)', advance='no') achar(13)//ESC//'[2K'
    if (drawn) flush (output_unit)
    write (error_unit, '(a)') 'Warning: '//message
    flush (error_unit)
    if (drawn) call draw()
    !$omp end critical (file_io)
end subroutine warn

Graphs

Calls

Called by