RubyDoc.info: Module: NumRu::DCL – Documentation for ruby-dcl (1.8.0)

.cfftb(c, wsave) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 4848

def cfftb( c,wsave )

  #< extract array size(s) (which was(were) formerly an argument(s)) >
  len_c_0 = c.length
  n = len_c_0 / 2

  #< check array size(s) >
  raise "Invalid array length: c.length != 2*n" if c.length != (2*n)
  raise "Invalid array length: wsave.length != 4*n+15" if wsave.length != (4*n+15)

  #< call the original method >
  __cfftb( n,c,wsave )
end

.cfftf(c, wsave) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 4865

def cfftf( c,wsave )

  #< extract array size(s) (which was(were) formerly an argument(s)) >
  len_c_0 = c.length
  n = len_c_0 / 2

  #< check array size(s) >
  raise "Invalid array length: c.length != 2*n" if c.length != (2*n)
  raise "Invalid array length: wsave.length != 4*n+15" if wsave.length != (4*n+15)

  #< call the original method >
  __cfftf( n,c,wsave )
end

.cfsrch(cplist, cflist, nf) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 3785

def cfsrch( cplist,cflist,nf )

  #< extract array size(s) (which was(were) formerly an argument(s)) >
  len_cplist_0 = cplist.length
  np = len_cplist_0

  #< check array size(s) >
  raise "Invalid array length: cplist.length != np" if cplist.length != (np)
  raise "Invalid array length: cflist.length != np" if cflist.length != (np)

  #< call the original method >
  __cfsrch( cplist,np,cflist,nf )
end

.clrgsv(r, g, b) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 2943

def clrgsv( r,g,b )

  #< extract array size(s) (which was(were) formerly an argument(s)) >
  if ( not_nary(r) || (r.rank < 1) )
    raise "r must be a NArray of rank == 2"
  end
  len_r_0 = r.shape[0]
  n = len_r_0
  if ( not_nary(r) || (r.rank < 2) )
    raise "r must be a NArray of rank == 2"
  end
  len_r_1 = r.shape[1]
  m = len_r_1

  #< check array size(s) >
  raise "Invalid array shape: r.shape[0] != n" if r.shape[0] != (n)
  raise "Invalid array shape: r.shape[1] != m" if r.shape[1] != (m)
  raise "Invalid array shape: g.shape[0] != n" if g.shape[0] != (n)
  raise "Invalid array shape: g.shape[1] != m" if g.shape[1] != (m)
  raise "Invalid array shape: b.shape[0] != n" if b.shape[0] != (n)
  raise "Invalid array shape: b.shape[1] != m" if b.shape[1] != (m)

  #< call the original method >
  __clrgsv( r,g,b,n,m )
end

.clsvrg(h, s, v) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 2972

def clsvrg( h,s,v )

  #< extract array size(s) (which was(were) formerly an argument(s)) >
  if ( not_nary(h) || (h.rank < 1) )
    raise "h must be a NArray of rank == 2"
  end
  len_h_0 = h.shape[0]
  n = len_h_0
  if ( not_nary(h) || (h.rank < 2) )
    raise "h must be a NArray of rank == 2"
  end
  len_h_1 = h.shape[1]
  m = len_h_1

  #< check array size(s) >
  raise "Invalid array shape: h.shape[0] != n" if h.shape[0] != (n)
  raise "Invalid array shape: h.shape[1] != m" if h.shape[1] != (m)
  raise "Invalid array shape: s.shape[0] != n" if s.shape[0] != (n)
  raise "Invalid array shape: s.shape[1] != m" if s.shape[1] != (m)
  raise "Invalid array shape: v.shape[0] != n" if v.shape[0] != (n)
  raise "Invalid array shape: v.shape[1] != m" if v.shape[1] != (m)

  #< call the original method >
  __clsvrg( h,s,v,n,m )
end

.cosqb(x, wsave) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 4882

def cosqb( x,wsave )

  #< extract array size(s) (which was(were) formerly an argument(s)) >
  len_x_0 = x.length
  n = len_x_0

  #< check array size(s) >
  raise "Invalid array length: x.length != n" if x.length != (n)
  raise "Invalid array length: wsave.length != 3*n+15" if wsave.length != (3*n+15)

  #< call the original method >
  __cosqb( n,x,wsave )
end

.cosqf(x, wsave) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 4899

def cosqf( x,wsave )

  #< extract array size(s) (which was(were) formerly an argument(s)) >
  len_x_0 = x.length
  n = len_x_0

  #< check array size(s) >
  raise "Invalid array length: x.length != n" if x.length != (n)
  raise "Invalid array length: wsave.length != 3*n+15" if wsave.length != (3*n+15)

  #< call the original method >
  __cosqf( n,x,wsave )
end

.cost(x, wsave) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 4916

def cost( x,wsave )

  #< extract array size(s) (which was(were) formerly an argument(s)) >
  len_x_0 = x.length
  n = len_x_0

  #< check array size(s) >
  raise "Invalid array length: x.length != n" if x.length != (n)
  raise "Invalid array length: wsave.length != 3*n+15" if wsave.length != (3*n+15)

  #< call the original method >
  __cost( n,x,wsave )
end

.dxfloc(ns, np) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 3752

def dxfloc( ns,np )

  #< extract array size(s) (which was(were) formerly an argument(s)) >
  len_ns_0 = ns.length
  nd = len_ns_0

  #< check array size(s) >
  raise "Invalid array length: ns.length != nd" if ns.length != (nd)
  raise "Invalid array length: np.length != nd" if np.length != (nd)

  #< call the original method >
  __dxfloc( nd,ns,np )
end

.dxiloc(ns, ncp) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 3769

def dxiloc( ns,ncp )

  #< extract array size(s) (which was(were) formerly an argument(s)) >
  len_ns_0 = ns.length
  nd = len_ns_0

  #< check array size(s) >
  raise "Invalid array length: ns.length != nd" if ns.length != (nd)

  #< call the original method >
  __dxiloc( nd,ns,ncp )
end

.ezfftb(azero, a, b, wsave) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 4933

def ezfftb( azero,a,b,wsave )

  #< extract array size(s) (which was(were) formerly an argument(s)) >
  len_a_0 = a.length
  n = len_a_0 * 2

  #< check array size(s) >
  raise "Invalid array length: a.length != n/2" if a.length != (n/2)
  raise "Invalid array length: b.length != n/2" if b.length != (n/2)
  raise "Invalid array length: wsave.length != 3*n+15" if wsave.length != (3*n+15)

  #< call the original method >
  __ezfftb( n,azero,a,b,wsave )
end

.ezfftf(r, wsave) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 4951

def ezfftf( r,wsave )

  #< extract array size(s) (which was(were) formerly an argument(s)) >
  len_r_0 = r.length
  n = len_r_0

  #< check array size(s) >
  raise "Invalid array length: r.length != n" if r.length != (n)
  raise "Invalid array length: wsave.length != 3*n+15" if wsave.length != (3*n+15)

  #< call the original method >
  __ezfftf( n,r,wsave )
end

.g2sctr(uxa, uya, cxa, cya) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 3070

def g2sctr( uxa,uya,cxa,cya )

  #< extract array size(s) (which was(were) formerly an argument(s)) >
  len_uxa_0 = uxa.length
  nx = len_uxa_0
  len_uya_0 = uya.length
  ny = len_uya_0

  #< check array size(s) >
  raise "Invalid array length: uxa.length != nx" if uxa.length != (nx)
  raise "Invalid array length: uya.length != ny" if uya.length != (ny)
  raise "Invalid array shape: cxa.shape[0] != nx" if cxa.shape[0] != (nx)
  raise "Invalid array shape: cxa.shape[1] != ny" if cxa.shape[1] != (ny)
  raise "Invalid array shape: cya.shape[0] != nx" if cya.shape[0] != (nx)
  raise "Invalid array shape: cya.shape[1] != ny" if cya.shape[1] != (ny)

  #< call the original method >
  __g2sctr( nx,ny,uxa,uya,cxa,cya )
end

.gnsblk(xb) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 3053

def gnsblk( xb )

  #< extract array size(s) (which was(were) formerly an argument(s)) >
  len_xb_0 = xb.length
  nb = len_xb_0

  #< check array size(s) >
  raise "Invalid array length: xb.length != nb" if xb.length != (nb)

  #< call the original method >
  __gnsblk( xb,nb )
end

.iadd(ix, n, jx, ii) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 4086

def iadd( ix,n,jx,ii )

  #< check array size(s) >
  raise "Invalid array length: ix.length != jx*(n-1)+1" if ix.length != (jx*(n-1)+1)

  #< call the original method >
  __iadd( ix,n,jx,ii )
end

.iadd0(ix, n, jx, ii) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 4098

def iadd0( ix,n,jx,ii )

  #< check array size(s) >
  raise "Invalid array length: ix.length != jx*(n-1)+1" if ix.length != (jx*(n-1)+1)

  #< call the original method >
  __iadd0( ix,n,jx,ii )
end

.iadd1(ix, n, jx, ii) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 4110

def iadd1( ix,n,jx,ii )

  #< check array size(s) >
  raise "Invalid array length: ix.length != jx*(n-1)+1" if ix.length != (jx*(n-1)+1)

  #< call the original method >
  __iadd1( ix,n,jx,ii )
end

.iblkge(rx, rr) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 2926

def iblkge( rx,rr )

  #< extract array size(s) (which was(were) formerly an argument(s)) >
  len_rx_0 = rx.length
  n = len_rx_0

  #< check array size(s) >
  raise "Invalid array length: rx.length != n" if rx.length != (n)

  #< call the original method >
  __iblkge( rx,n,rr )
end

.iblkgt(rx, rr) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 2910

def iblkgt( rx,rr )

  #< extract array size(s) (which was(were) formerly an argument(s)) >
  len_rx_0 = rx.length
  n = len_rx_0

  #< check array size(s) >
  raise "Invalid array length: rx.length != n" if rx.length != (n)

  #< call the original method >
  __iblkgt( rx,n,rr )
end

.iblkle(rx, rr) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 2894

def iblkle( rx,rr )

  #< extract array size(s) (which was(were) formerly an argument(s)) >
  len_rx_0 = rx.length
  n = len_rx_0

  #< check array size(s) >
  raise "Invalid array length: rx.length != n" if rx.length != (n)

  #< call the original method >
  __iblkle( rx,n,rr )
end

.iblklt(rx, rr) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 2878

def iblklt( rx,rr )

  #< extract array size(s) (which was(were) formerly an argument(s)) >
  len_rx_0 = rx.length
  n = len_rx_0

  #< check array size(s) >
  raise "Invalid array length: rx.length != n" if rx.length != (n)

  #< call the original method >
  __iblklt( rx,n,rr )
end

.imax(ix, n, jx) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 3095

def imax( ix,n,jx )

  #< check array size(s) >
  raise "Invalid array length: ix.length != jx*(n-1)+1" if ix.length != (jx*(n-1)+1)

  #< call the original method >
  __imax( ix,n,jx )
end

.imax0(ix, n, jx) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 3107

def imax0( ix,n,jx )

  #< check array size(s) >
  raise "Invalid array length: ix.length != jx*(n-1)+1" if ix.length != (jx*(n-1)+1)

  #< call the original method >
  __imax0( ix,n,jx )
end

.imax1(ix, n, jx) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 3119

def imax1( ix,n,jx )

  #< check array size(s) >
  raise "Invalid array length: ix.length != jx*(n-1)+1" if ix.length != (jx*(n-1)+1)

  #< call the original method >
  __imax1( ix,n,jx )
end

.imin(ix, n, jx) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 3131

def imin( ix,n,jx )

  #< check array size(s) >
  raise "Invalid array length: ix.length != jx*(n-1)+1" if ix.length != (jx*(n-1)+1)

  #< call the original method >
  __imin( ix,n,jx )
end

.imin0(ix, n, jx) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 3143

def imin0( ix,n,jx )

  #< check array size(s) >
  raise "Invalid array length: ix.length != jx*(n-1)+1" if ix.length != (jx*(n-1)+1)

  #< call the original method >
  __imin0( ix,n,jx )
end

.imin1(ix, n, jx) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 3155

def imin1( ix,n,jx )

  #< check array size(s) >
  raise "Invalid array length: ix.length != jx*(n-1)+1" if ix.length != (jx*(n-1)+1)

  #< call the original method >
  __imin1( ix,n,jx )
end

.imlt(ix, n, jx, ii) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 4122

def imlt( ix,n,jx,ii )

  #< check array size(s) >
  raise "Invalid array length: ix.length != jx*(n-1)+1" if ix.length != (jx*(n-1)+1)

  #< call the original method >
  __imlt( ix,n,jx,ii )
end

.imlt0(ix, n, jx, ii) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 4134

def imlt0( ix,n,jx,ii )

  #< check array size(s) >
  raise "Invalid array length: ix.length != jx*(n-1)+1" if ix.length != (jx*(n-1)+1)

  #< call the original method >
  __imlt0( ix,n,jx,ii )
end

.imlt1(ix, n, jx, ii) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 4146

def imlt1( ix,n,jx,ii )

  #< check array size(s) >
  raise "Invalid array length: ix.length != jx*(n-1)+1" if ix.length != (jx*(n-1)+1)

  #< call the original method >
  __imlt1( ix,n,jx,ii )
end

.indxcf(cx, n, jd, ch) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 3203

def indxcf( cx,n,jd,ch )

  #< check array size(s) >
  raise "Invalid array length: cx.length != jd*(n-1)+1" if cx.length != (jd*(n-1)+1)

  #< call the original method >
  __indxcf( cx,n,jd,ch )
end

.indxcl(cx, n, jd, ch) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 3215

def indxcl( cx,n,jd,ch )

  #< check array size(s) >
  raise "Invalid array length: cx.length != jd*(n-1)+1" if cx.length != (jd*(n-1)+1)

  #< call the original method >
  __indxcl( cx,n,jd,ch )
end

.indxif(ix, n, jd, ii) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 3227

def indxif( ix,n,jd,ii )

  #< check array size(s) >
  raise "Invalid array length: ix.length != jd*(n-1)+1" if ix.length != (jd*(n-1)+1)

  #< call the original method >
  __indxif( ix,n,jd,ii )
end

.indxil(ix, n, jd, ii) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 3239

def indxil( ix,n,jd,ii )

  #< check array size(s) >
  raise "Invalid array length: ix.length != jd*(n-1)+1" if ix.length != (jd*(n-1)+1)

  #< call the original method >
  __indxil( ix,n,jd,ii )
end

.indxrf(rx, n, jd, rr) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 3251

def indxrf( rx,n,jd,rr )

  #< check array size(s) >
  raise "Invalid array length: rx.length != jd*(n-1)+1" if rx.length != (jd*(n-1)+1)

  #< call the original method >
  __indxrf( rx,n,jd,rr )
end

.indxrl(rx, n, jd, rr) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 3263

def indxrl( rx,n,jd,rr )

  #< check array size(s) >
  raise "Invalid array length: rx.length != jd*(n-1)+1" if rx.length != (jd*(n-1)+1)

  #< call the original method >
  __indxrl( rx,n,jd,rr )
end

.init_arg ⇒ `Object`



98
99
100

# File 'ext/numru/init.c', line 98

static VALUE
dcl_init_arg(obj, name, ary)
VALUE obj, name, ary;

.inorml(v, x, y) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 3001

def inorml( v,x,y )

  #< extract array size(s) (which was(were) formerly an argument(s)) >
  if ( not_nary(v) || (v.rank < 1) )
    raise "v must be a NArray of rank == 2"
  end
  len_v_0 = v.shape[0]
  n = len_v_0
  if ( not_nary(v) || (v.rank < 2) )
    raise "v must be a NArray of rank == 2"
  end
  len_v_1 = v.shape[1]
  m = len_v_1

  #< check array size(s) >
  raise "Invalid array shape: v.shape[0] != n" if v.shape[0] != (n)
  raise "Invalid array shape: v.shape[1] != m" if v.shape[1] != (m)

  #< call the original method >
  __inorml( v,n,m,x,y )
end

.iset(ix, n, jx, ii) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 4158

def iset( ix,n,jx,ii )

  #< check array size(s) >
  raise "Invalid array length: ix.length != jx*(n-1)+1" if ix.length != (jx*(n-1)+1)

  #< call the original method >
  __iset( ix,n,jx,ii )
end

.iset0(ix, n, jx, ii) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 4170

def iset0( ix,n,jx,ii )

  #< check array size(s) >
  raise "Invalid array length: ix.length != jx*(n-1)+1" if ix.length != (jx*(n-1)+1)

  #< call the original method >
  __iset0( ix,n,jx,ii )
end

.iset1(ix, n, jx, ii) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 4182

def iset1( ix,n,jx,ii )

  #< check array size(s) >
  raise "Invalid array length: ix.length != jx*(n-1)+1" if ix.length != (jx*(n-1)+1)

  #< call the original method >
  __iset1( ix,n,jx,ii )
end

.isum(ix, n, jx) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 3167

def isum( ix,n,jx )

  #< check array size(s) >
  raise "Invalid array length: ix.length != jx*(n-1)+1" if ix.length != (jx*(n-1)+1)

  #< call the original method >
  __isum( ix,n,jx )
end

.isum0(ix, n, jx) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 3179

def isum0( ix,n,jx )

  #< check array size(s) >
  raise "Invalid array length: ix.length != jx*(n-1)+1" if ix.length != (jx*(n-1)+1)

  #< call the original method >
  __isum0( ix,n,jx )
end

.isum1(ix, n, jx) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 3191

def isum1( ix,n,jx )

  #< check array size(s) >
  raise "Invalid array length: ix.length != jx*(n-1)+1" if ix.length != (jx*(n-1)+1)

  #< call the original method >
  __isum1( ix,n,jx )
end

.nindxc(cx, n, jd, ch) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 3275

def nindxc( cx,n,jd,ch )

  #< check array size(s) >
  raise "Invalid array length: cx.length != jd*(n-1)+1" if cx.length != (jd*(n-1)+1)

  #< call the original method >
  __nindxc( cx,n,jd,ch )
end

.nindxi(ix, n, jd, ii) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 3287

def nindxi( ix,n,jd,ii )

  #< check array size(s) >
  raise "Invalid array length: ix.length != jd*(n-1)+1" if ix.length != (jd*(n-1)+1)

  #< call the original method >
  __nindxi( ix,n,jd,ii )
end

.nindxr(rx, n, jd, rr) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 3299

def nindxr( rx,n,jd,rr )

  #< check array size(s) >
  raise "Invalid array length: rx.length != jd*(n-1)+1" if rx.length != (jd*(n-1)+1)

  #< call the original method >
  __nindxr( rx,n,jd,rr )
end

.radd(rx, n, jx, rr) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 4545

def radd( rx,n,jx,rr )

  #< check array size(s) >
  raise "Invalid array length: rx.length != jx*(n-1)+1" if rx.length != (jx*(n-1)+1)

  #< call the original method >
  __radd( rx,n,jx,rr )
end

.radd0(rx, n, jx, rr) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 4557

def radd0( rx,n,jx,rr )

  #< check array size(s) >
  raise "Invalid array length: rx.length != jx*(n-1)+1" if rx.length != (jx*(n-1)+1)

  #< call the original method >
  __radd0( rx,n,jx,rr )
end

.radd1(rx, n, jx, rr) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 4569

def radd1( rx,n,jx,rr )

  #< check array size(s) >
  raise "Invalid array length: rx.length != jx*(n-1)+1" if rx.length != (jx*(n-1)+1)

  #< call the original method >
  __radd1( rx,n,jx,rr )
end

.ramp(rx, n, jx) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 3563

def ramp( rx,n,jx )

  #< check array size(s) >
  raise "Invalid array length: rx.length != jx*(n-1)+1" if rx.length != (jx*(n-1)+1)

  #< call the original method >
  __ramp( rx,n,jx )
end

.ramp0(rx, n, jx) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 3575

def ramp0( rx,n,jx )

  #< check array size(s) >
  raise "Invalid array length: rx.length != jx*(n-1)+1" if rx.length != (jx*(n-1)+1)

  #< call the original method >
  __ramp0( rx,n,jx )
end

.ramp1(rx, n, jx) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 3587

def ramp1( rx,n,jx )

  #< check array size(s) >
  raise "Invalid array length: rx.length != jx*(n-1)+1" if rx.length != (jx*(n-1)+1)

  #< call the original method >
  __ramp1( rx,n,jx )
end

.rave(rx, n, jx) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 3419

def rave( rx,n,jx )

  #< check array size(s) >
  raise "Invalid array length: rx.length != jx*(n-1)+1" if rx.length != (jx*(n-1)+1)

  #< call the original method >
  __rave( rx,n,jx )
end

.rave0(rx, n, jx) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 3431

def rave0( rx,n,jx )

  #< check array size(s) >
  raise "Invalid array length: rx.length != jx*(n-1)+1" if rx.length != (jx*(n-1)+1)

  #< call the original method >
  __rave0( rx,n,jx )
end

.rave1(rx, n, jx) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 3443

def rave1( rx,n,jx )

  #< check array size(s) >
  raise "Invalid array length: rx.length != jx*(n-1)+1" if rx.length != (jx*(n-1)+1)

  #< call the original method >
  __rave1( rx,n,jx )
end

.rcor(rx, ry, n, jx, jy) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 3739

def rcor( rx,ry,n,jx,jy )

  #< check array size(s) >
  raise "Invalid array length: rx.length != jx*(n-1)+1" if rx.length != (jx*(n-1)+1)
  raise "Invalid array length: ry.length != jx*(n-1)+1" if ry.length != (jx*(n-1)+1)

  #< call the original method >
  __rcor( rx,ry,n,jx,jy )
end

.rcov(rx, ry, n, jx, jy) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 3726

def rcov( rx,ry,n,jx,jy )

  #< check array size(s) >
  raise "Invalid array length: rx.length != jx*(n-1)+1" if rx.length != (jx*(n-1)+1)
  raise "Invalid array length: ry.length != jy*(n-1)+1" if ry.length != (jy*(n-1)+1)

  #< call the original method >
  __rcov( rx,ry,n,jx,jy )
end

.rfftb(r, wsave) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 4968

def rfftb( r,wsave )

  #< extract array size(s) (which was(were) formerly an argument(s)) >
  len_r_0 = r.length
  n = len_r_0

  #< check array size(s) >
  raise "Invalid array length: r.length != n" if r.length != (n)
  raise "Invalid array length: wsave.length != 2*n+15" if wsave.length != (2*n+15)

  #< call the original method >
  __rfftb( n,r,wsave )
end

.rfftf(r, wsave) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 4985

def rfftf( r,wsave )

  #< extract array size(s) (which was(were) formerly an argument(s)) >
  len_r_0 = r.length
  n = len_r_0

  #< check array size(s) >
  raise "Invalid array length: r.length != n" if r.length != (n)
  raise "Invalid array length: wsave.length != 2*n+15" if wsave.length != (2*n+15)

  #< call the original method >
  __rfftf( n,r,wsave )
