module NumRu::DCL

Public Class Methods

cfftb( c,wsave ) click to toggle source
# File lib/dcl/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
Also aliased as: __cfftb, __cfftb
cfftf( c,wsave ) click to toggle source
# File lib/dcl/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
Also aliased as: __cfftf, __cfftf
cfsrch( cplist,cflist,nf ) click to toggle source
# File lib/dcl/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
Also aliased as: __cfsrch, __cfsrch
cosqb( x,wsave ) click to toggle source
# File lib/dcl/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
Also aliased as: __cosqb, __cosqb
cosqf( x,wsave ) click to toggle source
# File lib/dcl/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
Also aliased as: __cosqf, __cosqf
cost( x,wsave ) click to toggle source
# File lib/dcl/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
Also aliased as: __cost, __cost
dxfloc( ns,np ) click to toggle source
# File lib/dcl/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
Also aliased as: __dxfloc, __dxfloc
dxiloc( ns,ncp ) click to toggle source
# File lib/dcl/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
Also aliased as: __dxiloc, __dxiloc
ezfftb( azero,a,b,wsave ) click to toggle source
# File lib/dcl/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
Also aliased as: __ezfftb, __ezfftb
ezfftf( r,wsave ) click to toggle source
# File lib/dcl/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
Also aliased as: __ezfftf, __ezfftf
gnsblk( xb ) click to toggle source
# File lib/dcl/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
Also aliased as: __gnsblk, __gnsblk
iadd( ix,n,jx,ii ) click to toggle source
# File lib/dcl/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
Also aliased as: __iadd, __iadd
iadd0( ix,n,jx,ii ) click to toggle source
# File lib/dcl/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
Also aliased as: __iadd0, __iadd0
iadd1( ix,n,jx,ii ) click to toggle source
# File lib/dcl/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
Also aliased as: __iadd1, __iadd1
iblkge( rx,rr ) click to toggle source
# File lib/dcl/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
Also aliased as: __iblkge, __iblkge
iblkgt( rx,rr ) click to toggle source
# File lib/dcl/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
Also aliased as: __iblkgt, __iblkgt
iblkle( rx,rr ) click to toggle source
# File lib/dcl/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
Also aliased as: __iblkle, __iblkle
iblklt( rx,rr ) click to toggle source
# File lib/dcl/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
Also aliased as: __iblklt, __iblklt
imax( ix,n,jx ) click to toggle source
# File lib/dcl/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
Also aliased as: __imax, __imax
imax0( ix,n,jx ) click to toggle source
# File lib/dcl/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
Also aliased as: __imax0, __imax0
imax1( ix,n,jx ) click to toggle source
# File lib/dcl/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
Also aliased as: __imax1, __imax1
imin( ix,n,jx ) click to toggle source
# File lib/dcl/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
Also aliased as: __imin, __imin
imin0( ix,n,jx ) click to toggle source
# File lib/dcl/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
Also aliased as: __imin0, __imin0
imin1( ix,n,jx ) click to toggle source
# File lib/dcl/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
Also aliased as: __imin1, __imin1
imlt( ix,n,jx,ii ) click to toggle source
# File lib/dcl/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
Also aliased as: __imlt, __imlt
imlt0( ix,n,jx,ii ) click to toggle source
# File lib/dcl/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
Also aliased as: __imlt0, __imlt0
imlt1( ix,n,jx,ii ) click to toggle source
# File lib/dcl/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
Also aliased as: __imlt1, __imlt1
indxcf( cx,n,jd,ch ) click to toggle source
# File lib/dcl/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
Also aliased as: __indxcf, __indxcf
indxcl( cx,n,jd,ch ) click to toggle source
# File lib/dcl/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
Also aliased as: __indxcl, __indxcl
indxif( ix,n,jd,ii ) click to toggle source
# File lib/dcl/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
Also aliased as: __indxif, __indxif
indxil( ix,n,jd,ii ) click to toggle source
# File lib/dcl/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
Also aliased as: __indxil, __indxil
indxrf( rx,n,jd,rr ) click to toggle source
# File lib/dcl/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
Also aliased as: __indxrf, __indxrf
indxrl( rx,n,jd,rr ) click to toggle source
# File lib/dcl/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
Also aliased as: __indxrl, __indxrl
iset( ix,n,jx,ii ) click to toggle source
# File lib/dcl/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
Also aliased as: __iset, __iset
iset0( ix,n,jx,ii ) click to toggle source
# File lib/dcl/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
Also aliased as: __iset0, __iset0
iset1( ix,n,jx,ii ) click to toggle source
# File lib/dcl/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
Also aliased as: __iset1, __iset1
isum( ix,n,jx ) click to toggle source
# File lib/dcl/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
Also aliased as: __isum, __isum
isum0( ix,n,jx ) click to toggle source
# File lib/dcl/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
Also aliased as: __isum0, __isum0
isum1( ix,n,jx ) click to toggle source
# File lib/dcl/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
Also aliased as: __isum1, __isum1
nindxc( cx,n,jd,ch ) click to toggle source
# File lib/dcl/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
Also aliased as: __nindxc, __nindxc
nindxi( ix,n,jd,ii ) click to toggle source
# File lib/dcl/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
Also aliased as: __nindxi, __nindxi
nindxr( rx,n,jd,rr ) click to toggle source
# File lib/dcl/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
Also aliased as: __nindxr, __nindxr
radd( rx,n,jx,rr ) click to toggle source
# File lib/dcl/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
Also aliased as: __radd, __radd
radd0( rx,n,jx,rr ) click to toggle source
# File lib/dcl/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
Also aliased as: __radd0, __radd0
radd1( rx,n,jx,rr ) click to toggle source
# File lib/dcl/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
Also aliased as: __radd1, __radd1
ramp( rx,n,jx ) click to toggle source
# File lib/dcl/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
Also aliased as: __ramp, __ramp
ramp0( rx,n,jx ) click to toggle source
# File lib/dcl/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
Also aliased as: __ramp0, __ramp0
ramp1( rx,n,jx ) click to toggle source
# File lib/dcl/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
Also aliased as: __ramp1, __ramp1
rave( rx,n,jx ) click to toggle source
# File lib/dcl/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
Also aliased as: __rave, __rave
rave0( rx,n,jx ) click to toggle source
# File lib/dcl/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
Also aliased as: __rave0, __rave0
rave1( rx,n,jx ) click to toggle source
# File lib/dcl/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
Also aliased as: __rave1, __rave1
rcor( rx,ry,n,jx,jy ) click to toggle source
# File lib/dcl/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
Also aliased as: __rcor, __rcor
rcov( rx,ry,n,jx,jy ) click to toggle source
# File lib/dcl/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
Also aliased as: __rcov, __rcov
rfftb( r,wsave ) click to toggle source
# File lib/dcl/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
Also aliased as: __rfftb, __rfftb
rfftf( r,wsave ) click to toggle source
# File lib/dcl/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
Also aliased as: __rfftf, __rfftf
rlcget( cpl ) click to toggle source
# File lib/dcl/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
Also aliased as: __rlcget, __rlcget
rliget( cpl ) click to toggle source
# File lib/dcl/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
Also aliased as: __rliget, __rliget
rllget( cpl ) click to toggle source
# File lib/dcl/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
Also aliased as: __rllget, __rllget
rlrget( cpl ) click to toggle source
# File lib/dcl/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
Also aliased as: __rlrget, __rlrget
rmax( rx,n,jx ) click to toggle source
# File lib/dcl/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
Also aliased as: __rmax, __rmax
rmax0( rx,n,jx ) click to toggle source
# File lib/dcl/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
Also aliased as: __rmax0, __rmax0
rmax1( rx,n,jx ) click to toggle source
# File lib/dcl/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
Also aliased as: __rmax1, __rmax1
rmin( rx,n,jx ) click to toggle source
# File lib/dcl/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
Also aliased as: __rmin, __rmin
rmin0( rx,n,jx ) click to toggle source
# File lib/dcl/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
Also aliased as: __rmin0, __rmin0
rmin1( rx,n,jx ) click to toggle source
# File lib/dcl/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
Also aliased as: __rmin1, __rmin1
rmlt( rx,n,jx,rr ) click to toggle source
# File lib/dcl/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
Also aliased as: __rmlt, __rmlt
rmlt0( rx,n,jx,rr ) click to toggle source
# File lib/dcl/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
Also aliased as: __rmlt0, __rmlt0
rmlt1( rx,n,jx,rr ) click to toggle source
# File lib/dcl/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
Also aliased as: __rmlt1, __rmlt1
rprd( rx,ry,n,jx,jy ) click to toggle source
# File lib/dcl/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
Also aliased as: __rprd, __rprd
rrms( rx,n,jx ) click to toggle source
# File lib/dcl/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
Also aliased as: __rrms, __rrms
rrms0( rx,n,jx ) click to toggle source
# File lib/dcl/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
Also aliased as: __rrms0, __rrms0
rrms1( rx,n,jx ) click to toggle source
# File lib/dcl/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
Also aliased as: __rrms1, __rrms1
rset( rx,n,jx,rr ) click to toggle source
# File lib/dcl/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
Also aliased as: __rset, __rset
rset0( rx,n,jx,rr ) click to toggle source
# File lib/dcl/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
Also aliased as: __rset0, __rset0
rset1( rx,n,jx,rr ) click to toggle source
# File lib/dcl/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
Also aliased as: __rset1, __rset1
rstd( rx,n,jx ) click to toggle source
# File lib/dcl/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
Also aliased as: __rstd, __rstd
rstd0( rx,n,jx ) click to toggle source
# File lib/dcl/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
Also aliased as: __rstd0, __rstd0
rstd1( rx,n,jx ) click to toggle source
# File lib/dcl/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
Also aliased as: __rstd1, __rstd1
rsum( rx,n,jx ) click to toggle source
# File lib/dcl/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
Also aliased as: __rsum, __rsum
rsum0( rx,n,jx ) click to toggle source
# File lib/dcl/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
Also aliased as: __rsum0, __rsum0
rsum1( rx,n,jx ) click to toggle source
# File lib/dcl/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
Also aliased as: __rsum1, __rsum1
rtcget( cpfix,cps ) click to toggle source
# File lib/dcl/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
Also aliased as: __rtcget, __rtcget
rtiget( cpfix,cps ) click to toggle source
# File lib/dcl/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
Also aliased as: __rtiget, __rtiget
rtlget( cpfix,cps ) click to toggle source
# File lib/dcl/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
Also aliased as: __rtlget, __rtlget
rtrget( cpfix,cps ) click to toggle source
# File lib/dcl/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
Also aliased as: __rtrget, __rtrget
rvar( rx,n,jx ) click to toggle source
# File lib/dcl/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
Also aliased as: __rvar, __rvar
rvar0( rx,n,jx ) click to toggle source
# File lib/dcl/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
Also aliased as: __rvar0, __rvar0
rvar1( rx,n,jx ) click to toggle source
# File lib/dcl/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
Also aliased as: __rvar1, __rvar1
rvmax( rx,ns,np,nq ) click to toggle source
# File lib/dcl/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
Also aliased as: __rvmax, __rvmax
rvmax0( rx,ns,np,nq ) click to toggle source
# File lib/dcl/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
Also aliased as: __rvmax0, __rvmax0
rvmax1( rx,ns,np,nq ) click to toggle source
# File lib/dcl/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
Also aliased as: __rvmax1, __rvmax1
rvmin( rx,ns,np,nq ) click to toggle source
# File lib/dcl/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
Also aliased as: __rvmin, __rvmin
rvmin0( rx,ns,np,nq ) click to toggle source
# File lib/dcl/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
Also aliased as: __rvmin0, __rvmin0
rvmin1( rx,ns,np,nq ) click to toggle source
# File lib/dcl/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
Also aliased as: __rvmin1, __rvmin1
scplu( upx,upy,upz ) click to toggle source
# File lib/dcl/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
Also aliased as: __scplu, __scplu
scplv( vpx,vpy,vpz ) click to toggle source
# File lib/dcl/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
Also aliased as: __scplv, __scplv
scplzu( upx,upy,upz,index ) click to toggle source
# File lib/dcl/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
Also aliased as: __scplzu, __scplzu
scplzv( vpx,vpy,vpz,index ) click to toggle source
# File lib/dcl/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
Also aliased as: __scplzv, __scplzv
scpmu( upx,upy,upz ) click to toggle source
# File lib/dcl/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
Also aliased as: __scpmu, __scpmu
scpmv( vpx,vpy,vpz ) click to toggle source
# File lib/dcl/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
Also aliased as: __scpmv, __scpmv
scpmzu( upx,upy,upz,itype,index,rsize ) click to toggle source
# File lib/dcl/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
Also aliased as: __scpmzu, __scpmzu
scpmzv( vpx,vpy,vpz,itype,index,rsize ) click to toggle source
# File lib/dcl/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
Also aliased as: __scpmzv, __scpmzv
sctnu( upx,upy,upz ) click to toggle source
# File lib/dcl/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
Also aliased as: __sctnu, __sctnu
sctnv( vpx,vpy,vpz ) click to toggle source
# File lib/dcl/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
Also aliased as: __sctnv, __sctnv
sctnzu( upx,upy,upz,itpat1,itpat2 ) click to toggle source
# File lib/dcl/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
Also aliased as: __sctnzu, __sctnzu
sctnzv( vpx,vpy,vpz,itpat1,itpat2 ) click to toggle source
# File lib/dcl/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
Also aliased as: __sctnzv, __sctnzv
sgplr( rpx,rpy ) click to toggle source
# File lib/dcl/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
Also aliased as: __sgplr, __sgplr
sgplu( upx,upy ) click to toggle source
# File lib/dcl/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
Also aliased as: __sgplu, __sgplu
sgplv( vpx,vpy ) click to toggle source
# File lib/dcl/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
Also aliased as: __sgplv, __sgplv
sgplzr( rpx,rpy,itype,index ) click to toggle source
# File lib/dcl/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
Also aliased as: __sgplzr, __sgplzr
sgplzu( upx,upy,itype,index ) click to toggle source
# File lib/dcl/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
Also aliased as: __sgplzu, __sgplzu
sgplzv( vpx,vpy,itype,index ) click to toggle source
# File lib/dcl/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
Also aliased as: __sgplzv, __sgplzv
sgpmr( rpx,rpy ) click to toggle source
# File lib/dcl/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
Also aliased as: __sgpmr, __sgpmr
sgpmu( upx,upy ) click to toggle source
# File lib/dcl/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
Also aliased as: __sgpmu, __sgpmu
sgpmv( vpx,vpy ) click to toggle source
# File lib/dcl/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
Also aliased as: __sgpmv, __sgpmv
sgpmzr( rpx,rpy,itype,index,rsize ) click to toggle source
# File lib/dcl/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
Also aliased as: __sgpmzr, __sgpmzr
sgpmzu( upx,upy,itype,index,rsize ) click to toggle source
# File lib/dcl/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
Also aliased as: __sgpmzu, __sgpmzu
sgpmzv( vpx,vpy,itype,index,rsize ) click to toggle source
# File lib/dcl/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
Also aliased as: __sgpmzv, __sgpmzv
sgtnr( rpx,rpy ) click to toggle source
# File lib/dcl/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
Also aliased as: __sgtnr, __sgtnr
sgtnu( upx,upy ) click to toggle source
# File lib/dcl/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
Also aliased as: __sgtnu, __sgtnu
sgtnv( vpx,vpy ) click to toggle source
# File lib/dcl/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
Also aliased as: __sgtnv, __sgtnv
sgtnzr( rpx,rpy,itpat ) click to toggle source
# File lib/dcl/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
Also aliased as: __sgtnzr, __sgtnzr
sgtnzu( upx,upy,itpat ) click to toggle source
# File lib/dcl/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
Also aliased as: __sgtnzu, __sgtnzu
sgtnzv( vpx,vpy,itpat ) click to toggle source
# File lib/dcl/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
Also aliased as: __sgtnzv, __sgtnzv
shtfun( mm,jm,m,work ) click to toggle source
# File lib/dcl/dcl.rb, line 5112
def shtfun( mm,jm,m,work )

  #< check array size(s) >

  #< call the original method >
  __shtfun( mm,jm,m,work )
