tem_log_for Subroutine

private subroutine tem_log_for(me, level, msg)

Log a message in the given logger.

Arguments

Type IntentOptional Attributes Name
type(tem_logging_type), intent(in) :: me
integer, intent(in) :: level
character(len=*), intent(in) :: msg

Source Code

  subroutine tem_log_for( me, level, msg )
    ! ---------------------------------------------------------------------------
    !>
    type(tem_logging_type), intent(in) :: me
    !>
    integer, intent(in) :: level
    !>
    character(len=*), intent(in) :: msg
    ! ---------------------------------------------------------------------------

    write(me%funit(level),'(a)') msg

  end subroutine tem_log_for