end

.rlcget(cpl) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 3914

def rlcget( cpl )

  #< extract array size(s) (which was(were) formerly an argument(s)) >
  len_cpl_0 = cpl.length
  max = len_cpl_0

  #< check array size(s) >
  raise "Invalid array length: cpl.length != max" if cpl.length != (max)

  #< call the original method >
  __rlcget( cpl,max )
end

.rliget(cpl) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 3866

def rliget( cpl )

  #< extract array size(s) (which was(were) formerly an argument(s)) >
  len_cpl_0 = cpl.length
  max = len_cpl_0

  #< check array size(s) >
  raise "Invalid array length: cpl.length != max" if cpl.length != (max)

  #< call the original method >
  __rliget( cpl,max )
end

.rllget(cpl) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 3882

def rllget( cpl )

  #< extract array size(s) (which was(were) formerly an argument(s)) >
  len_cpl_0 = cpl.length
  max = len_cpl_0

  #< check array size(s) >
  raise "Invalid array length: cpl.length != max" if cpl.length != (max)

  #< call the original method >
  __rllget( cpl,max )
end

.rlrget(cpl) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 3898

def rlrget( cpl )

  #< extract array size(s) (which was(were) formerly an argument(s)) >
  len_cpl_0 = cpl.length
  max = len_cpl_0

  #< check array size(s) >
  raise "Invalid array length: cpl.length != max" if cpl.length != (max)

  #< call the original method >
  __rlrget( cpl,max )
end

.rmax(rx, n, jx) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 3311

def rmax( rx,n,jx )

  #< check array size(s) >
  raise "Invalid array length: rx.length != jx*(n-1)+1" if rx.length != (jx*(n-1)+1)

  #< call the original method >
  __rmax( rx,n,jx )
end

.rmax0(rx, n, jx) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 3323

def rmax0( rx,n,jx )

  #< check array size(s) >
  raise "Invalid array length: rx.length != jx*(n-1)+1" if rx.length != (jx*(n-1)+1)

  #< call the original method >
  __rmax0( rx,n,jx )
end

.rmax1(rx, n, jx) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 3335

def rmax1( rx,n,jx )

  #< check array size(s) >
  raise "Invalid array length: rx.length != jx*(n-1)+1" if rx.length != (jx*(n-1)+1)

  #< call the original method >
  __rmax1( rx,n,jx )
end

.rmin(rx, n, jx) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 3347

def rmin( rx,n,jx )

  #< check array size(s) >
  raise "Invalid array length: rx.length != jx*(n-1)+1" if rx.length != (jx*(n-1)+1)

  #< call the original method >
  __rmin( rx,n,jx )
end

.rmin0(rx, n, jx) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 3359

def rmin0( rx,n,jx )

  #< check array size(s) >
  raise "Invalid array length: rx.length != jx*(n-1)+1" if rx.length != (jx*(n-1)+1)

  #< call the original method >
  __rmin0( rx,n,jx )
end

.rmin1(rx, n, jx) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 3371

def rmin1( rx,n,jx )

  #< check array size(s) >
  raise "Invalid array length: rx.length != jx*(n-1)+1" if rx.length != (jx*(n-1)+1)

  #< call the original method >
  __rmin1( rx,n,jx )
end

.rmlt(rx, n, jx, rr) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 4581

def rmlt( rx,n,jx,rr )

  #< check array size(s) >
  raise "Invalid array length: rx.length != jx*(n-1)+1" if rx.length != (jx*(n-1)+1)

  #< call the original method >
  __rmlt( rx,n,jx,rr )
end

.rmlt0(rx, n, jx, rr) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 4593

def rmlt0( rx,n,jx,rr )

  #< check array size(s) >
  raise "Invalid array length: rx.length != jx*(n-1)+1" if rx.length != (jx*(n-1)+1)

  #< call the original method >
  __rmlt0( rx,n,jx,rr )
end

.rmlt1(rx, n, jx, rr) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 4605

def rmlt1( rx,n,jx,rr )

  #< check array size(s) >
  raise "Invalid array length: rx.length != jx*(n-1)+1" if rx.length != (jx*(n-1)+1)

  #< call the original method >
  __rmlt1( rx,n,jx,rr )
end

.rnorml(v, x, y) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 3026

def rnorml( v,x,y )

  #< extract array size(s) (which was(were) formerly an argument(s)) >
  if ( not_nary(v) || (v.rank < 1) )
    raise "v must be a NArray of rank == 2"
  end
  len_v_0 = v.shape[0]
  n = len_v_0
  if ( not_nary(v) || (v.rank < 2) )
    raise "v must be a NArray of rank == 2"
  end
  len_v_1 = v.shape[1]
  m = len_v_1

  #< check array size(s) >
  raise "Invalid array shape: v.shape[0] != n" if v.shape[0] != (n)
  raise "Invalid array shape: v.shape[1] != m" if v.shape[1] != (m)

  #< call the original method >
  __rnorml( v,n,m,x,y )
end

.rprd(rx, ry, n, jx, jy) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 3713

def rprd( rx,ry,n,jx,jy )

  #< check array size(s) >
  raise "Invalid array length: rx.length != jx*(n-1)+1" if rx.length != (jx*(n-1)+1)
  raise "Invalid array length: ry.length != jy*(n-1)+1" if ry.length != (jy*(n-1)+1)

  #< call the original method >
  __rprd( rx,ry,n,jx,jy )
end

.rrms(rx, n, jx) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 3527

def rrms( rx,n,jx )

  #< check array size(s) >
  raise "Invalid array length: rx.length != jx*(n-1)+1" if rx.length != (jx*(n-1)+1)

  #< call the original method >
  __rrms( rx,n,jx )
end

.rrms0(rx, n, jx) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 3539

def rrms0( rx,n,jx )

  #< check array size(s) >
  raise "Invalid array length: rx.length != jx*(n-1)+1" if rx.length != (jx*(n-1)+1)

  #< call the original method >
  __rrms0( rx,n,jx )
end

.rrms1(rx, n, jx) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 3551

def rrms1( rx,n,jx )

  #< check array size(s) >
  raise "Invalid array length: rx.length != jx*(n-1)+1" if rx.length != (jx*(n-1)+1)

  #< call the original method >
  __rrms1( rx,n,jx )
end

.rset(rx, n, jx, rr) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 4617

def rset( rx,n,jx,rr )

  #< check array size(s) >
  raise "Invalid array length: rx.length != jx*(n-1)+1" if rx.length != (jx*(n-1)+1)

  #< call the original method >
  __rset( rx,n,jx,rr )
end

.rset0(rx, n, jx, rr) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 4629

def rset0( rx,n,jx,rr )

  #< check array size(s) >
  raise "Invalid array length: rx.length != jx*(n-1)+1" if rx.length != (jx*(n-1)+1)

  #< call the original method >
  __rset0( rx,n,jx,rr )
end

.rset1(rx, n, jx, rr) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 4641

def rset1( rx,n,jx,rr )

  #< check array size(s) >
  raise "Invalid array length: rx.length != jx*(n-1)+1" if rx.length != (jx*(n-1)+1)

  #< call the original method >
  __rset1( rx,n,jx,rr )
end

.rstd(rx, n, jx) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 3491

def rstd( rx,n,jx )

  #< check array size(s) >
  raise "Invalid array length: rx.length != jx*(n-1)+1" if rx.length != (jx*(n-1)+1)

  #< call the original method >
  __rstd( rx,n,jx )
end

.rstd0(rx, n, jx) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 3503

def rstd0( rx,n,jx )

  #< check array size(s) >
  raise "Invalid array length: rx.length != jx*(n-1)+1" if rx.length != (jx*(n-1)+1)

  #< call the original method >
  __rstd0( rx,n,jx )
end

.rstd1(rx, n, jx) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 3515

def rstd1( rx,n,jx )

  #< check array size(s) >
  raise "Invalid array length: rx.length != jx*(n-1)+1" if rx.length != (jx*(n-1)+1)

  #< call the original method >
  __rstd1( rx,n,jx )
end

.rsum(rx, n, jx) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 3383

def rsum( rx,n,jx )

  #< check array size(s) >
  raise "Invalid array length: rx.length != jx*(n-1)+1" if rx.length != (jx*(n-1)+1)

  #< call the original method >
  __rsum( rx,n,jx )
end

.rsum0(rx, n, jx) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 3395

def rsum0( rx,n,jx )

  #< check array size(s) >
  raise "Invalid array length: rx.length != jx*(n-1)+1" if rx.length != (jx*(n-1)+1)

  #< call the original method >
  __rsum0( rx,n,jx )
end

.rsum1(rx, n, jx) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 3407

def rsum1( rx,n,jx )

  #< check array size(s) >
  raise "Invalid array length: rx.length != jx*(n-1)+1" if rx.length != (jx*(n-1)+1)

  #< call the original method >
  __rsum1( rx,n,jx )
end

.rtcget(cpfix, cps) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 3850

def rtcget( cpfix,cps )

  #< extract array size(s) (which was(were) formerly an argument(s)) >
  len_cps_0 = cps.length
  max = len_cps_0

  #< check array size(s) >
  raise "Invalid array length: cps.length != max" if cps.length != (max)

  #< call the original method >
  __rtcget( cpfix,cps,max )
end

.rtiget(cpfix, cps) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 3802

def rtiget( cpfix,cps )

  #< extract array size(s) (which was(were) formerly an argument(s)) >
  len_cps_0 = cps.length
  max = len_cps_0

  #< check array size(s) >
  raise "Invalid array length: cps.length != max" if cps.length != (max)

  #< call the original method >
  __rtiget( cpfix,cps,max )
end

.rtlget(cpfix, cps) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 3818

def rtlget( cpfix,cps )

  #< extract array size(s) (which was(were) formerly an argument(s)) >
  len_cps_0 = cps.length
  max = len_cps_0

  #< check array size(s) >
  raise "Invalid array length: cps.length != max" if cps.length != (max)

  #< call the original method >
  __rtlget( cpfix,cps,max )
end

.rtrget(cpfix, cps) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 3834

def rtrget( cpfix,cps )

  #< extract array size(s) (which was(were) formerly an argument(s)) >
  len_cps_0 = cps.length
  max = len_cps_0

  #< check array size(s) >
  raise "Invalid array length: cps.length != max" if cps.length != (max)

  #< call the original method >
  __rtrget( cpfix,cps,max )
end

.rvar(rx, n, jx) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 3455

def rvar( rx,n,jx )

  #< check array size(s) >
  raise "Invalid array length: rx.length != jx*(n-1)+1" if rx.length != (jx*(n-1)+1)

  #< call the original method >
  __rvar( rx,n,jx )
end

.rvar0(rx, n, jx) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 3467

def rvar0( rx,n,jx )

  #< check array size(s) >
  raise "Invalid array length: rx.length != jx*(n-1)+1" if rx.length != (jx*(n-1)+1)

  #< call the original method >
  __rvar0( rx,n,jx )
end

.rvar1(rx, n, jx) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 3479

def rvar1( rx,n,jx )

  #< check array size(s) >
  raise "Invalid array length: rx.length != jx*(n-1)+1" if rx.length != (jx*(n-1)+1)

  #< call the original method >
  __rvar1( rx,n,jx )
end

.rvmax(rx, ns, np, nq) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 3599

def rvmax( rx,ns,np,nq )

  #< extract array size(s) (which was(were) formerly an argument(s)) >
  len_ns_0 = ns.length
  nd = len_ns_0

  #< check array size(s) >
  raise "Invalid array length: rx.length != (len=1; ns.each{|i| len*=i}; len)" if rx.length != ((len=1; ns.each{|i| len*=i}; len))
  raise "Invalid array length: ns.length != nd" if ns.length != (nd)
  raise "Invalid array length: np.length != nd" if np.length != (nd)
  raise "Invalid array length: nq.length != nd" if nq.length != (nd)

  #< call the original method >
  __rvmax( rx,ns,np,nq,nd )
end

.rvmax0(rx, ns, np, nq) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 3618

def rvmax0( rx,ns,np,nq )

  #< extract array size(s) (which was(were) formerly an argument(s)) >
  len_ns_0 = ns.length
  nd = len_ns_0

  #< check array size(s) >
  raise "Invalid array length: rx.length != (len=1; ns.each{|i| len*=i}; len)" if rx.length != ((len=1; ns.each{|i| len*=i}; len))
  raise "Invalid array length: ns.length != nd" if ns.length != (nd)
  raise "Invalid array length: np.length != nd" if np.length != (nd)
  raise "Invalid array length: nq.length != nd" if nq.length != (nd)

  #< call the original method >
  __rvmax0( rx,ns,np,nq,nd )
end

.rvmax1(rx, ns, np, nq) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 3656

def rvmax1( rx,ns,np,nq )

  #< extract array size(s) (which was(were) formerly an argument(s)) >
  len_ns_0 = ns.length
  nd = len_ns_0

  #< check array size(s) >
  raise "Invalid array length: rx.length != (len=1; ns.each{|i| len*=i}; len)" if rx.length != ((len=1; ns.each{|i| len*=i}; len))
  raise "Invalid array length: ns.length != nd" if ns.length != (nd)
  raise "Invalid array length: np.length != nd" if np.length != (nd)
  raise "Invalid array length: nq.length != nd" if nq.length != (nd)

  #< call the original method >
  __rvmax1( rx,ns,np,nq,nd )
end

.rvmin(rx, ns, np, nq) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 3637

def rvmin( rx,ns,np,nq )

  #< extract array size(s) (which was(were) formerly an argument(s)) >
  len_ns_0 = ns.length
  nd = len_ns_0

  #< check array size(s) >
  raise "Invalid array length: rx.length != (len=1; ns.each{|i| len*=i}; len)" if rx.length != ((len=1; ns.each{|i| len*=i}; len))
  raise "Invalid array length: ns.length != nd" if ns.length != (nd)
  raise "Invalid array length: np.length != nd" if np.length != (nd)
  raise "Invalid array length: nq.length != nd" if nq.length != (nd)

  #< call the original method >
  __rvmin( rx,ns,np,nq,nd )
end

.rvmin0(rx, ns, np, nq) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 3694

def rvmin0( rx,ns,np,nq )

  #< extract array size(s) (which was(were) formerly an argument(s)) >
  len_ns_0 = ns.length
  nd = len_ns_0

  #< check array size(s) >
  raise "Invalid array length: rx.length != (len=1; ns.each{|i| len*=i}; len)" if rx.length != ((len=1; ns.each{|i| len*=i}; len))
  raise "Invalid array length: ns.length != nd" if ns.length != (nd)
  raise "Invalid array length: np.length != nd" if np.length != (nd)
  raise "Invalid array length: nq.length != nd" if nq.length != (nd)

  #< call the original method >
  __rvmin0( rx,ns,np,nq,nd )
end

.rvmin1(rx, ns, np, nq) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 3675

def rvmin1( rx,ns,np,nq )

  #< extract array size(s) (which was(were) formerly an argument(s)) >
  len_ns_0 = ns.length
  nd = len_ns_0

  #< check array size(s) >
  raise "Invalid array length: rx.length != (len=1; ns.each{|i| len*=i}; len)" if rx.length != ((len=1; ns.each{|i| len*=i}; len))
  raise "Invalid array length: ns.length != nd" if ns.length != (nd)
  raise "Invalid array length: np.length != nd" if np.length != (nd)
  raise "Invalid array length: nq.length != nd" if nq.length != (nd)

  #< call the original method >
  __rvmin1( rx,ns,np,nq,nd )
end

.scplu(upx, upy, upz) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 129

def scplu( upx,upy,upz )

  #< extract array size(s) (which was(were) formerly an argument(s)) >
  len_upx_0 = upx.length
  n = len_upx_0

  #< check array size(s) >
  raise "Invalid array length: upx.length != n" if upx.length != (n)
  raise "Invalid array length: upy.length != n" if upy.length != (n)
  raise "Invalid array length: upz.length != n" if upz.length != (n)

  #< call the original method >
  __scplu( n,upx,upy,upz )
end

.scplv(vpx, vpy, vpz) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 147

def scplv( vpx,vpy,vpz )

  #< extract array size(s) (which was(were) formerly an argument(s)) >
  len_vpx_0 = vpx.length
  n = len_vpx_0

  #< check array size(s) >
  raise "Invalid array length: vpx.length != n" if vpx.length != (n)
  raise "Invalid array length: vpy.length != n" if vpy.length != (n)
  raise "Invalid array length: vpz.length != n" if vpz.length != (n)

  #< call the original method >
  __scplv( n,vpx,vpy,vpz )
end

.scplzu(upx, upy, upz, index) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 165

def scplzu( upx,upy,upz,index )

  #< extract array size(s) (which was(were) formerly an argument(s)) >
  len_upx_0 = upx.length
  n = len_upx_0

  #< check array size(s) >
  raise "Invalid array length: upx.length != n" if upx.length != (n)
  raise "Invalid array length: upy.length != n" if upy.length != (n)
  raise "Invalid array length: upz.length != n" if upz.length != (n)

  #< call the original method >
  __scplzu( n,upx,upy,upz,index )
end

.scplzv(vpx, vpy, vpz, index) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 183

def scplzv( vpx,vpy,vpz,index )

  #< extract array size(s) (which was(were) formerly an argument(s)) >
  len_vpx_0 = vpx.length
  n = len_vpx_0

  #< check array size(s) >
  raise "Invalid array length: vpx.length != n" if vpx.length != (n)
  raise "Invalid array length: vpy.length != n" if vpy.length != (n)
  raise "Invalid array length: vpz.length != n" if vpz.length != (n)

  #< call the original method >
  __scplzv( n,vpx,vpy,vpz,index )
end

.scpmu(upx, upy, upz) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 201

def scpmu( upx,upy,upz )

  #< extract array size(s) (which was(were) formerly an argument(s)) >
  len_upx_0 = upx.length
  n = len_upx_0

  #< check array size(s) >
  raise "Invalid array length: upx.length != n" if upx.length != (n)
  raise "Invalid array length: upy.length != n" if upy.length != (n)
  raise "Invalid array length: upz.length != n" if upz.length != (n)

  #< call the original method >
  __scpmu( n,upx,upy,upz )
end

.scpmv(vpx, vpy, vpz) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 219

def scpmv( vpx,vpy,vpz )

  #< extract array size(s) (which was(were) formerly an argument(s)) >
  len_vpx_0 = vpx.length
  n = len_vpx_0

  #< check array size(s) >
  raise "Invalid array length: vpx.length != n" if vpx.length != (n)
  raise "Invalid array length: vpy.length != n" if vpy.length != (n)
  raise "Invalid array length: vpz.length != n" if vpz.length != (n)

  #< call the original method >
  __scpmv( n,vpx,vpy,vpz )
end

.scpmzu(upx, upy, upz, itype, index, rsize) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 237

def scpmzu( upx,upy,upz,itype,index,rsize )

  #< extract array size(s) (which was(were) formerly an argument(s)) >
  len_upx_0 = upx.length
  n = len_upx_0

  #< check array size(s) >
  raise "Invalid array length: upx.length != n" if upx.length != (n)
  raise "Invalid array length: upy.length != n" if upy.length != (n)
  raise "Invalid array length: upz.length != n" if upz.length != (n)

  #< call the original method >
  __scpmzu( n,upx,upy,upz,itype,index,rsize )
end

.scpmzv(vpx, vpy, vpz, itype, index, rsize) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 255

def scpmzv( vpx,vpy,vpz,itype,index,rsize )

  #< extract array size(s) (which was(were) formerly an argument(s)) >
  len_vpx_0 = vpx.length
  n = len_vpx_0

  #< check array size(s) >
  raise "Invalid array length: vpx.length != n" if vpx.length != (n)
  raise "Invalid array length: vpy.length != n" if vpy.length != (n)
  raise "Invalid array length: vpz.length != n" if vpz.length != (n)

  #< call the original method >
  __scpmzv( n,vpx,vpy,vpz,itype,index,rsize )
end

.sctnu(upx, upy, upz) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 273

def sctnu( upx,upy,upz )

  #< check array size(s) >
  raise "Invalid array length: upx.length != 3" if upx.length != (3)
  raise "Invalid array length: upy.length != 3" if upy.length != (3)
  raise "Invalid array length: upz.length != 3" if upz.length != (3)

  #< call the original method >
  __sctnu( upx,upy,upz )
end

.sctnv(vpx, vpy, vpz) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 287

def sctnv( vpx,vpy,vpz )

  #< check array size(s) >
  raise "Invalid array length: vpx.length != 3" if vpx.length != (3)
  raise "Invalid array length: vpy.length != 3" if vpy.length != (3)
  raise "Invalid array length: vpz.length != 3" if vpz.length != (3)

  #< call the original method >
  __sctnv( vpx,vpy,vpz )
end

.sctnzu(upx, upy, upz, itpat1, itpat2) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 301

def sctnzu( upx,upy,upz,itpat1,itpat2 )

  #< check array size(s) >
  raise "Invalid array length: upx.length != 3" if upx.length != (3)
  raise "Invalid array length: upy.length != 3" if upy.length != (3)
  raise "Invalid array length: upz.length != 3" if upz.length != (3)

  #< call the original method >
  __sctnzu( upx,upy,upz,itpat1,itpat2 )
end

.sctnzv(vpx, vpy, vpz, itpat1, itpat2) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 315

def sctnzv( vpx,vpy,vpz,itpat1,itpat2 )

  #< check array size(s) >
  raise "Invalid array length: vpx.length != 3" if vpx.length != (3)
  raise "Invalid array length: vpy.length != 3" if vpy.length != (3)
  raise "Invalid array length: vpz.length != 3" if vpz.length != (3)

  #< call the original method >
  __sctnzv( vpx,vpy,vpz,itpat1,itpat2 )
end

.sgplr(rpx, rpy) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 363

def sgplr( rpx,rpy )

  #< extract array size(s) (which was(were) formerly an argument(s)) >
  len_rpx_0 = rpx.length
  n = len_rpx_0

  #< check array size(s) >
  raise "Invalid array length: rpx.length != n" if rpx.length != (n)
  raise "Invalid array length: rpy.length != n" if rpy.length != (n)

  #< call the original method >
  __sgplr( n,rpx,rpy )
end

.sgplu(upx, upy) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 329

def sgplu( upx,upy )

  #< extract array size(s) (which was(were) formerly an argument(s)) >
  len_upx_0 = upx.length
  n = len_upx_0

  #< check array size(s) >
  raise "Invalid array length: upx.length != n" if upx.length != (n)
  raise "Invalid array length: upy.length != n" if upy.length != (n)

  #< call the original method >
  __sgplu( n,upx,upy )
end

.sgplv(vpx, vpy) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 346

def sgplv( vpx,vpy )

  #< extract array size(s) (which was(were) formerly an argument(s)) >
  len_vpx_0 = vpx.length
  n = len_vpx_0

  #< check array size(s) >
  raise "Invalid array length: vpx.length != n" if vpx.length != (n)
  raise "Invalid array length: vpy.length != n" if vpy.length != (n)

  #< call the original method >
  __sgplv( n,vpx,vpy )