end
Also aliased as: __shtfun, __shtfun
shtg2s( mm,isw,g,work ) click to toggle source
# File lib/dcl/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
Also aliased as: __shtg2s, __shtg2s
shtg2w( mm,g,work ) click to toggle source
# File lib/dcl/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
Also aliased as: __shtg2w, __shtg2w
shtlap( mm,ind,a ) click to toggle source
# File lib/dcl/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
Also aliased as: __shtlap, __shtlap
shtlbw( mm,jm,m,isw,sm,work ) click to toggle source
# File lib/dcl/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
Also aliased as: __shtlbw, __shtlbw
shtlfw( mm,m,isw,wm,work ) click to toggle source
# File lib/dcl/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
Also aliased as: __shtlfw, __shtlfw
shts2g( mm,jm,im,isw,s,work ) click to toggle source
# File lib/dcl/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
Also aliased as: __shts2g, __shts2g
shts2w( mm,jm,isw,s,work ) click to toggle source
# File lib/dcl/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
Also aliased as: __shts2w, __shts2w
shtsga( mm,jm,im,isw,m1,m2,s,work ) click to toggle source
# File lib/dcl/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
Also aliased as: __shtsga, __shtsga
shtsgj( mm,jm,im,isw,j,m1,m2,s,work ) click to toggle source
# File lib/dcl/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
Also aliased as: __shtsgj, __shtsgj
shtsgm( mm,jm,im,m,isw,s,work ) click to toggle source
# File lib/dcl/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
Also aliased as: __shtsgm, __shtsgm
shtsgz( mm,jm,im,isw,s,work ) click to toggle source
# File lib/dcl/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
Also aliased as: __shtsgz, __shtsgz
shtswa( mm,jm,isw,m1,m2,s,work ) click to toggle source
# File lib/dcl/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
Also aliased as: __shtswa, __shtswa
shtswj( mm,jm,isw,j,m1,m2,s,work ) click to toggle source
# File lib/dcl/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
Also aliased as: __shtswj, __shtswj
shtswm( mm,jm,m,isw,s,work ) click to toggle source
# File lib/dcl/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
Also aliased as: __shtswm, __shtswm
shtswz( mm,jm,isw,s,work ) click to toggle source
# File lib/dcl/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
Also aliased as: __shtswz, __shtswz
shtw2g( im,w,work ) click to toggle source
# File lib/dcl/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
Also aliased as: __shtw2g, __shtw2g
shtw2s( mm,jm,isw,s,work ) click to toggle source
# File lib/dcl/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
Also aliased as: __shtw2s, __shtw2s
shtwga( im,m1,m2,w,work ) click to toggle source
# File lib/dcl/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
Also aliased as: __shtwga, __shtwga
shtwgj( im,m1,m2,wj,work ) click to toggle source
# File lib/dcl/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
Also aliased as: __shtwgj, __shtwgj
shtwgm( mm,im,m,wr,wi,work ) click to toggle source
# File lib/dcl/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
Also aliased as: __shtwgm, __shtwgm
shtwgz( im,wz ) click to toggle source
# File lib/dcl/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
Also aliased as: __shtwgz, __shtwgz
sinqb( x,wsave ) click to toggle source
# File lib/dcl/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
Also aliased as: __sinqb, __sinqb
sinqf( x,wsave ) click to toggle source
# File lib/dcl/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
Also aliased as: __sinqf, __sinqf
sint( x,wsave ) click to toggle source
# File lib/dcl/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
Also aliased as: __sint, __sint
swgton( wpx,wpy,itpat ) click to toggle source
# File lib/dcl/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
Also aliased as: __swgton, __swgton
swidat( image ) click to toggle source
# File lib/dcl/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
Also aliased as: __swidat, __swidat
swpget( name ) click to toggle source
# File lib/dcl/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 ) click to toggle source
# File lib/dcl/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
Also aliased as: __udcntr, __udcntr
udcntz( z ) click to toggle source
# File lib/dcl/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
Also aliased as: __udcntz, __udcntz
udgclb( z,dx ) click to toggle source
# File lib/dcl/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
Also aliased as: __udgclb, __udgclb
uegtlb( z,dx ) click to toggle source
# File lib/dcl/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
Also aliased as: __uegtlb, __uegtlb
uemrkz( upx,upy,z,itype,index,rsize ) click to toggle source
# File lib/dcl/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
Also aliased as: __uemrkz, __uemrkz
uestln( tlevn,ipatn ) click to toggle source
# File lib/dcl/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
Also aliased as: __uestln, __uestln
uetonc( z ) click to toggle source
# File lib/dcl/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
Also aliased as: __uetonc, __uetonc
uetone( z ) click to toggle source
# File lib/dcl/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
Also aliased as: __uetone, __uetone
uetonf( z ) click to toggle source
# File lib/dcl/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
Also aliased as: __uetonf, __uetonf
uezchk( z,cname ) click to toggle source
# File lib/dcl/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
Also aliased as: __uezchk, __uezchk
ugvect( u,v ) click to toggle source
# File lib/dcl/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
Also aliased as: __ugvect, __ugvect
uhbra( upx1,upx2,upy ) click to toggle source
# File lib/dcl/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
Also aliased as: __uhbra, __uhbra
uhbraz( upx1,upx2,upy,itpat1,itpat2,rsize ) click to toggle source
# File lib/dcl/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
Also aliased as: __uhbraz, __uhbraz
uhbrf( upx1,upx2,upy ) click to toggle source
# File lib/dcl/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
Also aliased as: __uhbrf, __uhbrf
uhbrfz( upx1,upx2,upy,itype,index,rsize ) click to toggle source
# File lib/dcl/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
Also aliased as: __uhbrfz, __uhbrfz
uhbrl( upx,upy ) click to toggle source
# File lib/dcl/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
Also aliased as: __uhbrl, __uhbrl
uhbrlz( upx,upy,itype,index,rsize ) click to toggle source
# File lib/dcl/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
Also aliased as: __uhbrlz, __uhbrlz
uhbxa( upx1,upx2,upy ) click to toggle source
# File lib/dcl/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
Also aliased as: __uhbxa, __uhbxa
uhbxaz( upx1,upx2,upy,itpat1,itpat2 ) click to toggle source
# File lib/dcl/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
Also aliased as: __uhbxaz, __uhbxaz
uhbxf( upx1,upx2,upy ) click to toggle source
# File lib/dcl/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
Also aliased as: __uhbxf, __uhbxf
uhbxfz( upx1,upx2,upy,itype,index ) click to toggle source
# File lib/dcl/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
Also aliased as: __uhbxfz, __uhbxfz
uhbxl( upx,upy ) click to toggle source
# File lib/dcl/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
Also aliased as: __uhbxl, __uhbxl
uhbxlz( upx,upy,itype,index ) click to toggle source
# File lib/dcl/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
Also aliased as: __uhbxlz, __uhbxlz
uhdif( upx1,upx2,upy ) click to toggle source
# File lib/dcl/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
Also aliased as: __uhdif, __uhdif
uhdifz( upx1,upx2,upy,itpat1,itpat2 ) click to toggle source
# File lib/dcl/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
Also aliased as: __uhdifz, __uhdifz
uherb( upx1,upx2,upy ) click to toggle source
# File lib/dcl/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
Also aliased as: __uherb, __uherb
uherbz( upx1,upx2,upy,itype,index,rsize ) click to toggle source
# File lib/dcl/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
Also aliased as: __uherbz, __uherbz
ulsxbl( bl ) click to toggle source
# File lib/dcl/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
Also aliased as: __ulsxbl, __ulsxbl
ulsybl( bl ) click to toggle source
# File lib/dcl/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
Also aliased as: __ulsybl, __ulsybl
umspnt( ux,uy ) click to toggle source
# File lib/dcl/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
Also aliased as: __umspnt, __umspnt
usaxlb( cside,dtick,dlabel,ch,nc ) click to toggle source
# File lib/dcl/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
Also aliased as: __usaxlb, __usaxlb
usaxnm( cside,dtick,dlabel ) click to toggle source
# File lib/dcl/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
Also aliased as: __usaxnm, __usaxnm
usgrph( x,y ) click to toggle source
# File lib/dcl/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
Also aliased as: __usgrph, __usgrph
usplbl( cside,islct,pos,ch,nc ) click to toggle source
# File lib/dcl/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
Also aliased as: __usplbl, __usplbl
uspnum( cside,islct,pos ) click to toggle source
# File lib/dcl/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
Also aliased as: __uspnum, __uspnum
usptmk( cside,islct,pos ) click to toggle source
# File lib/dcl/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
Also aliased as: __usptmk, __usptmk
usspnt( x,y ) click to toggle source
# File lib/dcl/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
Also aliased as: __usspnt, __usspnt
uswapz( x1,x2 ) click to toggle source
# File lib/dcl/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
Also aliased as: __uswapz, __uswapz
uulin( upx,upy ) click to toggle source
# File lib/dcl/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
Also aliased as: __uulin, __uulin
uulinz( upx,upy,itype,index ) click to toggle source
# File lib/dcl/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
Also aliased as: __uulinz, __uulinz
uumrk( upx,upy ) click to toggle source
# File lib/dcl/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
Also aliased as: __uumrk, __uumrk
uumrkz( upx,upy,itype,index,rsize ) click to toggle source
# File lib/dcl/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
Also aliased as: __uumrkz, __uumrkz
uvbra( upx,upy1,upy2 ) click to toggle source
# File lib/dcl/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
Also aliased as: __uvbra, __uvbra
uvbraz( upx,upy1,upy2,itpat1,itpat2,rsize ) click to toggle source
# File lib/dcl/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
Also aliased as: __uvbraz, __uvbraz
uvbrf( upx,upy1,upy2 ) click to toggle source
# File lib/dcl/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
Also aliased as: __uvbrf, __uvbrf
uvbrfz( upx,upy1,upy2,itype,index,rsize ) click to toggle source
# File lib/dcl/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
Also aliased as: __uvbrfz, __uvbrfz
uvbrl( upx,upy ) click to toggle source
# File lib/dcl/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
Also aliased as: __uvbrl, __uvbrl
uvbrlz( upx,upy,itype,index,rsize ) click to toggle source
# File lib/dcl/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
Also aliased as: __uvbrlz, __uvbrlz
uvbxa( upx,upy1,upy2 ) click to toggle source
# File lib/dcl/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
Also aliased as: __uvbxa, __uvbxa
uvbxaz( upx,upy1,upy2,itpat1,itpat2 ) click to toggle source
# File lib/dcl/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
Also aliased as: __uvbxaz, __uvbxaz
uvbxf( upx,upy1,upy2 ) click to toggle source
# File lib/dcl/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
Also aliased as: __uvbxf, __uvbxf
uvbxfz( upx,upy1,upy2,itype,index ) click to toggle source
# File lib/dcl/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
Also aliased as: __uvbxfz, __uvbxfz
uvbxl( upx,upy ) click to toggle source
# File lib/dcl/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
Also aliased as: __uvbxl, __uvbxl
uvbxlz( upx,upy,itype,index ) click to toggle source
# File lib/dcl/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
Also aliased as: __uvbxlz, __uvbxlz
uvdif( upx,upy1,upy2 ) click to toggle source
# File lib/dcl/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
Also aliased as: __uvdif, __uvdif
uvdifz( upx,upy1,upy2,itpat1,itpat2 ) click to toggle source
# File lib/dcl/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
Also aliased as: __uvdifz, __uvdifz
uverb( upx,upy1,upy2 ) click to toggle source
# File lib/dcl/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
Also aliased as: __uverb, __uverb
uverbz( upx,upy1,upy2,itype,index,rsize ) click to toggle source
# File lib/dcl/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
Also aliased as: __uverbz, __uverbz
uwsgxa( xp ) click to toggle source
# File lib/dcl/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
Also aliased as: __uwsgxa, __uwsgxa
uwsgya( yp ) click to toggle source
# File lib/dcl/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
Also aliased as: __uwsgya, __uwsgya
uxaxlb( cside,ux1,ux2,ch,nc ) click to toggle source
# File lib/dcl/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
Also aliased as: __uxaxlb, __uxaxlb
uxaxnm( cside,ux1,ux2 ) click to toggle source
# File lib/dcl/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
Also aliased as: __uxaxnm, __uxaxnm
uxplbl( cside,islct,ux,ch,nc ) click to toggle source
# File lib/dcl/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
Also aliased as: __uxplbl, __uxplbl
uxpnum( cside,islct,ux ) click to toggle source
# File lib/dcl/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
Also aliased as: __uxpnum, __uxpnum
uxptmk( cside,islct,ux ) click to toggle source
# File lib/dcl/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
Also aliased as: __uxptmk, __uxptmk
uyaxlb( cside,uy1,uy2,ch,nc ) click to toggle source
# File lib/dcl/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
Also aliased as: __uyaxlb, __uyaxlb
uyaxnm( cside,uy1,uy2 ) click to toggle source
# File lib/dcl/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
Also aliased as: __uyaxnm, __uyaxnm
uyplbl( cside,islct,uy,ch,nc ) click to toggle source
# File lib/dcl/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
Also aliased as: __uyplbl, __uyplbl
uypnum( cside,islct,uy ) click to toggle source
# File lib/dcl/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
Also aliased as: __uypnum, __uypnum
uyptmk( cside,islct,uy ) click to toggle source
# File lib/dcl/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
Also aliased as: __uyptmk, __uyptmk
vcintr( cx,n,jx ) click to toggle source
# File lib/dcl/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
Also aliased as: __vcintr, __vcintr
viadd( ix,iy,n,jx,jy,jz ) click to toggle source
# File lib/dcl/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
Also aliased as: __viadd, __viadd
viadd0( ix,iy,n,jx,jy,jz ) click to toggle source
# File lib/dcl/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
Also aliased as: __viadd0, __viadd0
viadd1( ix,iy,n,jx,jy,jz ) click to toggle source
# File lib/dcl/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
Also aliased as: __viadd1, __viadd1
vicon( ix,n,jx,jy,ii ) click to toggle source
# File lib/dcl/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
Also aliased as: __vicon, __vicon
vicon0( ix,n,jx,jy,ii ) click to toggle source
# File lib/dcl/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
Also aliased as: __vicon0, __vicon0
vicon1( ix,n,jx,jy,ii ) click to toggle source
# File lib/dcl/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
Also aliased as: __vicon1, __vicon1
vidiv( ix,iy,n,jx,jy,jz ) click to toggle source
# File lib/dcl/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
Also aliased as: __vidiv, __vidiv
vidiv0( ix,iy,n,jx,jy,jz ) click to toggle source
# File lib/dcl/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
Also aliased as: __vidiv0, __vidiv0
vidiv1( ix,iy,n,jx,jy,jz ) click to toggle source
# File lib/dcl/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
Also aliased as: __vidiv1, __vidiv1
vifct( ix,n,jx,jy,ii ) click to toggle source
# File lib/dcl/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
Also aliased as: __vifct, __vifct
vifct0( ix,n,jx,jy,ii ) click to toggle source
# File lib/dcl/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
Also aliased as: __vifct0, __vifct0
vifct1( ix,n,jx,jy,ii ) click to toggle source
# File lib/dcl/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
Also aliased as: __vifct1, __vifct1
vifna( ix,n,jx,jy,ifna ) click to toggle source
# File lib/dcl/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
Also aliased as: __vifna, __vifna
vifna0( ix,n,jx,jy,ifna ) click to toggle source
# File lib/dcl/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
Also aliased as: __vifna0, __vifna0
vifna1( ix,n,jx,jy,ifna ) click to toggle source
# File lib/dcl/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
Also aliased as: __vifna1, __vifna1
vifnb( ix,iy,n,jx,jy,jz,ifnb ) click to toggle source
# File lib/dcl/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
Also aliased as: __vifnb, __vifnb
vifnb0( ix,iy,n,jx,jy,jz,ifnb ) click to toggle source
# File lib/dcl/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
Also aliased as: __vifnb0, __vifnb0
vifnb1( ix,iy,n,jx,jy,jz,ifnb ) click to toggle source
# File lib/dcl/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
Also aliased as: __vifnb1, __vifnb1
viinc( ix,n,jx,jy,ii ) click to toggle source
# File lib/dcl/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
Also aliased as: __viinc, __viinc
viinc0( ix,n,jx,jy,ii ) click to toggle source
# File lib/dcl/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
Also aliased as: __viinc0, __viinc0
viinc1( ix,n,jx,jy,ii ) click to toggle source
# File lib/dcl/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
Also aliased as: __viinc1, __viinc1
vimlt( ix,iy,n,jx,jy,jz ) click to toggle source
# File lib/dcl/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
Also aliased as: __vimlt, __vimlt
vimlt0( ix,iy,n,jx,jy,jz ) click to toggle source
# File lib/dcl/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
Also aliased as: __vimlt0, __vimlt0
vimlt1( ix,iy,n,jx,jy,jz ) click to toggle source
# File lib/dcl/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
Also aliased as: __vimlt1, __vimlt1
viset( ix,n,jx,jy ) click to toggle source
# File lib/dcl/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
Also aliased as: __viset, __viset
visub( ix,iy,n,jx,jy,jz ) click to toggle source
# File lib/dcl/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
Also aliased as: __visub, __visub
visub0( ix,iy,n,jx,jy,jz ) click to toggle source
# File lib/dcl/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
Also aliased as: __visub0, __visub0
visub1( ix,iy,n,jx,jy,jz ) click to toggle source
# File lib/dcl/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
Also aliased as: __visub1, __visub1
vradd( rx,ry,n,jx,jy,jz ) click to toggle source
# File lib/dcl/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
Also aliased as: __vradd, __vradd
vradd0( rx,ry,n,jx,jy,jz ) click to toggle source
# File lib/dcl/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
Also aliased as: __vradd0, __vradd0
vradd1( rx,ry,n,jx,jy,jz ) click to toggle source
# File lib/dcl/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
Also aliased as: __vradd1, __vradd1
vrcon( rx,n,jx,jy,rr ) click to toggle source
# File lib/dcl/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
Also aliased as: __vrcon, __vrcon
vrcon0( rx,n,jx,jy,rr ) click to toggle source
# File lib/dcl/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
Also aliased as: __vrcon0, __vrcon0
vrcon1( rx,n,jx,jy,rr ) click to toggle source
# File lib/dcl/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
Also aliased as: __vrcon1, __vrcon1
vrdiv( rx,ry,n,jx,jy,jz ) click to toggle source
# File lib/dcl/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
Also aliased as: __vrdiv, __vrdiv
vrdiv0( rx,ry,n,jx,jy,jz ) click to toggle source
# File lib/dcl/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
Also aliased as: __vrdiv0, __vrdiv0
vrdiv1( rx,ry,n,jx,jy,jz ) click to toggle source
# File lib/dcl/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
Also aliased as: __vrdiv1, __vrdiv1
vrfct( rx,n,jx,jy,rr ) click to toggle source
# File lib/dcl/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
Also aliased as: __vrfct, __vrfct
vrfct0( rx,n,jx,jy,rr ) click to toggle source
# File lib/dcl/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
Also aliased as: __vrfct0, __vrfct0
vrfct1( rx,n,jx,jy,rr ) click to toggle source
# File lib/dcl/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
Also aliased as: __vrfct1, __vrfct1
vrfna( rx,n,jx,jy,rfna ) click to toggle source
# File lib/dcl/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
Also aliased as: __vrfna, __vrfna
vrfna0( rx,n,jx,jy,rfna ) click to toggle source
# File lib/dcl/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
Also aliased as: __vrfna0, __vrfna0
vrfna1( rx,n,jx,jy,rfna ) click to toggle source
# File lib/dcl/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
Also aliased as: __vrfna1, __vrfna1
vrfnb( rx,ry,n,jx,jy,jz,rfnb ) click to toggle source
# File lib/dcl/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
Also aliased as: __vrfnb, __vrfnb
vrfnb0( rx,ry,n,jx,jy,jz,rfnb ) click to toggle source
# File lib/dcl/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
Also aliased as: __vrfnb0, __vrfnb0
vrfnb1( rx,ry,n,jx,jy,jz,rfnb ) click to toggle source
# File lib/dcl/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
Also aliased as: __vrfnb1, __vrfnb1
vrinc( rx,n,jx,jy,rr ) click to toggle source
# File lib/dcl/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
Also aliased as: __vrinc, __vrinc
vrinc0( rx,n,jx,jy,rr ) click to toggle source
# File lib/dcl/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
Also aliased as: __vrinc0, __vrinc0
vrinc1( rx,n,jx,jy,rr ) click to toggle source
# File lib/dcl/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
Also aliased as: __vrinc1, __vrinc1
vrintr( rx,n,jx ) click to toggle source
# File lib/dcl/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
Also aliased as: __vrintr, __vrintr
vrmlt( rx,ry,n,jx,jy,jz ) click to toggle source
# File lib/dcl/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
Also aliased as: __vrmlt, __vrmlt
vrmlt0( rx,ry,n,jx,jy,jz ) click to toggle source
# File lib/dcl/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
Also aliased as: __vrmlt0, __vrmlt0
vrmlt1( rx,ry,n,jx,jy,jz ) click to toggle source
# File lib/dcl/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
Also aliased as: __vrmlt1, __vrmlt1
vrrnm( rx,n,jx,jy,nb ) click to toggle source
# File lib/dcl/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
Also aliased as: __vrrnm, __vrrnm
vrrnm0( rx,n,jx,jy,nb ) click to toggle source
# File lib/dcl/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
Also aliased as: __vrrnm0, __vrrnm0
vrrnm1( rx,n,jx,jy,nb ) click to toggle source
# File lib/dcl/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
Also aliased as: __vrrnm1, __vrrnm1
vrset( rx,n,jx,jy ) click to toggle source
# File lib/dcl/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
Also aliased as: __vrset, __vrset
vrsub( rx,ry,n,jx,jy,jz ) click to toggle source
# File lib/dcl/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
Also aliased as: __vrsub, __vrsub
vrsub0( rx,ry,n,jx,jy,jz ) click to toggle source
# File lib/dcl/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
Also aliased as: __vrsub0, __vrsub0
vrsub1( rx,ry,n,jx,jy,jz ) click to toggle source
# File lib/dcl/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
Also aliased as: __vrsub1, __vrsub1
vs1din( wz,nw,x ) click to toggle source
# File lib/dcl/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
Also aliased as: __vs1din, __vs1din
vs1out( wz,nw ) click to toggle source
# File lib/dcl/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
Also aliased as: __vs1out, __vs1out
vs2din( wz,nw,x,y ) click to toggle source
# File lib/dcl/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
Also aliased as: __vs2din, __vs2din
vs2out( wz,nw ) click to toggle source
# File lib/dcl/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
Also aliased as: __vs2out, __vs2out

