Push_r2fp32Stack Subroutine

public subroutine Push_r2fp32Stack(stack, tok)

Arguments

TypeIntentOptionalAttributesName
class(r2fp32Stack), intent(inout) :: stack
real(kind=real32), intent(in) :: tok(:,:)

Contents

Source Code


Source Code

  subroutine Push_r2fp32Stack(stack,tok)
    class(r2fp32Stack),intent(inout) :: stack
    real(real32),intent(in)          :: tok(:,:)

    stack%top_index = stack%top_index+1
    stack%tokens(:,:,stack%top_index) = tok(:,:)

  endsubroutine Push_r2fp32Stack