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
__uemrkz( upx,upy,z,itype,index,rsize )
//// Ruby-DCL original extention methods ////
Alias for: uemrkz
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 )
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
__uemrkz( upx,upy,z,itype,index,rsize )
//// Ruby-DCL original extention methods ////
Alias for: uemrkz
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