Construct_r1fp32Stack Subroutine

  1. FEQParse_FloatStacks.f90
  2. FEQParse_FloatStacks
  3. Construct_r1fp32Stack

public subroutine Construct_r1fp32Stack(stack, N, mold)

Arguments

TypeIntentOptionalAttributesName
class(r1fp32Stack), intent(out) :: stack
integer, intent(in) :: N
real(kind=real32), intent(in) :: mold(:)

Contents

Source Code

Construct_r1fp32Stack

Source Code

  subroutine Construct_r1fp32Stack(stack,N,mold)
    implicit none
    class(r1fp32Stack),intent(out) :: stack
    integer,intent(in)             :: N
    real(real32),intent(in)       :: mold(:)
    ! local
    integer :: l(1)
    integer :: u(1)

    l = lbound(mold)
    u = ubound(mold)

    allocate(stack%tokens(l(1):u(1),1:N))
    stack%top_index = 0

  endsubroutine Construct_r1fp32Stack