Private Class Methods

__cfftb( c,wsave )
Alias for: cfftb
__cfftf( c,wsave )
Alias for: cfftf
__cfsrch( cplist,cflist,nf )
Alias for: cfsrch
__cosqb( x,wsave )
Alias for: cosqb
__cosqf( x,wsave )
Alias for: cosqf
__cost( x,wsave )
Alias for: cost
__dxfloc( ns,np )
Alias for: dxfloc
__dxiloc( ns,ncp )
Alias for: dxiloc
__ezfftb( azero,a,b,wsave )
Alias for: ezfftb
__ezfftf( r,wsave )
Alias for: ezfftf
__gnsblk( xb )
Alias for: gnsblk
__iadd( ix,n,jx,ii )
Alias for: iadd
__iadd0( ix,n,jx,ii )
Alias for: iadd0
__iadd1( ix,n,jx,ii )
Alias for: iadd1
__iblkge( rx,rr )
Alias for: iblkge
__iblkgt( rx,rr )
Alias for: iblkgt
__iblkle( rx,rr )
Alias for: iblkle
__iblklt( rx,rr )
Alias for: iblklt
__imax( ix,n,jx )
Alias for: imax
__imax0( ix,n,jx )
Alias for: imax0
__imax1( ix,n,jx )
Alias for: imax1
__imin( ix,n,jx )
Alias for: imin
__imin0( ix,n,jx )
Alias for: imin0
__imin1( ix,n,jx )
Alias for: imin1
__imlt( ix,n,jx,ii )
Alias for: imlt
__imlt0( ix,n,jx,ii )
Alias for: imlt0
__imlt1( ix,n,jx,ii )
Alias for: imlt1
__indxcf( cx,n,jd,ch )
Alias for: indxcf
__indxcl( cx,n,jd,ch )
Alias for: indxcl
__indxif( ix,n,jd,ii )
Alias for: indxif
__indxil( ix,n,jd,ii )
Alias for: indxil
__indxrf( rx,n,jd,rr )
Alias for: indxrf
__indxrl( rx,n,jd,rr )
Alias for: indxrl
__iset( ix,n,jx,ii )
Alias for: iset
__iset0( ix,n,jx,ii )
Alias for: iset0
__iset1( ix,n,jx,ii )
Alias for: iset1
__isum( ix,n,jx )
Alias for: isum
__isum0( ix,n,jx )
Alias for: isum0
__isum1( ix,n,jx )
Alias for: isum1
__nindxc( cx,n,jd,ch )
Alias for: nindxc
__nindxi( ix,n,jd,ii )
Alias for: nindxi
__nindxr( rx,n,jd,rr )
Alias for: nindxr
__radd( rx,n,jx,rr )
Alias for: radd
__radd0( rx,n,jx,rr )
Alias for: radd0
__radd1( rx,n,jx,rr )
Alias for: radd1
__ramp( rx,n,jx )
Alias for: ramp
__ramp0( rx,n,jx )
Alias for: ramp0
__ramp1( rx,n,jx )
Alias for: ramp1
__rave( rx,n,jx )
Alias for: rave
__rave0( rx,n,jx )
Alias for: rave0
__rave1( rx,n,jx )
Alias for: rave1
__rcor( rx,ry,n,jx,jy )
Alias for: rcor
__rcov( rx,ry,n,jx,jy )
Alias for: rcov
__rfftb( r,wsave )
Alias for: rfftb
__rfftf( r,wsave )
Alias for: rfftf
__rlcget( cpl )
Alias for: rlcget
__rliget( cpl )
Alias for: rliget
__rllget( cpl )
Alias for: rllget
__rlrget( cpl )
Alias for: rlrget
__rmax( rx,n,jx )
Alias for: rmax
__rmax0( rx,n,jx )
Alias for: rmax0
__rmax1( rx,n,jx )
Alias for: rmax1
__rmin( rx,n,jx )
Alias for: rmin
__rmin0( rx,n,jx )
Alias for: rmin0
__rmin1( rx,n,jx )
Alias for: rmin1
__rmlt( rx,n,jx,rr )
Alias for: rmlt
__rmlt0( rx,n,jx,rr )
Alias for: rmlt0
__rmlt1( rx,n,jx,rr )
Alias for: rmlt1
__rprd( rx,ry,n,jx,jy )
Alias for: rprd
__rrms( rx,n,jx )
Alias for: rrms
__rrms0( rx,n,jx )
Alias for: rrms0
__rrms1( rx,n,jx )
Alias for: rrms1
__rset( rx,n,jx,rr )
Alias for: rset
__rset0( rx,n,jx,rr )
Alias for: rset0
__rset1( rx,n,jx,rr )
Alias for: rset1
__rstd( rx,n,jx )
Alias for: rstd
__rstd0( rx,n,jx )
Alias for: rstd0
__rstd1( rx,n,jx )
Alias for: rstd1
__rsum( rx,n,jx )
Alias for: rsum
__rsum0( rx,n,jx )
Alias for: rsum0
__rsum1( rx,n,jx )
Alias for: rsum1
__rtcget( cpfix,cps )
Alias for: rtcget
__rtiget( cpfix,cps )
Alias for: rtiget
__rtlget( cpfix,cps )
Alias for: rtlget
__rtrget( cpfix,cps )
Alias for: rtrget
__rvar( rx,n,jx )
Alias for: rvar
__rvar0( rx,n,jx )
Alias for: rvar0
__rvar1( rx,n,jx )
Alias for: rvar1
__rvmax( rx,ns,np,nq )
Alias for: rvmax
__rvmax0( rx,ns,np,nq )
Alias for: rvmax0
__rvmax1( rx,ns,np,nq )
Alias for: rvmax1
__rvmin( rx,ns,np,nq )
Alias for: rvmin
__rvmin0( rx,ns,np,nq )
Alias for: rvmin0
__rvmin1( rx,ns,np,nq )
Alias for: rvmin1
__scplu( upx,upy,upz )

<<< to eliminate array length arguments >>>