end

.sgplxr(rpx, rpy, itype, index, icolor) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 700

def sgplxr( rpx,rpy,itype,index,icolor )

  #< extract array size(s) (which was(were) formerly an argument(s)) >
  len_rpx_0 = rpx.length
  n = len_rpx_0

  #< check array size(s) >
  raise "Invalid array length: rpx.length != n" if rpx.length != (n)
  raise "Invalid array length: rpy.length != n" if rpy.length != (n)

  #< call the original method >
  __sgplxr( n,rpx,rpy,itype,index,icolor )
end

.sgplxu(upx, upy, itype, index, icolor) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 660

def sgplxu( upx,upy,itype,index,icolor )

  #< extract array size(s) (which was(were) formerly an argument(s)) >
  len_upx_0 = upx.length
  n = len_upx_0

  #< check array size(s) >
  raise "Invalid array length: upx.length != n" if upx.length != (n)
  raise "Invalid array length: upy.length != n" if upy.length != (n)

  #< call the original method >
  __sgplxu( n,upx,upy,itype,index,icolor )
end

.sgplxv(vpx, vpy, itype, index, icolor) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 680

def sgplxv( vpx,vpy,itype,index,icolor )

  #< extract array size(s) (which was(were) formerly an argument(s)) >
  len_vpx_0 = vpx.length
  n = len_vpx_0

  #< check array size(s) >
  raise "Invalid array length: vpx.length != n" if vpx.length != (n)
  raise "Invalid array length: vpy.length != n" if vpy.length != (n)

  #< call the original method >
  __sgplxv( n,vpx,vpy,itype,index,icolor )
end

.sgplzr(rpx, rpy, itype, index) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 414

def sgplzr( rpx,rpy,itype,index )

  #< extract array size(s) (which was(were) formerly an argument(s)) >
  len_rpx_0 = rpx.length
  n = len_rpx_0

  #< check array size(s) >
  raise "Invalid array length: rpx.length != n" if rpx.length != (n)
  raise "Invalid array length: rpy.length != n" if rpy.length != (n)

  #< call the original method >
  __sgplzr( n,rpx,rpy,itype,index )
end

.sgplzu(upx, upy, itype, index) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 380

def sgplzu( upx,upy,itype,index )

  #< extract array size(s) (which was(were) formerly an argument(s)) >
  len_upx_0 = upx.length
  n = len_upx_0

  #< check array size(s) >
  raise "Invalid array length: upx.length != n" if upx.length != (n)
  raise "Invalid array length: upy.length != n" if upy.length != (n)

  #< call the original method >
  __sgplzu( n,upx,upy,itype,index )
end

.sgplzv(vpx, vpy, itype, index) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 397

def sgplzv( vpx,vpy,itype,index )

  #< extract array size(s) (which was(were) formerly an argument(s)) >
  len_vpx_0 = vpx.length
  n = len_vpx_0

  #< check array size(s) >
  raise "Invalid array length: vpx.length != n" if vpx.length != (n)
  raise "Invalid array length: vpy.length != n" if vpy.length != (n)

  #< call the original method >
  __sgplzv( n,vpx,vpy,itype,index )
end

.sgpmr(rpx, rpy) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 465

def sgpmr( rpx,rpy )

  #< extract array size(s) (which was(were) formerly an argument(s)) >
  len_rpx_0 = rpx.length
  n = len_rpx_0

  #< check array size(s) >
  raise "Invalid array length: rpx.length != n" if rpx.length != (n)
  raise "Invalid array length: rpy.length != n" if rpy.length != (n)

  #< call the original method >
  __sgpmr( n,rpx,rpy )
end

.sgpmu(upx, upy) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 431

def sgpmu( upx,upy )

  #< extract array size(s) (which was(were) formerly an argument(s)) >
  len_upx_0 = upx.length
  n = len_upx_0

  #< check array size(s) >
  raise "Invalid array length: upx.length != n" if upx.length != (n)
  raise "Invalid array length: upy.length != n" if upy.length != (n)

  #< call the original method >
  __sgpmu( n,upx,upy )
end

.sgpmv(vpx, vpy) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 448

def sgpmv( vpx,vpy )

  #< extract array size(s) (which was(were) formerly an argument(s)) >
  len_vpx_0 = vpx.length
  n = len_vpx_0

  #< check array size(s) >
  raise "Invalid array length: vpx.length != n" if vpx.length != (n)
  raise "Invalid array length: vpy.length != n" if vpy.length != (n)

  #< call the original method >
  __sgpmv( n,vpx,vpy )
end

.sgpmxr(rpx, rpy, itype, index, icolor, rsize) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 760

def sgpmxr( rpx,rpy,itype,index,icolor,rsize )

  #< extract array size(s) (which was(were) formerly an argument(s)) >
  len_rpx_0 = rpx.length
  n = len_rpx_0

  #< check array size(s) >
  raise "Invalid array length: rpx.length != n" if rpx.length != (n)
  raise "Invalid array length: rpy.length != n" if rpy.length != (n)

  #< call the original method >
  __sgpmxr( n,rpx,rpy,itype,index,icolor,rsize )
end

.sgpmxu(upx, upy, itype, index, icolor, rsize) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 720

def sgpmxu( upx,upy,itype,index,icolor,rsize )

  #< extract array size(s) (which was(were) formerly an argument(s)) >
  len_upx_0 = upx.length
  n = len_upx_0

  #< check array size(s) >
  raise "Invalid array length: upx.length != n" if upx.length != (n)
  raise "Invalid array length: upy.length != n" if upy.length != (n)

  #< call the original method >
  __sgpmxu( n,upx,upy,itype,index,icolor,rsize )
end

.sgpmxv(vpx, vpy, itype, index, icolor, rsize) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 740

def sgpmxv( vpx,vpy,itype,index,icolor,rsize )

  #< extract array size(s) (which was(were) formerly an argument(s)) >
  len_vpx_0 = vpx.length
  n = len_vpx_0

  #< check array size(s) >
  raise "Invalid array length: vpx.length != n" if vpx.length != (n)
  raise "Invalid array length: vpy.length != n" if vpy.length != (n)

  #< call the original method >
  __sgpmxv( n,vpx,vpy,itype,index,icolor,rsize )
end

.sgpmzr(rpx, rpy, itype, index, rsize) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 516

def sgpmzr( rpx,rpy,itype,index,rsize )

  #< extract array size(s) (which was(were) formerly an argument(s)) >
  len_rpx_0 = rpx.length
  n = len_rpx_0

  #< check array size(s) >
  raise "Invalid array length: rpx.length != n" if rpx.length != (n)
  raise "Invalid array length: rpy.length != n" if rpy.length != (n)

  #< call the original method >
  __sgpmzr( n,rpx,rpy,itype,index,rsize )
end

.sgpmzu(upx, upy, itype, index, rsize) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 482

def sgpmzu( upx,upy,itype,index,rsize )

  #< extract array size(s) (which was(were) formerly an argument(s)) >
  len_upx_0 = upx.length
  n = len_upx_0

  #< check array size(s) >
  raise "Invalid array length: upx.length != n" if upx.length != (n)
  raise "Invalid array length: upy.length != n" if upy.length != (n)

  #< call the original method >
  __sgpmzu( n,upx,upy,itype,index,rsize )
end

.sgpmzv(vpx, vpy, itype, index, rsize) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 499

def sgpmzv( vpx,vpy,itype,index,rsize )

  #< extract array size(s) (which was(were) formerly an argument(s)) >
  len_vpx_0 = vpx.length
  n = len_vpx_0

  #< check array size(s) >
  raise "Invalid array length: vpx.length != n" if vpx.length != (n)
  raise "Invalid array length: vpy.length != n" if vpy.length != (n)

  #< call the original method >
  __sgpmzv( n,vpx,vpy,itype,index,rsize )
end

.sgtnr(rpx, rpy) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 567

def sgtnr( rpx,rpy )

  #< extract array size(s) (which was(were) formerly an argument(s)) >
  len_rpx_0 = rpx.length
  n = len_rpx_0

  #< check array size(s) >
  raise "Invalid array length: rpx.length != n" if rpx.length != (n)
  raise "Invalid array length: rpy.length != n" if rpy.length != (n)

  #< call the original method >
  __sgtnr( n,rpx,rpy )
end

.sgtnu(upx, upy) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 533

def sgtnu( upx,upy )

  #< extract array size(s) (which was(were) formerly an argument(s)) >
  len_upx_0 = upx.length
  n = len_upx_0

  #< check array size(s) >
  raise "Invalid array length: upx.length != n" if upx.length != (n)
  raise "Invalid array length: upy.length != n" if upy.length != (n)

  #< call the original method >
  __sgtnu( n,upx,upy )
end

.sgtnv(vpx, vpy) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 550

def sgtnv( vpx,vpy )

  #< extract array size(s) (which was(were) formerly an argument(s)) >
  len_vpx_0 = vpx.length
  n = len_vpx_0

  #< check array size(s) >
  raise "Invalid array length: vpx.length != n" if vpx.length != (n)
  raise "Invalid array length: vpy.length != n" if vpy.length != (n)

  #< call the original method >
  __sgtnv( n,vpx,vpy )
end

.sgtnxr(rpx, rpy, itpat, icolor) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 829

def sgtnxr( rpx,rpy,itpat,icolor )

  #< extract array size(s) (which was(were) formerly an argument(s)) >
  len_rpx_0 = rpx.length
  n = len_rpx_0

  #< check array size(s) >
  raise "Invalid array length: rpx.length != n" if rpx.length != (n)
  raise "Invalid array length: rpy.length != n" if rpy.length != (n)

  #< call the original method >
  __sgtnxr( n,rpx,rpy,itpat,icolor )
end

.sgtnxu(upx, upy, itpat, icolor) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 789

def sgtnxu( upx,upy,itpat,icolor )

  #< extract array size(s) (which was(were) formerly an argument(s)) >
  len_upx_0 = upx.length
  n = len_upx_0

  #< check array size(s) >
  raise "Invalid array length: upx.length != n" if upx.length != (n)
  raise "Invalid array length: upy.length != n" if upy.length != (n)

  #< call the original method >
  __sgtnxu( n,upx,upy,itpat,icolor )
end

.sgtnxv(vpx, vpy, itpat, icolor) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 809

def sgtnxv( vpx,vpy,itpat,icolor )

  #< extract array size(s) (which was(were) formerly an argument(s)) >
  len_vpx_0 = vpx.length
  n = len_vpx_0

  #< check array size(s) >
  raise "Invalid array length: vpx.length != n" if vpx.length != (n)
  raise "Invalid array length: vpy.length != n" if vpy.length != (n)

  #< call the original method >
  __sgtnxv( n,vpx,vpy,itpat,icolor )
end

.sgtnzr(rpx, rpy, itpat) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 618

def sgtnzr( rpx,rpy,itpat )

  #< extract array size(s) (which was(were) formerly an argument(s)) >
  len_rpx_0 = rpx.length
  n = len_rpx_0

  #< check array size(s) >
  raise "Invalid array length: rpx.length != n" if rpx.length != (n)
  raise "Invalid array length: rpy.length != n" if rpy.length != (n)

  #< call the original method >
  __sgtnzr( n,rpx,rpy,itpat )
end

.sgtnzu(upx, upy, itpat) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 584

def sgtnzu( upx,upy,itpat )

  #< extract array size(s) (which was(were) formerly an argument(s)) >
  len_upx_0 = upx.length
  n = len_upx_0

  #< check array size(s) >
  raise "Invalid array length: upx.length != n" if upx.length != (n)
  raise "Invalid array length: upy.length != n" if upy.length != (n)

  #< call the original method >
  __sgtnzu( n,upx,upy,itpat )
end

.sgtnzv(vpx, vpy, itpat) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 601

def sgtnzv( vpx,vpy,itpat )

  #< extract array size(s) (which was(were) formerly an argument(s)) >
  len_vpx_0 = vpx.length
  n = len_vpx_0

  #< check array size(s) >
  raise "Invalid array length: vpx.length != n" if vpx.length != (n)
  raise "Invalid array length: vpy.length != n" if vpy.length != (n)

  #< call the original method >
  __sgtnzv( n,vpx,vpy,itpat )
end

.shtfun(mm, jm, m, work) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 5125

def shtfun( mm,jm,m,work )

  #< check array size(s) >

  #< call the original method >
  __shtfun( mm,jm,m,work )
end

.shtg2s(mm, isw, g, work) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 5429

def shtg2s( mm,isw,g,work )

  #< extract array size(s) (which was(were) formerly an argument(s)) >
  if ( not_nary(g) || (g.rank < 1) )
    raise "g must be a NArray of rank == 2"
  end
  len_g_0 = g.shape[0]
  im = ( len_g_0 - 1 ) / 2
  if ( not_nary(g) || (g.rank < 2) )
    raise "g must be a NArray of rank == 2"
  end
  len_g_1 = g.shape[1]
  jm = ( len_g_1 - 1 ) / 2

  #< check array size(s) >
  raise "Invalid array shape: g.shape[0] != (2*im+1)" if g.shape[0] != ((2*im+1))
  raise "Invalid array shape: g.shape[1] != (2*jm+1)" if g.shape[1] != ((2*jm+1))
  raise "Invalid array length: work.length != (jm+1)*(4*jm+5*mm+14)+(mm+1)*(mm+1)+mm+2+6*im+15" if work.length != ((jm+1)*(4*jm+5*mm+14)+(mm+1)*(mm+1)+mm+2+6*im+15)

  #< call the original method >
  __shtg2s( mm,jm,im,isw,g,work )
end

.shtg2w(mm, g, work) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 5338

def shtg2w( mm,g,work )

  #< extract array size(s) (which was(were) formerly an argument(s)) >
  if ( not_nary(g) || (g.rank < 1) )
    raise "g must be a NArray of rank == 2"
  end
  len_g_0 = g.shape[0]
  im = ( len_g_0 - 1 ) / 2
  if ( not_nary(g) || (g.rank < 2) )
    raise "g must be a NArray of rank == 2"
  end
  len_g_1 = g.shape[1]
  jm = ( len_g_1 - 1 ) / 2

  #< check array size(s) >
  raise "Invalid array shape: g.shape[0] != (2*im+1)" if g.shape[0] != ((2*im+1))
  raise "Invalid array shape: g.shape[1] != (2*jm+1)" if g.shape[1] != ((2*jm+1))
  raise "Invalid array length: work.length != (jm+1)*(4*jm+5*mm+14)+(mm+1)*(mm+1)+mm+2+6*im+15" if work.length != ((jm+1)*(4*jm+5*mm+14)+(mm+1)*(mm+1)+mm+2+6*im+15)

  #< call the original method >
  __shtg2w( mm,jm,im,g,work )
end

.shtlap(mm, ind, a) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 5113

def shtlap( mm,ind,a )

  #< check array size(s) >
  raise "Invalid array length: a.length != (mm+1)*(mm+1)" if a.length != ((mm+1)*(mm+1))

  #< call the original method >
  __shtlap( mm,ind,a )
end

.shtlbw(mm, jm, m, isw, sm, work) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 5152

def shtlbw( mm,jm,m,isw,sm,work )

  #< check array size(s) >
  raise "Invalid array length: sm.length != mm-m+1" if sm.length != (mm-m+1)

  #< call the original method >
  __shtlbw( mm,jm,m,isw,sm,work )
end

.shtlfw(mm, m, isw, wm, work) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 5136

def shtlfw( mm,m,isw,wm,work )

  #< extract array size(s) (which was(were) formerly an argument(s)) >
  len_wm_0 = wm.length
  jm = ( len_wm_0 - 1 ) / 2

  #< check array size(s) >
  raise "Invalid array length: wm.length != 2*jm+1" if wm.length != (2*jm+1)

  #< call the original method >
  __shtlfw( mm,jm,m,isw,wm,work )
end

.shts2g(mm, jm, im, isw, s, work) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 5364

def shts2g( mm,jm,im,isw,s,work )

  #< check array size(s) >
  raise "Invalid array length: s.length != (mm+1)*(mm+1)" if s.length != ((mm+1)*(mm+1))
  raise "Invalid array length: work.length != (jm+1)*(4*jm+5*mm+14)+(mm+1)*(mm+1)+mm+2+6*im+15" if work.length != ((jm+1)*(4*jm+5*mm+14)+(mm+1)*(mm+1)+mm+2+6*im+15)

  #< call the original method >
  __shts2g( mm,jm,im,isw,s,work )
end

.shts2w(mm, jm, isw, s, work) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 5164

def shts2w( mm,jm,isw,s,work )

  #< check array size(s) >
  raise "Invalid array length: s.length != (mm+1)*(mm+1)" if s.length != ((mm+1)*(mm+1))

  #< call the original method >
  __shts2w( mm,jm,isw,s,work )
end

.shtsga(mm, jm, im, isw, m1, m2, s, work) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 5377

def shtsga( mm,jm,im,isw,m1,m2,s,work )

  #< check array size(s) >
  raise "Invalid array length: s.length != (mm+1)*(mm+1)" if s.length != ((mm+1)*(mm+1))
  raise "Invalid array length: work.length != (jm+1)*(4*jm+5*mm+14)+(mm+1)*(mm+1)+mm+2+6*im+15" if work.length != ((jm+1)*(4*jm+5*mm+14)+(mm+1)*(mm+1)+mm+2+6*im+15)

  #< call the original method >
  __shtsga( mm,jm,im,isw,m1,m2,s,work )
end

.shtsgj(mm, jm, im, isw, j, m1, m2, s, work) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 5416

def shtsgj( mm,jm,im,isw,j,m1,m2,s,work )

  #< check array size(s) >
  raise "Invalid array length: s.length != (mm+1)*(mm+1)" if s.length != ((mm+1)*(mm+1))
  raise "Invalid array length: work.length != (jm+1)*(4*jm+5*mm+14)+(mm+1)*(mm+1)+mm+2+6*im+15" if work.length != ((jm+1)*(4*jm+5*mm+14)+(mm+1)*(mm+1)+mm+2+6*im+15)

  #< call the original method >
  __shtsgj( mm,jm,im,isw,j,m1,m2,s,work )
end

.shtsgm(mm, jm, im, m, isw, s, work) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 5403

def shtsgm( mm,jm,im,m,isw,s,work )

  #< check array size(s) >
  raise "Invalid array length: s.length != (mm+1)*(mm+1)" if s.length != ((mm+1)*(mm+1))
  raise "Invalid array length: work.length != (jm+1)*(4*jm+5*mm+14)+(mm+1)*(mm+1)+mm+2+6*im+15" if work.length != ((jm+1)*(4*jm+5*mm+14)+(mm+1)*(mm+1)+mm+2+6*im+15)

  #< call the original method >
  __shtsgm( mm,jm,im,m,isw,s,work )
end

.shtsgz(mm, jm, im, isw, s, work) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 5390

def shtsgz( mm,jm,im,isw,s,work )

  #< check array size(s) >
  raise "Invalid array length: s.length != (mm+1)*(mm+1)" if s.length != ((mm+1)*(mm+1))
  raise "Invalid array length: work.length != (jm+1)*(4*jm+5*mm+14)+(mm+1)*(mm+1)+mm+2+6*im+15" if work.length != ((jm+1)*(4*jm+5*mm+14)+(mm+1)*(mm+1)+mm+2+6*im+15)

  #< call the original method >
  __shtsgz( mm,jm,im,isw,s,work )
end

.shtswa(mm, jm, isw, m1, m2, s, work) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 5176

def shtswa( mm,jm,isw,m1,m2,s,work )

  #< check array size(s) >
  raise "Invalid array length: s.length != (mm+1)*(mm+1)" if s.length != ((mm+1)*(mm+1))

  #< call the original method >
  __shtswa( mm,jm,isw,m1,m2,s,work )
end

.shtswj(mm, jm, isw, j, m1, m2, s, work) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 5212

def shtswj( mm,jm,isw,j,m1,m2,s,work )

  #< check array size(s) >
  raise "Invalid array length: s.length != (mm+1)*(mm+1)" if s.length != ((mm+1)*(mm+1))

  #< call the original method >
  __shtswj( mm,jm,isw,j,m1,m2,s,work )
end

.shtswm(mm, jm, m, isw, s, work) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 5200

def shtswm( mm,jm,m,isw,s,work )

  #< check array size(s) >
  raise "Invalid array length: s.length != (mm+1)*(mm+1)" if s.length != ((mm+1)*(mm+1))

  #< call the original method >
  __shtswm( mm,jm,m,isw,s,work )
end

.shtswz(mm, jm, isw, s, work) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 5188

def shtswz( mm,jm,isw,s,work )

  #< check array size(s) >
  raise "Invalid array length: s.length != (mm+1)*(mm+1)" if s.length != ((mm+1)*(mm+1))

  #< call the original method >
  __shtswz( mm,jm,isw,s,work )
end

.shtw2g(im, w, work) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 5236

def shtw2g( im,w,work )

  #< extract array size(s) (which was(were) formerly an argument(s)) >
  if ( not_nary(w) || (w.rank < 1) )
    raise "w must be a NArray of rank == 2"
  end
  len_w_0 = w.shape[0]
  jm = ( len_w_0 - 1 ) / 2
  if ( not_nary(w) || (w.rank < 2) )
    raise "w must be a NArray of rank == 2"
  end
  len_w_1 = w.shape[1]
  mm = ( len_w_1 - 1 ) / 2

  #< check array size(s) >
  raise "Invalid array shape: w.shape[0] != (2*jm+1)" if w.shape[0] != ((2*jm+1))
  raise "Invalid array shape: w.shape[1] != (2*mm+1)" if w.shape[1] != ((2*mm+1))
  raise "Invalid array length: work.length != (jm+1)*(4*jm+5*mm+14)+(mm+1)*(mm+1)+mm+2+6*im+15" if work.length != ((jm+1)*(4*jm+5*mm+14)+(mm+1)*(mm+1)+mm+2+6*im+15)

  #< call the original method >
  __shtw2g( mm,jm,im,w,work )
end

.shtw2s(mm, jm, isw, s, work) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 5224

def shtw2s( mm,jm,isw,s,work )

  #< check array size(s) >
  raise "Invalid array length: s.length != (2*jm+1)*(2*mm+1)" if s.length != ((2*jm+1)*(2*mm+1))

  #< call the original method >
  __shtw2s( mm,jm,isw,s,work )
end

.shtwga(im, m1, m2, w, work) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 5262

