DBCSR_ASSERT handler
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
character(len=*), | intent(in) | :: | filename | |||
integer, | intent(in) | :: | lineNr |
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