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

.cfftb(c, wsave) ⇒ `Object`

# File 'lib/dcl.rb', line 4835

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/dcl.rb', line 4852

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/dcl.rb', line 3772

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/dcl.rb', line 2930

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/dcl.rb', line 2959

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/dcl.rb', line 4869

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/dcl.rb', line 4886

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/dcl.rb', line 4903

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/dcl.rb', line 3739

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/dcl.rb', line 3756

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/dcl.rb', line 4920

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/dcl.rb', line 4938

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/dcl.rb', line 3057

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/dcl.rb', line 3040

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/dcl.rb', line 4073

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/dcl.rb', line 4085

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/dcl.rb', line 4097

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/dcl.rb', line 2913

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/dcl.rb', line 2897

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/dcl.rb', line 2881

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/dcl.rb', line 2865

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/dcl.rb', line 3082

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/dcl.rb', line 3094

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/dcl.rb', line 3106

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/dcl.rb', line 3118

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/dcl.rb', line 3130

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/dcl.rb', line 3142

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/dcl.rb', line 4109

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/dcl.rb', line 4121

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/dcl.rb', line 4133

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/dcl.rb', line 3190

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/dcl.rb', line 3202

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/dcl.rb', line 3214

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/dcl.rb', line 3226

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/dcl.rb', line 3238

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/dcl.rb', line 3250

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

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