Alias for: scplu
__scplv( vpx,vpy,vpz )
Alias for: scplv
__scplzu( upx,upy,upz,index )
Alias for: scplzu
__scplzv( vpx,vpy,vpz,index )
Alias for: scplzv
__scpmu( upx,upy,upz )
Alias for: scpmu
__scpmv( vpx,vpy,vpz )
Alias for: scpmv
__scpmzu( upx,upy,upz,itype,index,rsize )
Alias for: scpmzu
__scpmzv( vpx,vpy,vpz,itype,index,rsize )
Alias for: scpmzv
__sctnu( upx,upy,upz )
Alias for: sctnu
__sctnv( vpx,vpy,vpz )
Alias for: sctnv
__sctnzu( upx,upy,upz,itpat1,itpat2 )
Alias for: sctnzu
__sctnzv( vpx,vpy,vpz,itpat1,itpat2 )
Alias for: sctnzv
__sgplr( rpx,rpy )
Alias for: sgplr
__sgplu( upx,upy )
Alias for: sgplu
__sgplv( vpx,vpy )
Alias for: sgplv
__sgplzr( rpx,rpy,itype,index )
Alias for: sgplzr
__sgplzu( upx,upy,itype,index )
Alias for: sgplzu
__sgplzv( vpx,vpy,itype,index )
Alias for: sgplzv
__sgpmr( rpx,rpy )
Alias for: sgpmr
__sgpmu( upx,upy )
Alias for: sgpmu
__sgpmv( vpx,vpy )
Alias for: sgpmv
__sgpmzr( rpx,rpy,itype,index,rsize )
Alias for: sgpmzr
__sgpmzu( upx,upy,itype,index,rsize )
Alias for: sgpmzu
__sgpmzv( vpx,vpy,itype,index,rsize )
Alias for: sgpmzv
__sgtnr( rpx,rpy )
Alias for: sgtnr
__sgtnu( upx,upy )
Alias for: sgtnu
__sgtnv( vpx,vpy )
Alias for: sgtnv
__sgtnzr( rpx,rpy,itpat )
Alias for: sgtnzr
__sgtnzu( upx,upy,itpat )
Alias for: sgtnzu
__sgtnzv( vpx,vpy,itpat )
Alias for: sgtnzv
__shtfun( mm,jm,m,work )
Alias for: shtfun
__shtg2s( mm,isw,g,work )
Alias for: shtg2s
__shtg2w( mm,g,work )
Alias for: shtg2w
__shtlap( mm,ind,a )
Alias for: shtlap
__shtlbw( mm,jm,m,isw,sm,work )
Alias for: shtlbw
__shtlfw( mm,m,isw,wm,work )
Alias for: shtlfw
__shts2g( mm,jm,im,isw,s,work )
Alias for: shts2g
__shts2w( mm,jm,isw,s,work )
Alias for: shts2w
__shtsga( mm,jm,im,isw,m1,m2,s,work )
Alias for: shtsga
__shtsgj( mm,jm,im,isw,j,m1,m2,s,work )
Alias for: shtsgj
__shtsgm( mm,jm,im,m,isw,s,work )
Alias for: shtsgm
__shtsgz( mm,jm,im,isw,s,work )
Alias for: shtsgz
__shtswa( mm,jm,isw,m1,m2,s,work )
Alias for: shtswa
__shtswj( mm,jm,isw,j,m1,m2,s,work )
Alias for: shtswj
__shtswm( mm,jm,m,isw,s,work )
Alias for: shtswm
__shtswz( mm,jm,isw,s,work )
Alias for: shtswz
__shtw2g( im,w,work )
Alias for: shtw2g
__shtw2s( mm,jm,isw,s,work )
Alias for: shtw2s
__shtwga( im,m1,m2,w,work )
Alias for: shtwga
__shtwgj( im,m1,m2,wj,work )
Alias for: shtwgj
__shtwgm( mm,im,m,wr,wi,work )
Alias for: shtwgm
__shtwgz( im,wz )
Alias for: shtwgz
__sinqb( x,wsave )
Alias for: sinqb
__sinqf( x,wsave )
Alias for: sinqf
__sint( x,wsave )
Alias for: sint
__swgton( wpx,wpy,itpat )
Alias for: swgton
__swidat( image )
Alias for: swidat
__udcntr( z )
Alias for: udcntr
__udcntz( z )
Alias for: udcntz
__udgclb( z,dx )
Alias for: udgclb
__uegtlb( z,dx )
Alias for: uegtlb
__uemrkz( upx,upy,z,itype,index,rsize )

//// Ruby-DCL original extention methods ////

Alias for: uemrkz
__uestln( tlevn,ipatn )
Alias for: uestln
__uetonc( z )
Alias for: uetonc
__uetone( z )
Alias for: uetone
__uetonf( z )
Alias for: uetonf
__uezchk( z,cname )
Alias for: uezchk
__ugvect( u,v )
Alias for: ugvect
__uhbra( upx1,upx2,upy )
Alias for: uhbra
__uhbraz( upx1,upx2,upy,itpat1,itpat2,rsize )
Alias for: uhbraz
__uhbrf( upx1,upx2,upy )
Alias for: uhbrf
__uhbrfz( upx1,upx2,upy,itype,index,rsize )
Alias for: uhbrfz
__uhbrl( upx,upy )
Alias for: uhbrl
__uhbrlz( upx,upy,itype,index,rsize )
Alias for: uhbrlz
__uhbxa( upx1,upx2,upy )
Alias for: uhbxa
__uhbxaz( upx1,upx2,upy,itpat1,itpat2 )
Alias for: uhbxaz
__uhbxf( upx1,upx2,upy )
Alias for: uhbxf
__uhbxfz( upx1,upx2,upy,itype,index )
Alias for: uhbxfz
__uhbxl( upx,upy )
Alias for: uhbxl
__uhbxlz( upx,upy,itype,index )
Alias for: uhbxlz
__uhdif( upx1,upx2,upy )
Alias for: uhdif
__uhdifz( upx1,upx2,upy,itpat1,itpat2 )
Alias for: uhdifz
__uherb( upx1,upx2,upy )
Alias for: uherb
__uherbz( upx1,upx2,upy,itype,index,rsize )
Alias for: uherbz
__ulsxbl( bl )
Alias for: ulsxbl
__ulsybl( bl )
Alias for: ulsybl
__umspnt( ux,uy )
Alias for: umspnt
__usaxlb( cside,dtick,dlabel,ch,nc )
Alias for: usaxlb
__usaxnm( cside,dtick,dlabel )
Alias for: usaxnm
__usgrph( x,y )
Alias for: usgrph
__usplbl( cside,islct,pos,ch,nc )
Alias for: usplbl
__uspnum( cside,islct,pos )
Alias for: uspnum
__usptmk( cside,islct,pos )
Alias for: usptmk
__usspnt( x,y )
Alias for: usspnt
__uswapz( x1,x2 )
Alias for: uswapz
__uulin( upx,upy )
Alias for: uulin
__uulinz( upx,upy,itype,index )
Alias for: uulinz
__uumrk( upx,upy )
Alias for: uumrk
__uumrkz( upx,upy,itype,index,rsize )
Alias for: uumrkz
__uvbra( upx,upy1,upy2 )
Alias for: uvbra
__uvbraz( upx,upy1,upy2,itpat1,itpat2,rsize )
Alias for: uvbraz
__uvbrf( upx,upy1,upy2 )
Alias for: uvbrf
__uvbrfz( upx,upy1,upy2,itype,index,rsize )
Alias for: uvbrfz
__uvbrl( upx,upy )
Alias for: uvbrl
__uvbrlz( upx,upy,itype,index,rsize )
Alias for: uvbrlz
__uvbxa( upx,upy1,upy2 )
Alias for: uvbxa
__uvbxaz( upx,upy1,upy2,itpat1,itpat2 )
Alias for: uvbxaz
__uvbxf( upx,upy1,upy2 )
Alias for: uvbxf
__uvbxfz( upx,upy1,upy2,itype,index )
Alias for: uvbxfz
__uvbxl( upx,upy )
Alias for: uvbxl
__uvbxlz( upx,upy,itype,index )
Alias for: uvbxlz
__uvdif( upx,upy1,upy2 )
Alias for: uvdif
__uvdifz( upx,upy1,upy2,itpat1,itpat2 )
Alias for: uvdifz
__uverb( upx,upy1,upy2 )
Alias for: uverb
__uverbz( upx,upy1,upy2,itype,index,rsize )
Alias for: uverbz
__uwsgxa( xp )
Alias for: uwsgxa
__uwsgya( yp )
Alias for: uwsgya
__uxaxlb( cside,ux1,ux2,ch,nc )
Alias for: uxaxlb
__uxaxnm( cside,ux1,ux2 )
Alias for: uxaxnm
__uxplbl( cside,islct,ux,ch,nc )
Alias for: uxplbl
__uxpnum( cside,islct,ux )
Alias for: uxpnum
__uxptmk( cside,islct,ux )
Alias for: uxptmk
__uyaxlb( cside,uy1,uy2,ch,nc )
Alias for: uyaxlb
__uyaxnm( cside,uy1,uy2 )
Alias for: uyaxnm
__uyplbl( cside,islct,uy,ch,nc )
Alias for: uyplbl
__uypnum( cside,islct,uy )
Alias for: uypnum
__uyptmk( cside,islct,uy )
Alias for: uyptmk
__vcintr( cx,n,jx )
Alias for: vcintr
__viadd( ix,iy,n,jx,jy,jz )
Alias for: viadd
__viadd0( ix,iy,n,jx,jy,jz )
Alias for: viadd0
__viadd1( ix,iy,n,jx,jy,jz )
Alias for: viadd1
__vicon( ix,n,jx,jy,ii )
Alias for: vicon
__vicon0( ix,n,jx,jy,ii )
Alias for: vicon0
__vicon1( ix,n,jx,jy,ii )
Alias for: vicon1
__vidiv( ix,iy,n,jx,jy,jz )
Alias for: vidiv
__vidiv0( ix,iy,n,jx,jy,jz )
Alias for: vidiv0
__vidiv1( ix,iy,n,jx,jy,jz )
Alias for: vidiv1
__vifct( ix,n,jx,jy,ii )
Alias for: vifct
__vifct0( ix,n,jx,jy,ii )
Alias for: vifct0
__vifct1( ix,n,jx,jy,ii )
Alias for: vifct1
__vifna( ix,n,jx,jy,ifna )
Alias for: vifna
__vifna0( ix,n,jx,jy,ifna )
Alias for: vifna0
__vifna1( ix,n,jx,jy,ifna )
Alias for: vifna1
__vifnb( ix,iy,n,jx,jy,jz,ifnb )
Alias for: vifnb
__vifnb0( ix,iy,n,jx,jy,jz,ifnb )
Alias for: vifnb0
__vifnb1( ix,iy,n,jx,jy,jz,ifnb )
Alias for: vifnb1
__viinc( ix,n,jx,jy,ii )
Alias for: viinc
__viinc0( ix,n,jx,jy,ii )
Alias for: viinc0
__viinc1( ix,n,jx,jy,ii )
Alias for: viinc1
__vimlt( ix,iy,n,jx,jy,jz )
Alias for: vimlt
__vimlt0( ix,iy,n,jx,jy,jz )
Alias for: vimlt0
__vimlt1( ix,iy,n,jx,jy,jz )
Alias for: vimlt1
__viset( ix,n,jx,jy )
Alias for: viset
__visub( ix,iy,n,jx,jy,jz )
Alias for: visub
__visub0( ix,iy,n,jx,jy,jz )
Alias for: visub0
__visub1( ix,iy,n,jx,jy,jz )
Alias for: visub1
__vradd( rx,ry,n,jx,jy,jz )
Alias for: vradd
__vradd0( rx,ry,n,jx,jy,jz )
Alias for: vradd0
__vradd1( rx,ry,n,jx,jy,jz )
Alias for: vradd1
__vrcon( rx,n,jx,jy,rr )
Alias for: vrcon
__vrcon0( rx,n,jx,jy,rr )
Alias for: vrcon0
__vrcon1( rx,n,jx,jy,rr )
Alias for: vrcon1
__vrdiv( rx,ry,n,jx,jy,jz )
Alias for: vrdiv
__vrdiv0( rx,ry,n,jx,jy,jz )
Alias for: vrdiv0
__vrdiv1( rx,ry,n,jx,jy,jz )
Alias for: vrdiv1
__vrfct( rx,n,jx,jy,rr )
Alias for: vrfct
__vrfct0( rx,n,jx,jy,rr )
Alias for: vrfct0
__vrfct1( rx,n,jx,jy,rr )
Alias for: vrfct1
__vrfna( rx,n,jx,jy,rfna )
Alias for: vrfna
__vrfna0( rx,n,jx,jy,rfna )
Alias for: vrfna0
__vrfna1( rx,n,jx,jy,rfna )
Alias for: vrfna1
__vrfnb( rx,ry,n,jx,jy,jz,rfnb )
Alias for: vrfnb
__vrfnb0( rx,ry,n,jx,jy,jz,rfnb )
Alias for: vrfnb0
__vrfnb1( rx,ry,n,jx,jy,jz,rfnb )
Alias for: vrfnb1
__vrinc( rx,n,jx,jy,rr )
Alias for: vrinc
__vrinc0( rx,n,jx,jy,rr )
Alias for: vrinc0
__vrinc1( rx,n,jx,jy,rr )
Alias for: vrinc1
__vrintr( rx,n,jx )
Alias for: vrintr
__vrmlt( rx,ry,n,jx,jy,jz )
Alias for: vrmlt
__vrmlt0( rx,ry,n,jx,jy,jz )
Alias for: vrmlt0
__vrmlt1( rx,ry,n,jx,jy,jz )
Alias for: vrmlt1
__vrrnm( rx,n,jx,jy,nb )
Alias for: vrrnm
__vrrnm0( rx,n,jx,jy,nb )
Alias for: vrrnm0
__vrrnm1( rx,n,jx,jy,nb )
Alias for: vrrnm1
__vrset( rx,n,jx,jy )
Alias for: vrset
__vrsub( rx,ry,n,jx,jy,jz )
Alias for: vrsub
__vrsub0( rx,ry,n,jx,jy,jz )
Alias for: vrsub0
__vrsub1( rx,ry,n,jx,jy,jz )
Alias for: vrsub1
__vs1din( wz,nw,x )
Alias for: vs1din
__vs1out( wz,nw )
Alias for: vs1out
__vs2din( wz,nw,x,y )
Alias for: vs2din
__vs2out( wz,nw )
Alias for: vs2out
not_nary( na ) click to toggle source

<<< private functions >>>

# File lib/dcl/dcl.rb, line 10
def not_nary( na )
  if defined?(NArrayMiss)
    !na.is_a?(NArray) && !na.is_a?(NArrayMiss)
  else
    !na.is_a?(NArray)
  end
end

Public Instance Methods

