dbcsr__w Subroutine

public subroutine dbcsr__w(filename, lineNr, message)

DBCSR_WARN handler

Arguments

TypeIntentOptionalAttributesName
character(len=*), intent(in) :: filename
integer, intent(in) :: lineNr
character(len=*), intent(in) :: message

Contents

Source Code


Source Code

   SUBROUTINE dbcsr__w(filename, lineNr, message)
      !! DBCSR_WARN handler
      CHARACTER(len=*), INTENT(in)                       :: filename
      INTEGER, INTENT(in)                                :: lineNr
      CHARACTER(len=*), INTENT(in)                       :: message

      CALL dbcsr_warn(location=dbcsr__l(filename, lineNr), message=message)
   END SUBROUTINE dbcsr__w