write_log_line Subroutine

private subroutine write_log_line(unit, level, message, module, procedure)

Internal subroutine that will write the message to the log no interface to the public

Arguments

Type IntentOptional Attributes Name
integer(kind=default_int), intent(in) :: unit
character(len=*), intent(in) :: level
character(len=*), intent(in) :: message
character(len=*), intent(in), optional :: module
character(len=*), intent(in), optional :: procedure

Called by

proc~~write_log_line~~CalledByGraph proc~write_log_line write_log_line proc~log logger_type%log proc~log->proc~write_log_line

Source Code

   subroutine write_log_line(unit, level, message, module, procedure)
      !! Internal subroutine that will write the message to the log
      !! no interface to the public
      integer(default_int), intent(in) :: unit
      character(*), intent(in) :: level, message
      character(*), intent(in), optional :: module, procedure

      if (present(module) .and. present(procedure)) then
         write (unit, '(A, ": ", A, ".", A, ": ", A)') trim(level), trim(module), trim(procedure), trim(message)
      else if (present(module)) then
         write (unit, '(A, ": ", A, ": ", A)') trim(level), trim(module), trim(message)
      else
         write (unit, '(A, ": ", A)') trim(level), trim(message)
      end if
   end subroutine write_log_line