__clrgsv( r,g,b )
Alias for: clrgsv
__clsvrg( h,s,v )
Alias for: clsvrg
__g2sctr( uxa,uya,cxa,cya )
Alias for: g2sctr
__inorml( v,x,y )
Alias for: inorml
__rnorml( v,x,y )
Alias for: rnorml
__sgplxr( rpx,rpy,itype,index,icolor )
Alias for: sgplxr
__sgplxu( upx,upy,itype,index,icolor )
Alias for: sgplxu
__sgplxv( vpx,vpy,itype,index,icolor )
Alias for: sgplxv
__sgpmxr( rpx,rpy,itype,index,icolor,rsize )
Alias for: sgpmxr
__sgpmxu( upx,upy,itype,index,icolor,rsize )
Alias for: sgpmxu
__sgpmxv( vpx,vpy,itype,index,icolor,rsize )
Alias for: sgpmxv
__sgtnxr( rpx,rpy,itpat,icolor )
Alias for: sgtnxr
__sgtnxu( upx,upy,itpat,icolor )
Alias for: sgtnxu
__sgtnxv( vpx,vpy,itpat,icolor )
Alias for: sgtnxv
__swiclr( image )
Alias for: swiclr
__uetonb( z )
Alias for: uetonb
__uipda2( u,v )
Alias for: uipda2
__uipda3( u,v,w )
Alias for: uipda3
__uipdat( z )
Alias for: uipdat
__uiscsq( clrlvl,icolor )
Alias for: uiscsq
__uismsq( shdlvl,shade )
Alias for: uismsq
clrgsv( r,g,b ) click to toggle source
# File lib/dcl/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
Also aliased as: __clrgsv, __clrgsv
clsvrg( h,s,v ) click to toggle source
# File lib/dcl/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
Also aliased as: __clsvrg, __clsvrg
g2sctr( uxa,uya,cxa,cya ) click to toggle source
# File lib/dcl/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
Also aliased as: __g2sctr, __g2sctr
inorml( v,x,y ) click to toggle source
# File lib/dcl/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
Also aliased as: __inorml, __inorml
rnorml( v,x,y ) click to toggle source
# File lib/dcl/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
Also aliased as: __rnorml, __rnorml
sgplxr( rpx,rpy,itype,index,icolor ) click to toggle source
# File lib/dcl/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
Also aliased as: __sgplxr, __sgplxr
sgplxu( upx,upy,itype,index,icolor ) click to toggle source
# File lib/dcl/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
Also aliased as: __sgplxu, __sgplxu
sgplxv( vpx,vpy,itype,index,icolor ) click to toggle source
# File lib/dcl/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
Also aliased as: __sgplxv, __sgplxv
sgpmxr( rpx,rpy,itype,index,icolor,rsize ) click to toggle source
# File lib/dcl/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
Also aliased as: __sgpmxr, __sgpmxr
sgpmxu( upx,upy,itype,index,icolor,rsize ) click to toggle source
# File lib/dcl/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
Also aliased as: __sgpmxu, __sgpmxu
sgpmxv( vpx,vpy,itype,index,icolor,rsize ) click to toggle source
# File lib/dcl/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
Also aliased as: __sgpmxv, __sgpmxv
sgtnxr( rpx,rpy,itpat,icolor ) click to toggle source
# File lib/dcl/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
Also aliased as: __sgtnxr, __sgtnxr
sgtnxu( upx,upy,itpat,icolor ) click to toggle source
# File lib/dcl/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
Also aliased as: __sgtnxu, __sgtnxu
sgtnxv( vpx,vpy,itpat,icolor ) click to toggle source
# File lib/dcl/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
Also aliased as: __sgtnxv, __sgtnxv
swiclr( image ) click to toggle source
# File lib/dcl/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
Also aliased as: __swiclr, __swiclr
uetonb( z ) click to toggle source
# File lib/dcl/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
Also aliased as: __uetonb, __uetonb
uipda2( u,v ) click to toggle source
# File lib/dcl/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
Also aliased as: __uipda2, __uipda2
uipda3( u,v,w ) click to toggle source
# File lib/dcl/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
Also aliased as: __uipda3, __uipda3
uipdat( z ) click to toggle source
# File lib/dcl/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
Also aliased as: __uipdat, __uipdat
uiscsq( clrlvl,icolor ) click to toggle source
# File lib/dcl/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
Also aliased as: __uiscsq, __uiscsq
uismsq( shdlvl,shade ) click to toggle source
# File lib/dcl/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
Also aliased as: __uismsq, __uismsq

Private Instance Methods

__cfftb( c,wsave )
Alias for: cfftb
__cfftf( c,wsave )
Alias for: cfftf
__cfsrch( cplist,cflist,nf )
Alias for: cfsrch
__cosqb( x,wsave )
Alias for: cosqb
__cosqf( x,wsave )
Alias for: cosqf
__cost( x,wsave )
Alias for: cost
__dxfloc( ns,np )
Alias for: dxfloc
__dxiloc( ns,ncp )
Alias for: dxiloc
__ezfftb( azero,a,b,wsave )
Alias for: ezfftb
__ezfftf( r,wsave )
Alias for: ezfftf
__gnsblk( xb )
Alias for: gnsblk
__iadd( ix,n,jx,ii )
Alias for: iadd
__iadd0( ix,n,jx,ii )
Alias for: iadd0
__iadd1( ix,n,jx,ii )
Alias for: iadd1
__iblkge( rx,rr )
Alias for: iblkge
__iblkgt( rx,rr )
Alias for: iblkgt
__iblkle( rx,rr )
Alias for: iblkle
__iblklt( rx,rr )
Alias for: iblklt
__imax( ix,n,jx )
Alias for: imax
__imax0( ix,n,jx )
Alias for: imax0
__imax1( ix,n,jx )
Alias for: imax1
__imin( ix,n,jx )
Alias for: imin
__imin0( ix,n,jx )
Alias for: imin0
__imin1( ix,n,jx )
Alias for: imin1
__imlt( ix,n,jx,ii )
Alias for: imlt
__imlt0( ix,n,jx,ii )
Alias for: imlt0
__imlt1( ix,n,jx,ii )
Alias for: imlt1
__indxcf( cx,n,jd,ch )
Alias for: indxcf
__indxcl( cx,n,jd,ch )
Alias for: indxcl
__indxif( ix,n,jd,ii )
Alias for: indxif
__indxil( ix,n,jd,ii )
Alias for: indxil
__indxrf( rx,n,jd,rr )
Alias for: indxrf
__indxrl( rx,n,jd,rr )
Alias for: indxrl
__iset( ix,n,jx,ii )
Alias for: iset
__iset0( ix,n,jx,ii )
Alias for: iset0
__iset1( ix,n,jx,ii )
Alias for: iset1
__isum( ix,n,jx )
Alias for: isum
__isum0( ix,n,jx )
Alias for: isum0
__isum1( ix,n,jx )
Alias for: isum1
__nindxc( cx,n,jd,ch )
Alias for: nindxc
__nindxi( ix,n,jd,ii )
Alias for: nindxi
__nindxr( rx,n,jd,rr )
Alias for: nindxr
__radd( rx,n,jx,rr )
Alias for: radd
__radd0( rx,n,jx,rr )
Alias for: radd0
__radd1( rx,n,jx,rr )
Alias for: radd1
__ramp( rx,n,jx )
Alias for: ramp
__ramp0( rx,n,jx )
Alias for: ramp0
__ramp1( rx,n,jx )
Alias for: ramp1
__rave( rx,n,jx )
Alias for: rave
__rave0( rx,n,jx )
Alias for: rave0
__rave1( rx,n,jx )
Alias for: rave1
__rcor( rx,ry,n,jx,jy )
Alias for: rcor
__rcov( rx,ry,n,jx,jy )
Alias for: rcov
__rfftb( r,wsave )
Alias for: rfftb
__rfftf( r,wsave )
Alias for: rfftf
__rlcget( cpl )
Alias for: rlcget
__rliget( cpl )
Alias for: rliget
__rllget( cpl )
Alias for: rllget
__rlrget( cpl )
Alias for: rlrget
__rmax( rx,n,jx )
Alias for: rmax
__rmax0( rx,n,jx )
Alias for: rmax0
__rmax1( rx,n,jx )
Alias for: rmax1
__rmin( rx,n,jx )
Alias for: rmin
__rmin0( rx,n,jx )
Alias for: rmin0
__rmin1( rx,n,jx )
Alias for: rmin1
__rmlt( rx,n,jx,rr )
Alias for: rmlt
__rmlt0( rx,n,jx,rr )
Alias for: rmlt0
__rmlt1( rx,n,jx,rr )
Alias for: rmlt1
__rprd( rx,ry,n,jx,jy )
Alias for: rprd
__rrms( rx,n,jx )
Alias for: rrms
__rrms0( rx,n,jx )
Alias for: rrms0
__rrms1( rx,n,jx )
Alias for: rrms1
__rset( rx,n,jx,rr )
Alias for: rset
__rset0( rx,n,jx,rr )
Alias for: rset0
__rset1( rx,n,jx,rr )
Alias for: rset1
__rstd( rx,n,jx )
Alias for: rstd
__rstd0( rx,n,jx )
Alias for: rstd0
__rstd1( rx,n,jx )
Alias for: rstd1
__rsum( rx,n,jx )
Alias for: rsum
__rsum0( rx,n,jx )
Alias for: rsum0
__rsum1( rx,n,jx )
Alias for: rsum1
__rtcget( cpfix,cps )
Alias for: rtcget
__rtiget( cpfix,cps )
Alias for: rtiget
__rtlget( cpfix,cps )
Alias for: rtlget
__rtrget( cpfix,cps )
Alias for: rtrget
__rvar( rx,n,jx )
Alias for: rvar
__rvar0( rx,n,jx )
Alias for: rvar0
__rvar1( rx,n,jx )
Alias for: rvar1
__rvmax( rx,ns,np,nq )
Alias for: rvmax
__rvmax0( rx,ns,np,nq )
Alias for: rvmax0
__rvmax1( rx,ns,np,nq )
Alias for: rvmax1
__rvmin( rx,ns,np,nq )
Alias for: rvmin
__rvmin0( rx,ns,np,nq )
Alias for: rvmin0
__rvmin1( rx,ns,np,nq )
Alias for: rvmin1
__scplu( upx,upy,upz )

<<< to eliminate array length arguments >>>

Alias for: scplu
__scplv( vpx,vpy,vpz )
Alias for: scplv
__scplzu( upx,upy,upz,index )
Alias for: scplzu
__scplzv( vpx,vpy,vpz,index )
Alias for: scplzv
__scpmu( upx,upy,upz )
Alias for: scpmu
__scpmv( vpx,vpy,vpz )
Alias for: scpmv
__scpmzu( upx,upy,upz,itype,index,rsize )
Alias for: scpmzu
__scpmzv( vpx,vpy,vpz,itype,index,rsize )
Alias for: scpmzv
__sctnu( upx,upy,upz )
Alias for: sctnu
__sctnv( vpx,vpy,vpz )
Alias for: sctnv
__sctnzu( upx,upy,upz,itpat1,itpat2 )
Alias for: sctnzu
__sctnzv( vpx,vpy,vpz,itpat1,itpat2 )
Alias for: sctnzv
__sgplr( rpx,rpy )
Alias for: sgplr
__sgplu( upx,upy )
Alias for: sgplu
__sgplv( vpx,vpy )
Alias for: sgplv
__sgplzr( rpx,rpy,itype,index )
Alias for: sgplzr
__sgplzu( upx,upy,itype,index )
Alias for: sgplzu
__sgplzv( vpx,vpy,itype,index )
Alias for: sgplzv
__sgpmr( rpx,rpy )
Alias for: sgpmr
__sgpmu( upx,upy )
Alias for: sgpmu
__sgpmv( vpx,vpy )
Alias for: sgpmv
__sgpmzr( rpx,rpy,itype,index,rsize )
Alias for: sgpmzr
__sgpmzu( upx,upy,itype,index,rsize )
Alias for: sgpmzu
__sgpmzv( vpx,vpy,itype,index,rsize )
Alias for: sgpmzv
__sgtnr( rpx,rpy )
Alias for: sgtnr
__sgtnu( upx,upy )
Alias for: sgtnu
__sgtnv( vpx,vpy )
Alias for: sgtnv
__sgtnzr( rpx,rpy,itpat )
Alias for: sgtnzr
__sgtnzu( upx,upy,itpat )
Alias for: sgtnzu
__sgtnzv( vpx,vpy,itpat )
Alias for: sgtnzv
__shtfun( mm,jm,m,work )
Alias for: shtfun
__shtg2s( mm,isw,g,work )
Alias for: shtg2s
__shtg2w( mm,g,work )
Alias for: shtg2w
__shtlap( mm,ind,a )
Alias for: shtlap
__shtlbw( mm,jm,m,isw,sm,work )
Alias for: shtlbw
__shtlfw( mm,m,isw,wm,work )
Alias for: shtlfw
__shts2g( mm,jm,im,isw,s,work )
Alias for: shts2g
__shts2w( mm,jm,isw,s,work )
Alias for: shts2w
__shtsga( mm,jm,im,isw,m1,m2,s,work )
Alias for: shtsga
__shtsgj( mm,jm,im,isw,j,m1,m2,s,work )
Alias for: shtsgj
__shtsgm( mm,jm,im,m,isw,s,work )
Alias for: shtsgm
__shtsgz( mm,jm,im,isw,s,work )
Alias for: shtsgz
__shtswa( mm,jm,isw,m1,m2,s,work )
Alias for: shtswa
__shtswj( mm,jm,isw,j,m1,m2,s,work )
Alias for: shtswj
__shtswm( mm,jm,m,isw,s,work )
Alias for: shtswm
__shtswz( mm,jm,isw,s,work )
Alias for: shtswz
__shtw2g( im,w,work )
Alias for: shtw2g
__shtw2s( mm,jm,isw,s,work )
Alias for: shtw2s
__shtwga( im,m1,m2,w,work )
Alias for: shtwga
__shtwgj( im,m1,m2,wj,work )
Alias for: shtwgj
__shtwgm( mm,im,m,wr,wi,work )
Alias for: shtwgm
__shtwgz( im,wz )
Alias for: shtwgz
__sinqb( x,wsave )
Alias for: sinqb
__sinqf( x,wsave )
Alias for: sinqf
__sint( x,wsave )
Alias for: sint
__swgton( wpx,wpy,itpat )
Alias for: swgton
__swidat( image )
Alias for: swidat
__udcntr( z )
Alias for: udcntr
__udcntz( z )
Alias for: udcntz
__udgclb( z,dx )
Alias for: udgclb
__uegtlb( z,dx )
Alias for: uegtlb
__uemrkz( upx,upy,z,itype,index,rsize )

//// Ruby-DCL original extention methods ////

