stella_error Subroutine

public subroutine stella_error(index, keyname)

Arguments

Type IntentOptional AttributesName
integer, intent(in) :: index
character, intent(in) :: keyname

Contents

Source Code


Source Code

    subroutine stella_error(index,keyname)
    ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
    ! Gives the errors of a the stellarator module

    integer, intent(in) :: index
    character, intent(in) :: keyname


    select case (index)
    case(1)
        ! Error reading in a json attribute
        ! Not used yet because I don't know how.
        write(*,*)'ERROR in initialization of stellarator config. Missing json key: ',keyname


    case default
        ! Return some error here. The index is not implemented yet.
        write(*,*)'ERROR in stella_error! No such error index: ',index

    end select


    end subroutine stella_error