# File 'lib/dcl.rb', line 2988

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/dcl.rb', line 4145

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/dcl.rb', line 4157

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/dcl.rb', line 4169

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/dcl.rb', line 3154

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/dcl.rb', line 3166

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/dcl.rb', line 3178

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/dcl.rb', line 3262

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/dcl.rb', line 3274

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/dcl.rb', line 3286

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/dcl.rb', line 4532

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/dcl.rb', line 4544

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/dcl.rb', line 4556

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/dcl.rb', line 3550

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/dcl.rb', line 3562

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/dcl.rb', line 3574

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/dcl.rb', line 3406

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/dcl.rb', line 3418

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/dcl.rb', line 3430

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/dcl.rb', line 3726

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/dcl.rb', line 3713

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/dcl.rb', line 4955

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/dcl.rb', line 4972

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/dcl.rb', line 3901

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/dcl.rb', line 3853

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/dcl.rb', line 3869

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/dcl.rb', line 3885

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/dcl.rb', line 3298

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/dcl.rb', line 3310

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/dcl.rb', line 3322

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/dcl.rb', line 3334

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/dcl.rb', line 3346

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/dcl.rb', line 3358

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/dcl.rb', line 4568

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/dcl.rb', line 4580

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/dcl.rb', line 4592

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/dcl.rb', line 3013

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/dcl.rb', line 3700

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/dcl.rb', line 3514

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/dcl.rb', line 3526

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/dcl.rb', line 3538

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/dcl.rb', line 4604

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/dcl.rb', line 4616

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/dcl.rb', line 4628

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/dcl.rb', line 3478

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/dcl.rb', line 3490

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/dcl.rb', line 3502

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/dcl.rb', line 3370

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/dcl.rb', line 3382

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/dcl.rb', line 3394

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/dcl.rb', line 3837

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/dcl.rb', line 3789

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/dcl.rb', line 3805

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/dcl.rb', line 3821

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/dcl.rb', line 3442

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/dcl.rb', line 3454

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/dcl.rb', line 3466

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/dcl.rb', line 3586

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/dcl.rb', line 3605

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/dcl.rb', line 3643

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/dcl.rb', line 3624

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/dcl.rb', line 3681

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/dcl.rb', line 3662

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/dcl.rb', line 125

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/dcl.rb', line 143

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/dcl.rb', line 161

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/dcl.rb', line 179

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/dcl.rb', line 197

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/dcl.rb', line 215

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/dcl.rb', line 233

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/dcl.rb', line 251

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/dcl.rb', line 269

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/dcl.rb', line 283

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/dcl.rb', line 297

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/dcl.rb', line 311

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/dcl.rb', line 359

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/dcl.rb', line 325

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/dcl.rb', line 342

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/dcl.rb', line 696

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/dcl.rb', line 656

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/dcl.rb', line 676

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/dcl.rb', line 410

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/dcl.rb', line 376

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/dcl.rb', line 393

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/dcl.rb', line 461

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/dcl.rb', line 427

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/dcl.rb', line 444

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/dcl.rb', line 756

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/dcl.rb', line 716

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/dcl.rb', line 736

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/dcl.rb', line 512

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/dcl.rb', line 478

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/dcl.rb', line 495

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/dcl.rb', line 563

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/dcl.rb', line 529

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/dcl.rb', line 546

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/dcl.rb', line 825

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/dcl.rb', line 785

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/dcl.rb', line 805

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/dcl.rb', line 614

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/dcl.rb', line 580

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/dcl.rb', line 597

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/dcl.rb', line 5112

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/dcl.rb', line 5416

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/dcl.rb', line 5325

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/dcl.rb', line 5100

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/dcl.rb', line 5139

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/dcl.rb', line 5123

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/dcl.rb', line 5351

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/dcl.rb', line 5151

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/dcl.rb', line 5364

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/dcl.rb', line 5403

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/dcl.rb', line 5390

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/dcl.rb', line 5377

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/dcl.rb', line 5163

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/dcl.rb', line 5199

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/dcl.rb', line 5187

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/dcl.rb', line 5175

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/dcl.rb', line 5223

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/dcl.rb', line 5211

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/dcl.rb', line 5249

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/dcl.rb', line 5309

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/dcl.rb', line 5275

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/dcl.rb', line 5293

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/dcl.rb', line 4989

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/dcl.rb', line 5006

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/dcl.rb', line 5023

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/dcl.rb', line 895

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/dcl.rb', line 929

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/dcl.rb', line 912

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/dcl.rb', line 107

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/dcl.rb', line 965

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/dcl.rb', line 990

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/dcl.rb', line 1018

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/dcl.rb', line 1171

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/dcl.rb', line 5551

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/dcl.rb', line 1196

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/dcl.rb', line 1094

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/dcl.rb', line 1121

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/dcl.rb', line 1043

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/dcl.rb', line 1068

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/dcl.rb', line 1146

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/dcl.rb', line 1213

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/dcl.rb', line 1438

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/dcl.rb', line 1471

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/dcl.rb', line 1372

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/dcl.rb', line 1405

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/dcl.rb', line 1504

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/dcl.rb', line 1529

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/dcl.rb', line 1620

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/dcl.rb', line 1678

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/dcl.rb', line 1554

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/dcl.rb', line 1587

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/dcl.rb', line 1653

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/dcl.rb', line 1711

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/dcl.rb', line 1306

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/dcl.rb', line 1339

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/dcl.rb', line 1240

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/dcl.rb', line 1273

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/dcl.rb', line 1762

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/dcl.rb', line 1789

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/dcl.rb', line 1737

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/dcl.rb', line 1818

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/dcl.rb', line 1835

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/dcl.rb', line 1854

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/dcl.rb', line 1870

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/dcl.rb', line 1886

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/dcl.rb', line 1973

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/dcl.rb', line 1993

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/dcl.rb', line 1906

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/dcl.rb', line 2012

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/dcl.rb', line 2029

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/dcl.rb', line 2045

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/dcl.rb', line 1931

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/dcl.rb', line 1956

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/dcl.rb', line 2061

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/dcl.rb', line 2086

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/dcl.rb', line 2111

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/dcl.rb', line 2136

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/dcl.rb', line 2359

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/dcl.rb', line 2392

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/dcl.rb', line 2293

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/dcl.rb', line 2326

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/dcl.rb', line 2425

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/dcl.rb', line 2450

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/dcl.rb', line 2541

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/dcl.rb', line 2574

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/dcl.rb', line 2475

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/dcl.rb', line 2508

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/dcl.rb', line 2607

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/dcl.rb', line 2632

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/dcl.rb', line 2227

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/dcl.rb', line 2260

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/dcl.rb', line 2161

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/dcl.rb', line 2194

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/dcl.rb', line 2657

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/dcl.rb', line 2673

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/dcl.rb', line 2738

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/dcl.rb', line 2758

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/dcl.rb', line 2705

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/dcl.rb', line 2722

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/dcl.rb', line 2689

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/dcl.rb', line 2826

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/dcl.rb', line 2846

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/dcl.rb', line 2793

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/dcl.rb', line 2810

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/dcl.rb', line 2777

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/dcl.rb', line 5052

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/dcl.rb', line 4220

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/dcl.rb', line 4233

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/dcl.rb', line 4246

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/dcl.rb', line 4025

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/dcl.rb', line 4037

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/dcl.rb', line 4049

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/dcl.rb', line 4337

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/dcl.rb', line 4350

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/dcl.rb', line 4363

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/dcl.rb', line 3989

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/dcl.rb', line 4001

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/dcl.rb', line 4013

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/dcl.rb', line 3917

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/dcl.rb', line 3929

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/dcl.rb', line 3941

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/dcl.rb', line 4181

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/dcl.rb', line 4194

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/dcl.rb', line 4207

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/dcl.rb', line 3953

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/dcl.rb', line 3965

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/dcl.rb', line 3977

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/dcl.rb', line 4298

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/dcl.rb', line 4311

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/dcl.rb', line 4324

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/dcl.rb', line 4061

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/dcl.rb', line 4259

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/dcl.rb', line 4272

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/dcl.rb', line 4285

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/dcl.rb', line 4679

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/dcl.rb', line 4692

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/dcl.rb', line 4705

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/dcl.rb', line 4484

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/dcl.rb', line 4496

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/dcl.rb', line 4508

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/dcl.rb', line 4796

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/dcl.rb', line 4809

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/dcl.rb', line 4822

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/dcl.rb', line 4448

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/dcl.rb', line 4460

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/dcl.rb', line 4472

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/dcl.rb', line 4376

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/dcl.rb', line 4388

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/dcl.rb', line 4400

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/dcl.rb', line 4640

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/dcl.rb', line 4653

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/dcl.rb', line 4666

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/dcl.rb', line 4412

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/dcl.rb', line 4424

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/dcl.rb', line 4436

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/dcl.rb', line 5040

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/dcl.rb', line 4757

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/dcl.rb', line 4770

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/dcl.rb', line 4783

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/dcl.rb', line 5064

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/dcl.rb', line 5076

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/dcl.rb', line 5088

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/dcl.rb', line 4520

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/dcl.rb', line 4718

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/dcl.rb', line 4731

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/dcl.rb', line 4744

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/dcl.rb', line 5442

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/dcl.rb', line 5464

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/dcl.rb', line 5485

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/dcl.rb', line 5515

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

.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

.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`

.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`

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