def shtwga( im,m1,m2,w,work )

  #< extract array size(s) (which was(were) formerly an argument(s)) >
  if ( not_nary(w) || (w.rank < 1) )
    raise "w must be a NArray of rank == 2"
  end
  len_w_0 = w.shape[0]
  jm = ( len_w_0 - 1 ) / 2
  if ( not_nary(w) || (w.rank < 2) )
    raise "w must be a NArray of rank == 2"
  end
  len_w_1 = w.shape[1]
  mm = ( len_w_1 - 1 ) / 2

  #< check array size(s) >
  raise "Invalid array shape: w.shape[0] != (2*jm+1)" if w.shape[0] != ((2*jm+1))
  raise "Invalid array shape: w.shape[1] != (2*mm+1)" if w.shape[1] != ((2*mm+1))
  raise "Invalid array length: work.length != (jm+1)*(4*jm+5*mm+14)+(mm+1)*(mm+1)+mm+2+6*im+15" if work.length != ((jm+1)*(4*jm+5*mm+14)+(mm+1)*(mm+1)+mm+2+6*im+15)

  #< call the original method >
  __shtwga( mm,jm,im,m1,m2,w,work )
end

.shtwgj(im, m1, m2, wj, work) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 5322

def shtwgj( im,m1,m2,wj,work )

  #< extract array size(s) (which was(were) formerly an argument(s)) >
  len_wj_0 = wj.length
  mm = ( len_wj_0 - 1 ) / 2

  #< check array size(s) >
  raise "Invalid array length: wj.length != 2*mm+1" if wj.length != (2*mm+1)

  #< call the original method >
  __shtwgj( mm,im,m1,m2,wj,work )
end

.shtwgm(mm, im, m, wr, wi, work) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 5288

def shtwgm( mm,im,m,wr,wi,work )

  #< extract array size(s) (which was(were) formerly an argument(s)) >
  len_wr_0 = wr.length
  jm = ( len_wr_0 - 1 ) / 2

  #< check array size(s) >
  raise "Invalid array length: wr.length != 2*jm+1" if wr.length != (2*jm+1)
  raise "Invalid array length: wi.length != 2*jm+1" if wi.length != (2*jm+1)
  raise "Invalid array length: work.length != (jm+1)*(4*jm+5*mm+14)+(mm+1)*(mm+1)+mm+2+6*im+15" if work.length != ((jm+1)*(4*jm+5*mm+14)+(mm+1)*(mm+1)+mm+2+6*im+15)

  #< call the original method >
  __shtwgm( mm,jm,im,m,wr,wi,work )
end

.shtwgz(im, wz) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 5306

def shtwgz( im,wz )

  #< extract array size(s) (which was(were) formerly an argument(s)) >
  len_wz_0 = wz.length
  jm = ( len_wz_0 - 1 ) / 2

  #< check array size(s) >
  raise "Invalid array length: wz.length != 2*jm+1" if wz.length != (2*jm+1)

  #< call the original method >
  __shtwgz( jm,im,wz )
end

.sinqb(x, wsave) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 5002

def sinqb( x,wsave )

  #< extract array size(s) (which was(were) formerly an argument(s)) >
  len_x_0 = x.length
  n = len_x_0

  #< check array size(s) >
  raise "Invalid array length: x.length != n" if x.length != (n)
  raise "Invalid array length: wsave.length != 3*n+15" if wsave.length != (3*n+15)

  #< call the original method >
  __sinqb( n,x,wsave )
end

.sinqf(x, wsave) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 5019

def sinqf( x,wsave )

  #< extract array size(s) (which was(were) formerly an argument(s)) >
  len_x_0 = x.length
  n = len_x_0

  #< check array size(s) >
  raise "Invalid array length: x.length != n" if x.length != (n)
  raise "Invalid array length: wsave.length != 3*n+15" if wsave.length != (3*n+15)

  #< call the original method >
  __sinqf( n,x,wsave )
end

.sint(x, wsave) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 5036

def sint( x,wsave )

  #< extract array size(s) (which was(were) formerly an argument(s)) >
  len_x_0 = x.length
  n = len_x_0

  #< check array size(s) >
  raise "Invalid array length: x.length != n" if x.length != (n)
  raise "Invalid array length: wsave.length != 2*n+n/2+15" if wsave.length != (2*n+n/2+15)

  #< call the original method >
  __sint( n,x,wsave )
end

.swgton(wpx, wpy, itpat) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 899

def swgton( wpx,wpy,itpat )

  #< extract array size(s) (which was(were) formerly an argument(s)) >
  len_wpx_0 = wpx.length
  np = len_wpx_0

  #< check array size(s) >
  raise "Invalid array length: wpx.length != np" if wpx.length != (np)
  raise "Invalid array length: wpy.length != np" if wpy.length != (np)

  #< call the original method >
  __swgton( np,wpx,wpy,itpat )
end

.swiclr(image) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 933

def swiclr( image )

  #< extract array size(s) (which was(were) formerly an argument(s)) >
  len_image_0 = image.length
  nlen = len_image_0

  #< check array size(s) >
  raise "Invalid array length: image.length != nlen" if image.length != (nlen)

  #< call the original method >
  __swiclr( image,nlen )
end

.swidat(image) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 916

def swidat( image )

  #< extract array size(s) (which was(were) formerly an argument(s)) >
  len_image_0 = image.length
  nlen = len_image_0

  #< check array size(s) >
  raise "Invalid array length: image.length != nlen" if image.length != (nlen)

  #< call the original method >
  __swidat( image,nlen )
end

.swpget(name) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 111

def swpget( name )
   case name
   when *@@sw_char_params
      DCL.swcget(name)
   when /^l/i
      DCL.swlget(name)
   when /^[i-n]/i
      DCL.swiget(name)
   else
      DCL.swrget(name)
   end
end

.udcntr(z) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 978

def udcntr( z )

  #< extract array size(s) (which was(were) formerly an argument(s)) >
  if ( not_nary(z) || (z.rank < 1) )
    raise "z must be a NArray of rank == 2"
  end
  len_z_0 = z.shape[0]
  nx = len_z_0
  if ( not_nary(z) || (z.rank < 2) )
    raise "z must be a NArray of rank == 2"
  end
  len_z_1 = z.shape[1]
  ny = len_z_1

  #< check array size(s) >
  raise "Invalid array shape: z.shape[0] != nx" if z.shape[0] != (nx)
  raise "Invalid array shape: z.shape[1] != ny" if z.shape[1] != (ny)

  #< call the original method >
  __udcntr( z,nx,nx,ny )
end

.udcntz(z) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 1003

def udcntz( z )

  #< extract array size(s) (which was(were) formerly an argument(s)) >
  if ( not_nary(z) || (z.rank < 1) )
    raise "z must be a NArray of rank == 2"
  end
  len_z_0 = z.shape[0]
  nx = len_z_0
  if ( not_nary(z) || (z.rank < 2) )
    raise "z must be a NArray of rank == 2"
  end
  len_z_1 = z.shape[1]
  ny = len_z_1

  # derivation of nbr2 is provied aditionally in the method post_filter:
  nbr2 = (nx+2)*(ny+2)*6/32+4

  #< check array size(s) >
  raise "Invalid array shape: z.shape[0] != nx" if z.shape[0] != (nx)
  raise "Invalid array shape: z.shape[1] != ny" if z.shape[1] != (ny)

  #< call the original method >
  __udcntz( z,nx,nx,ny,nbr2 )
end

.udgclb(z, dx) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 1031

def udgclb( z,dx )

  #< extract array size(s) (which was(were) formerly an argument(s)) >
  if ( not_nary(z) || (z.rank < 1) )
    raise "z must be a NArray of rank == 2"
  end
  len_z_0 = z.shape[0]
  nx = len_z_0
  if ( not_nary(z) || (z.rank < 2) )
    raise "z must be a NArray of rank == 2"
  end
  len_z_1 = z.shape[1]
  ny = len_z_1

  #< check array size(s) >
  raise "Invalid array shape: z.shape[0] != nx" if z.shape[0] != (nx)
  raise "Invalid array shape: z.shape[1] != ny" if z.shape[1] != (ny)

  #< call the original method >
  __udgclb( z,nx,nx,ny,dx )
end

.uegtlb(z, dx) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 1184

def uegtlb( z,dx )

  #< extract array size(s) (which was(were) formerly an argument(s)) >
  if ( not_nary(z) || (z.rank < 1) )
    raise "z must be a NArray of rank == 2"
  end
  len_z_0 = z.shape[0]
  nx = len_z_0
  if ( not_nary(z) || (z.rank < 2) )
    raise "z must be a NArray of rank == 2"
  end
  len_z_1 = z.shape[1]
  ny = len_z_1

  #< check array size(s) >
  raise "Invalid array shape: z.shape[0] != nx" if z.shape[0] != (nx)
  raise "Invalid array shape: z.shape[1] != ny" if z.shape[1] != (ny)

  #< call the original method >
  __uegtlb( z,nx,nx,ny,dx )
end

.uemrkz(upx, upy, z, itype, index, rsize) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 5564

def uemrkz( upx,upy,z,itype,index,rsize )

  #< extract array size(s) (which was(were) formerly an argument(s)) >
  if ! ( upx == nil || upx.is_a?(Float) && lreq( upx, glrget("RUNDEF") ) )
    len_upx_0 = upx.length
    n = len_upx_0
  else
    upx = glrget("RUNDEF") if ( upx == nil )
    len_upy_0 = upy.length
    n = len_upy_0
  end

  #< check array size(s) >
  raise "Invalid array length: upx.length != n" if \
      upx!=nil && !( upx.is_a?(Float) && lreq(upx,glrget("RUNDEF")) ) && upx.length != (n)
  raise "Invalid array length: upy.length != n" if \
      upy!=nil && !( upy.is_a?(Float) && lreq(upy,glrget("RUNDEF")) ) && upy.length != (n)
  raise "Invalid array length: z.length != n" if \
      z!=nil && !( z.is_a?(Float) && lreq(z,glrget("RUNDEF")) ) && z.length != (n)

  #< call the original method >
  __uemrkz( n,upx,upy,z,itype,index,rsize )
end

.uestln(tlevn, ipatn) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 1209

def uestln( tlevn,ipatn )

  #< extract array size(s) (which was(were) formerly an argument(s)) >
  len_tlevn_0 = tlevn.length
  nton = len_tlevn_0 - 1

  #< check array size(s) >
  raise "Invalid array length: tlevn.length != nton+1" if tlevn.length != (nton+1)
  raise "Invalid array length: ipatn.length != nton" if ipatn.length != (nton)

  #< call the original method >
  __uestln( tlevn,ipatn,nton )
end

.uetonb(z) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 1107

def uetonb( z )

  #< extract array size(s) (which was(were) formerly an argument(s)) >
  if ( not_nary(z) || (z.rank < 1) )
    raise "z must be a NArray of rank == 2"
  end
  len_z_0 = z.shape[0]
  nx = len_z_0
  if ( not_nary(z) || (z.rank < 2) )
    raise "z must be a NArray of rank == 2"
  end
  len_z_1 = z.shape[1]
  ny = len_z_1

  #< check array size(s) >
  raise "Invalid array shape: z.shape[0] != nx" if z.shape[0] != (nx)
  raise "Invalid array shape: z.shape[1] != ny" if z.shape[1] != (ny)

  #< call the original method >
  __uetonb( z,nx,nx,ny )
end

.uetonc(z) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 1134

def uetonc( z )

  #< extract array size(s) (which was(were) formerly an argument(s)) >
  if ( not_nary(z) || (z.rank < 1) )
    raise "z must be a NArray of rank == 2"
  end
  len_z_0 = z.shape[0]
  nx = len_z_0
  if ( not_nary(z) || (z.rank < 2) )
    raise "z must be a NArray of rank == 2"
  end
  len_z_1 = z.shape[1]
  ny = len_z_1

  #< check array size(s) >
  raise "Invalid array shape: z.shape[0] != nx" if z.shape[0] != (nx)
  raise "Invalid array shape: z.shape[1] != ny" if z.shape[1] != (ny)

  #< call the original method >
  __uetonc( z,nx,nx,ny )
end

.uetone(z) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 1056

def uetone( z )

  #< extract array size(s) (which was(were) formerly an argument(s)) >
  if ( not_nary(z) || (z.rank < 1) )
    raise "z must be a NArray of rank == 2"
  end
  len_z_0 = z.shape[0]
  nx = len_z_0
  if ( not_nary(z) || (z.rank < 2) )
    raise "z must be a NArray of rank == 2"
  end
  len_z_1 = z.shape[1]
  ny = len_z_1

  #< check array size(s) >
  raise "Invalid array shape: z.shape[0] != nx" if z.shape[0] != (nx)
  raise "Invalid array shape: z.shape[1] != ny" if z.shape[1] != (ny)

  #< call the original method >
  __uetone( z,nx,nx,ny )
end

.uetonf(z) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 1081

def uetonf( z )

  #< extract array size(s) (which was(were) formerly an argument(s)) >
  if ( not_nary(z) || (z.rank < 1) )
    raise "z must be a NArray of rank == 2"
  end
  len_z_0 = z.shape[0]
  nx = len_z_0
  if ( not_nary(z) || (z.rank < 2) )
    raise "z must be a NArray of rank == 2"
  end
  len_z_1 = z.shape[1]
  ny = len_z_1

  #< check array size(s) >
  raise "Invalid array shape: z.shape[0] != nx" if z.shape[0] != (nx)
  raise "Invalid array shape: z.shape[1] != ny" if z.shape[1] != (ny)

  #< call the original method >
  __uetonf( z,nx,nx,ny )
end

.uezchk(z, cname) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 1159

def uezchk( z,cname )

  #< extract array size(s) (which was(were) formerly an argument(s)) >
  if ( not_nary(z) || (z.rank < 1) )
    raise "z must be a NArray of rank == 2"
  end
  len_z_0 = z.shape[0]
  nx = len_z_0
  if ( not_nary(z) || (z.rank < 2) )
    raise "z must be a NArray of rank == 2"
  end
  len_z_1 = z.shape[1]
  ny = len_z_1

  #< check array size(s) >
  raise "Invalid array shape: z.shape[0] != nx" if z.shape[0] != (nx)
  raise "Invalid array shape: z.shape[1] != ny" if z.shape[1] != (ny)

  #< call the original method >
  __uezchk( z,nx,nx,ny,cname )
end

.ugvect(u, v) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 1226

def ugvect( u,v )

  #< extract array size(s) (which was(were) formerly an argument(s)) >
  if ( not_nary(u) || (u.rank < 1) )
    raise "u must be a NArray of rank == 2"
  end
  len_u_0 = u.shape[0]
  nx = len_u_0
  if ( not_nary(u) || (u.rank < 2) )
    raise "u must be a NArray of rank == 2"
  end
  len_u_1 = u.shape[1]
  ny = len_u_1

  #< check array size(s) >
  raise "Invalid array shape: u.shape[0] != nx" if u.shape[0] != (nx)
  raise "Invalid array shape: u.shape[1] != ny" if u.shape[1] != (ny)
  raise "Invalid array shape: v.shape[0] != nx" if v.shape[0] != (nx)
  raise "Invalid array shape: v.shape[1] != ny" if v.shape[1] != (ny)

  #< call the original method >
  __ugvect( u,nx,v,nx,nx,ny )
end

.uhbra(upx1, upx2, upy) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 1451

def uhbra( upx1,upx2,upy )

  #< extract array size(s) (which was(were) formerly an argument(s)) >
  if ! ( upx1 == nil || upx1.is_a?(Float) && lreq( upx1, glrget("RUNDEF") ) )
    len_upx1_0 = upx1.length
    n = len_upx1_0
  else
    upx1 = glrget("RUNDEF") if ( upx1 == nil )
    if ! ( upx2 == nil || upx2.is_a?(Float) && lreq( upx2, glrget("RUNDEF") ) )
      len_upx2_0 = upx2.length
      n = len_upx2_0
    else
      upx2 = glrget("RUNDEF") if ( upx2 == nil )
      len_upy_0 = upy.length
      n = len_upy_0
    end
  end

  #< check array size(s) >
  raise "Invalid array length: upx1.length != n" if \
      upx1!=nil && !( upx1.is_a?(Float) && lreq(upx1,glrget("RUNDEF")) ) && upx1.length != (n)
  raise "Invalid array length: upx2.length != n" if \
      upx2!=nil && !( upx2.is_a?(Float) && lreq(upx2,glrget("RUNDEF")) ) && upx2.length != (n)
  raise "Invalid array length: upy.length != n" if \
      upy!=nil && !( upy.is_a?(Float) && lreq(upy,glrget("RUNDEF")) ) && upy.length != (n)

  #< call the original method >
  __uhbra( n,upx1,upx2,upy )
end

.uhbraz(upx1, upx2, upy, itpat1, itpat2, rsize) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 1484

def uhbraz( upx1,upx2,upy,itpat1,itpat2,rsize )

  #< extract array size(s) (which was(were) formerly an argument(s)) >
  if ! ( upx1 == nil || upx1.is_a?(Float) && lreq( upx1, glrget("RUNDEF") ) )
    len_upx1_0 = upx1.length
    n = len_upx1_0
  else
    upx1 = glrget("RUNDEF") if ( upx1 == nil )
    if ! ( upx2 == nil || upx2.is_a?(Float) && lreq( upx2, glrget("RUNDEF") ) )
      len_upx2_0 = upx2.length
      n = len_upx2_0
    else
      upx2 = glrget("RUNDEF") if ( upx2 == nil )
      len_upy_0 = upy.length
      n = len_upy_0
    end
  end

  #< check array size(s) >
  raise "Invalid array length: upx1.length != n" if \
      upx1!=nil && !( upx1.is_a?(Float) && lreq(upx1,glrget("RUNDEF")) ) && upx1.length != (n)
  raise "Invalid array length: upx2.length != n" if \
      upx2!=nil && !( upx2.is_a?(Float) && lreq(upx2,glrget("RUNDEF")) ) && upx2.length != (n)
  raise "Invalid array length: upy.length != n" if \
      upy!=nil && !( upy.is_a?(Float) && lreq(upy,glrget("RUNDEF")) ) && upy.length != (n)

  #< call the original method >
  __uhbraz( n,upx1,upx2,upy,itpat1,itpat2,rsize )
end

.uhbrf(upx1, upx2, upy) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 1385

def uhbrf( upx1,upx2,upy )

  #< extract array size(s) (which was(were) formerly an argument(s)) >
  if ! ( upx1 == nil || upx1.is_a?(Float) && lreq( upx1, glrget("RUNDEF") ) )
    len_upx1_0 = upx1.length
    n = len_upx1_0
  else
    upx1 = glrget("RUNDEF") if ( upx1 == nil )
    if ! ( upx2 == nil || upx2.is_a?(Float) && lreq( upx2, glrget("RUNDEF") ) )
      len_upx2_0 = upx2.length
      n = len_upx2_0
    else
      upx2 = glrget("RUNDEF") if ( upx2 == nil )
      len_upy_0 = upy.length
      n = len_upy_0
    end
  end

  #< check array size(s) >
  raise "Invalid array length: upx1.length != n" if \
      upx1!=nil && !( upx1.is_a?(Float) && lreq(upx1,glrget("RUNDEF")) ) && upx1.length != (n)
  raise "Invalid array length: upx2.length != n" if \
      upx2!=nil && !( upx2.is_a?(Float) && lreq(upx2,glrget("RUNDEF")) ) && upx2.length != (n)
  raise "Invalid array length: upy.length != n" if \
      upy!=nil && !( upy.is_a?(Float) && lreq(upy,glrget("RUNDEF")) ) && upy.length != (n)

  #< call the original method >
  __uhbrf( n,upx1,upx2,upy )
end

.uhbrfz(upx1, upx2, upy, itype, index, rsize) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 1418

def uhbrfz( upx1,upx2,upy,itype,index,rsize )

  #< extract array size(s) (which was(were) formerly an argument(s)) >
  if ! ( upx1 == nil || upx1.is_a?(Float) && lreq( upx1, glrget("RUNDEF") ) )
    len_upx1_0 = upx1.length
    n = len_upx1_0
  else
    upx1 = glrget("RUNDEF") if ( upx1 == nil )
    if ! ( upx2 == nil || upx2.is_a?(Float) && lreq( upx2, glrget("RUNDEF") ) )
      len_upx2_0 = upx2.length
      n = len_upx2_0
    else
      upx2 = glrget("RUNDEF") if ( upx2 == nil )
      len_upy_0 = upy.length
      n = len_upy_0
    end
  end

  #< check array size(s) >
  raise "Invalid array length: upx1.length != n" if \
      upx1!=nil && !( upx1.is_a?(Float) && lreq(upx1,glrget("RUNDEF")) ) && upx1.length != (n)
  raise "Invalid array length: upx2.length != n" if \
      upx2!=nil && !( upx2.is_a?(Float) && lreq(upx2,glrget("RUNDEF")) ) && upx2.length != (n)
  raise "Invalid array length: upy.length != n" if \
      upy!=nil && !( upy.is_a?(Float) && lreq(upy,glrget("RUNDEF")) ) && upy.length != (n)

  #< call the original method >
  __uhbrfz( n,upx1,upx2,upy,itype,index,rsize )
end

.uhbrl(upx, upy) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 1517

def uhbrl( upx,upy )

  #< extract array size(s) (which was(were) formerly an argument(s)) >
  if ! ( upx == nil || upx.is_a?(Float) && lreq( upx, glrget("RUNDEF") ) )
    len_upx_0 = upx.length
    n = len_upx_0
  else
    upx = glrget("RUNDEF") if ( upx == nil )
    len_upy_0 = upy.length
    n = len_upy_0
  end

  #< check array size(s) >
  raise "Invalid array length: upx.length != n" if \
      upx!=nil && !( upx.is_a?(Float) && lreq(upx,glrget("RUNDEF")) ) && upx.length != (n)
  raise "Invalid array length: upy.length != n" if \
      upy!=nil && !( upy.is_a?(Float) && lreq(upy,glrget("RUNDEF")) ) && upy.length != (n)

  #< call the original method >
  __uhbrl( n,upx,upy )
end

.uhbrlz(upx, upy, itype, index, rsize) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 1542

def uhbrlz( upx,upy,itype,index,rsize )

  #< extract array size(s) (which was(were) formerly an argument(s)) >
  if ! ( upx == nil || upx.is_a?(Float) && lreq( upx, glrget("RUNDEF") ) )
    len_upx_0 = upx.length
    n = len_upx_0
  else
    upx = glrget("RUNDEF") if ( upx == nil )
    len_upy_0 = upy.length
    n = len_upy_0
  end

  #< check array size(s) >
  raise "Invalid array length: upx.length != n" if \
      upx!=nil && !( upx.is_a?(Float) && lreq(upx,glrget("RUNDEF")) ) && upx.length != (n)
  raise "Invalid array length: upy.length != n" if \
      upy!=nil && !( upy.is_a?(Float) && lreq(upy,glrget("RUNDEF")) ) && upy.length != (n)

  #< call the original method >
  __uhbrlz( n,upx,upy,itype,index,rsize )
end

.uhbxa(upx1, upx2, upy) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 1633

