Interface for qBeta module object

Origin: LIB

Xarray: obj
   %include String
   Dimension: Value
      in low: var integer
      in upp: var integer
      Length:
         out V: var integer
      print:
   Range:
      in dims: ref indexed
   Array:
      -- A[1:3][1:4] =
      -- A[i][j] = (i - 1) * D2.length + j
      -- A[1][1] = R[1]
      -- A[1][2] = R[2]
      -- A[1][3] = R[3]
      -- A[1][4] = R[4]
      -- A[2][1] = R[5] = (2 - 1) * 4 + 1 = 5
      in D1: var Dimension(,)
      in D2: var Dimension(,)
      put:at:
         inx: var integer
      get:
         out V: var float
      add:
      mult:by:
      sort:
      Gauss:
      substitute:
         out res: obj Indexed(D1.length,#Float)
      printSeq:
      print:
      R: obj Indexed(D1.length *,#Float)
      range: var integer
   A: obj Array(Dimension(,),Dimension(,))
   simple:
      B: obj Array(Dimension(,),Dimension(,))