Signal a warning
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
character(len=*), | intent(in) | :: | location | |||
character(len=*), | intent(in) | :: | message |
SUBROUTINE dbcsr_warn_handler(location, message)
!! Signal a warning
CHARACTER(len=*), INTENT(in) :: location, message
INTEGER :: unit_nr
!$OMP MASTER
warning_counter = warning_counter + 1
!$OMP END MASTER
unit_nr = dbcsr_logger_get_default_io_unit()
IF (unit_nr > 0) THEN
CALL print_message("WARNING in "//TRIM(location)//' :: '//TRIM(ADJUSTL(message)), unit_nr, 1, 1, 1)
CALL m_flush(unit_nr)
END IF
END SUBROUTINE dbcsr_warn_handler