def uhbxa( upx1,upx2,upy )

  #< extract array size(s) (which was(were) formerly an argument(s)) >
  if ! ( upx1 == nil || upx1.is_a?(Float) && lreq( upx1, glrget("RUNDEF") ) )
    len_upx1_0 = upx1.length
    n = len_upx1_0
  else
    upx1 = glrget("RUNDEF") if ( upx1 == nil )
    if ! ( upx2 == nil || upx2.is_a?(Float) && lreq( upx2, glrget("RUNDEF") ) )
      len_upx2_0 = upx2.length
      n = len_upx2_0
    else
      upx2 = glrget("RUNDEF") if ( upx2 == nil )
      len_upy_0 = upy.length
      n = len_upy_0 - 1
    end
  end

  #< check array size(s) >
  raise "Invalid array length: upx1.length != n" if \
      upx1!=nil && !( upx1.is_a?(Float) && lreq(upx1,glrget("RUNDEF")) ) && upx1.length != (n)
  raise "Invalid array length: upx2.length != n" if \
      upx2!=nil && !( upx2.is_a?(Float) && lreq(upx2,glrget("RUNDEF")) ) && upx2.length != (n)
  raise "Invalid array length: upy.length != n+1" if \
      upy!=nil && !( upy.is_a?(Float) && lreq(upy,glrget("RUNDEF")) ) && upy.length != (n+1)

  #< call the original method >
  __uhbxa( n,upx1,upx2,upy )
end

.uhbxaz(upx1, upx2, upy, itpat1, itpat2) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 1691

def uhbxaz( upx1,upx2,upy,itpat1,itpat2 )

  #< extract array size(s) (which was(were) formerly an argument(s)) >
  if ! ( upx1 == nil || upx1.is_a?(Float) && lreq( upx1, glrget("RUNDEF") ) )
    len_upx1_0 = upx1.length
    n = len_upx1_0
  else
    upx1 = glrget("RUNDEF") if ( upx1 == nil )
    if ! ( upx2 == nil || upx2.is_a?(Float) && lreq( upx2, glrget("RUNDEF") ) )
      len_upx2_0 = upx2.length
      n = len_upx2_0
    else
      upx2 = glrget("RUNDEF") if ( upx2 == nil )
      len_upy_0 = upy.length
      n = len_upy_0 - 1
    end
  end

  #< check array size(s) >
  raise "Invalid array length: upx1.length != n" if \
      upx1!=nil && !( upx1.is_a?(Float) && lreq(upx1,glrget("RUNDEF")) ) && upx1.length != (n)
  raise "Invalid array length: upx2.length != n" if \
      upx2!=nil && !( upx2.is_a?(Float) && lreq(upx2,glrget("RUNDEF")) ) && upx2.length != (n)
  raise "Invalid array length: upy.length != n+1" if \
      upy!=nil && !( upy.is_a?(Float) && lreq(upy,glrget("RUNDEF")) ) && upy.length != (n+1)

  #< call the original method >
  __uhbxaz( n,upx1,upx2,upy,itpat1,itpat2 )
end

.uhbxf(upx1, upx2, upy) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 1567

def uhbxf( upx1,upx2,upy )

  #< extract array size(s) (which was(were) formerly an argument(s)) >
  if ! ( upx1 == nil || upx1.is_a?(Float) && lreq( upx1, glrget("RUNDEF") ) )
    len_upx1_0 = upx1.length
    n = len_upx1_0
  else
    upx1 = glrget("RUNDEF") if ( upx1 == nil )
    if ! ( upx2 == nil || upx2.is_a?(Float) && lreq( upx2, glrget("RUNDEF") ) )
      len_upx2_0 = upx2.length
      n = len_upx2_0
    else
      upx2 = glrget("RUNDEF") if ( upx2 == nil )
      len_upy_0 = upy.length
      n = len_upy_0 - 1
    end
  end

  #< check array size(s) >
  raise "Invalid array length: upx1.length != n" if \
      upx1!=nil && !( upx1.is_a?(Float) && lreq(upx1,glrget("RUNDEF")) ) && upx1.length != (n)
  raise "Invalid array length: upx2.length != n" if \
      upx2!=nil && !( upx2.is_a?(Float) && lreq(upx2,glrget("RUNDEF")) ) && upx2.length != (n)
  raise "Invalid array length: upy.length != n+1" if \
      upy!=nil && !( upy.is_a?(Float) && lreq(upy,glrget("RUNDEF")) ) && upy.length != (n+1)

  #< call the original method >
  __uhbxf( n,upx1,upx2,upy )
end

.uhbxfz(upx1, upx2, upy, itype, index) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 1600

def uhbxfz( upx1,upx2,upy,itype,index )

  #< extract array size(s) (which was(were) formerly an argument(s)) >
  if ! ( upx1 == nil || upx1.is_a?(Float) && lreq( upx1, glrget("RUNDEF") ) )
    len_upx1_0 = upx1.length
    n = len_upx1_0
  else
    upx1 = glrget("RUNDEF") if ( upx1 == nil )
    if ! ( upx2 == nil || upx2.is_a?(Float) && lreq( upx2, glrget("RUNDEF") ) )
      len_upx2_0 = upx2.length
      n = len_upx2_0
    else
      upx2 = glrget("RUNDEF") if ( upx2 == nil )
      len_upy_0 = upy.length
      n = len_upy_0 - 1
    end
  end

  #< check array size(s) >
  raise "Invalid array length: upx1.length != n" if \
      upx1!=nil && !( upx1.is_a?(Float) && lreq(upx1,glrget("RUNDEF")) ) && upx1.length != (n)
  raise "Invalid array length: upx2.length != n" if \
      upx2!=nil && !( upx2.is_a?(Float) && lreq(upx2,glrget("RUNDEF")) ) && upx2.length != (n)
  raise "Invalid array length: upy.length != n+1" if \
      upy!=nil && !( upy.is_a?(Float) && lreq(upy,glrget("RUNDEF")) ) && upy.length != (n+1)

  #< call the original method >
  __uhbxfz( n,upx1,upx2,upy,itype,index )
end

.uhbxl(upx, upy) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 1666

def uhbxl( upx,upy )

  #< extract array size(s) (which was(were) formerly an argument(s)) >
  if ! ( upx == nil || upx.is_a?(Float) && lreq( upx, glrget("RUNDEF") ) )
    len_upx_0 = upx.length
    n = len_upx_0
  else
    upx = glrget("RUNDEF") if ( upx == nil )
    len_upy_0 = upy.length
    n = len_upy_0 - 1
  end

  #< check array size(s) >
  raise "Invalid array length: upx.length != n" if \
      upx!=nil && !( upx.is_a?(Float) && lreq(upx,glrget("RUNDEF")) ) && upx.length != (n)
  raise "Invalid array length: upy.length != n+1" if \
      upy!=nil && !( upy.is_a?(Float) && lreq(upy,glrget("RUNDEF")) ) && upy.length != (n+1)

  #< call the original method >
  __uhbxl( n,upx,upy )
end

.uhbxlz(upx, upy, itype, index) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 1724

def uhbxlz( upx,upy,itype,index )

  #< extract array size(s) (which was(were) formerly an argument(s)) >
  if ! ( upx == nil || upx.is_a?(Float) && lreq( upx, glrget("RUNDEF") ) )
    len_upx_0 = upx.length
    n = len_upx_0
  else
    upx = glrget("RUNDEF") if ( upx == nil )
    len_upy_0 = upy.length
    n = len_upy_0 - 1
  end

  #< check array size(s) >
  raise "Invalid array length: upx.length != n" if \
      upx!=nil && !( upx.is_a?(Float) && lreq(upx,glrget("RUNDEF")) ) && upx.length != (n)
  raise "Invalid array length: upy.length != n+1" if \
      upy!=nil && !( upy.is_a?(Float) && lreq(upy,glrget("RUNDEF")) ) && upy.length != (n+1)

  #< call the original method >
  __uhbxlz( n,upx,upy,itype,index )
end

.uhdif(upx1, upx2, upy) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 1319

def uhdif( upx1,upx2,upy )

  #< extract array size(s) (which was(were) formerly an argument(s)) >
  if ! ( upx1 == nil || upx1.is_a?(Float) && lreq( upx1, glrget("RUNDEF") ) )
    len_upx1_0 = upx1.length
    n = len_upx1_0
  else
    upx1 = glrget("RUNDEF") if ( upx1 == nil )
    if ! ( upx2 == nil || upx2.is_a?(Float) && lreq( upx2, glrget("RUNDEF") ) )
      len_upx2_0 = upx2.length
      n = len_upx2_0
    else
      upx2 = glrget("RUNDEF") if ( upx2 == nil )
      len_upy_0 = upy.length
      n = len_upy_0
    end
  end

  #< check array size(s) >
  raise "Invalid array length: upx1.length != n" if \
      upx1!=nil && !( upx1.is_a?(Float) && lreq(upx1,glrget("RUNDEF")) ) && upx1.length != (n)
  raise "Invalid array length: upx2.length != n" if \
      upx2!=nil && !( upx2.is_a?(Float) && lreq(upx2,glrget("RUNDEF")) ) && upx2.length != (n)
  raise "Invalid array length: upy.length != n" if \
      upy!=nil && !( upy.is_a?(Float) && lreq(upy,glrget("RUNDEF")) ) && upy.length != (n)

  #< call the original method >
  __uhdif( n,upx1,upx2,upy )
end

.uhdifz(upx1, upx2, upy, itpat1, itpat2) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 1352

def uhdifz( upx1,upx2,upy,itpat1,itpat2 )

  #< extract array size(s) (which was(were) formerly an argument(s)) >
  if ! ( upx1 == nil || upx1.is_a?(Float) && lreq( upx1, glrget("RUNDEF") ) )
    len_upx1_0 = upx1.length
    n = len_upx1_0
  else
    upx1 = glrget("RUNDEF") if ( upx1 == nil )
    if ! ( upx2 == nil || upx2.is_a?(Float) && lreq( upx2, glrget("RUNDEF") ) )
      len_upx2_0 = upx2.length
      n = len_upx2_0
    else
      upx2 = glrget("RUNDEF") if ( upx2 == nil )
      len_upy_0 = upy.length
      n = len_upy_0
    end
  end

  #< check array size(s) >
  raise "Invalid array length: upx1.length != n" if \
      upx1!=nil && !( upx1.is_a?(Float) && lreq(upx1,glrget("RUNDEF")) ) && upx1.length != (n)
  raise "Invalid array length: upx2.length != n" if \
      upx2!=nil && !( upx2.is_a?(Float) && lreq(upx2,glrget("RUNDEF")) ) && upx2.length != (n)
  raise "Invalid array length: upy.length != n" if \
      upy!=nil && !( upy.is_a?(Float) && lreq(upy,glrget("RUNDEF")) ) && upy.length != (n)

  #< call the original method >
  __uhdifz( n,upx1,upx2,upy,itpat1,itpat2 )
end

.uherb(upx1, upx2, upy) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 1253

def uherb( upx1,upx2,upy )

  #< extract array size(s) (which was(were) formerly an argument(s)) >
  if ! ( upx1 == nil || upx1.is_a?(Float) && lreq( upx1, glrget("RUNDEF") ) )
    len_upx1_0 = upx1.length
    n = len_upx1_0
  else
    upx1 = glrget("RUNDEF") if ( upx1 == nil )
    if ! ( upx2 == nil || upx2.is_a?(Float) && lreq( upx2, glrget("RUNDEF") ) )
      len_upx2_0 = upx2.length
      n = len_upx2_0
    else
      upx2 = glrget("RUNDEF") if ( upx2 == nil )
      len_upy_0 = upy.length
      n = len_upy_0
    end
  end

  #< check array size(s) >
  raise "Invalid array length: upx1.length != n" if \
      upx1!=nil && !( upx1.is_a?(Float) && lreq(upx1,glrget("RUNDEF")) ) && upx1.length != (n)
  raise "Invalid array length: upx2.length != n" if \
      upx2!=nil && !( upx2.is_a?(Float) && lreq(upx2,glrget("RUNDEF")) ) && upx2.length != (n)
  raise "Invalid array length: upy.length != n" if \
      upy!=nil && !( upy.is_a?(Float) && lreq(upy,glrget("RUNDEF")) ) && upy.length != (n)

  #< call the original method >
  __uherb( n,upx1,upx2,upy )
end

.uherbz(upx1, upx2, upy, itype, index, rsize) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 1286

def uherbz( upx1,upx2,upy,itype,index,rsize )

  #< extract array size(s) (which was(were) formerly an argument(s)) >
  if ! ( upx1 == nil || upx1.is_a?(Float) && lreq( upx1, glrget("RUNDEF") ) )
    len_upx1_0 = upx1.length
    n = len_upx1_0
  else
    upx1 = glrget("RUNDEF") if ( upx1 == nil )
    if ! ( upx2 == nil || upx2.is_a?(Float) && lreq( upx2, glrget("RUNDEF") ) )
      len_upx2_0 = upx2.length
      n = len_upx2_0
    else
      upx2 = glrget("RUNDEF") if ( upx2 == nil )
      len_upy_0 = upy.length
      n = len_upy_0
    end
  end

  #< check array size(s) >
  raise "Invalid array length: upx1.length != n" if \
      upx1!=nil && !( upx1.is_a?(Float) && lreq(upx1,glrget("RUNDEF")) ) && upx1.length != (n)
  raise "Invalid array length: upx2.length != n" if \
      upx2!=nil && !( upx2.is_a?(Float) && lreq(upx2,glrget("RUNDEF")) ) && upx2.length != (n)
  raise "Invalid array length: upy.length != n" if \
      upy!=nil && !( upy.is_a?(Float) && lreq(upy,glrget("RUNDEF")) ) && upy.length != (n)

  #< call the original method >
  __uherbz( n,upx1,upx2,upy,itype,index,rsize )
end

.uipda2(u, v) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 1775

def uipda2( u,v )

  #< extract array size(s) (which was(were) formerly an argument(s)) >
  if ( not_nary(u) || (u.rank < 1) )
    raise "u must be a NArray of rank == 2"
  end
  len_u_0 = u.shape[0]
  nx = len_u_0
  if ( not_nary(u) || (u.rank < 2) )
    raise "u must be a NArray of rank == 2"
  end
  len_u_1 = u.shape[1]
  ny = len_u_1

  #< check array size(s) >
  raise "Invalid array shape: u.shape[0] != nx" if u.shape[0] != (nx)
  raise "Invalid array shape: u.shape[1] != ny" if u.shape[1] != (ny)
  raise "Invalid array shape: v.shape[0] != nx" if v.shape[0] != (nx)
  raise "Invalid array shape: v.shape[1] != ny" if v.shape[1] != (ny)

  #< call the original method >
  __uipda2( u,v,nx,nx,ny )
end

.uipda3(u, v, w) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 1802

def uipda3( u,v,w )

  #< extract array size(s) (which was(were) formerly an argument(s)) >
  if ( not_nary(u) || (u.rank < 1) )
    raise "u must be a NArray of rank == 2"
  end
  len_u_0 = u.shape[0]
  nx = len_u_0
  if ( not_nary(u) || (u.rank < 2) )
    raise "u must be a NArray of rank == 2"
  end
  len_u_1 = u.shape[1]
  ny = len_u_1

  #< check array size(s) >
  raise "Invalid array shape: u.shape[0] != nx" if u.shape[0] != (nx)
  raise "Invalid array shape: u.shape[1] != ny" if u.shape[1] != (ny)
  raise "Invalid array shape: v.shape[0] != nx" if v.shape[0] != (nx)
  raise "Invalid array shape: v.shape[1] != ny" if v.shape[1] != (ny)
  raise "Invalid array shape: w.shape[0] != nx" if w.shape[0] != (nx)
  raise "Invalid array shape: w.shape[1] != ny" if w.shape[1] != (ny)

  #< call the original method >
  __uipda3( u,v,w,nx,nx,ny )
end

.uipdat(z) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 1750

def uipdat( z )

  #< extract array size(s) (which was(were) formerly an argument(s)) >
  if ( not_nary(z) || (z.rank < 1) )
    raise "z must be a NArray of rank == 2"
  end
  len_z_0 = z.shape[0]
  nx = len_z_0
  if ( not_nary(z) || (z.rank < 2) )
    raise "z must be a NArray of rank == 2"
  end
  len_z_1 = z.shape[1]
  ny = len_z_1

  #< check array size(s) >
  raise "Invalid array shape: z.shape[0] != nx" if z.shape[0] != (nx)
  raise "Invalid array shape: z.shape[1] != ny" if z.shape[1] != (ny)

  #< call the original method >
  __uipdat( z,nx,nx,ny )
end

.uiscsq(clrlvl, icolor) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 1831

def uiscsq( clrlvl,icolor )

  #< extract array size(s) (which was(were) formerly an argument(s)) >
  len_clrlvl_0 = clrlvl.length
  n = len_clrlvl_0

  #< check array size(s) >
  raise "Invalid array length: clrlvl.length != n" if clrlvl.length != (n)
  raise "Invalid array length: icolor.length != n" if icolor.length != (n)

  #< call the original method >
  __uiscsq( clrlvl,icolor,n )
end

.uismsq(shdlvl, shade) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 1848

def uismsq( shdlvl,shade )

  #< extract array size(s) (which was(were) formerly an argument(s)) >
  len_shdlvl_0 = shdlvl.length
  n = len_shdlvl_0

  #< check array size(s) >
  raise "Invalid array length: shdlvl.length != n" if shdlvl.length != (n)
  raise "Invalid array length: shade.length != n" if shade.length != (n)

  #< call the original method >
  __uismsq( shdlvl,shade,n )
end

.ulsxbl(bl) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 1867

def ulsxbl( bl )

  #< extract array size(s) (which was(were) formerly an argument(s)) >
  len_bl_0 = bl.length
  nbl = len_bl_0

  #< check array size(s) >
  raise "Invalid array length: bl.length != nbl" if bl.length != (nbl)

  #< call the original method >
  __ulsxbl( bl,nbl )
end

.ulsybl(bl) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 1883

def ulsybl( bl )

  #< extract array size(s) (which was(were) formerly an argument(s)) >
  len_bl_0 = bl.length
  nbl = len_bl_0

  #< check array size(s) >
  raise "Invalid array length: bl.length != nbl" if bl.length != (nbl)

  #< call the original method >
  __ulsybl( bl,nbl )
end

.umspnt(ux, uy) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 1899

def umspnt( ux,uy )

  #< extract array size(s) (which was(were) formerly an argument(s)) >
  len_ux_0 = ux.length
  n = len_ux_0

  #< check array size(s) >
  raise "Invalid array length: ux.length != n" if ux.length != (n)
  raise "Invalid array length: uy.length != n" if uy.length != (n)

  #< call the original method >
  __umspnt( n,ux,uy )
end

.usaxlb(cside, dtick, dlabel, ch, nc) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 1986

def usaxlb( cside,dtick,dlabel,ch,nc )

  #< extract array size(s) (which was(were) formerly an argument(s)) >
  len_dtick_0 = dtick.length
  n1 = len_dtick_0
  len_dlabel_0 = dlabel.length
  n2 = len_dlabel_0

  #< check array size(s) >
  raise "Invalid array length: dtick.length != n1" if dtick.length != (n1)
  raise "Invalid array length: dlabel.length != n2" if dlabel.length != (n2)
  raise "Invalid array length: ch.length != n2" if ch.length != (n2)

  #< call the original method >
  __usaxlb( cside,dtick,n1,dlabel,ch,nc,n2 )
end

.usaxnm(cside, dtick, dlabel) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 2006

def usaxnm( cside,dtick,dlabel )

  #< extract array size(s) (which was(were) formerly an argument(s)) >
  len_dtick_0 = dtick.length
  n1 = len_dtick_0
  len_dlabel_0 = dlabel.length
  n2 = len_dlabel_0

  #< check array size(s) >
  raise "Invalid array length: dtick.length != n1" if dtick.length != (n1)
  raise "Invalid array length: dlabel.length != n2" if dlabel.length != (n2)

  #< call the original method >
  __usaxnm( cside,dtick,n1,dlabel,n2 )
end

.usgrph(x, y) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 1919

def usgrph( x,y )

  #< extract array size(s) (which was(were) formerly an argument(s)) >
  if ! ( x == nil || x.is_a?(Float) && lreq( x, glrget("RUNDEF") ) )
    len_x_0 = x.length
    n = len_x_0
  else
    x = glrget("RUNDEF") if ( x == nil )
    len_y_0 = y.length
    n = len_y_0
  end

  #< check array size(s) >
  raise "Invalid array length: x.length != n" if \
      x!=nil && !( x.is_a?(Float) && lreq(x,glrget("RUNDEF")) ) && x.length != (n)
  raise "Invalid array length: y.length != n" if \
      y!=nil && !( y.is_a?(Float) && lreq(y,glrget("RUNDEF")) ) && y.length != (n)

  #< call the original method >
  __usgrph( n,x,y )
end

.usplbl(cside, islct, pos, ch, nc) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 2025

def usplbl( cside,islct,pos,ch,nc )

  #< extract array size(s) (which was(were) formerly an argument(s)) >
  len_pos_0 = pos.length
  n = len_pos_0

  #< check array size(s) >
  raise "Invalid array length: pos.length != n" if pos.length != (n)
  raise "Invalid array length: ch.length != n" if ch.length != (n)

  #< call the original method >
  __usplbl( cside,islct,pos,ch,nc,n )
end

.uspnum(cside, islct, pos) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 2042

def uspnum( cside,islct,pos )

  #< extract array size(s) (which was(were) formerly an argument(s)) >
  len_pos_0 = pos.length
  n = len_pos_0

  #< check array size(s) >
  raise "Invalid array length: pos.length != n" if pos.length != (n)

  #< call the original method >
  __uspnum( cside,islct,pos,n )
end

.usptmk(cside, islct, pos) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 2058

def usptmk( cside,islct,pos )

  #< extract array size(s) (which was(were) formerly an argument(s)) >
  len_pos_0 = pos.length
  n = len_pos_0

  #< check array size(s) >
  raise "Invalid array length: pos.length != n" if pos.length != (n)

  #< call the original method >
  __usptmk( cside,islct,pos,n )
end

.usspnt(x, y) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 1944

def usspnt( x,y )

  #< extract array size(s) (which was(were) formerly an argument(s)) >
  if ! ( x == nil || x.is_a?(Float) && lreq( x, glrget("RUNDEF") ) )
    len_x_0 = x.length
    n = len_x_0
  else
    x = glrget("RUNDEF") if ( x == nil )
    len_y_0 = y.length
    n = len_y_0
  end

  #< check array size(s) >
  raise "Invalid array length: x.length != n" if \
      x!=nil && !( x.is_a?(Float) && lreq(x,glrget("RUNDEF")) ) && x.length != (n)
  raise "Invalid array length: y.length != n" if \
      y!=nil && !( y.is_a?(Float) && lreq(y,glrget("RUNDEF")) ) && y.length != (n)

  #< call the original method >
  __usspnt( n,x,y )
end

.uswapz(x1, x2) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 1969