Alias for: uemrkz
__uestln( tlevn,ipatn )
Alias for: uestln
__uetonc( z )
Alias for: uetonc
__uetone( z )
Alias for: uetone
__uetonf( z )
Alias for: uetonf
__uezchk( z,cname )
Alias for: uezchk
__ugvect( u,v )
Alias for: ugvect
__uhbra( upx1,upx2,upy )
Alias for: uhbra
__uhbraz( upx1,upx2,upy,itpat1,itpat2,rsize )
Alias for: uhbraz
__uhbrf( upx1,upx2,upy )
Alias for: uhbrf
__uhbrfz( upx1,upx2,upy,itype,index,rsize )
Alias for: uhbrfz
__uhbrl( upx,upy )
Alias for: uhbrl
__uhbrlz( upx,upy,itype,index,rsize )
Alias for: uhbrlz
__uhbxa( upx1,upx2,upy )
Alias for: uhbxa
__uhbxaz( upx1,upx2,upy,itpat1,itpat2 )
Alias for: uhbxaz
__uhbxf( upx1,upx2,upy )
Alias for: uhbxf
__uhbxfz( upx1,upx2,upy,itype,index )
Alias for: uhbxfz
__uhbxl( upx,upy )
Alias for: uhbxl
__uhbxlz( upx,upy,itype,index )
Alias for: uhbxlz
__uhdif( upx1,upx2,upy )
Alias for: uhdif
__uhdifz( upx1,upx2,upy,itpat1,itpat2 )
Alias for: uhdifz
__uherb( upx1,upx2,upy )
Alias for: uherb
__uherbz( upx1,upx2,upy,itype,index,rsize )
Alias for: uherbz
__ulsxbl( bl )
Alias for: ulsxbl
__ulsybl( bl )
Alias for: ulsybl
__umspnt( ux,uy )
Alias for: umspnt
__usaxlb( cside,dtick,dlabel,ch,nc )
Alias for: usaxlb
__usaxnm( cside,dtick,dlabel )
Alias for: usaxnm
__usgrph( x,y )
Alias for: usgrph
__usplbl( cside,islct,pos,ch,nc )
Alias for: usplbl
__uspnum( cside,islct,pos )
Alias for: uspnum
__usptmk( cside,islct,pos )
Alias for: usptmk
__usspnt( x,y )
Alias for: usspnt
__uswapz( x1,x2 )
Alias for: uswapz
__uulin( upx,upy )
Alias for: uulin
__uulinz( upx,upy,itype,index )
Alias for: uulinz
__uumrk( upx,upy )
Alias for: uumrk
__uumrkz( upx,upy,itype,index,rsize )
Alias for: uumrkz
__uvbra( upx,upy1,upy2 )
Alias for: uvbra
__uvbraz( upx,upy1,upy2,itpat1,itpat2,rsize )
Alias for: uvbraz
__uvbrf( upx,upy1,upy2 )
Alias for: uvbrf
__uvbrfz( upx,upy1,upy2,itype,index,rsize )
Alias for: uvbrfz
__uvbrl( upx,upy )
Alias for: uvbrl
__uvbrlz( upx,upy,itype,index,rsize )
Alias for: uvbrlz
__uvbxa( upx,upy1,upy2 )
Alias for: uvbxa
__uvbxaz( upx,upy1,upy2,itpat1,itpat2 )
Alias for: uvbxaz
__uvbxf( upx,upy1,upy2 )
Alias for: uvbxf
__uvbxfz( upx,upy1,upy2,itype,index )
Alias for: uvbxfz
__uvbxl( upx,upy )
Alias for: uvbxl
__uvbxlz( upx,upy,itype,index )
Alias for: uvbxlz
__uvdif( upx,upy1,upy2 )
Alias for: uvdif
__uvdifz( upx,upy1,upy2,itpat1,itpat2 )
Alias for: uvdifz
__uverb( upx,upy1,upy2 )
Alias for: uverb
__uverbz( upx,upy1,upy2,itype,index,rsize )
Alias for: uverbz
__uwsgxa( xp )
Alias for: uwsgxa
__uwsgya( yp )
Alias for: uwsgya
__uxaxlb( cside,ux1,ux2,ch,nc )
Alias for: uxaxlb
__uxaxnm( cside,ux1,ux2 )
Alias for: uxaxnm
__uxplbl( cside,islct,ux,ch,nc )
Alias for: uxplbl
__uxpnum( cside,islct,ux )
Alias for: uxpnum
__uxptmk( cside,islct,ux )
Alias for: uxptmk
__uyaxlb( cside,uy1,uy2,ch,nc )
Alias for: uyaxlb
__uyaxnm( cside,uy1,uy2 )
Alias for: uyaxnm
__uyplbl( cside,islct,uy,ch,nc )
Alias for: uyplbl
__uypnum( cside,islct,uy )
Alias for: uypnum
__uyptmk( cside,islct,uy )
Alias for: uyptmk
__vcintr( cx,n,jx )
Alias for: vcintr
__viadd( ix,iy,n,jx,jy,jz )
Alias for: viadd
__viadd0( ix,iy,n,jx,jy,jz )
Alias for: viadd0
__viadd1( ix,iy,n,jx,jy,jz )
Alias for: viadd1
__vicon( ix,n,jx,jy,ii )
Alias for: vicon
__vicon0( ix,n,jx,jy,ii )
Alias for: vicon0
__vicon1( ix,n,jx,jy,ii )
Alias for: vicon1
__vidiv( ix,iy,n,jx,jy,jz )
Alias for: vidiv
__vidiv0( ix,iy,n,jx,jy,jz )
Alias for: vidiv0
__vidiv1( ix,iy,n,jx,jy,jz )
Alias for: vidiv1
__vifct( ix,n,jx,jy,ii )
Alias for: vifct
__vifct0( ix,n,jx,jy,ii )
Alias for: vifct0
__vifct1( ix,n,jx,jy,ii )
Alias for: vifct1
__vifna( ix,n,jx,jy,ifna )
Alias for: vifna
__vifna0( ix,n,jx,jy,ifna )
Alias for: vifna0
__vifna1( ix,n,jx,jy,ifna )
Alias for: vifna1
__vifnb( ix,iy,n,jx,jy,jz,ifnb )
Alias for: vifnb
__vifnb0( ix,iy,n,jx,jy,jz,ifnb )
Alias for: vifnb0
__vifnb1( ix,iy,n,jx,jy,jz,ifnb )
Alias for: vifnb1
__viinc( ix,n,jx,jy,ii )
Alias for: viinc
__viinc0( ix,n,jx,jy,ii )
Alias for: viinc0
__viinc1( ix,n,jx,jy,ii )
Alias for: viinc1
__vimlt( ix,iy,n,jx,jy,jz )
Alias for: vimlt
__vimlt0( ix,iy,n,jx,jy,jz )
Alias for: vimlt0
__vimlt1( ix,iy,n,jx,jy,jz )
Alias for: vimlt1
__viset( ix,n,jx,jy )
Alias for: viset
__visub( ix,iy,n,jx,jy,jz )
Alias for: visub
__visub0( ix,iy,n,jx,jy,jz )
Alias for: visub0
__visub1( ix,iy,n,jx,jy,jz )
Alias for: visub1
__vradd( rx,ry,n,jx,jy,jz )
Alias for: vradd
__vradd0( rx,ry,n,jx,jy,jz )
Alias for: vradd0
__vradd1( rx,ry,n,jx,jy,jz )
Alias for: vradd1
__vrcon( rx,n,jx,jy,rr )
Alias for: vrcon
__vrcon0( rx,n,jx,jy,rr )
Alias for: vrcon0
__vrcon1( rx,n,jx,jy,rr )
Alias for: vrcon1
__vrdiv( rx,ry,n,jx,jy,jz )
Alias for: vrdiv
__vrdiv0( rx,ry,n,jx,jy,jz )
Alias for: vrdiv0
__vrdiv1( rx,ry,n,jx,jy,jz )
Alias for: vrdiv1
__vrfct( rx,n,jx,jy,rr )
Alias for: vrfct
__vrfct0( rx,n,jx,jy,rr )
Alias for: vrfct0
__vrfct1( rx,n,jx,jy,rr )
Alias for: vrfct1
__vrfna( rx,n,jx,jy,rfna )
Alias for: vrfna
__vrfna0( rx,n,jx,jy,rfna )
Alias for: vrfna0
__vrfna1( rx,n,jx,jy,rfna )
Alias for: vrfna1
__vrfnb( rx,ry,n,jx,jy,jz,rfnb )
Alias for: vrfnb
__vrfnb0( rx,ry,n,jx,jy,jz,rfnb )
Alias for: vrfnb0
__vrfnb1( rx,ry,n,jx,jy,jz,rfnb )
Alias for: vrfnb1
__vrinc( rx,n,jx,jy,rr )
Alias for: vrinc
__vrinc0( rx,n,jx,jy,rr )
Alias for: vrinc0
__vrinc1( rx,n,jx,jy,rr )
Alias for: vrinc1
__vrintr( rx,n,jx )
Alias for: vrintr
__vrmlt( rx,ry,n,jx,jy,jz )
Alias for: vrmlt
__vrmlt0( rx,ry,n,jx,jy,jz )
Alias for: vrmlt0
__vrmlt1( rx,ry,n,jx,jy,jz )
Alias for: vrmlt1
__vrrnm( rx,n,jx,jy,nb )
Alias for: vrrnm
__vrrnm0( rx,n,jx,jy,nb )
Alias for: vrrnm0
__vrrnm1( rx,n,jx,jy,nb )
Alias for: vrrnm1
__vrset( rx,n,jx,jy )
Alias for: vrset
__vrsub( rx,ry,n,jx,jy,jz )
Alias for: vrsub
__vrsub0( rx,ry,n,jx,jy,jz )
Alias for: vrsub0
__vrsub1( rx,ry,n,jx,jy,jz )
Alias for: vrsub1
__vs1din( wz,nw,x )
Alias for: vs1din
__vs1out( wz,nw )
Alias for: vs1out
__vs2din( wz,nw,x,y )
Alias for: vs2din
__vs2out( wz,nw )
Alias for: vs2out
cfftb( c,wsave ) click to toggle source
# File lib/dcl/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
Also aliased as: __cfftb, __cfftb
cfftf( c,wsave ) click to toggle source
# File lib/dcl/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
Also aliased as: __cfftf, __cfftf
cfsrch( cplist,cflist,nf ) click to toggle source
# File lib/dcl/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
Also aliased as: __cfsrch, __cfsrch
cosqb( x,wsave ) click to toggle source
# File lib/dcl/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
Also aliased as: __cosqb, __cosqb
cosqf( x,wsave ) click to toggle source
# File lib/dcl/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
Also aliased as: __cosqf, __cosqf
cost( x,wsave ) click to toggle source
# File lib/dcl/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
Also aliased as: __cost, __cost
dxfloc( ns,np ) click to toggle source
# File lib/dcl/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
Also aliased as: __dxfloc, __dxfloc
dxiloc( ns,ncp ) click to toggle source
# File lib/dcl/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
Also aliased as: __dxiloc, __dxiloc
ezfftb( azero,a,b,wsave ) click to toggle source
# File lib/dcl/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
Also aliased as: __ezfftb, __ezfftb
ezfftf( r,wsave ) click to toggle source
# File lib/dcl/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
Also aliased as: __ezfftf, __ezfftf
gnsblk( xb ) click to toggle source
# File lib/dcl/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
Also aliased as: __gnsblk, __gnsblk
iadd( ix,n,jx,ii ) click to toggle source
# File lib/dcl/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
Also aliased as: __iadd, __iadd
iadd0( ix,n,jx,ii ) click to toggle source
# File lib/dcl/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
Also aliased as: __iadd0, __iadd0
iadd1( ix,n,jx,ii ) click to toggle source
# File lib/dcl/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
Also aliased as: __iadd1, __iadd1
iblkge( rx,rr ) click to toggle source
# File lib/dcl/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
Also aliased as: __iblkge, __iblkge
iblkgt( rx,rr ) click to toggle source
# File lib/dcl/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
Also aliased as: __iblkgt, __iblkgt
iblkle( rx,rr ) click to toggle source
# File lib/dcl/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
Also aliased as: __iblkle, __iblkle
iblklt( rx,rr ) click to toggle source
# File lib/dcl/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
Also aliased as: __iblklt, __iblklt
imax( ix,n,jx ) click to toggle source
# File lib/dcl/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
Also aliased as: __imax, __imax
imax0( ix,n,jx ) click to toggle source
# File lib/dcl/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
Also aliased as: __imax0, __imax0
imax1( ix,n,jx ) click to toggle source
# File lib/dcl/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
Also aliased as: __imax1, __imax1
imin( ix,n,jx ) click to toggle source
# File lib/dcl/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
Also aliased as: __imin, __imin
imin0( ix,n,jx ) click to toggle source
# File lib/dcl/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
Also aliased as: __imin0, __imin0
imin1( ix,n,jx ) click to toggle source
# File lib/dcl/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
Also aliased as: __imin1, __imin1
imlt( ix,n,jx,ii ) click to toggle source
# File lib/dcl/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
Also aliased as: __imlt, __imlt
imlt0( ix,n,jx,ii ) click to toggle source
# File lib/dcl/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
Also aliased as: __imlt0, __imlt0
imlt1( ix,n,jx,ii ) click to toggle source
# File lib/dcl/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
Also aliased as: __imlt1, __imlt1
indxcf( cx,n,jd,ch ) click to toggle source
# File lib/dcl/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
Also aliased as: __indxcf, __indxcf
indxcl( cx,n,jd,ch ) click to toggle source
# File lib/dcl/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
Also aliased as: __indxcl, __indxcl
indxif( ix,n,jd,ii ) click to toggle source
# File lib/dcl/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
Also aliased as: __indxif, __indxif
indxil( ix,n,jd,ii ) click to toggle source
# File lib/dcl/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
Also aliased as: __indxil, __indxil
indxrf( rx,n,jd,rr ) click to toggle source
# File lib/dcl/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
Also aliased as: __indxrf, __indxrf
indxrl( rx,n,jd,rr ) click to toggle source
# File lib/dcl/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
Also aliased as: __indxrl, __indxrl
iset( ix,n,jx,ii ) click to toggle source
# File lib/dcl/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
Also aliased as: __iset, __iset
iset0( ix,n,jx,ii ) click to toggle source
# File lib/dcl/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
Also aliased as: __iset0, __iset0
iset1( ix,n,jx,ii ) click to toggle source
# File lib/dcl/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
Also aliased as: __iset1, __iset1
isum( ix,n,jx ) click to toggle source
# File lib/dcl/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
Also aliased as: __isum, __isum
isum0( ix,n,jx ) click to toggle source
# File lib/dcl/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
Also aliased as: __isum0, __isum0
isum1( ix,n,jx ) click to toggle source
# File lib/dcl/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
Also aliased as: __isum1, __isum1
nindxc( cx,n,jd,ch ) click to toggle source
# File lib/dcl/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
Also aliased as: __nindxc, __nindxc
nindxi( ix,n,jd,ii ) click to toggle source
# File lib/dcl/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
Also aliased as: __nindxi, __nindxi
nindxr( rx,n,jd,rr ) click to toggle source
# File lib/dcl/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
Also aliased as: __nindxr, __nindxr
not_nary( na ) click to toggle source

<<< private functions >>>

# File lib/dcl/dcl.rb, line 10
def not_nary( na )
  if defined?(NArrayMiss)
    !na.is_a?(NArray) && !na.is_a?(NArrayMiss)
  else
    !na.is_a?(NArray)
  end
