sll_s_assertion Subroutine

public subroutine sll_s_assertion(msg, file, line)

Arguments

Type IntentOptional Attributes Name
character(len=*), intent(in) :: msg
character(len=*), intent(in) :: file
integer, intent(in) :: line

Calls

proc~~sll_s_assertion~~CallsGraph proc~sll_s_assertion sll_s_assertion interface~c_abort~2 c_abort proc~sll_s_assertion->interface~c_abort~2

Source Code

  subroutine sll_s_assertion( msg, file, line )
    character(len=*), intent(in) :: msg
    character(len=*), intent(in) :: file
    integer         , intent(in) :: line

    write(*,*)
    write(*,'(a)'   ) "ASSERTION FAILURE: condition ( " // trim(msg) // " ) is not satisfied."
    write(*,'(a,i0)') 'Triggered at '// file //':', line

    call c_abort()

  end subroutine sll_s_assertion