def uswapz( x1,x2 )

  #< extract array size(s) (which was(were) formerly an argument(s)) >
  len_x1_0 = x1.length
  n = len_x1_0

  #< check array size(s) >
  raise "Invalid array length: x1.length != n" if x1.length != (n)
  raise "Invalid array length: x2.length != n" if x2.length != (n)

  #< call the original method >
  __uswapz( x1,x2,n )
end

.uulin(upx, upy) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 2074

def uulin( upx,upy )

  #< extract array size(s) (which was(were) formerly an argument(s)) >
  if ! ( upx == nil || upx.is_a?(Float) && lreq( upx, glrget("RUNDEF") ) )
    len_upx_0 = upx.length
    n = len_upx_0
  else
    upx = glrget("RUNDEF") if ( upx == nil )
    len_upy_0 = upy.length
    n = len_upy_0
  end

  #< check array size(s) >
  raise "Invalid array length: upx.length != n" if \
      upx!=nil && !( upx.is_a?(Float) && lreq(upx,glrget("RUNDEF")) ) && upx.length != (n)
  raise "Invalid array length: upy.length != n" if \
      upy!=nil && !( upy.is_a?(Float) && lreq(upy,glrget("RUNDEF")) ) && upy.length != (n)

  #< call the original method >
  __uulin( n,upx,upy )
end

.uulinz(upx, upy, itype, index) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 2099

def uulinz( upx,upy,itype,index )

  #< extract array size(s) (which was(were) formerly an argument(s)) >
  if ! ( upx == nil || upx.is_a?(Float) && lreq( upx, glrget("RUNDEF") ) )
    len_upx_0 = upx.length
    n = len_upx_0
  else
    upx = glrget("RUNDEF") if ( upx == nil )
    len_upy_0 = upy.length
    n = len_upy_0
  end

  #< check array size(s) >
  raise "Invalid array length: upx.length != n" if \
      upx!=nil && !( upx.is_a?(Float) && lreq(upx,glrget("RUNDEF")) ) && upx.length != (n)
  raise "Invalid array length: upy.length != n" if \
      upy!=nil && !( upy.is_a?(Float) && lreq(upy,glrget("RUNDEF")) ) && upy.length != (n)

  #< call the original method >
  __uulinz( n,upx,upy,itype,index )
end

.uumrk(upx, upy) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 2124

def uumrk( upx,upy )

  #< extract array size(s) (which was(were) formerly an argument(s)) >
  if ! ( upx == nil || upx.is_a?(Float) && lreq( upx, glrget("RUNDEF") ) )
    len_upx_0 = upx.length
    n = len_upx_0
  else
    upx = glrget("RUNDEF") if ( upx == nil )
    len_upy_0 = upy.length
    n = len_upy_0
  end

  #< check array size(s) >
  raise "Invalid array length: upx.length != n" if \
      upx!=nil && !( upx.is_a?(Float) && lreq(upx,glrget("RUNDEF")) ) && upx.length != (n)
  raise "Invalid array length: upy.length != n" if \
      upy!=nil && !( upy.is_a?(Float) && lreq(upy,glrget("RUNDEF")) ) && upy.length != (n)

  #< call the original method >
  __uumrk( n,upx,upy )
end

.uumrkz(upx, upy, itype, index, rsize) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 2149

def uumrkz( upx,upy,itype,index,rsize )

  #< extract array size(s) (which was(were) formerly an argument(s)) >
  if ! ( upx == nil || upx.is_a?(Float) && lreq( upx, glrget("RUNDEF") ) )
    len_upx_0 = upx.length
    n = len_upx_0
  else
    upx = glrget("RUNDEF") if ( upx == nil )
    len_upy_0 = upy.length
    n = len_upy_0
  end

  #< check array size(s) >
  raise "Invalid array length: upx.length != n" if \
      upx!=nil && !( upx.is_a?(Float) && lreq(upx,glrget("RUNDEF")) ) && upx.length != (n)
  raise "Invalid array length: upy.length != n" if \
      upy!=nil && !( upy.is_a?(Float) && lreq(upy,glrget("RUNDEF")) ) && upy.length != (n)

  #< call the original method >
  __uumrkz( n,upx,upy,itype,index,rsize )
end

.uvbra(upx, upy1, upy2) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 2372

def uvbra( upx,upy1,upy2 )

  #< extract array size(s) (which was(were) formerly an argument(s)) >
  if ! ( upx == nil || upx.is_a?(Float) && lreq( upx, glrget("RUNDEF") ) )
    len_upx_0 = upx.length
    n = len_upx_0
  else
    upx = glrget("RUNDEF") if ( upx == nil )
    if ! ( upy1 == nil || upy1.is_a?(Float) && lreq( upy1, glrget("RUNDEF") ) )
      len_upy1_0 = upy1.length
      n = len_upy1_0
    else
      upy1 = glrget("RUNDEF") if ( upy1 == nil )
      len_upy2_0 = upy2.length
      n = len_upy2_0
    end
  end

  #< check array size(s) >
  raise "Invalid array length: upx.length != n" if \
      upx!=nil && !( upx.is_a?(Float) && lreq(upx,glrget("RUNDEF")) ) && upx.length != (n)
  raise "Invalid array length: upy1.length != n" if \
      upy1!=nil && !( upy1.is_a?(Float) && lreq(upy1,glrget("RUNDEF")) ) && upy1.length != (n)
  raise "Invalid array length: upy2.length != n" if \
      upy2!=nil && !( upy2.is_a?(Float) && lreq(upy2,glrget("RUNDEF")) ) && upy2.length != (n)

  #< call the original method >
  __uvbra( n,upx,upy1,upy2 )
end

.uvbraz(upx, upy1, upy2, itpat1, itpat2, rsize) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 2405

def uvbraz( upx,upy1,upy2,itpat1,itpat2,rsize )

  #< extract array size(s) (which was(were) formerly an argument(s)) >
  if ! ( upx == nil || upx.is_a?(Float) && lreq( upx, glrget("RUNDEF") ) )
    len_upx_0 = upx.length
    n = len_upx_0
  else
    upx = glrget("RUNDEF") if ( upx == nil )
    if ! ( upy1 == nil || upy1.is_a?(Float) && lreq( upy1, glrget("RUNDEF") ) )
      len_upy1_0 = upy1.length
      n = len_upy1_0
    else
      upy1 = glrget("RUNDEF") if ( upy1 == nil )
      len_upy2_0 = upy2.length
      n = len_upy2_0
    end
  end

  #< check array size(s) >
  raise "Invalid array length: upx.length != n" if \
      upx!=nil && !( upx.is_a?(Float) && lreq(upx,glrget("RUNDEF")) ) && upx.length != (n)
  raise "Invalid array length: upy1.length != n" if \
      upy1!=nil && !( upy1.is_a?(Float) && lreq(upy1,glrget("RUNDEF")) ) && upy1.length != (n)
  raise "Invalid array length: upy2.length != n" if \
      upy2!=nil && !( upy2.is_a?(Float) && lreq(upy2,glrget("RUNDEF")) ) && upy2.length != (n)

  #< call the original method >
  __uvbraz( n,upx,upy1,upy2,itpat1,itpat2,rsize )
end

.uvbrf(upx, upy1, upy2) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 2306

def uvbrf( upx,upy1,upy2 )

  #< extract array size(s) (which was(were) formerly an argument(s)) >
  if ! ( upx == nil || upx.is_a?(Float) && lreq( upx, glrget("RUNDEF") ) )
    len_upx_0 = upx.length
    n = len_upx_0
  else
    upx = glrget("RUNDEF") if ( upx == nil )
    if ! ( upy1 == nil || upy1.is_a?(Float) && lreq( upy1, glrget("RUNDEF") ) )
      len_upy1_0 = upy1.length
      n = len_upy1_0
    else
      upy1 = glrget("RUNDEF") if ( upy1 == nil )
      len_upy2_0 = upy2.length
      n = len_upy2_0
    end
  end

  #< check array size(s) >
  raise "Invalid array length: upx.length != n" if \
      upx!=nil && !( upx.is_a?(Float) && lreq(upx,glrget("RUNDEF")) ) && upx.length != (n)
  raise "Invalid array length: upy1.length != n" if \
      upy1!=nil && !( upy1.is_a?(Float) && lreq(upy1,glrget("RUNDEF")) ) && upy1.length != (n)
  raise "Invalid array length: upy2.length != n" if \
      upy2!=nil && !( upy2.is_a?(Float) && lreq(upy2,glrget("RUNDEF")) ) && upy2.length != (n)

  #< call the original method >
  __uvbrf( n,upx,upy1,upy2 )
end

.uvbrfz(upx, upy1, upy2, itype, index, rsize) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 2339

def uvbrfz( upx,upy1,upy2,itype,index,rsize )

  #< extract array size(s) (which was(were) formerly an argument(s)) >
  if ! ( upx == nil || upx.is_a?(Float) && lreq( upx, glrget("RUNDEF") ) )
    len_upx_0 = upx.length
    n = len_upx_0
  else
    upx = glrget("RUNDEF") if ( upx == nil )
    if ! ( upy1 == nil || upy1.is_a?(Float) && lreq( upy1, glrget("RUNDEF") ) )
      len_upy1_0 = upy1.length
      n = len_upy1_0
    else
      upy1 = glrget("RUNDEF") if ( upy1 == nil )
      len_upy2_0 = upy2.length
      n = len_upy2_0
    end
  end

  #< check array size(s) >
  raise "Invalid array length: upx.length != n" if \
      upx!=nil && !( upx.is_a?(Float) && lreq(upx,glrget("RUNDEF")) ) && upx.length != (n)
  raise "Invalid array length: upy1.length != n" if \
      upy1!=nil && !( upy1.is_a?(Float) && lreq(upy1,glrget("RUNDEF")) ) && upy1.length != (n)
  raise "Invalid array length: upy2.length != n" if \
      upy2!=nil && !( upy2.is_a?(Float) && lreq(upy2,glrget("RUNDEF")) ) && upy2.length != (n)

  #< call the original method >
  __uvbrfz( n,upx,upy1,upy2,itype,index,rsize )
end

.uvbrl(upx, upy) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 2438

def uvbrl( upx,upy )

  #< extract array size(s) (which was(were) formerly an argument(s)) >
  if ! ( upx == nil || upx.is_a?(Float) && lreq( upx, glrget("RUNDEF") ) )
    len_upx_0 = upx.length
    n = len_upx_0
  else
    upx = glrget("RUNDEF") if ( upx == nil )
    len_upy_0 = upy.length
    n = len_upy_0
  end

  #< check array size(s) >
  raise "Invalid array length: upx.length != n" if \
      upx!=nil && !( upx.is_a?(Float) && lreq(upx,glrget("RUNDEF")) ) && upx.length != (n)
  raise "Invalid array length: upy.length != n" if \
      upy!=nil && !( upy.is_a?(Float) && lreq(upy,glrget("RUNDEF")) ) && upy.length != (n)

  #< call the original method >
  __uvbrl( n,upx,upy )
end

.uvbrlz(upx, upy, itype, index, rsize) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 2463

def uvbrlz( upx,upy,itype,index,rsize )

  #< extract array size(s) (which was(were) formerly an argument(s)) >
  if ! ( upx == nil || upx.is_a?(Float) && lreq( upx, glrget("RUNDEF") ) )
    len_upx_0 = upx.length
    n = len_upx_0
  else
    upx = glrget("RUNDEF") if ( upx == nil )
    len_upy_0 = upy.length
    n = len_upy_0
  end

  #< check array size(s) >
  raise "Invalid array length: upx.length != n" if \
      upx!=nil && !( upx.is_a?(Float) && lreq(upx,glrget("RUNDEF")) ) && upx.length != (n)
  raise "Invalid array length: upy.length != n" if \
      upy!=nil && !( upy.is_a?(Float) && lreq(upy,glrget("RUNDEF")) ) && upy.length != (n)

  #< call the original method >
  __uvbrlz( n,upx,upy,itype,index,rsize )
end

.uvbxa(upx, upy1, upy2) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 2554

def uvbxa( upx,upy1,upy2 )

  #< extract array size(s) (which was(were) formerly an argument(s)) >
  if ! ( upx == nil || upx.is_a?(Float) && lreq( upx, glrget("RUNDEF") ) )
    len_upx_0 = upx.length
    n = len_upx_0 - 1
  else
    upx = glrget("RUNDEF") if ( upx == nil )
    if ! ( upy1 == nil || upy1.is_a?(Float) && lreq( upy1, glrget("RUNDEF") ) )
      len_upy1_0 = upy1.length
      n = len_upy1_0
    else
      upy1 = glrget("RUNDEF") if ( upy1 == nil )
      len_upy2_0 = upy2.length
      n = len_upy2_0
    end
  end

  #< check array size(s) >
  raise "Invalid array length: upx.length != n+1" if \
      upx!=nil && !( upx.is_a?(Float) && lreq(upx,glrget("RUNDEF")) ) && upx.length != (n+1)
  raise "Invalid array length: upy1.length != n" if \
      upy1!=nil && !( upy1.is_a?(Float) && lreq(upy1,glrget("RUNDEF")) ) && upy1.length != (n)
  raise "Invalid array length: upy2.length != n" if \
      upy2!=nil && !( upy2.is_a?(Float) && lreq(upy2,glrget("RUNDEF")) ) && upy2.length != (n)

  #< call the original method >
  __uvbxa( n,upx,upy1,upy2 )
end

.uvbxaz(upx, upy1, upy2, itpat1, itpat2) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 2587

def uvbxaz( upx,upy1,upy2,itpat1,itpat2 )

  #< extract array size(s) (which was(were) formerly an argument(s)) >
  if ! ( upx == nil || upx.is_a?(Float) && lreq( upx, glrget("RUNDEF") ) )
    len_upx_0 = upx.length
    n = len_upx_0 - 1
  else
    upx = glrget("RUNDEF") if ( upx == nil )
    if ! ( upy1 == nil || upy1.is_a?(Float) && lreq( upy1, glrget("RUNDEF") ) )
      len_upy1_0 = upy1.length
      n = len_upy1_0
    else
      upy1 = glrget("RUNDEF") if ( upy1 == nil )
      len_upy2_0 = upy2.length
      n = len_upy2_0
    end
  end

  #< check array size(s) >
  raise "Invalid array length: upx.length != n+1" if \
      upx!=nil && !( upx.is_a?(Float) && lreq(upx,glrget("RUNDEF")) ) && upx.length != (n+1)
  raise "Invalid array length: upy1.length != n" if \
      upy1!=nil && !( upy1.is_a?(Float) && lreq(upy1,glrget("RUNDEF")) ) && upy1.length != (n)
  raise "Invalid array length: upy2.length != n" if \
      upy2!=nil && !( upy2.is_a?(Float) && lreq(upy2,glrget("RUNDEF")) ) && upy2.length != (n)

  #< call the original method >
  __uvbxaz( n,upx,upy1,upy2,itpat1,itpat2 )
end

.uvbxf(upx, upy1, upy2) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 2488

def uvbxf( upx,upy1,upy2 )

  #< extract array size(s) (which was(were) formerly an argument(s)) >
  if ! ( upx == nil || upx.is_a?(Float) && lreq( upx, glrget("RUNDEF") ) )
    len_upx_0 = upx.length
    n = len_upx_0 - 1
  else
    upx = glrget("RUNDEF") if ( upx == nil )
    if ! ( upy1 == nil || upy1.is_a?(Float) && lreq( upy1, glrget("RUNDEF") ) )
      len_upy1_0 = upy1.length
      n = len_upy1_0
    else
      upy1 = glrget("RUNDEF") if ( upy1 == nil )
      len_upy2_0 = upy2.length
      n = len_upy2_0
    end
  end

  #< check array size(s) >
  raise "Invalid array length: upx.length != n+1" if \
      upx!=nil && !( upx.is_a?(Float) && lreq(upx,glrget("RUNDEF")) ) && upx.length != (n+1)
  raise "Invalid array length: upy1.length != n" if \
      upy1!=nil && !( upy1.is_a?(Float) && lreq(upy1,glrget("RUNDEF")) ) && upy1.length != (n)
  raise "Invalid array length: upy2.length != n" if \
      upy2!=nil && !( upy2.is_a?(Float) && lreq(upy2,glrget("RUNDEF")) ) && upy2.length != (n)

  #< call the original method >
  __uvbxf( n,upx,upy1,upy2 )
end

.uvbxfz(upx, upy1, upy2, itype, index) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 2521

def uvbxfz( upx,upy1,upy2,itype,index )

  #< extract array size(s) (which was(were) formerly an argument(s)) >
  if ! ( upx == nil || upx.is_a?(Float) && lreq( upx, glrget("RUNDEF") ) )
    len_upx_0 = upx.length
    n = len_upx_0 - 1
  else
    upx = glrget("RUNDEF") if ( upx == nil )
    if ! ( upy1 == nil || upy1.is_a?(Float) && lreq( upy1, glrget("RUNDEF") ) )
      len_upy1_0 = upy1.length
      n = len_upy1_0
    else
      upy1 = glrget("RUNDEF") if ( upy1 == nil )
      len_upy2_0 = upy2.length
      n = len_upy2_0
    end
  end

  #< check array size(s) >
  raise "Invalid array length: upx.length != n+1" if \
      upx!=nil && !( upx.is_a?(Float) && lreq(upx,glrget("RUNDEF")) ) && upx.length != (n+1)
  raise "Invalid array length: upy1.length != n" if \
      upy1!=nil && !( upy1.is_a?(Float) && lreq(upy1,glrget("RUNDEF")) ) && upy1.length != (n)
  raise "Invalid array length: upy2.length != n" if \
      upy2!=nil && !( upy2.is_a?(Float) && lreq(upy2,glrget("RUNDEF")) ) && upy2.length != (n)

  #< call the original method >
  __uvbxfz( n,upx,upy1,upy2,itype,index )
end

.uvbxl(upx, upy) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 2620

def uvbxl( upx,upy )

  #< extract array size(s) (which was(were) formerly an argument(s)) >
  if ! ( upx == nil || upx.is_a?(Float) && lreq( upx, glrget("RUNDEF") ) )
    len_upx_0 = upx.length
    n = len_upx_0 - 1
  else
    upx = glrget("RUNDEF") if ( upx == nil )
    len_upy_0 = upy.length
    n = len_upy_0
  end

  #< check array size(s) >
  raise "Invalid array length: upx.length != n+1" if \
      upx!=nil && !( upx.is_a?(Float) && lreq(upx,glrget("RUNDEF")) ) && upx.length != (n+1)
  raise "Invalid array length: upy.length != n" if \
      upy!=nil && !( upy.is_a?(Float) && lreq(upy,glrget("RUNDEF")) ) && upy.length != (n)

  #< call the original method >
  __uvbxl( n,upx,upy )
end

.uvbxlz(upx, upy, itype, index) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 2645

def uvbxlz( upx,upy,itype,index )

  #< extract array size(s) (which was(were) formerly an argument(s)) >
  if ! ( upx == nil || upx.is_a?(Float) && lreq( upx, glrget("RUNDEF") ) )
    len_upx_0 = upx.length
    n = len_upx_0 - 1
  else
    upx = glrget("RUNDEF") if ( upx == nil )
    len_upy_0 = upy.length
    n = len_upy_0
  end

  #< check array size(s) >
  raise "Invalid array length: upx.length != n+1" if \
      upx!=nil && !( upx.is_a?(Float) && lreq(upx,glrget("RUNDEF")) ) && upx.length != (n+1)
  raise "Invalid array length: upy.length != n" if \
      upy!=nil && !( upy.is_a?(Float) && lreq(upy,glrget("RUNDEF")) ) && upy.length != (n)

  #< call the original method >
  __uvbxlz( n,upx,upy,itype,index )
end

.uvdif(upx, upy1, upy2) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 2240

def uvdif( upx,upy1,upy2 )

  #< extract array size(s) (which was(were) formerly an argument(s)) >
  if ! ( upx == nil || upx.is_a?(Float) && lreq( upx, glrget("RUNDEF") ) )
    len_upx_0 = upx.length
    n = len_upx_0
  else
    upx = glrget("RUNDEF") if ( upx == nil )
    if ! ( upy1 == nil || upy1.is_a?(Float) && lreq( upy1, glrget("RUNDEF") ) )
      len_upy1_0 = upy1.length
      n = len_upy1_0
    else
      upy1 = glrget("RUNDEF") if ( upy1 == nil )
      len_upy2_0 = upy2.length
      n = len_upy2_0
    end
  end

  #< check array size(s) >
  raise "Invalid array length: upx.length != n" if \
      upx!=nil && !( upx.is_a?(Float) && lreq(upx,glrget("RUNDEF")) ) && upx.length != (n)
  raise "Invalid array length: upy1.length != n" if \
      upy1!=nil && !( upy1.is_a?(Float) && lreq(upy1,glrget("RUNDEF")) ) && upy1.length != (n)
  raise "Invalid array length: upy2.length != n" if \
      upy2!=nil && !( upy2.is_a?(Float) && lreq(upy2,glrget("RUNDEF")) ) && upy2.length != (n)

  #< call the original method >
  __uvdif( n,upx,upy1,upy2 )
end

.uvdifz(upx, upy1, upy2, itpat1, itpat2) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 2273

def uvdifz( upx,upy1,upy2,itpat1,itpat2 )

  #< extract array size(s) (which was(were) formerly an argument(s)) >
  if ! ( upx == nil || upx.is_a?(Float) && lreq( upx, glrget("RUNDEF") ) )
    len_upx_0 = upx.length
    n = len_upx_0
  else
    upx = glrget("RUNDEF") if ( upx == nil )
    if ! ( upy1 == nil || upy1.is_a?(Float) && lreq( upy1, glrget("RUNDEF") ) )
      len_upy1_0 = upy1.length
      n = len_upy1_0
    else
      upy1 = glrget("RUNDEF") if ( upy1 == nil )
      len_upy2_0 = upy2.length
      n = len_upy2_0
    end
  end

  #< check array size(s) >
  raise "Invalid array length: upx.length != n" if \
      upx!=nil && !( upx.is_a?(Float) && lreq(upx,glrget("RUNDEF")) ) && upx.length != (n)
  raise "Invalid array length: upy1.length != n" if \
      upy1!=nil && !( upy1.is_a?(Float) && lreq(upy1,glrget("RUNDEF")) ) && upy1.length != (n)
  raise "Invalid array length: upy2.length != n" if \
      upy2!=nil && !( upy2.is_a?(Float) && lreq(upy2,glrget("RUNDEF")) ) && upy2.length != (n)

  #< call the original method >
  __uvdifz( n,upx,upy1,upy2,itpat1,itpat2 )
end

.uverb(upx, upy1, upy2) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 2174

