log_information Subroutine

   subroutine log_information(msg, module, procedure, flush_log)
      character(len=*), intent(in)  :: msg
      !! Log message to print
      character(len=*), optional, intent(in)  :: module
      !! The name of the module in which the call happens
      character(len=*), optional, intent(in)  :: procedure
      !! The name of the procedure in which the call happens
      logical, optional, intent(in)  :: flush_log
      !! Flush the I/O buffer?
      ! internal
      logical :: flush_
      flush_ = optval(flush_log, .true.)
      if (logger_is_active) then
         call logger%log_information(msg, module=module, procedure=procedure)
         if (flush_) call flush_log_units()
      else
         print '("INFO: ",A)', msg
      end if
   end subroutine log_information