dbcsr_abort Subroutine

public subroutine dbcsr_abort(location, message)

Terminate the program

Arguments

Type IntentOptional Attributes Name
character(len=*), intent(in) :: location
character(len=*), intent(in) :: message

Source Code

   SUBROUTINE dbcsr_abort(location, message)
      !! Terminate the program
      CHARACTER(len=*), INTENT(in)                       :: location, message

      IF (ASSOCIATED(dbcsr_abort_hook)) THEN
         CALL dbcsr_abort_hook(location, message)
      ELSE
         WRITE (default_output_unit, *) "ABORT in "//TRIM(location)//" "//TRIM(message)
         CALL m_flush(default_output_unit)
         CALL m_abort()
      END IF
      ! compiler hint
      STOP "Never return from here"
   END SUBROUTINE dbcsr_abort