def uverb( upx,upy1,upy2 )

  #< extract array size(s) (which was(were) formerly an argument(s)) >
  if ! ( upx == nil || upx.is_a?(Float) && lreq( upx, glrget("RUNDEF") ) )
    len_upx_0 = upx.length
    n = len_upx_0
  else
    upx = glrget("RUNDEF") if ( upx == nil )
    if ! ( upy1 == nil || upy1.is_a?(Float) && lreq( upy1, glrget("RUNDEF") ) )
      len_upy1_0 = upy1.length
      n = len_upy1_0
    else
      upy1 = glrget("RUNDEF") if ( upy1 == nil )
      len_upy2_0 = upy2.length
      n = len_upy2_0
    end
  end

  #< check array size(s) >
  raise "Invalid array length: upx.length != n" if \
      upx!=nil && !( upx.is_a?(Float) && lreq(upx,glrget("RUNDEF")) ) && upx.length != (n)
  raise "Invalid array length: upy1.length != n" if \
      upy1!=nil && !( upy1.is_a?(Float) && lreq(upy1,glrget("RUNDEF")) ) && upy1.length != (n)
  raise "Invalid array length: upy2.length != n" if \
      upy2!=nil && !( upy2.is_a?(Float) && lreq(upy2,glrget("RUNDEF")) ) && upy2.length != (n)

  #< call the original method >
  __uverb( n,upx,upy1,upy2 )
end

.uverbz(upx, upy1, upy2, itype, index, rsize) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 2207

def uverbz( upx,upy1,upy2,itype,index,rsize )

  #< extract array size(s) (which was(were) formerly an argument(s)) >
  if ! ( upx == nil || upx.is_a?(Float) && lreq( upx, glrget("RUNDEF") ) )
    len_upx_0 = upx.length
    n = len_upx_0
  else
    upx = glrget("RUNDEF") if ( upx == nil )
    if ! ( upy1 == nil || upy1.is_a?(Float) && lreq( upy1, glrget("RUNDEF") ) )
      len_upy1_0 = upy1.length
      n = len_upy1_0
    else
      upy1 = glrget("RUNDEF") if ( upy1 == nil )
      len_upy2_0 = upy2.length
      n = len_upy2_0
    end
  end

  #< check array size(s) >
  raise "Invalid array length: upx.length != n" if \
      upx!=nil && !( upx.is_a?(Float) && lreq(upx,glrget("RUNDEF")) ) && upx.length != (n)
  raise "Invalid array length: upy1.length != n" if \
      upy1!=nil && !( upy1.is_a?(Float) && lreq(upy1,glrget("RUNDEF")) ) && upy1.length != (n)
  raise "Invalid array length: upy2.length != n" if \
      upy2!=nil && !( upy2.is_a?(Float) && lreq(upy2,glrget("RUNDEF")) ) && upy2.length != (n)

  #< call the original method >
  __uverbz( n,upx,upy1,upy2,itype,index,rsize )
end

.uwsgxa(xp) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 2670

def uwsgxa( xp )

  #< extract array size(s) (which was(were) formerly an argument(s)) >
  len_xp_0 = xp.length
  nx = len_xp_0

  #< check array size(s) >
  raise "Invalid array length: xp.length != nx" if xp.length != (nx)

  #< call the original method >
  __uwsgxa( xp,nx )
end

.uwsgya(yp) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 2686

def uwsgya( yp )

  #< extract array size(s) (which was(were) formerly an argument(s)) >
  len_yp_0 = yp.length
  ny = len_yp_0

  #< check array size(s) >
  raise "Invalid array length: yp.length != ny" if yp.length != (ny)

  #< call the original method >
  __uwsgya( yp,ny )
end

.uxaxlb(cside, ux1, ux2, ch, nc) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 2751

def uxaxlb( cside,ux1,ux2,ch,nc )

  #< extract array size(s) (which was(were) formerly an argument(s)) >
  len_ux1_0 = ux1.length
  n1 = len_ux1_0
  len_ux2_0 = ux2.length
  n2 = len_ux2_0

  #< check array size(s) >
  raise "Invalid array length: ux1.length != n1" if ux1.length != (n1)
  raise "Invalid array length: ux2.length != n2" if ux2.length != (n2)
  raise "Invalid array length: ch.length != n2" if ch.length != (n2)

  #< call the original method >
  __uxaxlb( cside,ux1,n1,ux2,ch,nc,n2 )
end

.uxaxnm(cside, ux1, ux2) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 2771

def uxaxnm( cside,ux1,ux2 )

  #< extract array size(s) (which was(were) formerly an argument(s)) >
  len_ux1_0 = ux1.length
  n1 = len_ux1_0
  len_ux2_0 = ux2.length
  n2 = len_ux2_0

  #< check array size(s) >
  raise "Invalid array length: ux1.length != n1" if ux1.length != (n1)
  raise "Invalid array length: ux2.length != n2" if ux2.length != (n2)

  #< call the original method >
  __uxaxnm( cside,ux1,n1,ux2,n2 )
end

.uxplbl(cside, islct, ux, ch, nc) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 2718

def uxplbl( cside,islct,ux,ch,nc )

  #< extract array size(s) (which was(were) formerly an argument(s)) >
  len_ux_0 = ux.length
  n = len_ux_0

  #< check array size(s) >
  raise "Invalid array length: ux.length != n" if ux.length != (n)
  raise "Invalid array length: ch.length != n" if ch.length != (n)

  #< call the original method >
  __uxplbl( cside,islct,ux,ch,nc,n )
end

.uxpnum(cside, islct, ux) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 2735

def uxpnum( cside,islct,ux )

  #< extract array size(s) (which was(were) formerly an argument(s)) >
  len_ux_0 = ux.length
  n = len_ux_0

  #< check array size(s) >
  raise "Invalid array length: ux.length != n" if ux.length != (n)

  #< call the original method >
  __uxpnum( cside,islct,ux,n )
end

.uxptmk(cside, islct, ux) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 2702

def uxptmk( cside,islct,ux )

  #< extract array size(s) (which was(were) formerly an argument(s)) >
  len_ux_0 = ux.length
  n = len_ux_0

  #< check array size(s) >
  raise "Invalid array length: ux.length != n" if ux.length != (n)

  #< call the original method >
  __uxptmk( cside,islct,ux,n )
end

.uyaxlb(cside, uy1, uy2, ch, nc) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 2839

def uyaxlb( cside,uy1,uy2,ch,nc )

  #< extract array size(s) (which was(were) formerly an argument(s)) >
  len_uy1_0 = uy1.length
  n1 = len_uy1_0
  len_uy2_0 = uy2.length
  n2 = len_uy2_0

  #< check array size(s) >
  raise "Invalid array length: uy1.length != n1" if uy1.length != (n1)
  raise "Invalid array length: uy2.length != n2" if uy2.length != (n2)
  raise "Invalid array length: ch.length != n2" if ch.length != (n2)

  #< call the original method >
  __uyaxlb( cside,uy1,n1,uy2,ch,nc,n2 )
end

.uyaxnm(cside, uy1, uy2) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 2859

def uyaxnm( cside,uy1,uy2 )

  #< extract array size(s) (which was(were) formerly an argument(s)) >
  len_uy1_0 = uy1.length
  n1 = len_uy1_0
  len_uy2_0 = uy2.length
  n2 = len_uy2_0

  #< check array size(s) >
  raise "Invalid array length: uy1.length != n1" if uy1.length != (n1)
  raise "Invalid array length: uy2.length != n2" if uy2.length != (n2)

  #< call the original method >
  __uyaxnm( cside,uy1,n1,uy2,n2 )
end

.uyplbl(cside, islct, uy, ch, nc) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 2806

def uyplbl( cside,islct,uy,ch,nc )

  #< extract array size(s) (which was(were) formerly an argument(s)) >
  len_uy_0 = uy.length
  n = len_uy_0

  #< check array size(s) >
  raise "Invalid array length: uy.length != n" if uy.length != (n)
  raise "Invalid array length: ch.length != n" if ch.length != (n)

  #< call the original method >
  __uyplbl( cside,islct,uy,ch,nc,n )
end

.uypnum(cside, islct, uy) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 2823

def uypnum( cside,islct,uy )

  #< extract array size(s) (which was(were) formerly an argument(s)) >
  len_uy_0 = uy.length
  n = len_uy_0

  #< check array size(s) >
  raise "Invalid array length: uy.length != n" if uy.length != (n)

  #< call the original method >
  __uypnum( cside,islct,uy,n )
end

.uyptmk(cside, islct, uy) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 2790

def uyptmk( cside,islct,uy )

  #< extract array size(s) (which was(were) formerly an argument(s)) >
  len_uy_0 = uy.length
  n = len_uy_0

  #< check array size(s) >
  raise "Invalid array length: uy.length != n" if uy.length != (n)

  #< call the original method >
  __uyptmk( cside,islct,uy,n )
end

.vcintr(cx, n, jx) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 5065

def vcintr( cx,n,jx )

  #< check array size(s) >
  raise "Invalid array length: cx.length != jx*(n-1)+1" if cx.length != (jx*(n-1)+1)

  #< call the original method >
  __vcintr( cx,n,jx )
end

.viadd(ix, iy, n, jx, jy, jz) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 4233

def viadd( ix,iy,n,jx,jy,jz )

  #< check array size(s) >
  raise "Invalid array length: ix.length != jx*(n-1)+1" if ix.length != (jx*(n-1)+1)
  raise "Invalid array length: iy.length != jy*(n-1)+1" if iy.length != (jy*(n-1)+1)

  #< call the original method >
  __viadd( ix,iy,n,jx,jy,jz )
end

.viadd0(ix, iy, n, jx, jy, jz) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 4246

def viadd0( ix,iy,n,jx,jy,jz )

  #< check array size(s) >
  raise "Invalid array length: ix.length != jx*(n-1)+1" if ix.length != (jx*(n-1)+1)
  raise "Invalid array length: iy.length != jy*(n-1)+1" if iy.length != (jy*(n-1)+1)

  #< call the original method >
  __viadd0( ix,iy,n,jx,jy,jz )
end

.viadd1(ix, iy, n, jx, jy, jz) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 4259

def viadd1( ix,iy,n,jx,jy,jz )

  #< check array size(s) >
  raise "Invalid array length: ix.length != jx*(n-1)+1" if ix.length != (jx*(n-1)+1)
  raise "Invalid array length: iy.length != jy*(n-1)+1" if iy.length != (jy*(n-1)+1)

  #< call the original method >
  __viadd1( ix,iy,n,jx,jy,jz )
end

.vicon(ix, n, jx, jy, ii) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 4038

def vicon( ix,n,jx,jy,ii )

  #< check array size(s) >
  raise "Invalid array length: ix.length != jx*(n-1)+1" if ix.length != (jx*(n-1)+1)

  #< call the original method >
  __vicon( ix,n,jx,jy,ii )
end

.vicon0(ix, n, jx, jy, ii) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 4050

def vicon0( ix,n,jx,jy,ii )

  #< check array size(s) >
  raise "Invalid array length: ix.length != jx*(n-1)+1" if ix.length != (jx*(n-1)+1)

  #< call the original method >
  __vicon0( ix,n,jx,jy,ii )
end

.vicon1(ix, n, jx, jy, ii) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 4062

def vicon1( ix,n,jx,jy,ii )

  #< check array size(s) >
  raise "Invalid array length: ix.length != jx*(n-1)+1" if ix.length != (jx*(n-1)+1)

  #< call the original method >
  __vicon1( ix,n,jx,jy,ii )
end

.vidiv(ix, iy, n, jx, jy, jz) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 4350

def vidiv( ix,iy,n,jx,jy,jz )

  #< check array size(s) >
  raise "Invalid array length: ix.length != jx*(n-1)+1" if ix.length != (jx*(n-1)+1)
  raise "Invalid array length: iy.length != jy*(n-1)+1" if iy.length != (jy*(n-1)+1)

  #< call the original method >
  __vidiv( ix,iy,n,jx,jy,jz )
end

.vidiv0(ix, iy, n, jx, jy, jz) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 4363

def vidiv0( ix,iy,n,jx,jy,jz )

  #< check array size(s) >
  raise "Invalid array length: ix.length != jx*(n-1)+1" if ix.length != (jx*(n-1)+1)
  raise "Invalid array length: iy.length != jy*(n-1)+1" if iy.length != (jy*(n-1)+1)

  #< call the original method >
  __vidiv0( ix,iy,n,jx,jy,jz )
end

.vidiv1(ix, iy, n, jx, jy, jz) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 4376

def vidiv1( ix,iy,n,jx,jy,jz )

  #< check array size(s) >
  raise "Invalid array length: ix.length != jx*(n-1)+1" if ix.length != (jx*(n-1)+1)
  raise "Invalid array length: iy.length != jy*(n-1)+1" if iy.length != (jy*(n-1)+1)

  #< call the original method >
  __vidiv1( ix,iy,n,jx,jy,jz )
end

.vifct(ix, n, jx, jy, ii) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 4002

def vifct( ix,n,jx,jy,ii )

  #< check array size(s) >
  raise "Invalid array length: ix.length != jx*(n-1)+1" if ix.length != (jx*(n-1)+1)

  #< call the original method >
  __vifct( ix,n,jx,jy,ii )
end

.vifct0(ix, n, jx, jy, ii) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 4014

def vifct0( ix,n,jx,jy,ii )

  #< check array size(s) >
  raise "Invalid array length: ix.length != jx*(n-1)+1" if ix.length != (jx*(n-1)+1)

  #< call the original method >
  __vifct0( ix,n,jx,jy,ii )
end

.vifct1(ix, n, jx, jy, ii) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 4026

def vifct1( ix,n,jx,jy,ii )

  #< check array size(s) >
  raise "Invalid array length: ix.length != jx*(n-1)+1" if ix.length != (jx*(n-1)+1)

  #< call the original method >
  __vifct1( ix,n,jx,jy,ii )
end

.vifna(ix, n, jx, jy, ifna) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 3930

def vifna( ix,n,jx,jy,ifna )

  #< check array size(s) >
  raise "Invalid array length: ix.length != jx*(n-1)+1" if ix.length != (jx*(n-1)+1)

  #< call the original method >
  __vifna( ix,n,jx,jy,ifna )
end

.vifna0(ix, n, jx, jy, ifna) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 3942

def vifna0( ix,n,jx,jy,ifna )

  #< check array size(s) >
  raise "Invalid array length: ix.length != jx*(n-1)+1" if ix.length != (jx*(n-1)+1)

  #< call the original method >
  __vifna0( ix,n,jx,jy,ifna )
end

.vifna1(ix, n, jx, jy, ifna) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 3954

def vifna1( ix,n,jx,jy,ifna )

  #< check array size(s) >
  raise "Invalid array length: ix.length != jx*(n-1)+1" if ix.length != (jx*(n-1)+1)

  #< call the original method >
  __vifna1( ix,n,jx,jy,ifna )
end

.vifnb(ix, iy, n, jx, jy, jz, ifnb) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 4194

def vifnb( ix,iy,n,jx,jy,jz,ifnb )

  #< check array size(s) >
  raise "Invalid array length: ix.length != jx*(n-1)+1" if ix.length != (jx*(n-1)+1)
  raise "Invalid array length: iy.length != jy*(n-1)+1" if iy.length != (jy*(n-1)+1)

  #< call the original method >
  __vifnb( ix,iy,n,jx,jy,jz,ifnb )
end

.vifnb0(ix, iy, n, jx, jy, jz, ifnb) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 4207

def vifnb0( ix,iy,n,jx,jy,jz,ifnb )

  #< check array size(s) >
  raise "Invalid array length: ix.length != jx*(n-1)+1" if ix.length != (jx*(n-1)+1)
  raise "Invalid array length: iy.length != jy*(n-1)+1" if iy.length != (jy*(n-1)+1)

  #< call the original method >
  __vifnb0( ix,iy,n,jx,jy,jz,ifnb )
end

.vifnb1(ix, iy, n, jx, jy, jz, ifnb) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 4220

def vifnb1( ix,iy,n,jx,jy,jz,ifnb )

  #< check array size(s) >
  raise "Invalid array length: ix.length != jx*(n-1)+1" if ix.length != (jx*(n-1)+1)
  raise "Invalid array length: iy.length != jy*(n-1)+1" if iy.length != (jy*(n-1)+1)

  #< call the original method >
  __vifnb1( ix,iy,n,jx,jy,jz,ifnb )
end

.viinc(ix, n, jx, jy, ii) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 3966

def viinc( ix,n,jx,jy,ii )

  #< check array size(s) >
  raise "Invalid array length: ix.length != jx*(n-1)+1" if ix.length != (jx*(n-1)+1)

  #< call the original method >
  __viinc( ix,n,jx,jy,ii )
end

.viinc0(ix, n, jx, jy, ii) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 3978

def viinc0( ix,n,jx,jy,ii )

  #< check array size(s) >
  raise "Invalid array length: ix.length != jx*(n-1)+1" if ix.length != (jx*(n-1)+1)

  #< call the original method >
  __viinc0( ix,n,jx,jy,ii )
end

.viinc1(ix, n, jx, jy, ii) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 3990

def viinc1( ix,n,jx,jy,ii )

  #< check array size(s) >
  raise "Invalid array length: ix.length != jx*(n-1)+1" if ix.length != (jx*(n-1)+1)

  #< call the original method >
  __viinc1( ix,n,jx,jy,ii )
end

.vimlt(ix, iy, n, jx, jy, jz) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 4311

def vimlt( ix,iy,n,jx,jy,jz )

  #< check array size(s) >
  raise "Invalid array length: ix.length != jx*(n-1)+1" if ix.length != (jx*(n-1)+1)
  raise "Invalid array length: iy.length != jy*(n-1)+1" if iy.length != (jy*(n-1)+1)

  #< call the original method >
  __vimlt( ix,iy,n,jx,jy,jz )
end

.vimlt0(ix, iy, n, jx, jy, jz) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 4324

def vimlt0( ix,iy,n,jx,jy,jz )

  #< check array size(s) >
  raise "Invalid array length: ix.length != jx*(n-1)+1" if ix.length != (jx*(n-1)+1)
  raise "Invalid array length: iy.length != jy*(n-1)+1" if iy.length != (jy*(n-1)+1)

  #< call the original method >
  __vimlt0( ix,iy,n,jx,jy,jz )
end

.vimlt1(ix, iy, n, jx, jy, jz) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 4337

def vimlt1( ix,iy,n,jx,jy,jz )

  #< check array size(s) >
  raise "Invalid array length: ix.length != jx*(n-1)+1" if ix.length != (jx*(n-1)+1)
  raise "Invalid array length: iy.length != jy*(n-1)+1" if iy.length != (jy*(n-1)+1)

  #< call the original method >
  __vimlt1( ix,iy,n,jx,jy,jz )
end

.viset(ix, n, jx, jy) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 4074

def viset( ix,n,jx,jy )

  #< check array size(s) >
  raise "Invalid array length: ix.length != jx*(n-1)+1" if ix.length != (jx*(n-1)+1)

  #< call the original method >
  __viset( ix,n,jx,jy )
end

.visub(ix, iy, n, jx, jy, jz) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 4272

def visub( ix,iy,n,jx,jy,jz )

  #< check array size(s) >
  raise "Invalid array length: ix.length != jx*(n-1)+1" if ix.length != (jx*(n-1)+1)
  raise "Invalid array length: iy.length != jy*(n-1)+1" if iy.length != (jy*(n-1)+1)

  #< call the original method >
  __visub( ix,iy,n,jx,jy,jz )
end

.visub0(ix, iy, n, jx, jy, jz) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 4285

def visub0( ix,iy,n,jx,jy,jz )

  #< check array size(s) >
  raise "Invalid array length: ix.length != jx*(n-1)+1" if ix.length != (jx*(n-1)+1)
  raise "Invalid array length: iy.length != jy*(n-1)+1" if iy.length != (jy*(n-1)+1)

  #< call the original method >
  __visub0( ix,iy,n,jx,jy,jz )
end

.visub1(ix, iy, n, jx, jy, jz) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 4298

def visub1( ix,iy,n,jx,jy,jz )

  #< check array size(s) >
  raise "Invalid array length: ix.length != jx*(n-1)+1" if ix.length != (jx*(n-1)+1)
  raise "Invalid array length: iy.length != jy*(n-1)+1" if iy.length != (jy*(n-1)+1)

  #< call the original method >
  __visub1( ix,iy,n,jx,jy,jz )
end

.vradd(rx, ry, n, jx, jy, jz) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 4692

def vradd( rx,ry,n,jx,jy,jz )

  #< check array size(s) >
  raise "Invalid array length: rx.length != jx*(n-1)+1" if rx.length != (jx*(n-1)+1)
  raise "Invalid array length: ry.length != jy*(n-1)+1" if ry.length != (jy*(n-1)+1)

  #< call the original method >
  __vradd( rx,ry,n,jx,jy,jz )
end

.vradd0(rx, ry, n, jx, jy, jz) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 4705

def vradd0( rx,ry,n,jx,jy,jz )

  #< check array size(s) >
  raise "Invalid array length: rx.length != jx*(n-1)+1" if rx.length != (jx*(n-1)+1)
  raise "Invalid array length: ry.length != jy*(n-1)+1" if ry.length != (jy*(n-1)+1)

  #< call the original method >
  __vradd0( rx,ry,n,jx,jy,jz )
end

.vradd1(rx, ry, n, jx, jy, jz) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 4718

def vradd1( rx,ry,n,jx,jy,jz )

  #< check array size(s) >
  raise "Invalid array length: rx.length != jx*(n-1)+1" if rx.length != (jx*(n-1)+1)
  raise "Invalid array length: ry.length != jy*(n-1)+1" if ry.length != (jy*(n-1)+1)

  #< call the original method >
  __vradd1( rx,ry,n,jx,jy,jz )
end

.vrcon(rx, n, jx, jy, rr) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 4497

def vrcon( rx,n,jx,jy,rr )

  #< check array size(s) >
  raise "Invalid array length: rx.length != jx*(n-1)+1" if rx.length != (jx*(n-1)+1)

  #< call the original method >
  __vrcon( rx,n,jx,jy,rr )
end

.vrcon0(rx, n, jx, jy, rr) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 4509

def vrcon0( rx,n,jx,jy,rr )

  #< check array size(s) >
  raise "Invalid array length: rx.length != jx*(n-1)+1" if rx.length != (jx*(n-1)+1)

  #< call the original method >
  __vrcon0( rx,n,jx,jy,rr )
end

.vrcon1(rx, n, jx, jy, rr) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 4521

def vrcon1( rx,n,jx,jy,rr )

  #< check array size(s) >
  raise "Invalid array length: rx.length != jx*(n-1)+1" if rx.length != (jx*(n-1)+1)

  #< call the original method >
  __vrcon1( rx,n,jx,jy,rr )
end

.vrdiv(rx, ry, n, jx, jy, jz) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 4809

def vrdiv( rx,ry,n,jx,jy,jz )

  #< check array size(s) >
  raise "Invalid array length: rx.length != jx*(n-1)+1" if rx.length != (jx*(n-1)+1)
  raise "Invalid array length: ry.length != jy*(n-1)+1" if ry.length != (jy*(n-1)+1)

  #< call the original method >
  __vrdiv( rx,ry,n,jx,jy,jz )
