dbcsr_warn_handler Subroutine

public subroutine dbcsr_warn_handler(location, message)

Signal a warning

Arguments

TypeIntentOptionalAttributesName
character(len=*), intent(in) :: location
character(len=*), intent(in) :: message

Contents

Source Code


Source Code

   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