end
radd( rx,n,jx,rr ) click to toggle source
# File lib/dcl/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
Also aliased as: __radd, __radd
radd0( rx,n,jx,rr ) click to toggle source
# File lib/dcl/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
Also aliased as: __radd0, __radd0
radd1( rx,n,jx,rr ) click to toggle source
# File lib/dcl/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
Also aliased as: __radd1, __radd1
ramp( rx,n,jx ) click to toggle source
# File lib/dcl/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
Also aliased as: __ramp, __ramp
ramp0( rx,n,jx ) click to toggle source
# File lib/dcl/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
Also aliased as: __ramp0, __ramp0
ramp1( rx,n,jx ) click to toggle source
# File lib/dcl/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
Also aliased as: __ramp1, __ramp1
rave( rx,n,jx ) click to toggle source
# File lib/dcl/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
Also aliased as: __rave, __rave
rave0( rx,n,jx ) click to toggle source
# File lib/dcl/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
Also aliased as: __rave0, __rave0
rave1( rx,n,jx ) click to toggle source
# File lib/dcl/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
Also aliased as: __rave1, __rave1
rcor( rx,ry,n,jx,jy ) click to toggle source
# File lib/dcl/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
Also aliased as: __rcor, __rcor
rcov( rx,ry,n,jx,jy ) click to toggle source
# File lib/dcl/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
Also aliased as: __rcov, __rcov
rfftb( r,wsave ) click to toggle source
# File lib/dcl/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
Also aliased as: __rfftb, __rfftb
rfftf( r,wsave ) click to toggle source
# File lib/dcl/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
Also aliased as: __rfftf, __rfftf
rlcget( cpl ) click to toggle source
# File lib/dcl/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
Also aliased as: __rlcget, __rlcget
rliget( cpl ) click to toggle source
# File lib/dcl/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
Also aliased as: __rliget, __rliget
rllget( cpl ) click to toggle source
# File lib/dcl/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
Also aliased as: __rllget, __rllget
rlrget( cpl ) click to toggle source
# File lib/dcl/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
Also aliased as: __rlrget, __rlrget
rmax( rx,n,jx ) click to toggle source
# File lib/dcl/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
Also aliased as: __rmax, __rmax
rmax0( rx,n,jx ) click to toggle source
# File lib/dcl/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
Also aliased as: __rmax0, __rmax0
rmax1( rx,n,jx ) click to toggle source
# File lib/dcl/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
Also aliased as: __rmax1, __rmax1
rmin( rx,n,jx ) click to toggle source
# File lib/dcl/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
Also aliased as: __rmin, __rmin
rmin0( rx,n,jx ) click to toggle source
# File lib/dcl/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
Also aliased as: __rmin0, __rmin0
rmin1( rx,n,jx ) click to toggle source
# File lib/dcl/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
Also aliased as: __rmin1, __rmin1
rmlt( rx,n,jx,rr ) click to toggle source
# File lib/dcl/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
Also aliased as: __rmlt, __rmlt
rmlt0( rx,n,jx,rr ) click to toggle source
# File lib/dcl/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
Also aliased as: __rmlt0, __rmlt0
rmlt1( rx,n,jx,rr ) click to toggle source
# File lib/dcl/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
Also aliased as: __rmlt1, __rmlt1
rprd( rx,ry,n,jx,jy ) click to toggle source
# File lib/dcl/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
Also aliased as: __rprd, __rprd
rrms( rx,n,jx ) click to toggle source
# File lib/dcl/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
Also aliased as: __rrms, __rrms
rrms0( rx,n,jx ) click to toggle source
# File lib/dcl/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
Also aliased as: __rrms0, __rrms0
rrms1( rx,n,jx ) click to toggle source
# File lib/dcl/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
Also aliased as: __rrms1, __rrms1
rset( rx,n,jx,rr ) click to toggle source
# File lib/dcl/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
Also aliased as: __rset, __rset
rset0( rx,n,jx,rr ) click to toggle source
# File lib/dcl/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
Also aliased as: __rset0, __rset0
rset1( rx,n,jx,rr ) click to toggle source
# File lib/dcl/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
Also aliased as: __rset1, __rset1
rstd( rx,n,jx ) click to toggle source
# File lib/dcl/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
Also aliased as: __rstd, __rstd
rstd0( rx,n,jx ) click to toggle source
# File lib/dcl/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
Also aliased as: __rstd0, __rstd0
rstd1( rx,n,jx ) click to toggle source
# File lib/dcl/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
Also aliased as: __rstd1, __rstd1
rsum( rx,n,jx ) click to toggle source
# File lib/dcl/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
Also aliased as: __rsum, __rsum
rsum0( rx,n,jx ) click to toggle source
# File lib/dcl/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
Also aliased as: __rsum0, __rsum0
rsum1( rx,n,jx ) click to toggle source
# File lib/dcl/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
Also aliased as: __rsum1, __rsum1
rtcget( cpfix,cps ) click to toggle source
# File lib/dcl/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
Also aliased as: __rtcget, __rtcget
rtiget( cpfix,cps ) click to toggle source
# File lib/dcl/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
Also aliased as: __rtiget, __rtiget
rtlget( cpfix,cps ) click to toggle source
# File lib/dcl/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
Also aliased as: __rtlget, __rtlget
rtrget( cpfix,cps ) click to toggle source
# File lib/dcl/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
Also aliased as: __rtrget, __rtrget
rvar( rx,n,jx ) click to toggle source
# File lib/dcl/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
Also aliased as: __rvar, __rvar
rvar0( rx,n,jx ) click to toggle source
# File lib/dcl/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
Also aliased as: __rvar0, __rvar0
rvar1( rx,n,jx ) click to toggle source
# File lib/dcl/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
Also aliased as: __rvar1, __rvar1
rvmax( rx,ns,np,nq ) click to toggle source
# File lib/dcl/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
Also aliased as: __rvmax, __rvmax
rvmax0( rx,ns,np,nq ) click to toggle source
# File lib/dcl/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
Also aliased as: __rvmax0, __rvmax0
rvmax1( rx,ns,np,nq ) click to toggle source
# File lib/dcl/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
Also aliased as: __rvmax1, __rvmax1
rvmin( rx,ns,np,nq ) click to toggle source
# File lib/dcl/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
Also aliased as: __rvmin, __rvmin
rvmin0( rx,ns,np,nq ) click to toggle source
# File lib/dcl/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
Also aliased as: __rvmin0, __rvmin0
rvmin1( rx,ns,np,nq ) click to toggle source
# File lib/dcl/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
Also aliased as: __rvmin1, __rvmin1
scplu( upx,upy,upz ) click to toggle source
# File lib/dcl/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
Also aliased as: __scplu, __scplu
scplv( vpx,vpy,vpz ) click to toggle source
# File lib/dcl/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
Also aliased as: __scplv, __scplv
scplzu( upx,upy,upz,index ) click to toggle source
# File lib/dcl/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
Also aliased as: __scplzu, __scplzu
scplzv( vpx,vpy,vpz,index ) click to toggle source
# File lib/dcl/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
Also aliased as: __scplzv, __scplzv
scpmu( upx,upy,upz ) click to toggle source
# File lib/dcl/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
Also aliased as: __scpmu, __scpmu
scpmv( vpx,vpy,vpz ) click to toggle source
# File lib/dcl/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
Also aliased as: __scpmv, __scpmv
scpmzu( upx,upy,upz,itype,index,rsize ) click to toggle source
# File lib/dcl/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
Also aliased as: __scpmzu, __scpmzu
scpmzv( vpx,vpy,vpz,itype,index,rsize ) click to toggle source
# File lib/dcl/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
Also aliased as: __scpmzv, __scpmzv
sctnu( upx,upy,upz ) click to toggle source
# File lib/dcl/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
Also aliased as: __sctnu, __sctnu
sctnv( vpx,vpy,vpz ) click to toggle source
# File lib/dcl/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
Also aliased as: __sctnv, __sctnv
sctnzu( upx,upy,upz,itpat1,itpat2 ) click to toggle source
# File lib/dcl/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
Also aliased as: __sctnzu, __sctnzu
sctnzv( vpx,vpy,vpz,itpat1,itpat2 ) click to toggle source
# File lib/dcl/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
Also aliased as: __sctnzv, __sctnzv
sgplr( rpx,rpy ) click to toggle source
# File lib/dcl/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
Also aliased as: __sgplr, __sgplr
sgplu( upx,upy ) click to toggle source
# File lib/dcl/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
Also aliased as: __sgplu, __sgplu
sgplv( vpx,vpy ) click to toggle source
# File lib/dcl/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
Also aliased as: __sgplv, __sgplv
sgplzr( rpx,rpy,itype,index ) click to toggle source
# File lib/dcl/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
Also aliased as: __sgplzr, __sgplzr
sgplzu( upx,upy,itype,index ) click to toggle source
# File lib/dcl/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
Also aliased as: __sgplzu, __sgplzu
sgplzv( vpx,vpy,itype,index ) click to toggle source
# File lib/dcl/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
Also aliased as: __sgplzv, __sgplzv
sgpmr( rpx,rpy ) click to toggle source
# File lib/dcl/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
Also aliased as: __sgpmr, __sgpmr
sgpmu( upx,upy ) click to toggle source
# File lib/dcl/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
Also aliased as: __sgpmu, __sgpmu
sgpmv( vpx,vpy ) click to toggle source
# File lib/dcl/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
Also aliased as: __sgpmv, __sgpmv
sgpmzr( rpx,rpy,itype,index,rsize ) click to toggle source
# File lib/dcl/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
Also aliased as: __sgpmzr, __sgpmzr
sgpmzu( upx,upy,itype,index,rsize ) click to toggle source
# File lib/dcl/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
Also aliased as: __sgpmzu, __sgpmzu
sgpmzv( vpx,vpy,itype,index,rsize ) click to toggle source
# File lib/dcl/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
Also aliased as: __sgpmzv, __sgpmzv
sgtnr( rpx,rpy ) click to toggle source
# File lib/dcl/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
Also aliased as: __sgtnr, __sgtnr
sgtnu( upx,upy ) click to toggle source
# File lib/dcl/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
Also aliased as: __sgtnu, __sgtnu
sgtnv( vpx,vpy ) click to toggle source
# File lib/dcl/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
Also aliased as: __sgtnv, __sgtnv
sgtnzr( rpx,rpy,itpat ) click to toggle source
# File lib/dcl/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
Also aliased as: __sgtnzr, __sgtnzr
sgtnzu( upx,upy,itpat ) click to toggle source
# File lib/dcl/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
Also aliased as: __sgtnzu, __sgtnzu
sgtnzv( vpx,vpy,itpat ) click to toggle source
# File lib/dcl/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
Also aliased as: __sgtnzv, __sgtnzv
shtfun( mm,jm,m,work ) click to toggle source
# File lib/dcl/dcl.rb, line 5112
def shtfun( mm,jm,m,work )

  #< check array size(s) >

  #< call the original method >
  __shtfun( mm,jm,m,work )
