dbcsr__a Subroutine

public subroutine dbcsr__a(filename, lineNr)

DBCSR_ASSERT handler

Arguments

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

Contents

Source Code


Source Code

   SUBROUTINE dbcsr__a(filename, lineNr)
      !! DBCSR_ASSERT handler
      CHARACTER(len=*), INTENT(in)                       :: filename
      INTEGER, INTENT(in)                                :: lineNr

      CALL dbcsr_abort(location=dbcsr__l(filename, lineNr), message="DBCSR_ASSERT failed")
      ! compiler hint
      STOP "Never return from here"
   END SUBROUTINE dbcsr__a