dbcsr_warn Subroutine

public subroutine dbcsr_warn(location, message)

Issue a warning

Arguments

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

Contents

Source Code


Source Code

   SUBROUTINE dbcsr_warn(location, message)
      !! Issue a warning
      CHARACTER(len=*), INTENT(in)                       :: location, message

      IF (ASSOCIATED(dbcsr_warn_hook)) THEN
         CALL dbcsr_warn_hook(location, message)
      ELSE
         WRITE (default_output_unit, *) "WARNING in "//TRIM(location)//" "//TRIM(message)
         CALL m_flush(default_output_unit)
      END IF
   END SUBROUTINE dbcsr_warn