end

.vrdiv0(rx, ry, n, jx, jy, jz) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 4822

def vrdiv0( rx,ry,n,jx,jy,jz )

  #< check array size(s) >
  raise "Invalid array length: rx.length != jx*(n-1)+1" if rx.length != (jx*(n-1)+1)
  raise "Invalid array length: ry.length != jy*(n-1)+1" if ry.length != (jy*(n-1)+1)

  #< call the original method >
  __vrdiv0( rx,ry,n,jx,jy,jz )
end

.vrdiv1(rx, ry, n, jx, jy, jz) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 4835

def vrdiv1( rx,ry,n,jx,jy,jz )

  #< check array size(s) >
  raise "Invalid array length: rx.length != jx*(n-1)+1" if rx.length != (jx*(n-1)+1)
  raise "Invalid array length: ry.length != jy*(n-1)+1" if ry.length != (jy*(n-1)+1)

  #< call the original method >
  __vrdiv1( rx,ry,n,jx,jy,jz )
end

.vrfct(rx, n, jx, jy, rr) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 4461

def vrfct( rx,n,jx,jy,rr )

  #< check array size(s) >
  raise "Invalid array length: rx.length != jx*(n-1)+1" if rx.length != (jx*(n-1)+1)

  #< call the original method >
  __vrfct( rx,n,jx,jy,rr )
end

.vrfct0(rx, n, jx, jy, rr) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 4473

def vrfct0( rx,n,jx,jy,rr )

  #< check array size(s) >
  raise "Invalid array length: rx.length != jx*(n-1)+1" if rx.length != (jx*(n-1)+1)

  #< call the original method >
  __vrfct0( rx,n,jx,jy,rr )
end

.vrfct1(rx, n, jx, jy, rr) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 4485

def vrfct1( rx,n,jx,jy,rr )

  #< check array size(s) >
  raise "Invalid array length: rx.length != jx*(n-1)+1" if rx.length != (jx*(n-1)+1)

  #< call the original method >
  __vrfct1( rx,n,jx,jy,rr )
end

.vrfna(rx, n, jx, jy, rfna) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 4389

def vrfna( rx,n,jx,jy,rfna )

  #< check array size(s) >
  raise "Invalid array length: rx.length != jx*(n-1)+1" if rx.length != (jx*(n-1)+1)

  #< call the original method >
  __vrfna( rx,n,jx,jy,rfna )
end

.vrfna0(rx, n, jx, jy, rfna) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 4401

def vrfna0( rx,n,jx,jy,rfna )

  #< check array size(s) >
  raise "Invalid array length: rx.length != jx*(n-1)+1" if rx.length != (jx*(n-1)+1)

  #< call the original method >
  __vrfna0( rx,n,jx,jy,rfna )
end

.vrfna1(rx, n, jx, jy, rfna) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 4413

def vrfna1( rx,n,jx,jy,rfna )

  #< check array size(s) >
  raise "Invalid array length: rx.length != jx*(n-1)+1" if rx.length != (jx*(n-1)+1)

  #< call the original method >
  __vrfna1( rx,n,jx,jy,rfna )
end

.vrfnb(rx, ry, n, jx, jy, jz, rfnb) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 4653

def vrfnb( rx,ry,n,jx,jy,jz,rfnb )

  #< check array size(s) >
  raise "Invalid array length: rx.length != jx*(n-1)+1" if rx.length != (jx*(n-1)+1)
  raise "Invalid array length: ry.length != jy*(n-1)+1" if ry.length != (jy*(n-1)+1)

  #< call the original method >
  __vrfnb( rx,ry,n,jx,jy,jz,rfnb )
end

.vrfnb0(rx, ry, n, jx, jy, jz, rfnb) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 4666

def vrfnb0( rx,ry,n,jx,jy,jz,rfnb )

  #< check array size(s) >
  raise "Invalid array length: rx.length != jx*(n-1)+1" if rx.length != (jx*(n-1)+1)
  raise "Invalid array length: ry.length != jy*(n-1)+1" if ry.length != (jy*(n-1)+1)

  #< call the original method >
  __vrfnb0( rx,ry,n,jx,jy,jz,rfnb )
end

.vrfnb1(rx, ry, n, jx, jy, jz, rfnb) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 4679

def vrfnb1( rx,ry,n,jx,jy,jz,rfnb )

  #< check array size(s) >
  raise "Invalid array length: rx.length != jx*(n-1)+1" if rx.length != (jx*(n-1)+1)
  raise "Invalid array length: ry.length != jy*(n-1)+1" if ry.length != (jy*(n-1)+1)

  #< call the original method >
  __vrfnb1( rx,ry,n,jx,jy,jz,rfnb )
end

.vrinc(rx, n, jx, jy, rr) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 4425

def vrinc( rx,n,jx,jy,rr )

  #< check array size(s) >
  raise "Invalid array length: rx.length != jx*(n-1)+1" if rx.length != (jx*(n-1)+1)

  #< call the original method >
  __vrinc( rx,n,jx,jy,rr )
end

.vrinc0(rx, n, jx, jy, rr) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 4437

def vrinc0( rx,n,jx,jy,rr )

  #< check array size(s) >
  raise "Invalid array length: rx.length != jx*(n-1)+1" if rx.length != (jx*(n-1)+1)

  #< call the original method >
  __vrinc0( rx,n,jx,jy,rr )
end

.vrinc1(rx, n, jx, jy, rr) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 4449

def vrinc1( rx,n,jx,jy,rr )

  #< check array size(s) >
  raise "Invalid array length: rx.length != jx*(n-1)+1" if rx.length != (jx*(n-1)+1)

  #< call the original method >
  __vrinc1( rx,n,jx,jy,rr )
end

.vrintr(rx, n, jx) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 5053

def vrintr( rx,n,jx )

  #< check array size(s) >
  raise "Invalid array length: rx.length != jx*(n-1)+1" if rx.length != (jx*(n-1)+1)

  #< call the original method >
  __vrintr( rx,n,jx )
end

.vrmlt(rx, ry, n, jx, jy, jz) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 4770

def vrmlt( rx,ry,n,jx,jy,jz )

  #< check array size(s) >
  raise "Invalid array length: rx.length != jx*(n-1)+1" if rx.length != (jx*(n-1)+1)
  raise "Invalid array length: ry.length != jy*(n-1)+1" if ry.length != (jy*(n-1)+1)

  #< call the original method >
  __vrmlt( rx,ry,n,jx,jy,jz )
end

.vrmlt0(rx, ry, n, jx, jy, jz) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 4783

def vrmlt0( rx,ry,n,jx,jy,jz )

  #< check array size(s) >
  raise "Invalid array length: rx.length != jx*(n-1)+1" if rx.length != (jx*(n-1)+1)
  raise "Invalid array length: ry.length != jy*(n-1)+1" if ry.length != (jy*(n-1)+1)

  #< call the original method >
  __vrmlt0( rx,ry,n,jx,jy,jz )
end

.vrmlt1(rx, ry, n, jx, jy, jz) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 4796

def vrmlt1( rx,ry,n,jx,jy,jz )

  #< check array size(s) >
  raise "Invalid array length: rx.length != jx*(n-1)+1" if rx.length != (jx*(n-1)+1)
  raise "Invalid array length: ry.length != jy*(n-1)+1" if ry.length != (jy*(n-1)+1)

  #< call the original method >
  __vrmlt1( rx,ry,n,jx,jy,jz )
end

.vrrnm(rx, n, jx, jy, nb) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 5077

def vrrnm( rx,n,jx,jy,nb )

  #< check array size(s) >
  raise "Invalid array length: rx.length != jx*(n-1)+1" if rx.length != (jx*(n-1)+1)

  #< call the original method >
  __vrrnm( rx,n,jx,jy,nb )
end

.vrrnm0(rx, n, jx, jy, nb) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 5089

def vrrnm0( rx,n,jx,jy,nb )

  #< check array size(s) >
  raise "Invalid array length: rx.length != jx*(n-1)+1" if rx.length != (jx*(n-1)+1)

  #< call the original method >
  __vrrnm0( rx,n,jx,jy,nb )
end

.vrrnm1(rx, n, jx, jy, nb) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 5101

def vrrnm1( rx,n,jx,jy,nb )

  #< check array size(s) >
  raise "Invalid array length: rx.length != jx*(n-1)+1" if rx.length != (jx*(n-1)+1)

  #< call the original method >
  __vrrnm1( rx,n,jx,jy,nb )
end

.vrset(rx, n, jx, jy) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 4533

def vrset( rx,n,jx,jy )

  #< check array size(s) >
  raise "Invalid array length: rx.length != jx*(n-1)+1" if rx.length != (jx*(n-1)+1)

  #< call the original method >
  __vrset( rx,n,jx,jy )
end

.vrsub(rx, ry, n, jx, jy, jz) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 4731

def vrsub( rx,ry,n,jx,jy,jz )

  #< check array size(s) >
  raise "Invalid array length: rx.length != jx*(n-1)+1" if rx.length != (jx*(n-1)+1)
  raise "Invalid array length: ry.length != jy*(n-1)+1" if ry.length != (jy*(n-1)+1)

  #< call the original method >
  __vrsub( rx,ry,n,jx,jy,jz )
end

.vrsub0(rx, ry, n, jx, jy, jz) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 4744

def vrsub0( rx,ry,n,jx,jy,jz )

  #< check array size(s) >
  raise "Invalid array length: rx.length != jx*(n-1)+1" if rx.length != (jx*(n-1)+1)
  raise "Invalid array length: ry.length != jy*(n-1)+1" if ry.length != (jy*(n-1)+1)

  #< call the original method >
  __vrsub0( rx,ry,n,jx,jy,jz )
end

.vrsub1(rx, ry, n, jx, jy, jz) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 4757

def vrsub1( rx,ry,n,jx,jy,jz )

  #< check array size(s) >
  raise "Invalid array length: rx.length != jx*(n-1)+1" if rx.length != (jx*(n-1)+1)
  raise "Invalid array length: ry.length != jy*(n-1)+1" if ry.length != (jy*(n-1)+1)

  #< call the original method >
  __vrsub1( rx,ry,n,jx,jy,jz )
end

.vs1din(wz, nw, x) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 5455

def vs1din( wz,nw,x )

  #< extract array size(s) (which was(were) formerly an argument(s)) >
  if ( not_nary(wz) || (wz.rank < 1) )
    raise "wz must be a NArray of rank == 2"
  end
  len_wz_0 = wz.shape[0]
  ix = len_wz_0

  #< check array size(s) >
  raise "Invalid array shape: wz.shape[0] != ix" if wz.shape[0] != (ix)
  raise "Invalid array shape: wz.shape[1] != 2" if wz.shape[1] != (2)
  raise "Invalid array length: nw.length != ix" if nw.length != (ix)
  raise "Invalid array length: x.length != ix" if x.length != (ix)

  #< call the original method >
  __vs1din( wz,nw,ix,x )
end

.vs1out(wz, nw) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 5477

def vs1out( wz,nw )

  #< extract array size(s) (which was(were) formerly an argument(s)) >
  if ( not_nary(wz) || (wz.rank < 1) )
    raise "wz must be a NArray of rank == 2"
  end
  len_wz_0 = wz.shape[0]
  ix = len_wz_0

  #< check array size(s) >
  raise "Invalid array shape: wz.shape[0] != ix" if wz.shape[0] != (ix)
  raise "Invalid array shape: wz.shape[1] != 2" if wz.shape[1] != (2)
  raise "Invalid array length: nw.length != ix" if nw.length != (ix)

  #< call the original method >
  __vs1out( wz,nw,ix )
end

.vs2din(wz, nw, x, y) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 5498

def vs2din( wz,nw,x,y )

  #< extract array size(s) (which was(were) formerly an argument(s)) >
  if ( not_nary(wz) || (wz.rank < 1) )
    raise "wz must be a NArray of rank == 3"
  end
  len_wz_0 = wz.shape[0]
  ix = len_wz_0
  if ( not_nary(wz) || (wz.rank < 2) )
    raise "wz must be a NArray of rank == 3"
  end
  len_wz_1 = wz.shape[1]
  iy = len_wz_1

  #< check array size(s) >
  raise "Invalid array shape: wz.shape[0] != ix" if wz.shape[0] != (ix)
  raise "Invalid array shape: wz.shape[1] != iy" if wz.shape[1] != (iy)
  raise "Invalid array shape: wz.shape[2] != 5" if wz.shape[2] != (5)
  raise "Invalid array shape: nw.shape[0] != ix" if nw.shape[0] != (ix)
  raise "Invalid array shape: nw.shape[1] != iy" if nw.shape[1] != (iy)
  raise "Invalid array length: x.length != ix" if x.length != (ix)
  raise "Invalid array length: y.length != ix" if y.length != (ix)

  #< call the original method >
  __vs2din( wz,nw,ix,iy,x,y )
end

.vs2out(wz, nw) ⇒ `Object`

# File 'lib/numru/dcl/dcl.rb', line 5528

def vs2out( wz,nw )

  #< extract array size(s) (which was(were) formerly an argument(s)) >
  if ( not_nary(wz) || (wz.rank < 1) )
    raise "wz must be a NArray of rank == 3"
  end
  len_wz_0 = wz.shape[0]
  ix = len_wz_0
  if ( not_nary(wz) || (wz.rank < 2) )
    raise "wz must be a NArray of rank == 3"
  end
  len_wz_1 = wz.shape[1]
  iy = len_wz_1

  #< check array size(s) >
  raise "Invalid array shape: wz.shape[0] != ix" if wz.shape[0] != (ix)
  raise "Invalid array shape: wz.shape[1] != iy" if wz.shape[1] != (iy)
  raise "Invalid array shape: wz.shape[2] != 5" if wz.shape[2] != (5)
  raise "Invalid array shape: nw.shape[0] != ix" if nw.shape[0] != (ix)
  raise "Invalid array shape: nw.shape[1] != iy" if nw.shape[1] != (iy)

  #< call the original method >
  __vs2out( wz,nw,ix,iy )
end

Module: NumRu::DCL

Constant Summary collapse

Class Method Summary collapse

Class Method Details

.cfftb(c, wsave) ⇒ Object

.cfftf(c, wsave) ⇒ Object

.cfsrch(cplist, cflist, nf) ⇒ Object

.clrgsv(r, g, b) ⇒ Object

.clsvrg(h, s, v) ⇒ Object

.cosqb(x, wsave) ⇒ Object

.cosqf(x, wsave) ⇒ Object

.cost(x, wsave) ⇒ Object

.dxfloc(ns, np) ⇒ Object

.dxiloc(ns, ncp) ⇒ Object

.ezfftb(azero, a, b, wsave) ⇒ Object

.ezfftf(r, wsave) ⇒ Object

.g2sctr(uxa, uya, cxa, cya) ⇒ Object

.gnsblk(xb) ⇒ Object

.iadd(ix, n, jx, ii) ⇒ Object

.iadd0(ix, n, jx, ii) ⇒ Object

.iadd1(ix, n, jx, ii) ⇒ Object

.iblkge(rx, rr) ⇒ Object

.iblkgt(rx, rr) ⇒ Object

.iblkle(rx, rr) ⇒ Object

.iblklt(rx, rr) ⇒ Object

.imax(ix, n, jx) ⇒ Object

.imax0(ix, n, jx) ⇒ Object

.imax1(ix, n, jx) ⇒ Object

.imin(ix, n, jx) ⇒ Object

.imin0(ix, n, jx) ⇒ Object

.imin1(ix, n, jx) ⇒ Object

.imlt(ix, n, jx, ii) ⇒ Object

.imlt0(ix, n, jx, ii) ⇒ Object

.imlt1(ix, n, jx, ii) ⇒ Object

.indxcf(cx, n, jd, ch) ⇒ Object

.indxcl(cx, n, jd, ch) ⇒ Object

.indxif(ix, n, jd, ii) ⇒ Object

.indxil(ix, n, jd, ii) ⇒ Object

.indxrf(rx, n, jd, rr) ⇒ Object

.indxrl(rx, n, jd, rr) ⇒ Object

.init_arg ⇒ Object

.inorml(v, x, y) ⇒ Object

.iset(ix, n, jx, ii) ⇒ Object

.iset0(ix, n, jx, ii) ⇒ Object

.iset1(ix, n, jx, ii) ⇒ Object

.isum(ix, n, jx) ⇒ Object

.isum0(ix, n, jx) ⇒ Object

.isum1(ix, n, jx) ⇒ Object

.nindxc(cx, n, jd, ch) ⇒ Object

.nindxi(ix, n, jd, ii) ⇒ Object

.nindxr(rx, n, jd, rr) ⇒ Object

.radd(rx, n, jx, rr) ⇒ Object

.radd0(rx, n, jx, rr) ⇒ Object

.radd1(rx, n, jx, rr) ⇒ Object

.ramp(rx, n, jx) ⇒ Object

.ramp0(rx, n, jx) ⇒ Object

.ramp1(rx, n, jx) ⇒ Object

.rave(rx, n, jx) ⇒ Object

.rave0(rx, n, jx) ⇒ Object

.rave1(rx, n, jx) ⇒ Object

.rcor(rx, ry, n, jx, jy) ⇒ Object

.rcov(rx, ry, n, jx, jy) ⇒ Object

.rfftb(r, wsave) ⇒ Object

.rfftf(r, wsave) ⇒ Object

.rlcget(cpl) ⇒ Object

.rliget(cpl) ⇒ Object

.rllget(cpl) ⇒ Object

.rlrget(cpl) ⇒ Object

.rmax(rx, n, jx) ⇒ Object

.rmax0(rx, n, jx) ⇒ Object

.rmax1(rx, n, jx) ⇒ Object

.rmin(rx, n, jx) ⇒ Object

.rmin0(rx, n, jx) ⇒ Object

.rmin1(rx, n, jx) ⇒ Object

.rmlt(rx, n, jx, rr) ⇒ Object

.rmlt0(rx, n, jx, rr) ⇒ Object

.rmlt1(rx, n, jx, rr) ⇒ Object

.rnorml(v, x, y) ⇒ Object

.rprd(rx, ry, n, jx, jy) ⇒ Object

.rrms(rx, n, jx) ⇒ Object

.cfftb(c, wsave) ⇒ `Object`

.cfftf(c, wsave) ⇒ `Object`

.cfsrch(cplist, cflist, nf) ⇒ `Object`

.clrgsv(r, g, b) ⇒ `Object`

.clsvrg(h, s, v) ⇒ `Object`

.cosqb(x, wsave) ⇒ `Object`

.cosqf(x, wsave) ⇒ `Object`

.cost(x, wsave) ⇒ `Object`

.dxfloc(ns, np) ⇒ `Object`

.dxiloc(ns, ncp) ⇒ `Object`

.ezfftb(azero, a, b, wsave) ⇒ `Object`

.ezfftf(r, wsave) ⇒ `Object`

.g2sctr(uxa, uya, cxa, cya) ⇒ `Object`

.gnsblk(xb) ⇒ `Object`

.iadd(ix, n, jx, ii) ⇒ `Object`

.iadd0(ix, n, jx, ii) ⇒ `Object`

.iadd1(ix, n, jx, ii) ⇒ `Object`

.iblkge(rx, rr) ⇒ `Object`

.iblkgt(rx, rr) ⇒ `Object`

.iblkle(rx, rr) ⇒ `Object`

.iblklt(rx, rr) ⇒ `Object`

.imax(ix, n, jx) ⇒ `Object`

.imax0(ix, n, jx) ⇒ `Object`

.imax1(ix, n, jx) ⇒ `Object`

.imin(ix, n, jx) ⇒ `Object`

.imin0(ix, n, jx) ⇒ `Object`

.imin1(ix, n, jx) ⇒ `Object`

.imlt(ix, n, jx, ii) ⇒ `Object`

.imlt0(ix, n, jx, ii) ⇒ `Object`

.imlt1(ix, n, jx, ii) ⇒ `Object`

.indxcf(cx, n, jd, ch) ⇒ `Object`

.indxcl(cx, n, jd, ch) ⇒ `Object`

.indxif(ix, n, jd, ii) ⇒ `Object`

.indxil(ix, n, jd, ii) ⇒ `Object`

.indxrf(rx, n, jd, rr) ⇒ `Object`

.indxrl(rx, n, jd, rr) ⇒ `Object`

.init_arg ⇒ `Object`

.inorml(v, x, y) ⇒ `Object`

.iset(ix, n, jx, ii) ⇒ `Object`

.iset0(ix, n, jx, ii) ⇒ `Object`

.iset1(ix, n, jx, ii) ⇒ `Object`

.isum(ix, n, jx) ⇒ `Object`

.isum0(ix, n, jx) ⇒ `Object`

.isum1(ix, n, jx) ⇒ `Object`

.nindxc(cx, n, jd, ch) ⇒ `Object`

.nindxi(ix, n, jd, ii) ⇒ `Object`

.nindxr(rx, n, jd, rr) ⇒ `Object`

.radd(rx, n, jx, rr) ⇒ `Object`

.radd0(rx, n, jx, rr) ⇒ `Object`

.radd1(rx, n, jx, rr) ⇒ `Object`

.ramp(rx, n, jx) ⇒ `Object`

.ramp0(rx, n, jx) ⇒ `Object`

.ramp1(rx, n, jx) ⇒ `Object`

.rave(rx, n, jx) ⇒ `Object`

.rave0(rx, n, jx) ⇒ `Object`

.rave1(rx, n, jx) ⇒ `Object`

.rcor(rx, ry, n, jx, jy) ⇒ `Object`

.rcov(rx, ry, n, jx, jy) ⇒ `Object`

.rfftb(r, wsave) ⇒ `Object`

.rfftf(r, wsave) ⇒ `Object`

.rlcget(cpl) ⇒ `Object`

.rliget(cpl) ⇒ `Object`

.rllget(cpl) ⇒ `Object`

.rlrget(cpl) ⇒ `Object`

.rmax(rx, n, jx) ⇒ `Object`

.rmax0(rx, n, jx) ⇒ `Object`

.rmax1(rx, n, jx) ⇒ `Object`

.rmin(rx, n, jx) ⇒ `Object`

.rmin0(rx, n, jx) ⇒ `Object`

.rmin1(rx, n, jx) ⇒ `Object`

.rmlt(rx, n, jx, rr) ⇒ `Object`

.rmlt0(rx, n, jx, rr) ⇒ `Object`

.rmlt1(rx, n, jx, rr) ⇒ `Object`

.rnorml(v, x, y) ⇒ `Object`

.rprd(rx, ry, n, jx, jy) ⇒ `Object`

.rrms(rx, n, jx) ⇒ `Object`

.rrms0(rx, n, jx) ⇒ `Object`

.rrms1(rx, n, jx) ⇒ `Object`

.rset(rx, n, jx, rr) ⇒ `Object`

.rset0(rx, n, jx, rr) ⇒ `Object`