Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
class(r2fp32Stack), | intent(inout) | :: | stack | |||
real(kind=real32), | intent(in) | :: | tok(:,:) |
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