end
Also aliased as: __shtfun, __shtfun
shtg2s( mm,isw,g,work ) click to toggle source
# File lib/dcl/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
Also aliased as: __shtg2s, __shtg2s
shtg2w( mm,g,work ) click to toggle source
# File lib/dcl/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
Also aliased as: __shtg2w, __shtg2w
shtlap( mm,ind,a ) click to toggle source
# File lib/dcl/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
Also aliased as: __shtlap, __shtlap
shtlbw( mm,jm,m,isw,sm,work ) click to toggle source
# File lib/dcl/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
Also aliased as: __shtlbw, __shtlbw
shtlfw( mm,m,isw,wm,work ) click to toggle source
# File lib/dcl/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
Also aliased as: __shtlfw, __shtlfw
shts2g( mm,jm,im,isw,s,work ) click to toggle source
# File lib/dcl/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
Also aliased as: __shts2g, __shts2g
shts2w( mm,jm,isw,s,work ) click to toggle source
# File lib/dcl/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
Also aliased as: __shts2w, __shts2w
shtsga( mm,jm,im,isw,m1,m2,s,work ) click to toggle source
# File lib/dcl/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
Also aliased as: __shtsga, __shtsga
shtsgj( mm,jm,im,isw,j,m1,m2,s,work ) click to toggle source
# File lib/dcl/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
Also aliased as: __shtsgj, __shtsgj
shtsgm( mm,jm,im,m,isw,s,work ) click to toggle source
# File lib/dcl/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
Also aliased as: __shtsgm, __shtsgm
shtsgz( mm,jm,im,isw,s,work ) click to toggle source
# File lib/dcl/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
Also aliased as: __shtsgz, __shtsgz
shtswa( mm,jm,isw,m1,m2,s,work ) click to toggle source
# File lib/dcl/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
Also aliased as: __shtswa, __shtswa
shtswj( mm,jm,isw,j,m1,m2,s,work ) click to toggle source
# File lib/dcl/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
Also aliased as: __shtswj, __shtswj
shtswm( mm,jm,m,isw,s,work ) click to toggle source
# File lib/dcl/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
Also aliased as: __shtswm, __shtswm
shtswz( mm,jm,isw,s,work ) click to toggle source
# File lib/dcl/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
Also aliased as: __shtswz, __shtswz
shtw2g( im,w,work ) click to toggle source
# File lib/dcl/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
Also aliased as: __shtw2g, __shtw2g
shtw2s( mm,jm,isw,s,work ) click to toggle source
# File lib/dcl/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
Also aliased as: __shtw2s, __shtw2s
shtwga( im,m1,m2,w,work ) click to toggle source
# File lib/dcl/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
Also aliased as: __shtwga, __shtwga
shtwgj( im,m1,m2,wj,work ) click to toggle source
# File lib/dcl/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
Also aliased as: __shtwgj, __shtwgj
shtwgm( mm,im,m,wr,wi,work ) click to toggle source
# File lib/dcl/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
Also aliased as: __shtwgm, __shtwgm
shtwgz( im,wz ) click to toggle source
# File lib/dcl/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
Also aliased as: __shtwgz, __shtwgz
sinqb( x,wsave ) click to toggle source
# File lib/dcl/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
Also aliased as: __sinqb, __sinqb
sinqf( x,wsave ) click to toggle source
# File lib/dcl/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
Also aliased as: __sinqf, __sinqf
sint( x,wsave ) click to toggle source
# File lib/dcl/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
Also aliased as: __sint, __sint
swgton( wpx,wpy,itpat ) click to toggle source
# File lib/dcl/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
Also aliased as: __swgton, __swgton
swidat( image ) click to toggle source
# File lib/dcl/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
Also aliased as: __swidat, __swidat
swpget( name ) click to toggle source
# File lib/dcl/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 ) click to toggle source
# File lib/dcl/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
Also aliased as: __udcntr, __udcntr
udcntz( z ) click to toggle source
# File lib/dcl/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
Also aliased as: __udcntz, __udcntz
udgclb( z,dx ) click to toggle source
# File lib/dcl/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
Also aliased as: __udgclb, __udgclb
uegtlb( z,dx ) click to toggle source
# File lib/dcl/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
Also aliased as: __uegtlb, __uegtlb
uemrkz( upx,upy,z,itype,index,rsize ) click to toggle source
# File lib/dcl/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
Also aliased as: __uemrkz, __uemrkz
uestln( tlevn,ipatn ) click to toggle source
# File lib/dcl/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
Also aliased as: __uestln, __uestln
uetonc( z ) click to toggle source
# File lib/dcl/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
Also aliased as: __uetonc, __uetonc
uetone( z ) click to toggle source
# File lib/dcl/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
Also aliased as: __uetone, __uetone
uetonf( z ) click to toggle source
# File lib/dcl/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
Also aliased as: __uetonf, __uetonf
uezchk( z,cname ) click to toggle source
# File lib/dcl/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
Also aliased as: __uezchk, __uezchk
ugvect( u,v ) click to toggle source
# File lib/dcl/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
Also aliased as: __ugvect, __ugvect
uhbra( upx1,upx2,upy ) click to toggle source
# File lib/dcl/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
Also aliased as: __uhbra, __uhbra
uhbraz( upx1,upx2,upy,itpat1,itpat2,rsize ) click to toggle source
# File lib/dcl/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
Also aliased as: __uhbraz, __uhbraz
uhbrf( upx1,upx2,upy ) click to toggle source
# File lib/dcl/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
Also aliased as: __uhbrf, __uhbrf
uhbrfz( upx1,upx2,upy,itype,index,rsize ) click to toggle source
# File lib/dcl/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
Also aliased as: __uhbrfz, __uhbrfz
uhbrl( upx,upy ) click to toggle source
# File lib/dcl/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
Also aliased as: __uhbrl, __uhbrl
uhbrlz( upx,upy,itype,index,rsize ) click to toggle source
# File lib/dcl/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
Also aliased as: __uhbrlz, __uhbrlz
uhbxa( upx1,upx2,upy ) click to toggle source
# File lib/dcl/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
Also aliased as: __uhbxa, __uhbxa
uhbxaz( upx1,upx2,upy,itpat1,itpat2 ) click to toggle source
# File lib/dcl/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
Also aliased as: __uhbxaz, __uhbxaz
uhbxf( upx1,upx2,upy ) click to toggle source
# File lib/dcl/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
Also aliased as: __uhbxf, __uhbxf
uhbxfz( upx1,upx2,upy,itype,index ) click to toggle source
# File lib/dcl/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
Also aliased as: __uhbxfz, __uhbxfz
uhbxl( upx,upy ) click to toggle source
# File lib/dcl/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
Also aliased as: __uhbxl, __uhbxl
uhbxlz( upx,upy,itype,index ) click to toggle source
# File lib/dcl/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
Also aliased as: __uhbxlz, __uhbxlz
uhdif( upx1,upx2,upy ) click to toggle source
# File lib/dcl/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
Also aliased as: __uhdif, __uhdif
uhdifz( upx1,upx2,upy,itpat1,itpat2 ) click to toggle source
# File lib/dcl/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
Also aliased as: __uhdifz, __uhdifz
uherb( upx1,upx2,upy ) click to toggle source
# File lib/dcl/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
Also aliased as: __uherb, __uherb
uherbz( upx1,upx2,upy,itype,index,rsize ) click to toggle source
# File lib/dcl/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
Also aliased as: __uherbz, __uherbz
ulsxbl( bl ) click to toggle source
# File lib/dcl/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
Also aliased as: __ulsxbl, __ulsxbl
ulsybl( bl ) click to toggle source
# File lib/dcl/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
Also aliased as: __ulsybl, __ulsybl
umspnt( ux,uy ) click to toggle source
# File lib/dcl/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
Also aliased as: __umspnt, __umspnt
usaxlb( cside,dtick,dlabel,ch,nc ) click to toggle source
# File lib/dcl/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
Also aliased as: __usaxlb, __usaxlb
usaxnm( cside,dtick,dlabel ) click to toggle source
# File lib/dcl/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
Also aliased as: __usaxnm, __usaxnm
usgrph( x,y ) click to toggle source
# File lib/dcl/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
Also aliased as: __usgrph, __usgrph
usplbl( cside,islct,pos,ch,nc ) click to toggle source
# File lib/dcl/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
Also aliased as: __usplbl, __usplbl
uspnum( cside,islct,pos ) click to toggle source
# File lib/dcl/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
Also aliased as: __uspnum, __uspnum
usptmk( cside,islct,pos ) click to toggle source
# File lib/dcl/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
Also aliased as: __usptmk, __usptmk
usspnt( x,y ) click to toggle source
# File lib/dcl/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
Also aliased as: __usspnt, __usspnt
uswapz( x1,x2 ) click to toggle source
# File lib/dcl/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
Also aliased as: __uswapz, __uswapz
uulin( upx,upy ) click to toggle source
# File lib/dcl/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
Also aliased as: __uulin, __uulin
uulinz( upx,upy,itype,index ) click to toggle source
# File lib/dcl/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
Also aliased as: __uulinz, __uulinz
uumrk( upx,upy ) click to toggle source
# File lib/dcl/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
Also aliased as: __uumrk, __uumrk
uumrkz( upx,upy,itype,index,rsize ) click to toggle source
# File lib/dcl/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
Also aliased as: __uumrkz, __uumrkz
uvbra( upx,upy1,upy2 ) click to toggle source
# File lib/dcl/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
Also aliased as: __uvbra, __uvbra
uvbraz( upx,upy1,upy2,itpat1,itpat2,rsize ) click to toggle source
# File lib/dcl/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
Also aliased as: __uvbraz, __uvbraz
uvbrf( upx,upy1,upy2 ) click to toggle source
# File lib/dcl/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
Also aliased as: __uvbrf, __uvbrf
uvbrfz( upx,upy1,upy2,itype,index,rsize ) click to toggle source
# File lib/dcl/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
Also aliased as: __uvbrfz, __uvbrfz
uvbrl( upx,upy ) click to toggle source
# File lib/dcl/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
Also aliased as: __uvbrl, __uvbrl
uvbrlz( upx,upy,itype,index,rsize ) click to toggle source
# File lib/dcl/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
Also aliased as: __uvbrlz, __uvbrlz
uvbxa( upx,upy1,upy2 ) click to toggle source
# File lib/dcl/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
Also aliased as: __uvbxa, __uvbxa
uvbxaz( upx,upy1,upy2,itpat1,itpat2 ) click to toggle source
# File lib/dcl/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
Also aliased as: __uvbxaz, __uvbxaz
uvbxf( upx,upy1,upy2 ) click to toggle source
# File lib/dcl/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
Also aliased as: __uvbxf, __uvbxf
uvbxfz( upx,upy1,upy2,itype,index ) click to toggle source
# File lib/dcl/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
Also aliased as: __uvbxfz, __uvbxfz
uvbxl( upx,upy ) click to toggle source
# File lib/dcl/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
Also aliased as: __uvbxl, __uvbxl
uvbxlz( upx,upy,itype,index ) click to toggle source
# File lib/dcl/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
Also aliased as: __uvbxlz, __uvbxlz
uvdif( upx,upy1,upy2 ) click to toggle source
# File lib/dcl/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
Also aliased as: __uvdif, __uvdif
uvdifz( upx,upy1,upy2,itpat1,itpat2 ) click to toggle source
# File lib/dcl/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
Also aliased as: __uvdifz, __uvdifz
uverb( upx,upy1,upy2 ) click to toggle source
# File lib/dcl/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
Also aliased as: __uverb, __uverb
uverbz( upx,upy1,upy2,itype,index,rsize ) click to toggle source
# File lib/dcl/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
Also aliased as: __uverbz, __uverbz
uwsgxa( xp ) click to toggle source
# File lib/dcl/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
Also aliased as: __uwsgxa, __uwsgxa
uwsgya( yp ) click to toggle source
# File lib/dcl/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
Also aliased as: __uwsgya, __uwsgya
uxaxlb( cside,ux1,ux2,ch,nc ) click to toggle source
# File lib/dcl/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
Also aliased as: __uxaxlb, __uxaxlb
uxaxnm( cside,ux1,ux2 ) click to toggle source
# File lib/dcl/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
Also aliased as: __uxaxnm, __uxaxnm
uxplbl( cside,islct,ux,ch,nc ) click to toggle source
# File lib/dcl/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
Also aliased as: __uxplbl, __uxplbl
uxpnum( cside,islct,ux ) click to toggle source
# File lib/dcl/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
Also aliased as: __uxpnum, __uxpnum
uxptmk( cside,islct,ux ) click to toggle source
# File lib/dcl/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
Also aliased as: __uxptmk, __uxptmk
uyaxlb( cside,uy1,uy2,ch,nc ) click to toggle source
# File lib/dcl/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
Also aliased as: __uyaxlb, __uyaxlb
uyaxnm( cside,uy1,uy2 ) click to toggle source
# File lib/dcl/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
Also aliased as: __uyaxnm, __uyaxnm
uyplbl( cside,islct,uy,ch,nc ) click to toggle source
# File lib/dcl/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
Also aliased as: __uyplbl, __uyplbl
uypnum( cside,islct,uy ) click to toggle source
# File lib/dcl/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
Also aliased as: __uypnum, __uypnum
uyptmk( cside,islct,uy ) click to toggle source
# File lib/dcl/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
Also aliased as: __uyptmk, __uyptmk
vcintr( cx,n,jx ) click to toggle source
# File lib/dcl/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
Also aliased as: __vcintr, __vcintr
viadd( ix,iy,n,jx,jy,jz ) click to toggle source
# File lib/dcl/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
Also aliased as: __viadd, __viadd
viadd0( ix,iy,n,jx,jy,jz ) click to toggle source
# File lib/dcl/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
Also aliased as: __viadd0, __viadd0
viadd1( ix,iy,n,jx,jy,jz ) click to toggle source
# File lib/dcl/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
Also aliased as: __viadd1, __viadd1
vicon( ix,n,jx,jy,ii ) click to toggle source
# File lib/dcl/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
Also aliased as: __vicon, __vicon
vicon0( ix,n,jx,jy,ii ) click to toggle source
# File lib/dcl/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
Also aliased as: __vicon0, __vicon0
vicon1( ix,n,jx,jy,ii ) click to toggle source
# File lib/dcl/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
Also aliased as: __vicon1, __vicon1
vidiv( ix,iy,n,jx,jy,jz ) click to toggle source
# File lib/dcl/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
Also aliased as: __vidiv, __vidiv
vidiv0( ix,iy,n,jx,jy,jz ) click to toggle source
# File lib/dcl/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
Also aliased as: __vidiv0, __vidiv0
vidiv1( ix,iy,n,jx,jy,jz ) click to toggle source
# File lib/dcl/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
Also aliased as: __vidiv1, __vidiv1
vifct( ix,n,jx,jy,ii ) click to toggle source
# File lib/dcl/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
Also aliased as: __vifct, __vifct
vifct0( ix,n,jx,jy,ii ) click to toggle source
# File lib/dcl/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
Also aliased as: __vifct0, __vifct0
vifct1( ix,n,jx,jy,ii ) click to toggle source
# File lib/dcl/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
Also aliased as: __vifct1, __vifct1
vifna( ix,n,jx,jy,ifna ) click to toggle source
# File lib/dcl/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
Also aliased as: __vifna, __vifna
vifna0( ix,n,jx,jy,ifna ) click to toggle source
# File lib/dcl/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
Also aliased as: __vifna0, __vifna0
vifna1( ix,n,jx,jy,ifna ) click to toggle source
# File lib/dcl/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
Also aliased as: __vifna1, __vifna1
vifnb( ix,iy,n,jx,jy,jz,ifnb ) click to toggle source
# File lib/dcl/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
Also aliased as: __vifnb, __vifnb
vifnb0( ix,iy,n,jx,jy,jz,ifnb ) click to toggle source
# File lib/dcl/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
Also aliased as: __vifnb0, __vifnb0
vifnb1( ix,iy,n,jx,jy,jz,ifnb ) click to toggle source
# File lib/dcl/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
Also aliased as: __vifnb1, __vifnb1
viinc( ix,n,jx,jy,ii ) click to toggle source
# File lib/dcl/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
Also aliased as: __viinc, __viinc
viinc0( ix,n,jx,jy,ii ) click to toggle source
# File lib/dcl/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
Also aliased as: __viinc0, __viinc0
viinc1( ix,n,jx,jy,ii ) click to toggle source
# File lib/dcl/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
Also aliased as: __viinc1, __viinc1
vimlt( ix,iy,n,jx,jy,jz ) click to toggle source
# File lib/dcl/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
Also aliased as: __vimlt, __vimlt
vimlt0( ix,iy,n,jx,jy,jz ) click to toggle source
# File lib/dcl/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
Also aliased as: __vimlt0, __vimlt0
vimlt1( ix,iy,n,jx,jy,jz ) click to toggle source
# File lib/dcl/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
Also aliased as: __vimlt1, __vimlt1
viset( ix,n,jx,jy ) click to toggle source
# File lib/dcl/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
Also aliased as: __viset, __viset
visub( ix,iy,n,jx,jy,jz ) click to toggle source
# File lib/dcl/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
Also aliased as: __visub, __visub
visub0( ix,iy,n,jx,jy,jz ) click to toggle source
# File lib/dcl/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
Also aliased as: __visub0, __visub0
visub1( ix,iy,n,jx,jy,jz ) click to toggle source
# File lib/dcl/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
Also aliased as: __visub1, __visub1
vradd( rx,ry,n,jx,jy,jz ) click to toggle source
# File lib/dcl/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
Also aliased as: __vradd, __vradd
vradd0( rx,ry,n,jx,jy,jz ) click to toggle source
# File lib/dcl/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
Also aliased as: __vradd0, __vradd0
vradd1( rx,ry,n,jx,jy,jz ) click to toggle source
# File lib/dcl/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
Also aliased as: __vradd1, __vradd1
vrcon( rx,n,jx,jy,rr ) click to toggle source
# File lib/dcl/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
Also aliased as: __vrcon, __vrcon
vrcon0( rx,n,jx,jy,rr ) click to toggle source
# File lib/dcl/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
Also aliased as: __vrcon0, __vrcon0
vrcon1( rx,n,jx,jy,rr ) click to toggle source
# File lib/dcl/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
Also aliased as: __vrcon1, __vrcon1
vrdiv( rx,ry,n,jx,jy,jz ) click to toggle source
# File lib/dcl/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
Also aliased as: __vrdiv, __vrdiv
vrdiv0( rx,ry,n,jx,jy,jz ) click to toggle source
# File lib/dcl/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
Also aliased as: __vrdiv0, __vrdiv0
vrdiv1( rx,ry,n,jx,jy,jz ) click to toggle source
# File lib/dcl/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
Also aliased as: __vrdiv1, __vrdiv1
vrfct( rx,n,jx,jy,rr ) click to toggle source
# File lib/dcl/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
Also aliased as: __vrfct, __vrfct
vrfct0( rx,n,jx,jy,rr ) click to toggle source
# File lib/dcl/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
Also aliased as: __vrfct0, __vrfct0
vrfct1( rx,n,jx,jy,rr ) click to toggle source
# File lib/dcl/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
Also aliased as: __vrfct1, __vrfct1
vrfna( rx,n,jx,jy,rfna ) click to toggle source
# File lib/dcl/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
Also aliased as: __vrfna, __vrfna
vrfna0( rx,n,jx,jy,rfna ) click to toggle source
# File lib/dcl/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
Also aliased as: __vrfna0, __vrfna0
vrfna1( rx,n,jx,jy,rfna ) click to toggle source
# File lib/dcl/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
Also aliased as: __vrfna1, __vrfna1
vrfnb( rx,ry,n,jx,jy,jz,rfnb ) click to toggle source
# File lib/dcl/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
Also aliased as: __vrfnb, __vrfnb
vrfnb0( rx,ry,n,jx,jy,jz,rfnb ) click to toggle source
# File lib/dcl/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
Also aliased as: __vrfnb0, __vrfnb0
vrfnb1( rx,ry,n,jx,jy,jz,rfnb ) click to toggle source
# File lib/dcl/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
Also aliased as: __vrfnb1, __vrfnb1
vrinc( rx,n,jx,jy,rr ) click to toggle source
# File lib/dcl/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
Also aliased as: __vrinc, __vrinc
vrinc0( rx,n,jx,jy,rr ) click to toggle source
# File lib/dcl/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
Also aliased as: __vrinc0, __vrinc0
vrinc1( rx,n,jx,jy,rr ) click to toggle source
# File lib/dcl/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
Also aliased as: __vrinc1, __vrinc1
vrintr( rx,n,jx ) click to toggle source
# File lib/dcl/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
Also aliased as: __vrintr, __vrintr
vrmlt( rx,ry,n,jx,jy,jz ) click to toggle source
# File lib/dcl/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
Also aliased as: __vrmlt, __vrmlt
vrmlt0( rx,ry,n,jx,jy,jz ) click to toggle source
# File lib/dcl/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
Also aliased as: __vrmlt0, __vrmlt0
vrmlt1( rx,ry,n,jx,jy,jz ) click to toggle source
# File lib/dcl/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
Also aliased as: __vrmlt1, __vrmlt1
vrrnm( rx,n,jx,jy,nb ) click to toggle source
# File lib/dcl/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
Also aliased as: __vrrnm, __vrrnm
vrrnm0( rx,n,jx,jy,nb ) click to toggle source
# File lib/dcl/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
Also aliased as: __vrrnm0, __vrrnm0
vrrnm1( rx,n,jx,jy,nb ) click to toggle source
# File lib/dcl/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
Also aliased as: __vrrnm1, __vrrnm1
vrset( rx,n,jx,jy ) click to toggle source
# File lib/dcl/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
Also aliased as: __vrset, __vrset
vrsub( rx,ry,n,jx,jy,jz ) click to toggle source
# File lib/dcl/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
Also aliased as: __vrsub, __vrsub
vrsub0( rx,ry,n,jx,jy,jz ) click to toggle source
# File lib/dcl/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
Also aliased as: __vrsub0, __vrsub0
vrsub1( rx,ry,n,jx,jy,jz ) click to toggle source
# File lib/dcl/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
Also aliased as: __vrsub1, __vrsub1
vs1din( wz,nw,x ) click to toggle source
# File lib/dcl/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
Also aliased as: __vs1din, __vs1din
vs1out( wz,nw ) click to toggle source
# File lib/dcl/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
Also aliased as: __vs1out, __vs1out
vs2din( wz,nw,x,y ) click to toggle source
# File lib/dcl/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
Also aliased as: __vs2din, __vs2din
vs2out( wz,nw ) click to toggle source
# File lib/dcl/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
Also aliased as: __vs2out, __vs2out