dbcsr__b Subroutine

public subroutine dbcsr__b(filename, lineNr, message)

DBCSR_ABORT handler

Arguments

Type IntentOptional Attributes Name
character(len=*), intent(in) :: filename
integer, intent(in) :: lineNr
character(len=*), intent(in) :: message

Source Code

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

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