sll_s_assertion Subroutine

public subroutine sll_s_assertion(msg, file, line)

Uses

  • proc~~sll_s_assertion~~UsesGraph proc~sll_s_assertion sll_s_assertion module~modgvec_globals MODgvec_Globals proc~sll_s_assertion->module~modgvec_globals iso_fortran_env iso_fortran_env module~modgvec_globals->iso_fortran_env

Arguments

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

! => CALL GVEC abort instead

Source Code

  subroutine sll_s_assertion( msg, file, line )
    use MODgvec_globals, only: abort
    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()
    !!! => CALL GVEC abort instead
    CALL abort(__STAMP__,&
        "SLL ASSERTION FAILURE: condition ( " // trim(msg) // " ) is not satisfied.")

  end subroutine sll_s_assertion