Module: NumRu::DCL
- Defined in:
- lib/numru/dcl/dcl.rb,
lib/numru/dcl/version.rb
Constant Summary collapse
- VERSION =
"1.8.1"
- @@sw_char_params =
[/^WSNAME/i,/^FONT/i,/^CL2TN$/i,/^FNAME$/i,/^TITLE$/i, /^CLRMAP$/i,/^LPR$/i]
Class Method Summary collapse
- .cfftb(c, wsave) ⇒ Object
- .cfftf(c, wsave) ⇒ Object
- .cfsrch(cplist, cflist, nf) ⇒ Object
- .clrgsv(r, g, b) ⇒ Object
- .clsvrg(h, s, v) ⇒ Object
- .cosqb(x, wsave) ⇒ Object
- .cosqf(x, wsave) ⇒ Object
- .cost(x, wsave) ⇒ Object
- .dxfloc(ns, np) ⇒ Object
- .dxiloc(ns, ncp) ⇒ Object
- .ezfftb(azero, a, b, wsave) ⇒ Object
- .ezfftf(r, wsave) ⇒ Object
- .g2sctr(uxa, uya, cxa, cya) ⇒ Object
- .gnsblk(xb) ⇒ Object
- .iadd(ix, n, jx, ii) ⇒ Object
- .iadd0(ix, n, jx, ii) ⇒ Object
- .iadd1(ix, n, jx, ii) ⇒ Object
- .iblkge(rx, rr) ⇒ Object
- .iblkgt(rx, rr) ⇒ Object
- .iblkle(rx, rr) ⇒ Object
- .iblklt(rx, rr) ⇒ Object
- .imax(ix, n, jx) ⇒ Object
- .imax0(ix, n, jx) ⇒ Object
- .imax1(ix, n, jx) ⇒ Object
- .imin(ix, n, jx) ⇒ Object
- .imin0(ix, n, jx) ⇒ Object
- .imin1(ix, n, jx) ⇒ Object
- .imlt(ix, n, jx, ii) ⇒ Object
- .imlt0(ix, n, jx, ii) ⇒ Object
- .imlt1(ix, n, jx, ii) ⇒ Object
- .indxcf(cx, n, jd, ch) ⇒ Object
- .indxcl(cx, n, jd, ch) ⇒ Object
- .indxif(ix, n, jd, ii) ⇒ Object
- .indxil(ix, n, jd, ii) ⇒ Object
- .indxrf(rx, n, jd, rr) ⇒ Object
- .indxrl(rx, n, jd, rr) ⇒ Object
- .inorml(v, x, y) ⇒ Object
- .iset(ix, n, jx, ii) ⇒ Object
- .iset0(ix, n, jx, ii) ⇒ Object
- .iset1(ix, n, jx, ii) ⇒ Object
- .isum(ix, n, jx) ⇒ Object
- .isum0(ix, n, jx) ⇒ Object
- .isum1(ix, n, jx) ⇒ Object
- .nindxc(cx, n, jd, ch) ⇒ Object
- .nindxi(ix, n, jd, ii) ⇒ Object
- .nindxr(rx, n, jd, rr) ⇒ Object
- .radd(rx, n, jx, rr) ⇒ Object
- .radd0(rx, n, jx, rr) ⇒ Object
- .radd1(rx, n, jx, rr) ⇒ Object
- .ramp(rx, n, jx) ⇒ Object
- .ramp0(rx, n, jx) ⇒ Object
- .ramp1(rx, n, jx) ⇒ Object
- .rave(rx, n, jx) ⇒ Object
- .rave0(rx, n, jx) ⇒ Object
- .rave1(rx, n, jx) ⇒ Object
- .rcor(rx, ry, n, jx, jy) ⇒ Object
- .rcov(rx, ry, n, jx, jy) ⇒ Object
- .rfftb(r, wsave) ⇒ Object
- .rfftf(r, wsave) ⇒ Object
- .rlcget(cpl) ⇒ Object
- .rliget(cpl) ⇒ Object
- .rllget(cpl) ⇒ Object
- .rlrget(cpl) ⇒ Object
- .rmax(rx, n, jx) ⇒ Object
- .rmax0(rx, n, jx) ⇒ Object
- .rmax1(rx, n, jx) ⇒ Object
- .rmin(rx, n, jx) ⇒ Object
- .rmin0(rx, n, jx) ⇒ Object
- .rmin1(rx, n, jx) ⇒ Object
- .rmlt(rx, n, jx, rr) ⇒ Object
- .rmlt0(rx, n, jx, rr) ⇒ Object
- .rmlt1(rx, n, jx, rr) ⇒ Object
- .rnorml(v, x, y) ⇒ Object
- .rprd(rx, ry, n, jx, jy) ⇒ Object
- .rrms(rx, n, jx) ⇒ Object
- .rrms0(rx, n, jx) ⇒ Object
- .rrms1(rx, n, jx) ⇒ Object
- .rset(rx, n, jx, rr) ⇒ Object
- .rset0(rx, n, jx, rr) ⇒ Object
- .rset1(rx, n, jx, rr) ⇒ Object
- .rstd(rx, n, jx) ⇒ Object
- .rstd0(rx, n, jx) ⇒ Object
- .rstd1(rx, n, jx) ⇒ Object
- .rsum(rx, n, jx) ⇒ Object
- .rsum0(rx, n, jx) ⇒ Object
- .rsum1(rx, n, jx) ⇒ Object
- .rtcget(cpfix, cps) ⇒ Object
- .rtiget(cpfix, cps) ⇒ Object
- .rtlget(cpfix, cps) ⇒ Object
- .rtrget(cpfix, cps) ⇒ Object
- .rvar(rx, n, jx) ⇒ Object
- .rvar0(rx, n, jx) ⇒ Object
- .rvar1(rx, n, jx) ⇒ Object
- .rvmax(rx, ns, np, nq) ⇒ Object
- .rvmax0(rx, ns, np, nq) ⇒ Object
- .rvmax1(rx, ns, np, nq) ⇒ Object
- .rvmin(rx, ns, np, nq) ⇒ Object
- .rvmin0(rx, ns, np, nq) ⇒ Object
- .rvmin1(rx, ns, np, nq) ⇒ Object
- .scplu(upx, upy, upz) ⇒ Object
- .scplv(vpx, vpy, vpz) ⇒ Object
- .scplzu(upx, upy, upz, index) ⇒ Object
- .scplzv(vpx, vpy, vpz, index) ⇒ Object
- .scpmu(upx, upy, upz) ⇒ Object
- .scpmv(vpx, vpy, vpz) ⇒ Object
- .scpmzu(upx, upy, upz, itype, index, rsize) ⇒ Object
- .scpmzv(vpx, vpy, vpz, itype, index, rsize) ⇒ Object
- .sctnu(upx, upy, upz) ⇒ Object
- .sctnv(vpx, vpy, vpz) ⇒ Object
- .sctnzu(upx, upy, upz, itpat1, itpat2) ⇒ Object
- .sctnzv(vpx, vpy, vpz, itpat1, itpat2) ⇒ Object
- .sgplr(rpx, rpy) ⇒ Object
- .sgplu(upx, upy) ⇒ Object
- .sgplv(vpx, vpy) ⇒ Object
- .sgplxr(rpx, rpy, itype, index, icolor) ⇒ Object
- .sgplxu(upx, upy, itype, index, icolor) ⇒ Object
- .sgplxv(vpx, vpy, itype, index, icolor) ⇒ Object
- .sgplzr(rpx, rpy, itype, index) ⇒ Object
- .sgplzu(upx, upy, itype, index) ⇒ Object
- .sgplzv(vpx, vpy, itype, index) ⇒ Object
- .sgpmr(rpx, rpy) ⇒ Object
- .sgpmu(upx, upy) ⇒ Object
- .sgpmv(vpx, vpy) ⇒ Object
- .sgpmxr(rpx, rpy, itype, index, icolor, rsize) ⇒ Object
- .sgpmxu(upx, upy, itype, index, icolor, rsize) ⇒ Object
- .sgpmxv(vpx, vpy, itype, index, icolor, rsize) ⇒ Object
- .sgpmzr(rpx, rpy, itype, index, rsize) ⇒ Object
- .sgpmzu(upx, upy, itype, index, rsize) ⇒ Object
- .sgpmzv(vpx, vpy, itype, index, rsize) ⇒ Object
- .sgtnr(rpx, rpy) ⇒ Object
- .sgtnu(upx, upy) ⇒ Object
- .sgtnv(vpx, vpy) ⇒ Object
- .sgtnxr(rpx, rpy, itpat, icolor) ⇒ Object
- .sgtnxu(upx, upy, itpat, icolor) ⇒ Object
- .sgtnxv(vpx, vpy, itpat, icolor) ⇒ Object
- .sgtnzr(rpx, rpy, itpat) ⇒ Object
- .sgtnzu(upx, upy, itpat) ⇒ Object
- .sgtnzv(vpx, vpy, itpat) ⇒ Object
- .shtfun(mm, jm, m, work) ⇒ Object
- .shtg2s(mm, isw, g, work) ⇒ Object
- .shtg2w(mm, g, work) ⇒ Object
- .shtlap(mm, ind, a) ⇒ Object
- .shtlbw(mm, jm, m, isw, sm, work) ⇒ Object
- .shtlfw(mm, m, isw, wm, work) ⇒ Object
- .shts2g(mm, jm, im, isw, s, work) ⇒ Object
- .shts2w(mm, jm, isw, s, work) ⇒ Object
- .shtsga(mm, jm, im, isw, m1, m2, s, work) ⇒ Object
- .shtsgj(mm, jm, im, isw, j, m1, m2, s, work) ⇒ Object
- .shtsgm(mm, jm, im, m, isw, s, work) ⇒ Object
- .shtsgz(mm, jm, im, isw, s, work) ⇒ Object
- .shtswa(mm, jm, isw, m1, m2, s, work) ⇒ Object
- .shtswj(mm, jm, isw, j, m1, m2, s, work) ⇒ Object
- .shtswm(mm, jm, m, isw, s, work) ⇒ Object
- .shtswz(mm, jm, isw, s, work) ⇒ Object
- .shtw2g(im, w, work) ⇒ Object
- .shtw2s(mm, jm, isw, s, work) ⇒ Object
- .shtwga(im, m1, m2, w, work) ⇒ Object
- .shtwgj(im, m1, m2, wj, work) ⇒ Object
- .shtwgm(mm, im, m, wr, wi, work) ⇒ Object
- .shtwgz(im, wz) ⇒ Object
- .sinqb(x, wsave) ⇒ Object
- .sinqf(x, wsave) ⇒ Object
- .sint(x, wsave) ⇒ Object
- .swgton(wpx, wpy, itpat) ⇒ Object
- .swiclr(image) ⇒ Object
- .swidat(image) ⇒ Object
- .swpget(name) ⇒ Object
- .udcntr(z) ⇒ Object
- .udcntz(z) ⇒ Object
- .udgclb(z, dx) ⇒ Object
- .uegtlb(z, dx) ⇒ Object
- .uemrkz(upx, upy, z, itype, index, rsize) ⇒ Object
- .uestln(tlevn, ipatn) ⇒ Object
- .uetonb(z) ⇒ Object
- .uetonc(z) ⇒ Object
- .uetone(z) ⇒ Object
- .uetonf(z) ⇒ Object
- .uezchk(z, cname) ⇒ Object
- .ugvect(u, v) ⇒ Object
- .uhbra(upx1, upx2, upy) ⇒ Object
- .uhbraz(upx1, upx2, upy, itpat1, itpat2, rsize) ⇒ Object
- .uhbrf(upx1, upx2, upy) ⇒ Object
- .uhbrfz(upx1, upx2, upy, itype, index, rsize) ⇒ Object
- .uhbrl(upx, upy) ⇒ Object
- .uhbrlz(upx, upy, itype, index, rsize) ⇒ Object
- .uhbxa(upx1, upx2, upy) ⇒ Object
- .uhbxaz(upx1, upx2, upy, itpat1, itpat2) ⇒ Object
- .uhbxf(upx1, upx2, upy) ⇒ Object
- .uhbxfz(upx1, upx2, upy, itype, index) ⇒ Object
- .uhbxl(upx, upy) ⇒ Object
- .uhbxlz(upx, upy, itype, index) ⇒ Object
- .uhdif(upx1, upx2, upy) ⇒ Object
- .uhdifz(upx1, upx2, upy, itpat1, itpat2) ⇒ Object
- .uherb(upx1, upx2, upy) ⇒ Object
- .uherbz(upx1, upx2, upy, itype, index, rsize) ⇒ Object
- .uipda2(u, v) ⇒ Object
- .uipda3(u, v, w) ⇒ Object
- .uipdat(z) ⇒ Object
- .uiscsq(clrlvl, icolor) ⇒ Object
- .uismsq(shdlvl, shade) ⇒ Object
- .ulsxbl(bl) ⇒ Object
- .ulsybl(bl) ⇒ Object
- .umspnt(ux, uy) ⇒ Object
- .usaxlb(cside, dtick, dlabel, ch, nc) ⇒ Object
- .usaxnm(cside, dtick, dlabel) ⇒ Object
- .usgrph(x, y) ⇒ Object
- .usplbl(cside, islct, pos, ch, nc) ⇒ Object
- .uspnum(cside, islct, pos) ⇒ Object
- .usptmk(cside, islct, pos) ⇒ Object
- .usspnt(x, y) ⇒ Object
- .uswapz(x1, x2) ⇒ Object
- .uulin(upx, upy) ⇒ Object
- .uulinz(upx, upy, itype, index) ⇒ Object
- .uumrk(upx, upy) ⇒ Object
- .uumrkz(upx, upy, itype, index, rsize) ⇒ Object
- .uvbra(upx, upy1, upy2) ⇒ Object
- .uvbraz(upx, upy1, upy2, itpat1, itpat2, rsize) ⇒ Object
- .uvbrf(upx, upy1, upy2) ⇒ Object
- .uvbrfz(upx, upy1, upy2, itype, index, rsize) ⇒ Object
- .uvbrl(upx, upy) ⇒ Object
- .uvbrlz(upx, upy, itype, index, rsize) ⇒ Object
- .uvbxa(upx, upy1, upy2) ⇒ Object
- .uvbxaz(upx, upy1, upy2, itpat1, itpat2) ⇒ Object
- .uvbxf(upx, upy1, upy2) ⇒ Object
- .uvbxfz(upx, upy1, upy2, itype, index) ⇒ Object
- .uvbxl(upx, upy) ⇒ Object
- .uvbxlz(upx, upy, itype, index) ⇒ Object
- .uvdif(upx, upy1, upy2) ⇒ Object
- .uvdifz(upx, upy1, upy2, itpat1, itpat2) ⇒ Object
- .uverb(upx, upy1, upy2) ⇒ Object
- .uverbz(upx, upy1, upy2, itype, index, rsize) ⇒ Object
- .uwsgxa(xp) ⇒ Object
- .uwsgya(yp) ⇒ Object
- .uxaxlb(cside, ux1, ux2, ch, nc) ⇒ Object
- .uxaxnm(cside, ux1, ux2) ⇒ Object
- .uxplbl(cside, islct, ux, ch, nc) ⇒ Object
- .uxpnum(cside, islct, ux) ⇒ Object
- .uxptmk(cside, islct, ux) ⇒ Object
- .uyaxlb(cside, uy1, uy2, ch, nc) ⇒ Object
- .uyaxnm(cside, uy1, uy2) ⇒ Object
- .uyplbl(cside, islct, uy, ch, nc) ⇒ Object
- .uypnum(cside, islct, uy) ⇒ Object
- .uyptmk(cside, islct, uy) ⇒ Object
- .vcintr(cx, n, jx) ⇒ Object
- .viadd(ix, iy, n, jx, jy, jz) ⇒ Object
- .viadd0(ix, iy, n, jx, jy, jz) ⇒ Object
- .viadd1(ix, iy, n, jx, jy, jz) ⇒ Object
- .vicon(ix, n, jx, jy, ii) ⇒ Object
- .vicon0(ix, n, jx, jy, ii) ⇒ Object
- .vicon1(ix, n, jx, jy, ii) ⇒ Object
- .vidiv(ix, iy, n, jx, jy, jz) ⇒ Object
- .vidiv0(ix, iy, n, jx, jy, jz) ⇒ Object
- .vidiv1(ix, iy, n, jx, jy, jz) ⇒ Object
- .vifct(ix, n, jx, jy, ii) ⇒ Object
- .vifct0(ix, n, jx, jy, ii) ⇒ Object
- .vifct1(ix, n, jx, jy, ii) ⇒ Object
- .vifna(ix, n, jx, jy, ifna) ⇒ Object
- .vifna0(ix, n, jx, jy, ifna) ⇒ Object
- .vifna1(ix, n, jx, jy, ifna) ⇒ Object
- .vifnb(ix, iy, n, jx, jy, jz, ifnb) ⇒ Object
- .vifnb0(ix, iy, n, jx, jy, jz, ifnb) ⇒ Object
- .vifnb1(ix, iy, n, jx, jy, jz, ifnb) ⇒ Object
- .viinc(ix, n, jx, jy, ii) ⇒ Object
- .viinc0(ix, n, jx, jy, ii) ⇒ Object
- .viinc1(ix, n, jx, jy, ii) ⇒ Object
- .vimlt(ix, iy, n, jx, jy, jz) ⇒ Object
- .vimlt0(ix, iy, n, jx, jy, jz) ⇒ Object
- .vimlt1(ix, iy, n, jx, jy, jz) ⇒ Object
- .viset(ix, n, jx, jy) ⇒ Object
- .visub(ix, iy, n, jx, jy, jz) ⇒ Object
- .visub0(ix, iy, n, jx, jy, jz) ⇒ Object
- .visub1(ix, iy, n, jx, jy, jz) ⇒ Object
- .vradd(rx, ry, n, jx, jy, jz) ⇒ Object
- .vradd0(rx, ry, n, jx, jy, jz) ⇒ Object
- .vradd1(rx, ry, n, jx, jy, jz) ⇒ Object
- .vrcon(rx, n, jx, jy, rr) ⇒ Object
- .vrcon0(rx, n, jx, jy, rr) ⇒ Object
- .vrcon1(rx, n, jx, jy, rr) ⇒ Object
- .vrdiv(rx, ry, n, jx, jy, jz) ⇒ Object
- .vrdiv0(rx, ry, n, jx, jy, jz) ⇒ Object
- .vrdiv1(rx, ry, n, jx, jy, jz) ⇒ Object
- .vrfct(rx, n, jx, jy, rr) ⇒ Object
- .vrfct0(rx, n, jx, jy, rr) ⇒ Object
- .vrfct1(rx, n, jx, jy, rr) ⇒ Object
- .vrfna(rx, n, jx, jy, rfna) ⇒ Object
- .vrfna0(rx, n, jx, jy, rfna) ⇒ Object
- .vrfna1(rx, n, jx, jy, rfna) ⇒ Object
- .vrfnb(rx, ry, n, jx, jy, jz, rfnb) ⇒ Object
- .vrfnb0(rx, ry, n, jx, jy, jz, rfnb) ⇒ Object
- .vrfnb1(rx, ry, n, jx, jy, jz, rfnb) ⇒ Object
- .vrinc(rx, n, jx, jy, rr) ⇒ Object
- .vrinc0(rx, n, jx, jy, rr) ⇒ Object
- .vrinc1(rx, n, jx, jy, rr) ⇒ Object
- .vrintr(rx, n, jx) ⇒ Object
- .vrmlt(rx, ry, n, jx, jy, jz) ⇒ Object
- .vrmlt0(rx, ry, n, jx, jy, jz) ⇒ Object
- .vrmlt1(rx, ry, n, jx, jy, jz) ⇒ Object
- .vrrnm(rx, n, jx, jy, nb) ⇒ Object
- .vrrnm0(rx, n, jx, jy, nb) ⇒ Object
- .vrrnm1(rx, n, jx, jy, nb) ⇒ Object
- .vrset(rx, n, jx, jy) ⇒ Object
- .vrsub(rx, ry, n, jx, jy, jz) ⇒ Object
- .vrsub0(rx, ry, n, jx, jy, jz) ⇒ Object
- .vrsub1(rx, ry, n, jx, jy, jz) ⇒ Object
- .vs1din(wz, nw, x) ⇒ Object
- .vs1out(wz, nw) ⇒ Object
- .vs2din(wz, nw, x, y) ⇒ Object
- .vs2out(wz, nw) ⇒ Object
Class Method Details
.cfftb(c, wsave) ⇒ Object
4861 4862 4863 4864 4865 4866 4867 4868 4869 4870 4871 4872 4873 |
# File 'lib/numru/dcl/dcl.rb', line 4861 def cfftb( c,wsave ) #< extract array size(s) (which was(were) formerly an argument(s)) > len_c_0 = c.length n = len_c_0 / 2 #< check array size(s) > raise "Invalid array length: c.length != 2*n" if c.length != (2*n) raise "Invalid array length: wsave.length != 4*n+15" if wsave.length != (4*n+15) #< call the original method > __cfftb( n,c,wsave ) end |
.cfftf(c, wsave) ⇒ Object
4878 4879 4880 4881 4882 4883 4884 4885 4886 4887 4888 4889 4890 |
# File 'lib/numru/dcl/dcl.rb', line 4878 def cfftf( c,wsave ) #< extract array size(s) (which was(were) formerly an argument(s)) > len_c_0 = c.length n = len_c_0 / 2 #< check array size(s) > raise "Invalid array length: c.length != 2*n" if c.length != (2*n) raise "Invalid array length: wsave.length != 4*n+15" if wsave.length != (4*n+15) #< call the original method > __cfftf( n,c,wsave ) end |
.cfsrch(cplist, cflist, nf) ⇒ Object
3798 3799 3800 3801 3802 3803 3804 3805 3806 3807 3808 3809 3810 |
# File 'lib/numru/dcl/dcl.rb', line 3798 def cfsrch( cplist,cflist,nf ) #< extract array size(s) (which was(were) formerly an argument(s)) > len_cplist_0 = cplist.length np = len_cplist_0 #< check array size(s) > raise "Invalid array length: cplist.length != np" if cplist.length != (np) raise "Invalid array length: cflist.length != np" if cflist.length != (np) #< call the original method > __cfsrch( cplist,np,cflist,nf ) end |
.clrgsv(r, g, b) ⇒ Object
2956 2957 2958 2959 2960 2961 2962 2963 2964 2965 2966 2967 2968 2969 2970 2971 2972 2973 2974 2975 2976 2977 2978 2979 2980 |
# File 'lib/numru/dcl/dcl.rb', line 2956 def clrgsv( r,g,b ) #< extract array size(s) (which was(were) formerly an argument(s)) > if ( not_nary(r) || (r.rank < 1) ) raise "r must be a NArray of rank == 2" end len_r_0 = r.shape[0] n = len_r_0 if ( not_nary(r) || (r.rank < 2) ) raise "r must be a NArray of rank == 2" end len_r_1 = r.shape[1] m = len_r_1 #< check array size(s) > raise "Invalid array shape: r.shape[0] != n" if r.shape[0] != (n) raise "Invalid array shape: r.shape[1] != m" if r.shape[1] != (m) raise "Invalid array shape: g.shape[0] != n" if g.shape[0] != (n) raise "Invalid array shape: g.shape[1] != m" if g.shape[1] != (m) raise "Invalid array shape: b.shape[0] != n" if b.shape[0] != (n) raise "Invalid array shape: b.shape[1] != m" if b.shape[1] != (m) #< call the original method > __clrgsv( r,g,b,n,m ) end |
.clsvrg(h, s, v) ⇒ Object
2985 2986 2987 2988 2989 2990 2991 2992 2993 2994 2995 2996 2997 2998 2999 3000 3001 3002 3003 3004 3005 3006 3007 3008 3009 |
# File 'lib/numru/dcl/dcl.rb', line 2985 def clsvrg( h,s,v ) #< extract array size(s) (which was(were) formerly an argument(s)) > if ( not_nary(h) || (h.rank < 1) ) raise "h must be a NArray of rank == 2" end len_h_0 = h.shape[0] n = len_h_0 if ( not_nary(h) || (h.rank < 2) ) raise "h must be a NArray of rank == 2" end len_h_1 = h.shape[1] m = len_h_1 #< check array size(s) > raise "Invalid array shape: h.shape[0] != n" if h.shape[0] != (n) raise "Invalid array shape: h.shape[1] != m" if h.shape[1] != (m) raise "Invalid array shape: s.shape[0] != n" if s.shape[0] != (n) raise "Invalid array shape: s.shape[1] != m" if s.shape[1] != (m) raise "Invalid array shape: v.shape[0] != n" if v.shape[0] != (n) raise "Invalid array shape: v.shape[1] != m" if v.shape[1] != (m) #< call the original method > __clsvrg( h,s,v,n,m ) end |
.cosqb(x, wsave) ⇒ Object
4895 4896 4897 4898 4899 4900 4901 4902 4903 4904 4905 4906 4907 |
# File 'lib/numru/dcl/dcl.rb', line 4895 def cosqb( x,wsave ) #< extract array size(s) (which was(were) formerly an argument(s)) > len_x_0 = x.length n = len_x_0 #< check array size(s) > raise "Invalid array length: x.length != n" if x.length != (n) raise "Invalid array length: wsave.length != 3*n+15" if wsave.length != (3*n+15) #< call the original method > __cosqb( n,x,wsave ) end |
.cosqf(x, wsave) ⇒ Object
4912 4913 4914 4915 4916 4917 4918 4919 4920 4921 4922 4923 4924 |
# File 'lib/numru/dcl/dcl.rb', line 4912 def cosqf( x,wsave ) #< extract array size(s) (which was(were) formerly an argument(s)) > len_x_0 = x.length n = len_x_0 #< check array size(s) > raise "Invalid array length: x.length != n" if x.length != (n) raise "Invalid array length: wsave.length != 3*n+15" if wsave.length != (3*n+15) #< call the original method > __cosqf( n,x,wsave ) end |
.cost(x, wsave) ⇒ Object
4929 4930 4931 4932 4933 4934 4935 4936 4937 4938 4939 4940 4941 |
# File 'lib/numru/dcl/dcl.rb', line 4929 def cost( x,wsave ) #< extract array size(s) (which was(were) formerly an argument(s)) > len_x_0 = x.length n = len_x_0 #< check array size(s) > raise "Invalid array length: x.length != n" if x.length != (n) raise "Invalid array length: wsave.length != 3*n+15" if wsave.length != (3*n+15) #< call the original method > __cost( n,x,wsave ) end |
.dxfloc(ns, np) ⇒ Object
3765 3766 3767 3768 3769 3770 3771 3772 3773 3774 3775 3776 3777 |
# File 'lib/numru/dcl/dcl.rb', line 3765 def dxfloc( ns,np ) #< extract array size(s) (which was(were) formerly an argument(s)) > len_ns_0 = ns.length nd = len_ns_0 #< check array size(s) > raise "Invalid array length: ns.length != nd" if ns.length != (nd) raise "Invalid array length: np.length != nd" if np.length != (nd) #< call the original method > __dxfloc( nd,ns,np ) end |
.dxiloc(ns, ncp) ⇒ Object
3782 3783 3784 3785 3786 3787 3788 3789 3790 3791 3792 3793 |
# File 'lib/numru/dcl/dcl.rb', line 3782 def dxiloc( ns,ncp ) #< extract array size(s) (which was(were) formerly an argument(s)) > len_ns_0 = ns.length nd = len_ns_0 #< check array size(s) > raise "Invalid array length: ns.length != nd" if ns.length != (nd) #< call the original method > __dxiloc( nd,ns,ncp ) end |
.ezfftb(azero, a, b, wsave) ⇒ Object
4946 4947 4948 4949 4950 4951 4952 4953 4954 4955 4956 4957 4958 4959 |
# File 'lib/numru/dcl/dcl.rb', line 4946 def ezfftb( azero,a,b,wsave ) #< extract array size(s) (which was(were) formerly an argument(s)) > len_a_0 = a.length n = len_a_0 * 2 #< check array size(s) > raise "Invalid array length: a.length != n/2" if a.length != (n/2) raise "Invalid array length: b.length != n/2" if b.length != (n/2) raise "Invalid array length: wsave.length != 3*n+15" if wsave.length != (3*n+15) #< call the original method > __ezfftb( n,azero,a,b,wsave ) end |
.ezfftf(r, wsave) ⇒ Object
4964 4965 4966 4967 4968 4969 4970 4971 4972 4973 4974 4975 4976 |
# File 'lib/numru/dcl/dcl.rb', line 4964 def ezfftf( r,wsave ) #< extract array size(s) (which was(were) formerly an argument(s)) > len_r_0 = r.length n = len_r_0 #< check array size(s) > raise "Invalid array length: r.length != n" if r.length != (n) raise "Invalid array length: wsave.length != 3*n+15" if wsave.length != (3*n+15) #< call the original method > __ezfftf( n,r,wsave ) end |
.g2sctr(uxa, uya, cxa, cya) ⇒ Object
3083 3084 3085 3086 3087 3088 3089 3090 3091 3092 3093 3094 3095 3096 3097 3098 3099 3100 3101 |
# File 'lib/numru/dcl/dcl.rb', line 3083 def g2sctr( uxa,uya,cxa,cya ) #< extract array size(s) (which was(were) formerly an argument(s)) > len_uxa_0 = uxa.length nx = len_uxa_0 len_uya_0 = uya.length ny = len_uya_0 #< check array size(s) > raise "Invalid array length: uxa.length != nx" if uxa.length != (nx) raise "Invalid array length: uya.length != ny" if uya.length != (ny) raise "Invalid array shape: cxa.shape[0] != nx" if cxa.shape[0] != (nx) raise "Invalid array shape: cxa.shape[1] != ny" if cxa.shape[1] != (ny) raise "Invalid array shape: cya.shape[0] != nx" if cya.shape[0] != (nx) raise "Invalid array shape: cya.shape[1] != ny" if cya.shape[1] != (ny) #< call the original method > __g2sctr( nx,ny,uxa,uya,cxa,cya ) end |
.gnsblk(xb) ⇒ Object
3066 3067 3068 3069 3070 3071 3072 3073 3074 3075 3076 3077 |
# File 'lib/numru/dcl/dcl.rb', line 3066 def gnsblk( xb ) #< extract array size(s) (which was(were) formerly an argument(s)) > len_xb_0 = xb.length nb = len_xb_0 #< check array size(s) > raise "Invalid array length: xb.length != nb" if xb.length != (nb) #< call the original method > __gnsblk( xb,nb ) end |
.iadd(ix, n, jx, ii) ⇒ Object
4099 4100 4101 4102 4103 4104 4105 4106 |
# File 'lib/numru/dcl/dcl.rb', line 4099 def iadd( ix,n,jx,ii ) #< check array size(s) > raise "Invalid array length: ix.length != jx*(n-1)+1" if ix.length != (jx*(n-1)+1) #< call the original method > __iadd( ix,n,jx,ii ) end |
.iadd0(ix, n, jx, ii) ⇒ Object
4111 4112 4113 4114 4115 4116 4117 4118 |
# File 'lib/numru/dcl/dcl.rb', line 4111 def iadd0( ix,n,jx,ii ) #< check array size(s) > raise "Invalid array length: ix.length != jx*(n-1)+1" if ix.length != (jx*(n-1)+1) #< call the original method > __iadd0( ix,n,jx,ii ) end |
.iadd1(ix, n, jx, ii) ⇒ Object
4123 4124 4125 4126 4127 4128 4129 4130 |
# File 'lib/numru/dcl/dcl.rb', line 4123 def iadd1( ix,n,jx,ii ) #< check array size(s) > raise "Invalid array length: ix.length != jx*(n-1)+1" if ix.length != (jx*(n-1)+1) #< call the original method > __iadd1( ix,n,jx,ii ) end |
.iblkge(rx, rr) ⇒ Object
2939 2940 2941 2942 2943 2944 2945 2946 2947 2948 2949 2950 |
# File 'lib/numru/dcl/dcl.rb', line 2939 def iblkge( rx,rr ) #< extract array size(s) (which was(were) formerly an argument(s)) > len_rx_0 = rx.length n = len_rx_0 #< check array size(s) > raise "Invalid array length: rx.length != n" if rx.length != (n) #< call the original method > __iblkge( rx,n,rr ) end |
.iblkgt(rx, rr) ⇒ Object
2923 2924 2925 2926 2927 2928 2929 2930 2931 2932 2933 2934 |
# File 'lib/numru/dcl/dcl.rb', line 2923 def iblkgt( rx,rr ) #< extract array size(s) (which was(were) formerly an argument(s)) > len_rx_0 = rx.length n = len_rx_0 #< check array size(s) > raise "Invalid array length: rx.length != n" if rx.length != (n) #< call the original method > __iblkgt( rx,n,rr ) end |
.iblkle(rx, rr) ⇒ Object
2907 2908 2909 2910 2911 2912 2913 2914 2915 2916 2917 2918 |
# File 'lib/numru/dcl/dcl.rb', line 2907 def iblkle( rx,rr ) #< extract array size(s) (which was(were) formerly an argument(s)) > len_rx_0 = rx.length n = len_rx_0 #< check array size(s) > raise "Invalid array length: rx.length != n" if rx.length != (n) #< call the original method > __iblkle( rx,n,rr ) end |
.iblklt(rx, rr) ⇒ Object
2891 2892 2893 2894 2895 2896 2897 2898 2899 2900 2901 2902 |
# File 'lib/numru/dcl/dcl.rb', line 2891 def iblklt( rx,rr ) #< extract array size(s) (which was(were) formerly an argument(s)) > len_rx_0 = rx.length n = len_rx_0 #< check array size(s) > raise "Invalid array length: rx.length != n" if rx.length != (n) #< call the original method > __iblklt( rx,n,rr ) end |
.imax(ix, n, jx) ⇒ Object
3108 3109 3110 3111 3112 3113 3114 3115 |
# File 'lib/numru/dcl/dcl.rb', line 3108 def imax( ix,n,jx ) #< check array size(s) > raise "Invalid array length: ix.length != jx*(n-1)+1" if ix.length != (jx*(n-1)+1) #< call the original method > __imax( ix,n,jx ) end |
.imax0(ix, n, jx) ⇒ Object
3120 3121 3122 3123 3124 3125 3126 3127 |
# File 'lib/numru/dcl/dcl.rb', line 3120 def imax0( ix,n,jx ) #< check array size(s) > raise "Invalid array length: ix.length != jx*(n-1)+1" if ix.length != (jx*(n-1)+1) #< call the original method > __imax0( ix,n,jx ) end |
.imax1(ix, n, jx) ⇒ Object
3132 3133 3134 3135 3136 3137 3138 3139 |
# File 'lib/numru/dcl/dcl.rb', line 3132 def imax1( ix,n,jx ) #< check array size(s) > raise "Invalid array length: ix.length != jx*(n-1)+1" if ix.length != (jx*(n-1)+1) #< call the original method > __imax1( ix,n,jx ) end |
.imin(ix, n, jx) ⇒ Object
3144 3145 3146 3147 3148 3149 3150 3151 |
# File 'lib/numru/dcl/dcl.rb', line 3144 def imin( ix,n,jx ) #< check array size(s) > raise "Invalid array length: ix.length != jx*(n-1)+1" if ix.length != (jx*(n-1)+1) #< call the original method > __imin( ix,n,jx ) end |
.imin0(ix, n, jx) ⇒ Object
3156 3157 3158 3159 3160 3161 3162 3163 |
# File 'lib/numru/dcl/dcl.rb', line 3156 def imin0( ix,n,jx ) #< check array size(s) > raise "Invalid array length: ix.length != jx*(n-1)+1" if ix.length != (jx*(n-1)+1) #< call the original method > __imin0( ix,n,jx ) end |
.imin1(ix, n, jx) ⇒ Object
3168 3169 3170 3171 3172 3173 3174 3175 |
# File 'lib/numru/dcl/dcl.rb', line 3168 def imin1( ix,n,jx ) #< check array size(s) > raise "Invalid array length: ix.length != jx*(n-1)+1" if ix.length != (jx*(n-1)+1) #< call the original method > __imin1( ix,n,jx ) end |
.imlt(ix, n, jx, ii) ⇒ Object
4135 4136 4137 4138 4139 4140 4141 4142 |
# File 'lib/numru/dcl/dcl.rb', line 4135 def imlt( ix,n,jx,ii ) #< check array size(s) > raise "Invalid array length: ix.length != jx*(n-1)+1" if ix.length != (jx*(n-1)+1) #< call the original method > __imlt( ix,n,jx,ii ) end |
.imlt0(ix, n, jx, ii) ⇒ Object
4147 4148 4149 4150 4151 4152 4153 4154 |
# File 'lib/numru/dcl/dcl.rb', line 4147 def imlt0( ix,n,jx,ii ) #< check array size(s) > raise "Invalid array length: ix.length != jx*(n-1)+1" if ix.length != (jx*(n-1)+1) #< call the original method > __imlt0( ix,n,jx,ii ) end |
.imlt1(ix, n, jx, ii) ⇒ Object
4159 4160 4161 4162 4163 4164 4165 4166 |
# File 'lib/numru/dcl/dcl.rb', line 4159 def imlt1( ix,n,jx,ii ) #< check array size(s) > raise "Invalid array length: ix.length != jx*(n-1)+1" if ix.length != (jx*(n-1)+1) #< call the original method > __imlt1( ix,n,jx,ii ) end |
.indxcf(cx, n, jd, ch) ⇒ Object
3216 3217 3218 3219 3220 3221 3222 3223 |
# File 'lib/numru/dcl/dcl.rb', line 3216 def indxcf( cx,n,jd,ch ) #< check array size(s) > raise "Invalid array length: cx.length != jd*(n-1)+1" if cx.length != (jd*(n-1)+1) #< call the original method > __indxcf( cx,n,jd,ch ) end |
.indxcl(cx, n, jd, ch) ⇒ Object
3228 3229 3230 3231 3232 3233 3234 3235 |
# File 'lib/numru/dcl/dcl.rb', line 3228 def indxcl( cx,n,jd,ch ) #< check array size(s) > raise "Invalid array length: cx.length != jd*(n-1)+1" if cx.length != (jd*(n-1)+1) #< call the original method > __indxcl( cx,n,jd,ch ) end |
.indxif(ix, n, jd, ii) ⇒ Object
3240 3241 3242 3243 3244 3245 3246 3247 |
# File 'lib/numru/dcl/dcl.rb', line 3240 def indxif( ix,n,jd,ii ) #< check array size(s) > raise "Invalid array length: ix.length != jd*(n-1)+1" if ix.length != (jd*(n-1)+1) #< call the original method > __indxif( ix,n,jd,ii ) end |
.indxil(ix, n, jd, ii) ⇒ Object
3252 3253 3254 3255 3256 3257 3258 3259 |
# File 'lib/numru/dcl/dcl.rb', line 3252 def indxil( ix,n,jd,ii ) #< check array size(s) > raise "Invalid array length: ix.length != jd*(n-1)+1" if ix.length != (jd*(n-1)+1) #< call the original method > __indxil( ix,n,jd,ii ) end |
.indxrf(rx, n, jd, rr) ⇒ Object
3264 3265 3266 3267 3268 3269 3270 3271 |
# File 'lib/numru/dcl/dcl.rb', line 3264 def indxrf( rx,n,jd,rr ) #< check array size(s) > raise "Invalid array length: rx.length != jd*(n-1)+1" if rx.length != (jd*(n-1)+1) #< call the original method > __indxrf( rx,n,jd,rr ) end |
.indxrl(rx, n, jd, rr) ⇒ Object
3276 3277 3278 3279 3280 3281 3282 3283 |
# File 'lib/numru/dcl/dcl.rb', line 3276 def indxrl( rx,n,jd,rr ) #< check array size(s) > raise "Invalid array length: rx.length != jd*(n-1)+1" if rx.length != (jd*(n-1)+1) #< call the original method > __indxrl( rx,n,jd,rr ) end |
.inorml(v, x, y) ⇒ Object
3014 3015 3016 3017 3018 3019 3020 3021 3022 3023 3024 3025 3026 3027 3028 3029 3030 3031 3032 3033 3034 |
# File 'lib/numru/dcl/dcl.rb', line 3014 def inorml( v,x,y ) #< extract array size(s) (which was(were) formerly an argument(s)) > if ( not_nary(v) || (v.rank < 1) ) raise "v must be a NArray of rank == 2" end len_v_0 = v.shape[0] n = len_v_0 if ( not_nary(v) || (v.rank < 2) ) raise "v must be a NArray of rank == 2" end len_v_1 = v.shape[1] m = len_v_1 #< check array size(s) > raise "Invalid array shape: v.shape[0] != n" if v.shape[0] != (n) raise "Invalid array shape: v.shape[1] != m" if v.shape[1] != (m) #< call the original method > __inorml( v,n,m,x,y ) end |
.iset(ix, n, jx, ii) ⇒ Object
4171 4172 4173 4174 4175 4176 4177 4178 |
# File 'lib/numru/dcl/dcl.rb', line 4171 def iset( ix,n,jx,ii ) #< check array size(s) > raise "Invalid array length: ix.length != jx*(n-1)+1" if ix.length != (jx*(n-1)+1) #< call the original method > __iset( ix,n,jx,ii ) end |
.iset0(ix, n, jx, ii) ⇒ Object
4183 4184 4185 4186 4187 4188 4189 4190 |
# File 'lib/numru/dcl/dcl.rb', line 4183 def iset0( ix,n,jx,ii ) #< check array size(s) > raise "Invalid array length: ix.length != jx*(n-1)+1" if ix.length != (jx*(n-1)+1) #< call the original method > __iset0( ix,n,jx,ii ) end |
.iset1(ix, n, jx, ii) ⇒ Object
4195 4196 4197 4198 4199 4200 4201 4202 |
# File 'lib/numru/dcl/dcl.rb', line 4195 def iset1( ix,n,jx,ii ) #< check array size(s) > raise "Invalid array length: ix.length != jx*(n-1)+1" if ix.length != (jx*(n-1)+1) #< call the original method > __iset1( ix,n,jx,ii ) end |
.isum(ix, n, jx) ⇒ Object
3180 3181 3182 3183 3184 3185 3186 3187 |
# File 'lib/numru/dcl/dcl.rb', line 3180 def isum( ix,n,jx ) #< check array size(s) > raise "Invalid array length: ix.length != jx*(n-1)+1" if ix.length != (jx*(n-1)+1) #< call the original method > __isum( ix,n,jx ) end |
.isum0(ix, n, jx) ⇒ Object
3192 3193 3194 3195 3196 3197 3198 3199 |
# File 'lib/numru/dcl/dcl.rb', line 3192 def isum0( ix,n,jx ) #< check array size(s) > raise "Invalid array length: ix.length != jx*(n-1)+1" if ix.length != (jx*(n-1)+1) #< call the original method > __isum0( ix,n,jx ) end |
.isum1(ix, n, jx) ⇒ Object
3204 3205 3206 3207 3208 3209 3210 3211 |
# File 'lib/numru/dcl/dcl.rb', line 3204 def isum1( ix,n,jx ) #< check array size(s) > raise "Invalid array length: ix.length != jx*(n-1)+1" if ix.length != (jx*(n-1)+1) #< call the original method > __isum1( ix,n,jx ) end |
.nindxc(cx, n, jd, ch) ⇒ Object
3288 3289 3290 3291 3292 3293 3294 3295 |
# File 'lib/numru/dcl/dcl.rb', line 3288 def nindxc( cx,n,jd,ch ) #< check array size(s) > raise "Invalid array length: cx.length != jd*(n-1)+1" if cx.length != (jd*(n-1)+1) #< call the original method > __nindxc( cx,n,jd,ch ) end |
.nindxi(ix, n, jd, ii) ⇒ Object
3300 3301 3302 3303 3304 3305 3306 3307 |
# File 'lib/numru/dcl/dcl.rb', line 3300 def nindxi( ix,n,jd,ii ) #< check array size(s) > raise "Invalid array length: ix.length != jd*(n-1)+1" if ix.length != (jd*(n-1)+1) #< call the original method > __nindxi( ix,n,jd,ii ) end |
.nindxr(rx, n, jd, rr) ⇒ Object
3312 3313 3314 3315 3316 3317 3318 3319 |
# File 'lib/numru/dcl/dcl.rb', line 3312 def nindxr( rx,n,jd,rr ) #< check array size(s) > raise "Invalid array length: rx.length != jd*(n-1)+1" if rx.length != (jd*(n-1)+1) #< call the original method > __nindxr( rx,n,jd,rr ) end |
.radd(rx, n, jx, rr) ⇒ Object
4558 4559 4560 4561 4562 4563 4564 4565 |
# File 'lib/numru/dcl/dcl.rb', line 4558 def radd( rx,n,jx,rr ) #< check array size(s) > raise "Invalid array length: rx.length != jx*(n-1)+1" if rx.length != (jx*(n-1)+1) #< call the original method > __radd( rx,n,jx,rr ) end |
.radd0(rx, n, jx, rr) ⇒ Object
4570 4571 4572 4573 4574 4575 4576 4577 |
# File 'lib/numru/dcl/dcl.rb', line 4570 def radd0( rx,n,jx,rr ) #< check array size(s) > raise "Invalid array length: rx.length != jx*(n-1)+1" if rx.length != (jx*(n-1)+1) #< call the original method > __radd0( rx,n,jx,rr ) end |
.radd1(rx, n, jx, rr) ⇒ Object
4582 4583 4584 4585 4586 4587 4588 4589 |
# File 'lib/numru/dcl/dcl.rb', line 4582 def radd1( rx,n,jx,rr ) #< check array size(s) > raise "Invalid array length: rx.length != jx*(n-1)+1" if rx.length != (jx*(n-1)+1) #< call the original method > __radd1( rx,n,jx,rr ) end |
.ramp(rx, n, jx) ⇒ Object
3576 3577 3578 3579 3580 3581 3582 3583 |
# File 'lib/numru/dcl/dcl.rb', line 3576 def ramp( rx,n,jx ) #< check array size(s) > raise "Invalid array length: rx.length != jx*(n-1)+1" if rx.length != (jx*(n-1)+1) #< call the original method > __ramp( rx,n,jx ) end |
.ramp0(rx, n, jx) ⇒ Object
3588 3589 3590 3591 3592 3593 3594 3595 |
# File 'lib/numru/dcl/dcl.rb', line 3588 def ramp0( rx,n,jx ) #< check array size(s) > raise "Invalid array length: rx.length != jx*(n-1)+1" if rx.length != (jx*(n-1)+1) #< call the original method > __ramp0( rx,n,jx ) end |
.ramp1(rx, n, jx) ⇒ Object
3600 3601 3602 3603 3604 3605 3606 3607 |
# File 'lib/numru/dcl/dcl.rb', line 3600 def ramp1( rx,n,jx ) #< check array size(s) > raise "Invalid array length: rx.length != jx*(n-1)+1" if rx.length != (jx*(n-1)+1) #< call the original method > __ramp1( rx,n,jx ) end |
.rave(rx, n, jx) ⇒ Object
3432 3433 3434 3435 3436 3437 3438 3439 |
# File 'lib/numru/dcl/dcl.rb', line 3432 def rave( rx,n,jx ) #< check array size(s) > raise "Invalid array length: rx.length != jx*(n-1)+1" if rx.length != (jx*(n-1)+1) #< call the original method > __rave( rx,n,jx ) end |
.rave0(rx, n, jx) ⇒ Object
3444 3445 3446 3447 3448 3449 3450 3451 |
# File 'lib/numru/dcl/dcl.rb', line 3444 def rave0( rx,n,jx ) #< check array size(s) > raise "Invalid array length: rx.length != jx*(n-1)+1" if rx.length != (jx*(n-1)+1) #< call the original method > __rave0( rx,n,jx ) end |
.rave1(rx, n, jx) ⇒ Object
3456 3457 3458 3459 3460 3461 3462 3463 |
# File 'lib/numru/dcl/dcl.rb', line 3456 def rave1( rx,n,jx ) #< check array size(s) > raise "Invalid array length: rx.length != jx*(n-1)+1" if rx.length != (jx*(n-1)+1) #< call the original method > __rave1( rx,n,jx ) end |
.rcor(rx, ry, n, jx, jy) ⇒ Object
3752 3753 3754 3755 3756 3757 3758 3759 3760 |
# File 'lib/numru/dcl/dcl.rb', line 3752 def rcor( rx,ry,n,jx,jy ) #< check array size(s) > raise "Invalid array length: rx.length != jx*(n-1)+1" if rx.length != (jx*(n-1)+1) raise "Invalid array length: ry.length != jx*(n-1)+1" if ry.length != (jx*(n-1)+1) #< call the original method > __rcor( rx,ry,n,jx,jy ) end |
.rcov(rx, ry, n, jx, jy) ⇒ Object
3739 3740 3741 3742 3743 3744 3745 3746 3747 |
# File 'lib/numru/dcl/dcl.rb', line 3739 def rcov( rx,ry,n,jx,jy ) #< check array size(s) > raise "Invalid array length: rx.length != jx*(n-1)+1" if rx.length != (jx*(n-1)+1) raise "Invalid array length: ry.length != jy*(n-1)+1" if ry.length != (jy*(n-1)+1) #< call the original method > __rcov( rx,ry,n,jx,jy ) end |
.rfftb(r, wsave) ⇒ Object
4981 4982 4983 4984 4985 4986 4987 4988 4989 4990 4991 4992 4993 |
# File 'lib/numru/dcl/dcl.rb', line 4981 def rfftb( r,wsave ) #< extract array size(s) (which was(were) formerly an argument(s)) > len_r_0 = r.length n = len_r_0 #< check array size(s) > raise "Invalid array length: r.length != n" if r.length != (n) raise "Invalid array length: wsave.length != 2*n+15" if wsave.length != (2*n+15) #< call the original method > __rfftb( n,r,wsave ) end |
.rfftf(r, wsave) ⇒ Object
4998 4999 5000 5001 5002 5003 5004 5005 5006 5007 5008 5009 5010 |
# File 'lib/numru/dcl/dcl.rb', line 4998 def rfftf( r,wsave ) #< extract array size(s) (which was(were) formerly an argument(s)) > len_r_0 = r.length n = len_r_0 #< check array size(s) > raise "Invalid array length: r.length != n" if r.length != (n) raise "Invalid array length: wsave.length != 2*n+15" if wsave.length != (2*n+15) #< call the original method > __rfftf( n,r,wsave ) end |
.rlcget(cpl) ⇒ Object
3927 3928 3929 3930 3931 3932 3933 3934 3935 3936 3937 3938 |
# File 'lib/numru/dcl/dcl.rb', line 3927 def rlcget( cpl ) #< extract array size(s) (which was(were) formerly an argument(s)) > len_cpl_0 = cpl.length max = len_cpl_0 #< check array size(s) > raise "Invalid array length: cpl.length != max" if cpl.length != (max) #< call the original method > __rlcget( cpl,max ) end |
.rliget(cpl) ⇒ Object
3879 3880 3881 3882 3883 3884 3885 3886 3887 3888 3889 3890 |
# File 'lib/numru/dcl/dcl.rb', line 3879 def rliget( cpl ) #< extract array size(s) (which was(were) formerly an argument(s)) > len_cpl_0 = cpl.length max = len_cpl_0 #< check array size(s) > raise "Invalid array length: cpl.length != max" if cpl.length != (max) #< call the original method > __rliget( cpl,max ) end |
.rllget(cpl) ⇒ Object
3895 3896 3897 3898 3899 3900 3901 3902 3903 3904 3905 3906 |
# File 'lib/numru/dcl/dcl.rb', line 3895 def rllget( cpl ) #< extract array size(s) (which was(were) formerly an argument(s)) > len_cpl_0 = cpl.length max = len_cpl_0 #< check array size(s) > raise "Invalid array length: cpl.length != max" if cpl.length != (max) #< call the original method > __rllget( cpl,max ) end |
.rlrget(cpl) ⇒ Object
3911 3912 3913 3914 3915 3916 3917 3918 3919 3920 3921 3922 |
# File 'lib/numru/dcl/dcl.rb', line 3911 def rlrget( cpl ) #< extract array size(s) (which was(were) formerly an argument(s)) > len_cpl_0 = cpl.length max = len_cpl_0 #< check array size(s) > raise "Invalid array length: cpl.length != max" if cpl.length != (max) #< call the original method > __rlrget( cpl,max ) end |
.rmax(rx, n, jx) ⇒ Object
3324 3325 3326 3327 3328 3329 3330 3331 |
# File 'lib/numru/dcl/dcl.rb', line 3324 def rmax( rx,n,jx ) #< check array size(s) > raise "Invalid array length: rx.length != jx*(n-1)+1" if rx.length != (jx*(n-1)+1) #< call the original method > __rmax( rx,n,jx ) end |
.rmax0(rx, n, jx) ⇒ Object
3336 3337 3338 3339 3340 3341 3342 3343 |
# File 'lib/numru/dcl/dcl.rb', line 3336 def rmax0( rx,n,jx ) #< check array size(s) > raise "Invalid array length: rx.length != jx*(n-1)+1" if rx.length != (jx*(n-1)+1) #< call the original method > __rmax0( rx,n,jx ) end |
.rmax1(rx, n, jx) ⇒ Object
3348 3349 3350 3351 3352 3353 3354 3355 |
# File 'lib/numru/dcl/dcl.rb', line 3348 def rmax1( rx,n,jx ) #< check array size(s) > raise "Invalid array length: rx.length != jx*(n-1)+1" if rx.length != (jx*(n-1)+1) #< call the original method > __rmax1( rx,n,jx ) end |
.rmin(rx, n, jx) ⇒ Object
3360 3361 3362 3363 3364 3365 3366 3367 |
# File 'lib/numru/dcl/dcl.rb', line 3360 def rmin( rx,n,jx ) #< check array size(s) > raise "Invalid array length: rx.length != jx*(n-1)+1" if rx.length != (jx*(n-1)+1) #< call the original method > __rmin( rx,n,jx ) end |
.rmin0(rx, n, jx) ⇒ Object
3372 3373 3374 3375 3376 3377 3378 3379 |
# File 'lib/numru/dcl/dcl.rb', line 3372 def rmin0( rx,n,jx ) #< check array size(s) > raise "Invalid array length: rx.length != jx*(n-1)+1" if rx.length != (jx*(n-1)+1) #< call the original method > __rmin0( rx,n,jx ) end |
.rmin1(rx, n, jx) ⇒ Object
3384 3385 3386 3387 3388 3389 3390 3391 |
# File 'lib/numru/dcl/dcl.rb', line 3384 def rmin1( rx,n,jx ) #< check array size(s) > raise "Invalid array length: rx.length != jx*(n-1)+1" if rx.length != (jx*(n-1)+1) #< call the original method > __rmin1( rx,n,jx ) end |
.rmlt(rx, n, jx, rr) ⇒ Object
4594 4595 4596 4597 4598 4599 4600 4601 |
# File 'lib/numru/dcl/dcl.rb', line 4594 def rmlt( rx,n,jx,rr ) #< check array size(s) > raise "Invalid array length: rx.length != jx*(n-1)+1" if rx.length != (jx*(n-1)+1) #< call the original method > __rmlt( rx,n,jx,rr ) end |
.rmlt0(rx, n, jx, rr) ⇒ Object
4606 4607 4608 4609 4610 4611 4612 4613 |
# File 'lib/numru/dcl/dcl.rb', line 4606 def rmlt0( rx,n,jx,rr ) #< check array size(s) > raise "Invalid array length: rx.length != jx*(n-1)+1" if rx.length != (jx*(n-1)+1) #< call the original method > __rmlt0( rx,n,jx,rr ) end |
.rmlt1(rx, n, jx, rr) ⇒ Object
4618 4619 4620 4621 4622 4623 4624 4625 |
# File 'lib/numru/dcl/dcl.rb', line 4618 def rmlt1( rx,n,jx,rr ) #< check array size(s) > raise "Invalid array length: rx.length != jx*(n-1)+1" if rx.length != (jx*(n-1)+1) #< call the original method > __rmlt1( rx,n,jx,rr ) end |
.rnorml(v, x, y) ⇒ Object
3039 3040 3041 3042 3043 3044 3045 3046 3047 3048 3049 3050 3051 3052 3053 3054 3055 3056 3057 3058 3059 |
# File 'lib/numru/dcl/dcl.rb', line 3039 def rnorml( v,x,y ) #< extract array size(s) (which was(were) formerly an argument(s)) > if ( not_nary(v) || (v.rank < 1) ) raise "v must be a NArray of rank == 2" end len_v_0 = v.shape[0] n = len_v_0 if ( not_nary(v) || (v.rank < 2) ) raise "v must be a NArray of rank == 2" end len_v_1 = v.shape[1] m = len_v_1 #< check array size(s) > raise "Invalid array shape: v.shape[0] != n" if v.shape[0] != (n) raise "Invalid array shape: v.shape[1] != m" if v.shape[1] != (m) #< call the original method > __rnorml( v,n,m,x,y ) end |
.rprd(rx, ry, n, jx, jy) ⇒ Object
3726 3727 3728 3729 3730 3731 3732 3733 3734 |
# File 'lib/numru/dcl/dcl.rb', line 3726 def rprd( rx,ry,n,jx,jy ) #< check array size(s) > raise "Invalid array length: rx.length != jx*(n-1)+1" if rx.length != (jx*(n-1)+1) raise "Invalid array length: ry.length != jy*(n-1)+1" if ry.length != (jy*(n-1)+1) #< call the original method > __rprd( rx,ry,n,jx,jy ) end |
.rrms(rx, n, jx) ⇒ Object
3540 3541 3542 3543 3544 3545 3546 3547 |
# File 'lib/numru/dcl/dcl.rb', line 3540 def rrms( rx,n,jx ) #< check array size(s) > raise "Invalid array length: rx.length != jx*(n-1)+1" if rx.length != (jx*(n-1)+1) #< call the original method > __rrms( rx,n,jx ) end |
.rrms0(rx, n, jx) ⇒ Object
3552 3553 3554 3555 3556 3557 3558 3559 |
# File 'lib/numru/dcl/dcl.rb', line 3552 def rrms0( rx,n,jx ) #< check array size(s) > raise "Invalid array length: rx.length != jx*(n-1)+1" if rx.length != (jx*(n-1)+1) #< call the original method > __rrms0( rx,n,jx ) end |
.rrms1(rx, n, jx) ⇒ Object
3564 3565 3566 3567 3568 3569 3570 3571 |
# File 'lib/numru/dcl/dcl.rb', line 3564 def rrms1( rx,n,jx ) #< check array size(s) > raise "Invalid array length: rx.length != jx*(n-1)+1" if rx.length != (jx*(n-1)+1) #< call the original method > __rrms1( rx,n,jx ) end |
.rset(rx, n, jx, rr) ⇒ Object
4630 4631 4632 4633 4634 4635 4636 4637 |
# File 'lib/numru/dcl/dcl.rb', line 4630 def rset( rx,n,jx,rr ) #< check array size(s) > raise "Invalid array length: rx.length != jx*(n-1)+1" if rx.length != (jx*(n-1)+1) #< call the original method > __rset( rx,n,jx,rr ) end |
.rset0(rx, n, jx, rr) ⇒ Object
4642 4643 4644 4645 4646 4647 4648 4649 |
# File 'lib/numru/dcl/dcl.rb', line 4642 def rset0( rx,n,jx,rr ) #< check array size(s) > raise "Invalid array length: rx.length != jx*(n-1)+1" if rx.length != (jx*(n-1)+1) #< call the original method > __rset0( rx,n,jx,rr ) end |
.rset1(rx, n, jx, rr) ⇒ Object
4654 4655 4656 4657 4658 4659 4660 4661 |
# File 'lib/numru/dcl/dcl.rb', line 4654 def rset1( rx,n,jx,rr ) #< check array size(s) > raise "Invalid array length: rx.length != jx*(n-1)+1" if rx.length != (jx*(n-1)+1) #< call the original method > __rset1( rx,n,jx,rr ) end |
.rstd(rx, n, jx) ⇒ Object
3504 3505 3506 3507 3508 3509 3510 3511 |
# File 'lib/numru/dcl/dcl.rb', line 3504 def rstd( rx,n,jx ) #< check array size(s) > raise "Invalid array length: rx.length != jx*(n-1)+1" if rx.length != (jx*(n-1)+1) #< call the original method > __rstd( rx,n,jx ) end |
.rstd0(rx, n, jx) ⇒ Object
3516 3517 3518 3519 3520 3521 3522 3523 |
# File 'lib/numru/dcl/dcl.rb', line 3516 def rstd0( rx,n,jx ) #< check array size(s) > raise "Invalid array length: rx.length != jx*(n-1)+1" if rx.length != (jx*(n-1)+1) #< call the original method > __rstd0( rx,n,jx ) end |
.rstd1(rx, n, jx) ⇒ Object
3528 3529 3530 3531 3532 3533 3534 3535 |
# File 'lib/numru/dcl/dcl.rb', line 3528 def rstd1( rx,n,jx ) #< check array size(s) > raise "Invalid array length: rx.length != jx*(n-1)+1" if rx.length != (jx*(n-1)+1) #< call the original method > __rstd1( rx,n,jx ) end |
.rsum(rx, n, jx) ⇒ Object
3396 3397 3398 3399 3400 3401 3402 3403 |
# File 'lib/numru/dcl/dcl.rb', line 3396 def rsum( rx,n,jx ) #< check array size(s) > raise "Invalid array length: rx.length != jx*(n-1)+1" if rx.length != (jx*(n-1)+1) #< call the original method > __rsum( rx,n,jx ) end |
.rsum0(rx, n, jx) ⇒ Object
3408 3409 3410 3411 3412 3413 3414 3415 |
# File 'lib/numru/dcl/dcl.rb', line 3408 def rsum0( rx,n,jx ) #< check array size(s) > raise "Invalid array length: rx.length != jx*(n-1)+1" if rx.length != (jx*(n-1)+1) #< call the original method > __rsum0( rx,n,jx ) end |
.rsum1(rx, n, jx) ⇒ Object
3420 3421 3422 3423 3424 3425 3426 3427 |
# File 'lib/numru/dcl/dcl.rb', line 3420 def rsum1( rx,n,jx ) #< check array size(s) > raise "Invalid array length: rx.length != jx*(n-1)+1" if rx.length != (jx*(n-1)+1) #< call the original method > __rsum1( rx,n,jx ) end |
.rtcget(cpfix, cps) ⇒ Object
3863 3864 3865 3866 3867 3868 3869 3870 3871 3872 3873 3874 |
# File 'lib/numru/dcl/dcl.rb', line 3863 def rtcget( cpfix,cps ) #< extract array size(s) (which was(were) formerly an argument(s)) > len_cps_0 = cps.length max = len_cps_0 #< check array size(s) > raise "Invalid array length: cps.length != max" if cps.length != (max) #< call the original method > __rtcget( cpfix,cps,max ) end |
.rtiget(cpfix, cps) ⇒ Object
3815 3816 3817 3818 3819 3820 3821 3822 3823 3824 3825 3826 |
# File 'lib/numru/dcl/dcl.rb', line 3815 def rtiget( cpfix,cps ) #< extract array size(s) (which was(were) formerly an argument(s)) > len_cps_0 = cps.length max = len_cps_0 #< check array size(s) > raise "Invalid array length: cps.length != max" if cps.length != (max) #< call the original method > __rtiget( cpfix,cps,max ) end |
.rtlget(cpfix, cps) ⇒ Object
3831 3832 3833 3834 3835 3836 3837 3838 3839 3840 3841 3842 |
# File 'lib/numru/dcl/dcl.rb', line 3831 def rtlget( cpfix,cps ) #< extract array size(s) (which was(were) formerly an argument(s)) > len_cps_0 = cps.length max = len_cps_0 #< check array size(s) > raise "Invalid array length: cps.length != max" if cps.length != (max) #< call the original method > __rtlget( cpfix,cps,max ) end |
.rtrget(cpfix, cps) ⇒ Object
3847 3848 3849 3850 3851 3852 3853 3854 3855 3856 3857 3858 |
# File 'lib/numru/dcl/dcl.rb', line 3847 def rtrget( cpfix,cps ) #< extract array size(s) (which was(were) formerly an argument(s)) > len_cps_0 = cps.length max = len_cps_0 #< check array size(s) > raise "Invalid array length: cps.length != max" if cps.length != (max) #< call the original method > __rtrget( cpfix,cps,max ) end |
.rvar(rx, n, jx) ⇒ Object
3468 3469 3470 3471 3472 3473 3474 3475 |
# File 'lib/numru/dcl/dcl.rb', line 3468 def rvar( rx,n,jx ) #< check array size(s) > raise "Invalid array length: rx.length != jx*(n-1)+1" if rx.length != (jx*(n-1)+1) #< call the original method > __rvar( rx,n,jx ) end |
.rvar0(rx, n, jx) ⇒ Object
3480 3481 3482 3483 3484 3485 3486 3487 |
# File 'lib/numru/dcl/dcl.rb', line 3480 def rvar0( rx,n,jx ) #< check array size(s) > raise "Invalid array length: rx.length != jx*(n-1)+1" if rx.length != (jx*(n-1)+1) #< call the original method > __rvar0( rx,n,jx ) end |
.rvar1(rx, n, jx) ⇒ Object
3492 3493 3494 3495 3496 3497 3498 3499 |
# File 'lib/numru/dcl/dcl.rb', line 3492 def rvar1( rx,n,jx ) #< check array size(s) > raise "Invalid array length: rx.length != jx*(n-1)+1" if rx.length != (jx*(n-1)+1) #< call the original method > __rvar1( rx,n,jx ) end |
.rvmax(rx, ns, np, nq) ⇒ Object
3612 3613 3614 3615 3616 3617 3618 3619 3620 3621 3622 3623 3624 3625 3626 |
# File 'lib/numru/dcl/dcl.rb', line 3612 def rvmax( rx,ns,np,nq ) #< extract array size(s) (which was(were) formerly an argument(s)) > len_ns_0 = ns.length nd = len_ns_0 #< check array size(s) > raise "Invalid array length: rx.length != (len=1; ns.each{|i| len*=i}; len)" if rx.length != ((len=1; ns.each{|i| len*=i}; len)) raise "Invalid array length: ns.length != nd" if ns.length != (nd) raise "Invalid array length: np.length != nd" if np.length != (nd) raise "Invalid array length: nq.length != nd" if nq.length != (nd) #< call the original method > __rvmax( rx,ns,np,nq,nd ) end |
.rvmax0(rx, ns, np, nq) ⇒ Object
3631 3632 3633 3634 3635 3636 3637 3638 3639 3640 3641 3642 3643 3644 3645 |
# File 'lib/numru/dcl/dcl.rb', line 3631 def rvmax0( rx,ns,np,nq ) #< extract array size(s) (which was(were) formerly an argument(s)) > len_ns_0 = ns.length nd = len_ns_0 #< check array size(s) > raise "Invalid array length: rx.length != (len=1; ns.each{|i| len*=i}; len)" if rx.length != ((len=1; ns.each{|i| len*=i}; len)) raise "Invalid array length: ns.length != nd" if ns.length != (nd) raise "Invalid array length: np.length != nd" if np.length != (nd) raise "Invalid array length: nq.length != nd" if nq.length != (nd) #< call the original method > __rvmax0( rx,ns,np,nq,nd ) end |
.rvmax1(rx, ns, np, nq) ⇒ Object
3669 3670 3671 3672 3673 3674 3675 3676 3677 3678 3679 3680 3681 3682 3683 |
# File 'lib/numru/dcl/dcl.rb', line 3669 def rvmax1( rx,ns,np,nq ) #< extract array size(s) (which was(were) formerly an argument(s)) > len_ns_0 = ns.length nd = len_ns_0 #< check array size(s) > raise "Invalid array length: rx.length != (len=1; ns.each{|i| len*=i}; len)" if rx.length != ((len=1; ns.each{|i| len*=i}; len)) raise "Invalid array length: ns.length != nd" if ns.length != (nd) raise "Invalid array length: np.length != nd" if np.length != (nd) raise "Invalid array length: nq.length != nd" if nq.length != (nd) #< call the original method > __rvmax1( rx,ns,np,nq,nd ) end |
.rvmin(rx, ns, np, nq) ⇒ Object
3650 3651 3652 3653 3654 3655 3656 3657 3658 3659 3660 3661 3662 3663 3664 |
# File 'lib/numru/dcl/dcl.rb', line 3650 def rvmin( rx,ns,np,nq ) #< extract array size(s) (which was(were) formerly an argument(s)) > len_ns_0 = ns.length nd = len_ns_0 #< check array size(s) > raise "Invalid array length: rx.length != (len=1; ns.each{|i| len*=i}; len)" if rx.length != ((len=1; ns.each{|i| len*=i}; len)) raise "Invalid array length: ns.length != nd" if ns.length != (nd) raise "Invalid array length: np.length != nd" if np.length != (nd) raise "Invalid array length: nq.length != nd" if nq.length != (nd) #< call the original method > __rvmin( rx,ns,np,nq,nd ) end |
.rvmin0(rx, ns, np, nq) ⇒ Object
3707 3708 3709 3710 3711 3712 3713 3714 3715 3716 3717 3718 3719 3720 3721 |
# File 'lib/numru/dcl/dcl.rb', line 3707 def rvmin0( rx,ns,np,nq ) #< extract array size(s) (which was(were) formerly an argument(s)) > len_ns_0 = ns.length nd = len_ns_0 #< check array size(s) > raise "Invalid array length: rx.length != (len=1; ns.each{|i| len*=i}; len)" if rx.length != ((len=1; ns.each{|i| len*=i}; len)) raise "Invalid array length: ns.length != nd" if ns.length != (nd) raise "Invalid array length: np.length != nd" if np.length != (nd) raise "Invalid array length: nq.length != nd" if nq.length != (nd) #< call the original method > __rvmin0( rx,ns,np,nq,nd ) end |
.rvmin1(rx, ns, np, nq) ⇒ Object
3688 3689 3690 3691 3692 3693 3694 3695 3696 3697 3698 3699 3700 3701 3702 |
# File 'lib/numru/dcl/dcl.rb', line 3688 def rvmin1( rx,ns,np,nq ) #< extract array size(s) (which was(were) formerly an argument(s)) > len_ns_0 = ns.length nd = len_ns_0 #< check array size(s) > raise "Invalid array length: rx.length != (len=1; ns.each{|i| len*=i}; len)" if rx.length != ((len=1; ns.each{|i| len*=i}; len)) raise "Invalid array length: ns.length != nd" if ns.length != (nd) raise "Invalid array length: np.length != nd" if np.length != (nd) raise "Invalid array length: nq.length != nd" if nq.length != (nd) #< call the original method > __rvmin1( rx,ns,np,nq,nd ) end |
.scplu(upx, upy, upz) ⇒ Object
142 143 144 145 146 147 148 149 150 151 152 153 154 155 |
# File 'lib/numru/dcl/dcl.rb', line 142 def scplu( upx,upy,upz ) #< extract array size(s) (which was(were) formerly an argument(s)) > len_upx_0 = upx.length n = len_upx_0 #< check array size(s) > raise "Invalid array length: upx.length != n" if upx.length != (n) raise "Invalid array length: upy.length != n" if upy.length != (n) raise "Invalid array length: upz.length != n" if upz.length != (n) #< call the original method > __scplu( n,upx,upy,upz ) end |
.scplv(vpx, vpy, vpz) ⇒ Object
160 161 162 163 164 165 166 167 168 169 170 171 172 173 |
# File 'lib/numru/dcl/dcl.rb', line 160 def scplv( vpx,vpy,vpz ) #< extract array size(s) (which was(were) formerly an argument(s)) > len_vpx_0 = vpx.length n = len_vpx_0 #< check array size(s) > raise "Invalid array length: vpx.length != n" if vpx.length != (n) raise "Invalid array length: vpy.length != n" if vpy.length != (n) raise "Invalid array length: vpz.length != n" if vpz.length != (n) #< call the original method > __scplv( n,vpx,vpy,vpz ) end |
.scplzu(upx, upy, upz, index) ⇒ Object
178 179 180 181 182 183 184 185 186 187 188 189 190 191 |
# File 'lib/numru/dcl/dcl.rb', line 178 def scplzu( upx,upy,upz,index ) #< extract array size(s) (which was(were) formerly an argument(s)) > len_upx_0 = upx.length n = len_upx_0 #< check array size(s) > raise "Invalid array length: upx.length != n" if upx.length != (n) raise "Invalid array length: upy.length != n" if upy.length != (n) raise "Invalid array length: upz.length != n" if upz.length != (n) #< call the original method > __scplzu( n,upx,upy,upz,index ) end |
.scplzv(vpx, vpy, vpz, index) ⇒ Object
196 197 198 199 200 201 202 203 204 205 206 207 208 209 |
# File 'lib/numru/dcl/dcl.rb', line 196 def scplzv( vpx,vpy,vpz,index ) #< extract array size(s) (which was(were) formerly an argument(s)) > len_vpx_0 = vpx.length n = len_vpx_0 #< check array size(s) > raise "Invalid array length: vpx.length != n" if vpx.length != (n) raise "Invalid array length: vpy.length != n" if vpy.length != (n) raise "Invalid array length: vpz.length != n" if vpz.length != (n) #< call the original method > __scplzv( n,vpx,vpy,vpz,index ) end |
.scpmu(upx, upy, upz) ⇒ Object
214 215 216 217 218 219 220 221 222 223 224 225 226 227 |
# File 'lib/numru/dcl/dcl.rb', line 214 def scpmu( upx,upy,upz ) #< extract array size(s) (which was(were) formerly an argument(s)) > len_upx_0 = upx.length n = len_upx_0 #< check array size(s) > raise "Invalid array length: upx.length != n" if upx.length != (n) raise "Invalid array length: upy.length != n" if upy.length != (n) raise "Invalid array length: upz.length != n" if upz.length != (n) #< call the original method > __scpmu( n,upx,upy,upz ) end |
.scpmv(vpx, vpy, vpz) ⇒ Object
232 233 234 235 236 237 238 239 240 241 242 243 244 245 |
# File 'lib/numru/dcl/dcl.rb', line 232 def scpmv( vpx,vpy,vpz ) #< extract array size(s) (which was(were) formerly an argument(s)) > len_vpx_0 = vpx.length n = len_vpx_0 #< check array size(s) > raise "Invalid array length: vpx.length != n" if vpx.length != (n) raise "Invalid array length: vpy.length != n" if vpy.length != (n) raise "Invalid array length: vpz.length != n" if vpz.length != (n) #< call the original method > __scpmv( n,vpx,vpy,vpz ) end |
.scpmzu(upx, upy, upz, itype, index, rsize) ⇒ Object
250 251 252 253 254 255 256 257 258 259 260 261 262 263 |
# File 'lib/numru/dcl/dcl.rb', line 250 def scpmzu( upx,upy,upz,itype,index,rsize ) #< extract array size(s) (which was(were) formerly an argument(s)) > len_upx_0 = upx.length n = len_upx_0 #< check array size(s) > raise "Invalid array length: upx.length != n" if upx.length != (n) raise "Invalid array length: upy.length != n" if upy.length != (n) raise "Invalid array length: upz.length != n" if upz.length != (n) #< call the original method > __scpmzu( n,upx,upy,upz,itype,index,rsize ) end |
.scpmzv(vpx, vpy, vpz, itype, index, rsize) ⇒ Object
268 269 270 271 272 273 274 275 276 277 278 279 280 281 |
# File 'lib/numru/dcl/dcl.rb', line 268 def scpmzv( vpx,vpy,vpz,itype,index,rsize ) #< extract array size(s) (which was(were) formerly an argument(s)) > len_vpx_0 = vpx.length n = len_vpx_0 #< check array size(s) > raise "Invalid array length: vpx.length != n" if vpx.length != (n) raise "Invalid array length: vpy.length != n" if vpy.length != (n) raise "Invalid array length: vpz.length != n" if vpz.length != (n) #< call the original method > __scpmzv( n,vpx,vpy,vpz,itype,index,rsize ) end |
.sctnu(upx, upy, upz) ⇒ Object
286 287 288 289 290 291 292 293 294 295 |
# File 'lib/numru/dcl/dcl.rb', line 286 def sctnu( upx,upy,upz ) #< check array size(s) > raise "Invalid array length: upx.length != 3" if upx.length != (3) raise "Invalid array length: upy.length != 3" if upy.length != (3) raise "Invalid array length: upz.length != 3" if upz.length != (3) #< call the original method > __sctnu( upx,upy,upz ) end |
.sctnv(vpx, vpy, vpz) ⇒ Object
300 301 302 303 304 305 306 307 308 309 |
# File 'lib/numru/dcl/dcl.rb', line 300 def sctnv( vpx,vpy,vpz ) #< check array size(s) > raise "Invalid array length: vpx.length != 3" if vpx.length != (3) raise "Invalid array length: vpy.length != 3" if vpy.length != (3) raise "Invalid array length: vpz.length != 3" if vpz.length != (3) #< call the original method > __sctnv( vpx,vpy,vpz ) end |
.sctnzu(upx, upy, upz, itpat1, itpat2) ⇒ Object
314 315 316 317 318 319 320 321 322 323 |
# File 'lib/numru/dcl/dcl.rb', line 314 def sctnzu( upx,upy,upz,itpat1,itpat2 ) #< check array size(s) > raise "Invalid array length: upx.length != 3" if upx.length != (3) raise "Invalid array length: upy.length != 3" if upy.length != (3) raise "Invalid array length: upz.length != 3" if upz.length != (3) #< call the original method > __sctnzu( upx,upy,upz,itpat1,itpat2 ) end |
.sctnzv(vpx, vpy, vpz, itpat1, itpat2) ⇒ Object
328 329 330 331 332 333 334 335 336 337 |
# File 'lib/numru/dcl/dcl.rb', line 328 def sctnzv( vpx,vpy,vpz,itpat1,itpat2 ) #< check array size(s) > raise "Invalid array length: vpx.length != 3" if vpx.length != (3) raise "Invalid array length: vpy.length != 3" if vpy.length != (3) raise "Invalid array length: vpz.length != 3" if vpz.length != (3) #< call the original method > __sctnzv( vpx,vpy,vpz,itpat1,itpat2 ) end |
.sgplr(rpx, rpy) ⇒ Object
376 377 378 379 380 381 382 383 384 385 386 387 388 |
# File 'lib/numru/dcl/dcl.rb', line 376 def sgplr( rpx,rpy ) #< extract array size(s) (which was(were) formerly an argument(s)) > len_rpx_0 = rpx.length n = len_rpx_0 #< check array size(s) > raise "Invalid array length: rpx.length != n" if rpx.length != (n) raise "Invalid array length: rpy.length != n" if rpy.length != (n) #< call the original method > __sgplr( n,rpx,rpy ) end |
.sgplu(upx, upy) ⇒ Object
342 343 344 345 346 347 348 349 350 351 352 353 354 |
# File 'lib/numru/dcl/dcl.rb', line 342 def sgplu( upx,upy ) #< extract array size(s) (which was(were) formerly an argument(s)) > len_upx_0 = upx.length n = len_upx_0 #< check array size(s) > raise "Invalid array length: upx.length != n" if upx.length != (n) raise "Invalid array length: upy.length != n" if upy.length != (n) #< call the original method > __sgplu( n,upx,upy ) end |
.sgplv(vpx, vpy) ⇒ Object
359 360 361 362 363 364 365 366 367 368 369 370 371 |
# File 'lib/numru/dcl/dcl.rb', line 359 def sgplv( vpx,vpy ) #< extract array size(s) (which was(were) formerly an argument(s)) > len_vpx_0 = vpx.length n = len_vpx_0 #< check array size(s) > raise "Invalid array length: vpx.length != n" if vpx.length != (n) raise "Invalid array length: vpy.length != n" if vpy.length != (n) #< call the original method > __sgplv( n,vpx,vpy ) end |
.sgplxr(rpx, rpy, itype, index, icolor) ⇒ Object
713 714 715 716 717 718 719 720 721 722 723 724 725 |
# File 'lib/numru/dcl/dcl.rb', line 713 def sgplxr( rpx,rpy,itype,index,icolor ) #< extract array size(s) (which was(were) formerly an argument(s)) > len_rpx_0 = rpx.length n = len_rpx_0 #< check array size(s) > raise "Invalid array length: rpx.length != n" if rpx.length != (n) raise "Invalid array length: rpy.length != n" if rpy.length != (n) #< call the original method > __sgplxr( n,rpx,rpy,itype,index,icolor ) end |
.sgplxu(upx, upy, itype, index, icolor) ⇒ Object
673 674 675 676 677 678 679 680 681 682 683 684 685 |
# File 'lib/numru/dcl/dcl.rb', line 673 def sgplxu( upx,upy,itype,index,icolor ) #< extract array size(s) (which was(were) formerly an argument(s)) > len_upx_0 = upx.length n = len_upx_0 #< check array size(s) > raise "Invalid array length: upx.length != n" if upx.length != (n) raise "Invalid array length: upy.length != n" if upy.length != (n) #< call the original method > __sgplxu( n,upx,upy,itype,index,icolor ) end |
.sgplxv(vpx, vpy, itype, index, icolor) ⇒ Object
693 694 695 696 697 698 699 700 701 702 703 704 705 |
# File 'lib/numru/dcl/dcl.rb', line 693 def sgplxv( vpx,vpy,itype,index,icolor ) #< extract array size(s) (which was(were) formerly an argument(s)) > len_vpx_0 = vpx.length n = len_vpx_0 #< check array size(s) > raise "Invalid array length: vpx.length != n" if vpx.length != (n) raise "Invalid array length: vpy.length != n" if vpy.length != (n) #< call the original method > __sgplxv( n,vpx,vpy,itype,index,icolor ) end |
.sgplzr(rpx, rpy, itype, index) ⇒ Object
427 428 429 430 431 432 433 434 435 436 437 438 439 |
# File 'lib/numru/dcl/dcl.rb', line 427 def sgplzr( rpx,rpy,itype,index ) #< extract array size(s) (which was(were) formerly an argument(s)) > len_rpx_0 = rpx.length n = len_rpx_0 #< check array size(s) > raise "Invalid array length: rpx.length != n" if rpx.length != (n) raise "Invalid array length: rpy.length != n" if rpy.length != (n) #< call the original method > __sgplzr( n,rpx,rpy,itype,index ) end |
.sgplzu(upx, upy, itype, index) ⇒ Object
393 394 395 396 397 398 399 400 401 402 403 404 405 |
# File 'lib/numru/dcl/dcl.rb', line 393 def sgplzu( upx,upy,itype,index ) #< extract array size(s) (which was(were) formerly an argument(s)) > len_upx_0 = upx.length n = len_upx_0 #< check array size(s) > raise "Invalid array length: upx.length != n" if upx.length != (n) raise "Invalid array length: upy.length != n" if upy.length != (n) #< call the original method > __sgplzu( n,upx,upy,itype,index ) end |
.sgplzv(vpx, vpy, itype, index) ⇒ Object
410 411 412 413 414 415 416 417 418 419 420 421 422 |
# File 'lib/numru/dcl/dcl.rb', line 410 def sgplzv( vpx,vpy,itype,index ) #< extract array size(s) (which was(were) formerly an argument(s)) > len_vpx_0 = vpx.length n = len_vpx_0 #< check array size(s) > raise "Invalid array length: vpx.length != n" if vpx.length != (n) raise "Invalid array length: vpy.length != n" if vpy.length != (n) #< call the original method > __sgplzv( n,vpx,vpy,itype,index ) end |
.sgpmr(rpx, rpy) ⇒ Object
478 479 480 481 482 483 484 485 486 487 488 489 490 |
# File 'lib/numru/dcl/dcl.rb', line 478 def sgpmr( rpx,rpy ) #< extract array size(s) (which was(were) formerly an argument(s)) > len_rpx_0 = rpx.length n = len_rpx_0 #< check array size(s) > raise "Invalid array length: rpx.length != n" if rpx.length != (n) raise "Invalid array length: rpy.length != n" if rpy.length != (n) #< call the original method > __sgpmr( n,rpx,rpy ) end |
.sgpmu(upx, upy) ⇒ Object
444 445 446 447 448 449 450 451 452 453 454 455 456 |
# File 'lib/numru/dcl/dcl.rb', line 444 def sgpmu( upx,upy ) #< extract array size(s) (which was(were) formerly an argument(s)) > len_upx_0 = upx.length n = len_upx_0 #< check array size(s) > raise "Invalid array length: upx.length != n" if upx.length != (n) raise "Invalid array length: upy.length != n" if upy.length != (n) #< call the original method > __sgpmu( n,upx,upy ) end |
.sgpmv(vpx, vpy) ⇒ Object
461 462 463 464 465 466 467 468 469 470 471 472 473 |
# File 'lib/numru/dcl/dcl.rb', line 461 def sgpmv( vpx,vpy ) #< extract array size(s) (which was(were) formerly an argument(s)) > len_vpx_0 = vpx.length n = len_vpx_0 #< check array size(s) > raise "Invalid array length: vpx.length != n" if vpx.length != (n) raise "Invalid array length: vpy.length != n" if vpy.length != (n) #< call the original method > __sgpmv( n,vpx,vpy ) end |
.sgpmxr(rpx, rpy, itype, index, icolor, rsize) ⇒ Object
773 774 775 776 777 778 779 780 781 782 783 784 785 |
# File 'lib/numru/dcl/dcl.rb', line 773 def sgpmxr( rpx,rpy,itype,index,icolor,rsize ) #< extract array size(s) (which was(were) formerly an argument(s)) > len_rpx_0 = rpx.length n = len_rpx_0 #< check array size(s) > raise "Invalid array length: rpx.length != n" if rpx.length != (n) raise "Invalid array length: rpy.length != n" if rpy.length != (n) #< call the original method > __sgpmxr( n,rpx,rpy,itype,index,icolor,rsize ) end |
.sgpmxu(upx, upy, itype, index, icolor, rsize) ⇒ Object
733 734 735 736 737 738 739 740 741 742 743 744 745 |
# File 'lib/numru/dcl/dcl.rb', line 733 def sgpmxu( upx,upy,itype,index,icolor,rsize ) #< extract array size(s) (which was(were) formerly an argument(s)) > len_upx_0 = upx.length n = len_upx_0 #< check array size(s) > raise "Invalid array length: upx.length != n" if upx.length != (n) raise "Invalid array length: upy.length != n" if upy.length != (n) #< call the original method > __sgpmxu( n,upx,upy,itype,index,icolor,rsize ) end |
.sgpmxv(vpx, vpy, itype, index, icolor, rsize) ⇒ Object
753 754 755 756 757 758 759 760 761 762 763 764 765 |
# File 'lib/numru/dcl/dcl.rb', line 753 def sgpmxv( vpx,vpy,itype,index,icolor,rsize ) #< extract array size(s) (which was(were) formerly an argument(s)) > len_vpx_0 = vpx.length n = len_vpx_0 #< check array size(s) > raise "Invalid array length: vpx.length != n" if vpx.length != (n) raise "Invalid array length: vpy.length != n" if vpy.length != (n) #< call the original method > __sgpmxv( n,vpx,vpy,itype,index,icolor,rsize ) end |
.sgpmzr(rpx, rpy, itype, index, rsize) ⇒ Object
529 530 531 532 533 534 535 536 537 538 539 540 541 |
# File 'lib/numru/dcl/dcl.rb', line 529 def sgpmzr( rpx,rpy,itype,index,rsize ) #< extract array size(s) (which was(were) formerly an argument(s)) > len_rpx_0 = rpx.length n = len_rpx_0 #< check array size(s) > raise "Invalid array length: rpx.length != n" if rpx.length != (n) raise "Invalid array length: rpy.length != n" if rpy.length != (n) #< call the original method > __sgpmzr( n,rpx,rpy,itype,index,rsize ) end |
.sgpmzu(upx, upy, itype, index, rsize) ⇒ Object
495 496 497 498 499 500 501 502 503 504 505 506 507 |
# File 'lib/numru/dcl/dcl.rb', line 495 def sgpmzu( upx,upy,itype,index,rsize ) #< extract array size(s) (which was(were) formerly an argument(s)) > len_upx_0 = upx.length n = len_upx_0 #< check array size(s) > raise "Invalid array length: upx.length != n" if upx.length != (n) raise "Invalid array length: upy.length != n" if upy.length != (n) #< call the original method > __sgpmzu( n,upx,upy,itype,index,rsize ) end |
.sgpmzv(vpx, vpy, itype, index, rsize) ⇒ Object
512 513 514 515 516 517 518 519 520 521 522 523 524 |
# File 'lib/numru/dcl/dcl.rb', line 512 def sgpmzv( vpx,vpy,itype,index,rsize ) #< extract array size(s) (which was(were) formerly an argument(s)) > len_vpx_0 = vpx.length n = len_vpx_0 #< check array size(s) > raise "Invalid array length: vpx.length != n" if vpx.length != (n) raise "Invalid array length: vpy.length != n" if vpy.length != (n) #< call the original method > __sgpmzv( n,vpx,vpy,itype,index,rsize ) end |
.sgtnr(rpx, rpy) ⇒ Object
580 581 582 583 584 585 586 587 588 589 590 591 592 |
# File 'lib/numru/dcl/dcl.rb', line 580 def sgtnr( rpx,rpy ) #< extract array size(s) (which was(were) formerly an argument(s)) > len_rpx_0 = rpx.length n = len_rpx_0 #< check array size(s) > raise "Invalid array length: rpx.length != n" if rpx.length != (n) raise "Invalid array length: rpy.length != n" if rpy.length != (n) #< call the original method > __sgtnr( n,rpx,rpy ) end |
.sgtnu(upx, upy) ⇒ Object
546 547 548 549 550 551 552 553 554 555 556 557 558 |
# File 'lib/numru/dcl/dcl.rb', line 546 def sgtnu( upx,upy ) #< extract array size(s) (which was(were) formerly an argument(s)) > len_upx_0 = upx.length n = len_upx_0 #< check array size(s) > raise "Invalid array length: upx.length != n" if upx.length != (n) raise "Invalid array length: upy.length != n" if upy.length != (n) #< call the original method > __sgtnu( n,upx,upy ) end |
.sgtnv(vpx, vpy) ⇒ Object
563 564 565 566 567 568 569 570 571 572 573 574 575 |
# File 'lib/numru/dcl/dcl.rb', line 563 def sgtnv( vpx,vpy ) #< extract array size(s) (which was(were) formerly an argument(s)) > len_vpx_0 = vpx.length n = len_vpx_0 #< check array size(s) > raise "Invalid array length: vpx.length != n" if vpx.length != (n) raise "Invalid array length: vpy.length != n" if vpy.length != (n) #< call the original method > __sgtnv( n,vpx,vpy ) end |
.sgtnxr(rpx, rpy, itpat, icolor) ⇒ Object
842 843 844 845 846 847 848 849 850 851 852 853 854 |
# File 'lib/numru/dcl/dcl.rb', line 842 def sgtnxr( rpx,rpy,itpat,icolor ) #< extract array size(s) (which was(were) formerly an argument(s)) > len_rpx_0 = rpx.length n = len_rpx_0 #< check array size(s) > raise "Invalid array length: rpx.length != n" if rpx.length != (n) raise "Invalid array length: rpy.length != n" if rpy.length != (n) #< call the original method > __sgtnxr( n,rpx,rpy,itpat,icolor ) end |
.sgtnxu(upx, upy, itpat, icolor) ⇒ Object
802 803 804 805 806 807 808 809 810 811 812 813 814 |
# File 'lib/numru/dcl/dcl.rb', line 802 def sgtnxu( upx,upy,itpat,icolor ) #< extract array size(s) (which was(were) formerly an argument(s)) > len_upx_0 = upx.length n = len_upx_0 #< check array size(s) > raise "Invalid array length: upx.length != n" if upx.length != (n) raise "Invalid array length: upy.length != n" if upy.length != (n) #< call the original method > __sgtnxu( n,upx,upy,itpat,icolor ) end |
.sgtnxv(vpx, vpy, itpat, icolor) ⇒ Object
822 823 824 825 826 827 828 829 830 831 832 833 834 |
# File 'lib/numru/dcl/dcl.rb', line 822 def sgtnxv( vpx,vpy,itpat,icolor ) #< extract array size(s) (which was(were) formerly an argument(s)) > len_vpx_0 = vpx.length n = len_vpx_0 #< check array size(s) > raise "Invalid array length: vpx.length != n" if vpx.length != (n) raise "Invalid array length: vpy.length != n" if vpy.length != (n) #< call the original method > __sgtnxv( n,vpx,vpy,itpat,icolor ) end |
.sgtnzr(rpx, rpy, itpat) ⇒ Object
631 632 633 634 635 636 637 638 639 640 641 642 643 |
# File 'lib/numru/dcl/dcl.rb', line 631 def sgtnzr( rpx,rpy,itpat ) #< extract array size(s) (which was(were) formerly an argument(s)) > len_rpx_0 = rpx.length n = len_rpx_0 #< check array size(s) > raise "Invalid array length: rpx.length != n" if rpx.length != (n) raise "Invalid array length: rpy.length != n" if rpy.length != (n) #< call the original method > __sgtnzr( n,rpx,rpy,itpat ) end |
.sgtnzu(upx, upy, itpat) ⇒ Object
597 598 599 600 601 602 603 604 605 606 607 608 609 |
# File 'lib/numru/dcl/dcl.rb', line 597 def sgtnzu( upx,upy,itpat ) #< extract array size(s) (which was(were) formerly an argument(s)) > len_upx_0 = upx.length n = len_upx_0 #< check array size(s) > raise "Invalid array length: upx.length != n" if upx.length != (n) raise "Invalid array length: upy.length != n" if upy.length != (n) #< call the original method > __sgtnzu( n,upx,upy,itpat ) end |
.sgtnzv(vpx, vpy, itpat) ⇒ Object
614 615 616 617 618 619 620 621 622 623 624 625 626 |
# File 'lib/numru/dcl/dcl.rb', line 614 def sgtnzv( vpx,vpy,itpat ) #< extract array size(s) (which was(were) formerly an argument(s)) > len_vpx_0 = vpx.length n = len_vpx_0 #< check array size(s) > raise "Invalid array length: vpx.length != n" if vpx.length != (n) raise "Invalid array length: vpy.length != n" if vpy.length != (n) #< call the original method > __sgtnzv( n,vpx,vpy,itpat ) end |
.shtfun(mm, jm, m, work) ⇒ Object
5138 5139 5140 5141 5142 5143 5144 |
# File 'lib/numru/dcl/dcl.rb', line 5138 def shtfun( mm,jm,m,work ) #< check array size(s) > #< call the original method > __shtfun( mm,jm,m,work ) end |
.shtg2s(mm, isw, g, work) ⇒ Object
5442 5443 5444 5445 5446 5447 5448 5449 5450 5451 5452 5453 5454 5455 5456 5457 5458 5459 5460 5461 5462 5463 |
# File 'lib/numru/dcl/dcl.rb', line 5442 def shtg2s( mm,isw,g,work ) #< extract array size(s) (which was(were) formerly an argument(s)) > if ( not_nary(g) || (g.rank < 1) ) raise "g must be a NArray of rank == 2" end len_g_0 = g.shape[0] im = ( len_g_0 - 1 ) / 2 if ( not_nary(g) || (g.rank < 2) ) raise "g must be a NArray of rank == 2" end len_g_1 = g.shape[1] jm = ( len_g_1 - 1 ) / 2 #< check array size(s) > raise "Invalid array shape: g.shape[0] != (2*im+1)" if g.shape[0] != ((2*im+1)) raise "Invalid array shape: g.shape[1] != (2*jm+1)" if g.shape[1] != ((2*jm+1)) raise "Invalid array length: work.length != (jm+1)*(4*jm+5*mm+14)+(mm+1)*(mm+1)+mm+2+6*im+15" if work.length != ((jm+1)*(4*jm+5*mm+14)+(mm+1)*(mm+1)+mm+2+6*im+15) #< call the original method > __shtg2s( mm,jm,im,isw,g,work ) end |
.shtg2w(mm, g, work) ⇒ Object
5351 5352 5353 5354 5355 5356 5357 5358 5359 5360 5361 5362 5363 5364 5365 5366 5367 5368 5369 5370 5371 5372 |
# File 'lib/numru/dcl/dcl.rb', line 5351 def shtg2w( mm,g,work ) #< extract array size(s) (which was(were) formerly an argument(s)) > if ( not_nary(g) || (g.rank < 1) ) raise "g must be a NArray of rank == 2" end len_g_0 = g.shape[0] im = ( len_g_0 - 1 ) / 2 if ( not_nary(g) || (g.rank < 2) ) raise "g must be a NArray of rank == 2" end len_g_1 = g.shape[1] jm = ( len_g_1 - 1 ) / 2 #< check array size(s) > raise "Invalid array shape: g.shape[0] != (2*im+1)" if g.shape[0] != ((2*im+1)) raise "Invalid array shape: g.shape[1] != (2*jm+1)" if g.shape[1] != ((2*jm+1)) raise "Invalid array length: work.length != (jm+1)*(4*jm+5*mm+14)+(mm+1)*(mm+1)+mm+2+6*im+15" if work.length != ((jm+1)*(4*jm+5*mm+14)+(mm+1)*(mm+1)+mm+2+6*im+15) #< call the original method > __shtg2w( mm,jm,im,g,work ) end |
.shtlap(mm, ind, a) ⇒ Object
5126 5127 5128 5129 5130 5131 5132 5133 |
# File 'lib/numru/dcl/dcl.rb', line 5126 def shtlap( mm,ind,a ) #< check array size(s) > raise "Invalid array length: a.length != (mm+1)*(mm+1)" if a.length != ((mm+1)*(mm+1)) #< call the original method > __shtlap( mm,ind,a ) end |
.shtlbw(mm, jm, m, isw, sm, work) ⇒ Object
5165 5166 5167 5168 5169 5170 5171 5172 |
# File 'lib/numru/dcl/dcl.rb', line 5165 def shtlbw( mm,jm,m,isw,sm,work ) #< check array size(s) > raise "Invalid array length: sm.length != mm-m+1" if sm.length != (mm-m+1) #< call the original method > __shtlbw( mm,jm,m,isw,sm,work ) end |
.shtlfw(mm, m, isw, wm, work) ⇒ Object
5149 5150 5151 5152 5153 5154 5155 5156 5157 5158 5159 5160 |
# File 'lib/numru/dcl/dcl.rb', line 5149 def shtlfw( mm,m,isw,wm,work ) #< extract array size(s) (which was(were) formerly an argument(s)) > len_wm_0 = wm.length jm = ( len_wm_0 - 1 ) / 2 #< check array size(s) > raise "Invalid array length: wm.length != 2*jm+1" if wm.length != (2*jm+1) #< call the original method > __shtlfw( mm,jm,m,isw,wm,work ) end |
.shts2g(mm, jm, im, isw, s, work) ⇒ Object
5377 5378 5379 5380 5381 5382 5383 5384 5385 |
# File 'lib/numru/dcl/dcl.rb', line 5377 def shts2g( mm,jm,im,isw,s,work ) #< check array size(s) > raise "Invalid array length: s.length != (mm+1)*(mm+1)" if s.length != ((mm+1)*(mm+1)) raise "Invalid array length: work.length != (jm+1)*(4*jm+5*mm+14)+(mm+1)*(mm+1)+mm+2+6*im+15" if work.length != ((jm+1)*(4*jm+5*mm+14)+(mm+1)*(mm+1)+mm+2+6*im+15) #< call the original method > __shts2g( mm,jm,im,isw,s,work ) end |
.shts2w(mm, jm, isw, s, work) ⇒ Object
5177 5178 5179 5180 5181 5182 5183 5184 |
# File 'lib/numru/dcl/dcl.rb', line 5177 def shts2w( mm,jm,isw,s,work ) #< check array size(s) > raise "Invalid array length: s.length != (mm+1)*(mm+1)" if s.length != ((mm+1)*(mm+1)) #< call the original method > __shts2w( mm,jm,isw,s,work ) end |
.shtsga(mm, jm, im, isw, m1, m2, s, work) ⇒ Object
5390 5391 5392 5393 5394 5395 5396 5397 5398 |
# File 'lib/numru/dcl/dcl.rb', line 5390 def shtsga( mm,jm,im,isw,m1,m2,s,work ) #< check array size(s) > raise "Invalid array length: s.length != (mm+1)*(mm+1)" if s.length != ((mm+1)*(mm+1)) raise "Invalid array length: work.length != (jm+1)*(4*jm+5*mm+14)+(mm+1)*(mm+1)+mm+2+6*im+15" if work.length != ((jm+1)*(4*jm+5*mm+14)+(mm+1)*(mm+1)+mm+2+6*im+15) #< call the original method > __shtsga( mm,jm,im,isw,m1,m2,s,work ) end |
.shtsgj(mm, jm, im, isw, j, m1, m2, s, work) ⇒ Object
5429 5430 5431 5432 5433 5434 5435 5436 5437 |
# File 'lib/numru/dcl/dcl.rb', line 5429 def shtsgj( mm,jm,im,isw,j,m1,m2,s,work ) #< check array size(s) > raise "Invalid array length: s.length != (mm+1)*(mm+1)" if s.length != ((mm+1)*(mm+1)) raise "Invalid array length: work.length != (jm+1)*(4*jm+5*mm+14)+(mm+1)*(mm+1)+mm+2+6*im+15" if work.length != ((jm+1)*(4*jm+5*mm+14)+(mm+1)*(mm+1)+mm+2+6*im+15) #< call the original method > __shtsgj( mm,jm,im,isw,j,m1,m2,s,work ) end |
.shtsgm(mm, jm, im, m, isw, s, work) ⇒ Object
5416 5417 5418 5419 5420 5421 5422 5423 5424 |
# File 'lib/numru/dcl/dcl.rb', line 5416 def shtsgm( mm,jm,im,m,isw,s,work ) #< check array size(s) > raise "Invalid array length: s.length != (mm+1)*(mm+1)" if s.length != ((mm+1)*(mm+1)) raise "Invalid array length: work.length != (jm+1)*(4*jm+5*mm+14)+(mm+1)*(mm+1)+mm+2+6*im+15" if work.length != ((jm+1)*(4*jm+5*mm+14)+(mm+1)*(mm+1)+mm+2+6*im+15) #< call the original method > __shtsgm( mm,jm,im,m,isw,s,work ) end |
.shtsgz(mm, jm, im, isw, s, work) ⇒ Object
5403 5404 5405 5406 5407 5408 5409 5410 5411 |
# File 'lib/numru/dcl/dcl.rb', line 5403 def shtsgz( mm,jm,im,isw,s,work ) #< check array size(s) > raise "Invalid array length: s.length != (mm+1)*(mm+1)" if s.length != ((mm+1)*(mm+1)) raise "Invalid array length: work.length != (jm+1)*(4*jm+5*mm+14)+(mm+1)*(mm+1)+mm+2+6*im+15" if work.length != ((jm+1)*(4*jm+5*mm+14)+(mm+1)*(mm+1)+mm+2+6*im+15) #< call the original method > __shtsgz( mm,jm,im,isw,s,work ) end |
.shtswa(mm, jm, isw, m1, m2, s, work) ⇒ Object
5189 5190 5191 5192 5193 5194 5195 5196 |
# File 'lib/numru/dcl/dcl.rb', line 5189 def shtswa( mm,jm,isw,m1,m2,s,work ) #< check array size(s) > raise "Invalid array length: s.length != (mm+1)*(mm+1)" if s.length != ((mm+1)*(mm+1)) #< call the original method > __shtswa( mm,jm,isw,m1,m2,s,work ) end |
.shtswj(mm, jm, isw, j, m1, m2, s, work) ⇒ Object
5225 5226 5227 5228 5229 5230 5231 5232 |
# File 'lib/numru/dcl/dcl.rb', line 5225 def shtswj( mm,jm,isw,j,m1,m2,s,work ) #< check array size(s) > raise "Invalid array length: s.length != (mm+1)*(mm+1)" if s.length != ((mm+1)*(mm+1)) #< call the original method > __shtswj( mm,jm,isw,j,m1,m2,s,work ) end |
.shtswm(mm, jm, m, isw, s, work) ⇒ Object
5213 5214 5215 5216 5217 5218 5219 5220 |
# File 'lib/numru/dcl/dcl.rb', line 5213 def shtswm( mm,jm,m,isw,s,work ) #< check array size(s) > raise "Invalid array length: s.length != (mm+1)*(mm+1)" if s.length != ((mm+1)*(mm+1)) #< call the original method > __shtswm( mm,jm,m,isw,s,work ) end |
.shtswz(mm, jm, isw, s, work) ⇒ Object
5201 5202 5203 5204 5205 5206 5207 5208 |
# File 'lib/numru/dcl/dcl.rb', line 5201 def shtswz( mm,jm,isw,s,work ) #< check array size(s) > raise "Invalid array length: s.length != (mm+1)*(mm+1)" if s.length != ((mm+1)*(mm+1)) #< call the original method > __shtswz( mm,jm,isw,s,work ) end |
.shtw2g(im, w, work) ⇒ Object
5249 5250 5251 5252 5253 5254 5255 5256 5257 5258 5259 5260 5261 5262 5263 5264 5265 5266 5267 5268 5269 5270 |
# File 'lib/numru/dcl/dcl.rb', line 5249 def shtw2g( im,w,work ) #< extract array size(s) (which was(were) formerly an argument(s)) > if ( not_nary(w) || (w.rank < 1) ) raise "w must be a NArray of rank == 2" end len_w_0 = w.shape[0] jm = ( len_w_0 - 1 ) / 2 if ( not_nary(w) || (w.rank < 2) ) raise "w must be a NArray of rank == 2" end len_w_1 = w.shape[1] mm = ( len_w_1 - 1 ) / 2 #< check array size(s) > raise "Invalid array shape: w.shape[0] != (2*jm+1)" if w.shape[0] != ((2*jm+1)) raise "Invalid array shape: w.shape[1] != (2*mm+1)" if w.shape[1] != ((2*mm+1)) raise "Invalid array length: work.length != (jm+1)*(4*jm+5*mm+14)+(mm+1)*(mm+1)+mm+2+6*im+15" if work.length != ((jm+1)*(4*jm+5*mm+14)+(mm+1)*(mm+1)+mm+2+6*im+15) #< call the original method > __shtw2g( mm,jm,im,w,work ) end |
.shtw2s(mm, jm, isw, s, work) ⇒ Object
5237 5238 5239 5240 5241 5242 5243 5244 |
# File 'lib/numru/dcl/dcl.rb', line 5237 def shtw2s( mm,jm,isw,s,work ) #< check array size(s) > raise "Invalid array length: s.length != (2*jm+1)*(2*mm+1)" if s.length != ((2*jm+1)*(2*mm+1)) #< call the original method > __shtw2s( mm,jm,isw,s,work ) end |
.shtwga(im, m1, m2, w, work) ⇒ Object
5275 5276 5277 5278 5279 5280 5281 5282 5283 5284 5285 5286 5287 5288 5289 5290 5291 5292 5293 5294 5295 5296 |
# File 'lib/numru/dcl/dcl.rb', line 5275 def shtwga( im,m1,m2,w,work ) #< extract array size(s) (which was(were) formerly an argument(s)) > if ( not_nary(w) || (w.rank < 1) ) raise "w must be a NArray of rank == 2" end len_w_0 = w.shape[0] jm = ( len_w_0 - 1 ) / 2 if ( not_nary(w) || (w.rank < 2) ) raise "w must be a NArray of rank == 2" end len_w_1 = w.shape[1] mm = ( len_w_1 - 1 ) / 2 #< check array size(s) > raise "Invalid array shape: w.shape[0] != (2*jm+1)" if w.shape[0] != ((2*jm+1)) raise "Invalid array shape: w.shape[1] != (2*mm+1)" if w.shape[1] != ((2*mm+1)) raise "Invalid array length: work.length != (jm+1)*(4*jm+5*mm+14)+(mm+1)*(mm+1)+mm+2+6*im+15" if work.length != ((jm+1)*(4*jm+5*mm+14)+(mm+1)*(mm+1)+mm+2+6*im+15) #< call the original method > __shtwga( mm,jm,im,m1,m2,w,work ) end |
.shtwgj(im, m1, m2, wj, work) ⇒ Object
5335 5336 5337 5338 5339 5340 5341 5342 5343 5344 5345 5346 |
# File 'lib/numru/dcl/dcl.rb', line 5335 def shtwgj( im,m1,m2,wj,work ) #< extract array size(s) (which was(were) formerly an argument(s)) > len_wj_0 = wj.length mm = ( len_wj_0 - 1 ) / 2 #< check array size(s) > raise "Invalid array length: wj.length != 2*mm+1" if wj.length != (2*mm+1) #< call the original method > __shtwgj( mm,im,m1,m2,wj,work ) end |
.shtwgm(mm, im, m, wr, wi, work) ⇒ Object
5301 5302 5303 5304 5305 5306 5307 5308 5309 5310 5311 5312 5313 5314 |
# File 'lib/numru/dcl/dcl.rb', line 5301 def shtwgm( mm,im,m,wr,wi,work ) #< extract array size(s) (which was(were) formerly an argument(s)) > len_wr_0 = wr.length jm = ( len_wr_0 - 1 ) / 2 #< check array size(s) > raise "Invalid array length: wr.length != 2*jm+1" if wr.length != (2*jm+1) raise "Invalid array length: wi.length != 2*jm+1" if wi.length != (2*jm+1) raise "Invalid array length: work.length != (jm+1)*(4*jm+5*mm+14)+(mm+1)*(mm+1)+mm+2+6*im+15" if work.length != ((jm+1)*(4*jm+5*mm+14)+(mm+1)*(mm+1)+mm+2+6*im+15) #< call the original method > __shtwgm( mm,jm,im,m,wr,wi,work ) end |
.shtwgz(im, wz) ⇒ Object
5319 5320 5321 5322 5323 5324 5325 5326 5327 5328 5329 5330 |
# File 'lib/numru/dcl/dcl.rb', line 5319 def shtwgz( im,wz ) #< extract array size(s) (which was(were) formerly an argument(s)) > len_wz_0 = wz.length jm = ( len_wz_0 - 1 ) / 2 #< check array size(s) > raise "Invalid array length: wz.length != 2*jm+1" if wz.length != (2*jm+1) #< call the original method > __shtwgz( jm,im,wz ) end |
.sinqb(x, wsave) ⇒ Object
5015 5016 5017 5018 5019 5020 5021 5022 5023 5024 5025 5026 5027 |
# File 'lib/numru/dcl/dcl.rb', line 5015 def sinqb( x,wsave ) #< extract array size(s) (which was(were) formerly an argument(s)) > len_x_0 = x.length n = len_x_0 #< check array size(s) > raise "Invalid array length: x.length != n" if x.length != (n) raise "Invalid array length: wsave.length != 3*n+15" if wsave.length != (3*n+15) #< call the original method > __sinqb( n,x,wsave ) end |
.sinqf(x, wsave) ⇒ Object
5032 5033 5034 5035 5036 5037 5038 5039 5040 5041 5042 5043 5044 |
# File 'lib/numru/dcl/dcl.rb', line 5032 def sinqf( x,wsave ) #< extract array size(s) (which was(were) formerly an argument(s)) > len_x_0 = x.length n = len_x_0 #< check array size(s) > raise "Invalid array length: x.length != n" if x.length != (n) raise "Invalid array length: wsave.length != 3*n+15" if wsave.length != (3*n+15) #< call the original method > __sinqf( n,x,wsave ) end |
.sint(x, wsave) ⇒ Object
5049 5050 5051 5052 5053 5054 5055 5056 5057 5058 5059 5060 5061 |
# File 'lib/numru/dcl/dcl.rb', line 5049 def sint( x,wsave ) #< extract array size(s) (which was(were) formerly an argument(s)) > len_x_0 = x.length n = len_x_0 #< check array size(s) > raise "Invalid array length: x.length != n" if x.length != (n) raise "Invalid array length: wsave.length != 2*n+n/2+15" if wsave.length != (2*n+n/2+15) #< call the original method > __sint( n,x,wsave ) end |
.swgton(wpx, wpy, itpat) ⇒ Object
912 913 914 915 916 917 918 919 920 921 922 923 924 |
# File 'lib/numru/dcl/dcl.rb', line 912 def swgton( wpx,wpy,itpat ) #< extract array size(s) (which was(were) formerly an argument(s)) > len_wpx_0 = wpx.length np = len_wpx_0 #< check array size(s) > raise "Invalid array length: wpx.length != np" if wpx.length != (np) raise "Invalid array length: wpy.length != np" if wpy.length != (np) #< call the original method > __swgton( np,wpx,wpy,itpat ) end |
.swiclr(image) ⇒ Object
946 947 948 949 950 951 952 953 954 955 956 957 |
# File 'lib/numru/dcl/dcl.rb', line 946 def swiclr( image ) #< extract array size(s) (which was(were) formerly an argument(s)) > len_image_0 = image.length nlen = len_image_0 #< check array size(s) > raise "Invalid array length: image.length != nlen" if image.length != (nlen) #< call the original method > __swiclr( image,nlen ) end |
.swidat(image) ⇒ Object
929 930 931 932 933 934 935 936 937 938 939 940 |
# File 'lib/numru/dcl/dcl.rb', line 929 def swidat( image ) #< extract array size(s) (which was(were) formerly an argument(s)) > len_image_0 = image.length nlen = len_image_0 #< check array size(s) > raise "Invalid array length: image.length != nlen" if image.length != (nlen) #< call the original method > __swidat( image,nlen ) end |
.swpget(name) ⇒ Object
124 125 126 127 128 129 130 131 132 133 134 135 |
# File 'lib/numru/dcl/dcl.rb', line 124 def swpget( name ) case name when *@@sw_char_params DCL.swcget(name) when /^l/i DCL.swlget(name) when /^[i-n]/i DCL.swiget(name) else DCL.swrget(name) end end |
.udcntr(z) ⇒ Object
991 992 993 994 995 996 997 998 999 1000 1001 1002 1003 1004 1005 1006 1007 1008 1009 1010 1011 |
# File 'lib/numru/dcl/dcl.rb', line 991 def udcntr( z ) #< extract array size(s) (which was(were) formerly an argument(s)) > if ( not_nary(z) || (z.rank < 1) ) raise "z must be a NArray of rank == 2" end len_z_0 = z.shape[0] nx = len_z_0 if ( not_nary(z) || (z.rank < 2) ) raise "z must be a NArray of rank == 2" end len_z_1 = z.shape[1] ny = len_z_1 #< check array size(s) > raise "Invalid array shape: z.shape[0] != nx" if z.shape[0] != (nx) raise "Invalid array shape: z.shape[1] != ny" if z.shape[1] != (ny) #< call the original method > __udcntr( z,nx,nx,ny ) end |
.udcntz(z) ⇒ Object
1016 1017 1018 1019 1020 1021 1022 1023 1024 1025 1026 1027 1028 1029 1030 1031 1032 1033 1034 1035 1036 1037 1038 1039 |
# File 'lib/numru/dcl/dcl.rb', line 1016 def udcntz( z ) #< extract array size(s) (which was(were) formerly an argument(s)) > if ( not_nary(z) || (z.rank < 1) ) raise "z must be a NArray of rank == 2" end len_z_0 = z.shape[0] nx = len_z_0 if ( not_nary(z) || (z.rank < 2) ) raise "z must be a NArray of rank == 2" end len_z_1 = z.shape[1] ny = len_z_1 # derivation of nbr2 is provied aditionally in the method post_filter: nbr2 = (nx+2)*(ny+2)*6/32+4 #< check array size(s) > raise "Invalid array shape: z.shape[0] != nx" if z.shape[0] != (nx) raise "Invalid array shape: z.shape[1] != ny" if z.shape[1] != (ny) #< call the original method > __udcntz( z,nx,nx,ny,nbr2 ) end |
.udgclb(z, dx) ⇒ Object
1044 1045 1046 1047 1048 1049 1050 1051 1052 1053 1054 1055 1056 1057 1058 1059 1060 1061 1062 1063 1064 |
# File 'lib/numru/dcl/dcl.rb', line 1044 def udgclb( z,dx ) #< extract array size(s) (which was(were) formerly an argument(s)) > if ( not_nary(z) || (z.rank < 1) ) raise "z must be a NArray of rank == 2" end len_z_0 = z.shape[0] nx = len_z_0 if ( not_nary(z) || (z.rank < 2) ) raise "z must be a NArray of rank == 2" end len_z_1 = z.shape[1] ny = len_z_1 #< check array size(s) > raise "Invalid array shape: z.shape[0] != nx" if z.shape[0] != (nx) raise "Invalid array shape: z.shape[1] != ny" if z.shape[1] != (ny) #< call the original method > __udgclb( z,nx,nx,ny,dx ) end |
.uegtlb(z, dx) ⇒ Object
1197 1198 1199 1200 1201 1202 1203 1204 1205 1206 1207 1208 1209 1210 1211 1212 1213 1214 1215 1216 1217 |
# File 'lib/numru/dcl/dcl.rb', line 1197 def uegtlb( z,dx ) #< extract array size(s) (which was(were) formerly an argument(s)) > if ( not_nary(z) || (z.rank < 1) ) raise "z must be a NArray of rank == 2" end len_z_0 = z.shape[0] nx = len_z_0 if ( not_nary(z) || (z.rank < 2) ) raise "z must be a NArray of rank == 2" end len_z_1 = z.shape[1] ny = len_z_1 #< check array size(s) > raise "Invalid array shape: z.shape[0] != nx" if z.shape[0] != (nx) raise "Invalid array shape: z.shape[1] != ny" if z.shape[1] != (ny) #< call the original method > __uegtlb( z,nx,nx,ny,dx ) end |
.uemrkz(upx, upy, z, itype, index, rsize) ⇒ Object
5577 5578 5579 5580 5581 5582 5583 5584 5585 5586 5587 5588 5589 5590 5591 5592 5593 5594 5595 5596 5597 5598 5599 |
# File 'lib/numru/dcl/dcl.rb', line 5577 def uemrkz( upx,upy,z,itype,index,rsize ) #< extract array size(s) (which was(were) formerly an argument(s)) > if ! ( upx == nil || upx.is_a?(Float) && lreq( upx, glrget("RUNDEF") ) ) len_upx_0 = upx.length n = len_upx_0 else upx = glrget("RUNDEF") if ( upx == nil ) len_upy_0 = upy.length n = len_upy_0 end #< check array size(s) > raise "Invalid array length: upx.length != n" if \ upx!=nil && !( upx.is_a?(Float) && lreq(upx,glrget("RUNDEF")) ) && upx.length != (n) raise "Invalid array length: upy.length != n" if \ upy!=nil && !( upy.is_a?(Float) && lreq(upy,glrget("RUNDEF")) ) && upy.length != (n) raise "Invalid array length: z.length != n" if \ z!=nil && !( z.is_a?(Float) && lreq(z,glrget("RUNDEF")) ) && z.length != (n) #< call the original method > __uemrkz( n,upx,upy,z,itype,index,rsize ) end |
.uestln(tlevn, ipatn) ⇒ Object
1222 1223 1224 1225 1226 1227 1228 1229 1230 1231 1232 1233 1234 |
# File 'lib/numru/dcl/dcl.rb', line 1222 def uestln( tlevn,ipatn ) #< extract array size(s) (which was(were) formerly an argument(s)) > len_tlevn_0 = tlevn.length nton = len_tlevn_0 - 1 #< check array size(s) > raise "Invalid array length: tlevn.length != nton+1" if tlevn.length != (nton+1) raise "Invalid array length: ipatn.length != nton" if ipatn.length != (nton) #< call the original method > __uestln( tlevn,ipatn,nton ) end |
.uetonb(z) ⇒ Object
1120 1121 1122 1123 1124 1125 1126 1127 1128 1129 1130 1131 1132 1133 1134 1135 1136 1137 1138 1139 1140 |
# File 'lib/numru/dcl/dcl.rb', line 1120 def uetonb( z ) #< extract array size(s) (which was(were) formerly an argument(s)) > if ( not_nary(z) || (z.rank < 1) ) raise "z must be a NArray of rank == 2" end len_z_0 = z.shape[0] nx = len_z_0 if ( not_nary(z) || (z.rank < 2) ) raise "z must be a NArray of rank == 2" end len_z_1 = z.shape[1] ny = len_z_1 #< check array size(s) > raise "Invalid array shape: z.shape[0] != nx" if z.shape[0] != (nx) raise "Invalid array shape: z.shape[1] != ny" if z.shape[1] != (ny) #< call the original method > __uetonb( z,nx,nx,ny ) end |
.uetonc(z) ⇒ Object
1147 1148 1149 1150 1151 1152 1153 1154 1155 1156 1157 1158 1159 1160 1161 1162 1163 1164 1165 1166 1167 |
# File 'lib/numru/dcl/dcl.rb', line 1147 def uetonc( z ) #< extract array size(s) (which was(were) formerly an argument(s)) > if ( not_nary(z) || (z.rank < 1) ) raise "z must be a NArray of rank == 2" end len_z_0 = z.shape[0] nx = len_z_0 if ( not_nary(z) || (z.rank < 2) ) raise "z must be a NArray of rank == 2" end len_z_1 = z.shape[1] ny = len_z_1 #< check array size(s) > raise "Invalid array shape: z.shape[0] != nx" if z.shape[0] != (nx) raise "Invalid array shape: z.shape[1] != ny" if z.shape[1] != (ny) #< call the original method > __uetonc( z,nx,nx,ny ) end |
.uetone(z) ⇒ Object
1069 1070 1071 1072 1073 1074 1075 1076 1077 1078 1079 1080 1081 1082 1083 1084 1085 1086 1087 1088 1089 |
# File 'lib/numru/dcl/dcl.rb', line 1069 def uetone( z ) #< extract array size(s) (which was(were) formerly an argument(s)) > if ( not_nary(z) || (z.rank < 1) ) raise "z must be a NArray of rank == 2" end len_z_0 = z.shape[0] nx = len_z_0 if ( not_nary(z) || (z.rank < 2) ) raise "z must be a NArray of rank == 2" end len_z_1 = z.shape[1] ny = len_z_1 #< check array size(s) > raise "Invalid array shape: z.shape[0] != nx" if z.shape[0] != (nx) raise "Invalid array shape: z.shape[1] != ny" if z.shape[1] != (ny) #< call the original method > __uetone( z,nx,nx,ny ) end |
.uetonf(z) ⇒ Object
1094 1095 1096 1097 1098 1099 1100 1101 1102 1103 1104 1105 1106 1107 1108 1109 1110 1111 1112 1113 1114 |
# File 'lib/numru/dcl/dcl.rb', line 1094 def uetonf( z ) #< extract array size(s) (which was(were) formerly an argument(s)) > if ( not_nary(z) || (z.rank < 1) ) raise "z must be a NArray of rank == 2" end len_z_0 = z.shape[0] nx = len_z_0 if ( not_nary(z) || (z.rank < 2) ) raise "z must be a NArray of rank == 2" end len_z_1 = z.shape[1] ny = len_z_1 #< check array size(s) > raise "Invalid array shape: z.shape[0] != nx" if z.shape[0] != (nx) raise "Invalid array shape: z.shape[1] != ny" if z.shape[1] != (ny) #< call the original method > __uetonf( z,nx,nx,ny ) end |
.uezchk(z, cname) ⇒ Object
1172 1173 1174 1175 1176 1177 1178 1179 1180 1181 1182 1183 1184 1185 1186 1187 1188 1189 1190 1191 1192 |
# File 'lib/numru/dcl/dcl.rb', line 1172 def uezchk( z,cname ) #< extract array size(s) (which was(were) formerly an argument(s)) > if ( not_nary(z) || (z.rank < 1) ) raise "z must be a NArray of rank == 2" end len_z_0 = z.shape[0] nx = len_z_0 if ( not_nary(z) || (z.rank < 2) ) raise "z must be a NArray of rank == 2" end len_z_1 = z.shape[1] ny = len_z_1 #< check array size(s) > raise "Invalid array shape: z.shape[0] != nx" if z.shape[0] != (nx) raise "Invalid array shape: z.shape[1] != ny" if z.shape[1] != (ny) #< call the original method > __uezchk( z,nx,nx,ny,cname ) end |
.ugvect(u, v) ⇒ Object
1239 1240 1241 1242 1243 1244 1245 1246 1247 1248 1249 1250 1251 1252 1253 1254 1255 1256 1257 1258 1259 1260 1261 |
# File 'lib/numru/dcl/dcl.rb', line 1239 def ugvect( u,v ) #< extract array size(s) (which was(were) formerly an argument(s)) > if ( not_nary(u) || (u.rank < 1) ) raise "u must be a NArray of rank == 2" end len_u_0 = u.shape[0] nx = len_u_0 if ( not_nary(u) || (u.rank < 2) ) raise "u must be a NArray of rank == 2" end len_u_1 = u.shape[1] ny = len_u_1 #< check array size(s) > raise "Invalid array shape: u.shape[0] != nx" if u.shape[0] != (nx) raise "Invalid array shape: u.shape[1] != ny" if u.shape[1] != (ny) raise "Invalid array shape: v.shape[0] != nx" if v.shape[0] != (nx) raise "Invalid array shape: v.shape[1] != ny" if v.shape[1] != (ny) #< call the original method > __ugvect( u,nx,v,nx,nx,ny ) end |
.uhbra(upx1, upx2, upy) ⇒ Object
1464 1465 1466 1467 1468 1469 1470 1471 1472 1473 1474 1475 1476 1477 1478 1479 1480 1481 1482 1483 1484 1485 1486 1487 1488 1489 1490 1491 1492 |
# File 'lib/numru/dcl/dcl.rb', line 1464 def uhbra( upx1,upx2,upy ) #< extract array size(s) (which was(were) formerly an argument(s)) > if ! ( upx1 == nil || upx1.is_a?(Float) && lreq( upx1, glrget("RUNDEF") ) ) len_upx1_0 = upx1.length n = len_upx1_0 else upx1 = glrget("RUNDEF") if ( upx1 == nil ) if ! ( upx2 == nil || upx2.is_a?(Float) && lreq( upx2, glrget("RUNDEF") ) ) len_upx2_0 = upx2.length n = len_upx2_0 else upx2 = glrget("RUNDEF") if ( upx2 == nil ) len_upy_0 = upy.length n = len_upy_0 end end #< check array size(s) > raise "Invalid array length: upx1.length != n" if \ upx1!=nil && !( upx1.is_a?(Float) && lreq(upx1,glrget("RUNDEF")) ) && upx1.length != (n) raise "Invalid array length: upx2.length != n" if \ upx2!=nil && !( upx2.is_a?(Float) && lreq(upx2,glrget("RUNDEF")) ) && upx2.length != (n) raise "Invalid array length: upy.length != n" if \ upy!=nil && !( upy.is_a?(Float) && lreq(upy,glrget("RUNDEF")) ) && upy.length != (n) #< call the original method > __uhbra( n,upx1,upx2,upy ) end |
.uhbraz(upx1, upx2, upy, itpat1, itpat2, rsize) ⇒ Object
1497 1498 1499 1500 1501 1502 1503 1504 1505 1506 1507 1508 1509 1510 1511 1512 1513 1514 1515 1516 1517 1518 1519 1520 1521 1522 1523 1524 1525 |
# File 'lib/numru/dcl/dcl.rb', line 1497 def uhbraz( upx1,upx2,upy,itpat1,itpat2,rsize ) #< extract array size(s) (which was(were) formerly an argument(s)) > if ! ( upx1 == nil || upx1.is_a?(Float) && lreq( upx1, glrget("RUNDEF") ) ) len_upx1_0 = upx1.length n = len_upx1_0 else upx1 = glrget("RUNDEF") if ( upx1 == nil ) if ! ( upx2 == nil || upx2.is_a?(Float) && lreq( upx2, glrget("RUNDEF") ) ) len_upx2_0 = upx2.length n = len_upx2_0 else upx2 = glrget("RUNDEF") if ( upx2 == nil ) len_upy_0 = upy.length n = len_upy_0 end end #< check array size(s) > raise "Invalid array length: upx1.length != n" if \ upx1!=nil && !( upx1.is_a?(Float) && lreq(upx1,glrget("RUNDEF")) ) && upx1.length != (n) raise "Invalid array length: upx2.length != n" if \ upx2!=nil && !( upx2.is_a?(Float) && lreq(upx2,glrget("RUNDEF")) ) && upx2.length != (n) raise "Invalid array length: upy.length != n" if \ upy!=nil && !( upy.is_a?(Float) && lreq(upy,glrget("RUNDEF")) ) && upy.length != (n) #< call the original method > __uhbraz( n,upx1,upx2,upy,itpat1,itpat2,rsize ) end |
.uhbrf(upx1, upx2, upy) ⇒ Object
1398 1399 1400 1401 1402 1403 1404 1405 1406 1407 1408 1409 1410 1411 1412 1413 1414 1415 1416 1417 1418 1419 1420 1421 1422 1423 1424 1425 1426 |
# File 'lib/numru/dcl/dcl.rb', line 1398 def uhbrf( upx1,upx2,upy ) #< extract array size(s) (which was(were) formerly an argument(s)) > if ! ( upx1 == nil || upx1.is_a?(Float) && lreq( upx1, glrget("RUNDEF") ) ) len_upx1_0 = upx1.length n = len_upx1_0 else upx1 = glrget("RUNDEF") if ( upx1 == nil ) if ! ( upx2 == nil || upx2.is_a?(Float) && lreq( upx2, glrget("RUNDEF") ) ) len_upx2_0 = upx2.length n = len_upx2_0 else upx2 = glrget("RUNDEF") if ( upx2 == nil ) len_upy_0 = upy.length n = len_upy_0 end end #< check array size(s) > raise "Invalid array length: upx1.length != n" if \ upx1!=nil && !( upx1.is_a?(Float) && lreq(upx1,glrget("RUNDEF")) ) && upx1.length != (n) raise "Invalid array length: upx2.length != n" if \ upx2!=nil && !( upx2.is_a?(Float) && lreq(upx2,glrget("RUNDEF")) ) && upx2.length != (n) raise "Invalid array length: upy.length != n" if \ upy!=nil && !( upy.is_a?(Float) && lreq(upy,glrget("RUNDEF")) ) && upy.length != (n) #< call the original method > __uhbrf( n,upx1,upx2,upy ) end |
.uhbrfz(upx1, upx2, upy, itype, index, rsize) ⇒ Object
1431 1432 1433 1434 1435 1436 1437 1438 1439 1440 1441 1442 1443 1444 1445 1446 1447 1448 1449 1450 1451 1452 1453 1454 1455 1456 1457 1458 1459 |
# File 'lib/numru/dcl/dcl.rb', line 1431 def uhbrfz( upx1,upx2,upy,itype,index,rsize ) #< extract array size(s) (which was(were) formerly an argument(s)) > if ! ( upx1 == nil || upx1.is_a?(Float) && lreq( upx1, glrget("RUNDEF") ) ) len_upx1_0 = upx1.length n = len_upx1_0 else upx1 = glrget("RUNDEF") if ( upx1 == nil ) if ! ( upx2 == nil || upx2.is_a?(Float) && lreq( upx2, glrget("RUNDEF") ) ) len_upx2_0 = upx2.length n = len_upx2_0 else upx2 = glrget("RUNDEF") if ( upx2 == nil ) len_upy_0 = upy.length n = len_upy_0 end end #< check array size(s) > raise "Invalid array length: upx1.length != n" if \ upx1!=nil && !( upx1.is_a?(Float) && lreq(upx1,glrget("RUNDEF")) ) && upx1.length != (n) raise "Invalid array length: upx2.length != n" if \ upx2!=nil && !( upx2.is_a?(Float) && lreq(upx2,glrget("RUNDEF")) ) && upx2.length != (n) raise "Invalid array length: upy.length != n" if \ upy!=nil && !( upy.is_a?(Float) && lreq(upy,glrget("RUNDEF")) ) && upy.length != (n) #< call the original method > __uhbrfz( n,upx1,upx2,upy,itype,index,rsize ) end |
.uhbrl(upx, upy) ⇒ Object
1530 1531 1532 1533 1534 1535 1536 1537 1538 1539 1540 1541 1542 1543 1544 1545 1546 1547 1548 1549 1550 |
# File 'lib/numru/dcl/dcl.rb', line 1530 def uhbrl( upx,upy ) #< extract array size(s) (which was(were) formerly an argument(s)) > if ! ( upx == nil || upx.is_a?(Float) && lreq( upx, glrget("RUNDEF") ) ) len_upx_0 = upx.length n = len_upx_0 else upx = glrget("RUNDEF") if ( upx == nil ) len_upy_0 = upy.length n = len_upy_0 end #< check array size(s) > raise "Invalid array length: upx.length != n" if \ upx!=nil && !( upx.is_a?(Float) && lreq(upx,glrget("RUNDEF")) ) && upx.length != (n) raise "Invalid array length: upy.length != n" if \ upy!=nil && !( upy.is_a?(Float) && lreq(upy,glrget("RUNDEF")) ) && upy.length != (n) #< call the original method > __uhbrl( n,upx,upy ) end |
.uhbrlz(upx, upy, itype, index, rsize) ⇒ Object
1555 1556 1557 1558 1559 1560 1561 1562 1563 1564 1565 1566 1567 1568 1569 1570 1571 1572 1573 1574 1575 |
# File 'lib/numru/dcl/dcl.rb', line 1555 def uhbrlz( upx,upy,itype,index,rsize ) #< extract array size(s) (which was(were) formerly an argument(s)) > if ! ( upx == nil || upx.is_a?(Float) && lreq( upx, glrget("RUNDEF") ) ) len_upx_0 = upx.length n = len_upx_0 else upx = glrget("RUNDEF") if ( upx == nil ) len_upy_0 = upy.length n = len_upy_0 end #< check array size(s) > raise "Invalid array length: upx.length != n" if \ upx!=nil && !( upx.is_a?(Float) && lreq(upx,glrget("RUNDEF")) ) && upx.length != (n) raise "Invalid array length: upy.length != n" if \ upy!=nil && !( upy.is_a?(Float) && lreq(upy,glrget("RUNDEF")) ) && upy.length != (n) #< call the original method > __uhbrlz( n,upx,upy,itype,index,rsize ) end |
.uhbxa(upx1, upx2, upy) ⇒ Object
1646 1647 1648 1649 1650 1651 1652 1653 1654 1655 1656 1657 1658 1659 1660 1661 1662 1663 1664 1665 1666 1667 1668 1669 1670 1671 1672 1673 1674 |
# File 'lib/numru/dcl/dcl.rb', line 1646 def uhbxa( upx1,upx2,upy ) #< extract array size(s) (which was(were) formerly an argument(s)) > if ! ( upx1 == nil || upx1.is_a?(Float) && lreq( upx1, glrget("RUNDEF") ) ) len_upx1_0 = upx1.length n = len_upx1_0 else upx1 = glrget("RUNDEF") if ( upx1 == nil ) if ! ( upx2 == nil || upx2.is_a?(Float) && lreq( upx2, glrget("RUNDEF") ) ) len_upx2_0 = upx2.length n = len_upx2_0 else upx2 = glrget("RUNDEF") if ( upx2 == nil ) len_upy_0 = upy.length n = len_upy_0 - 1 end end #< check array size(s) > raise "Invalid array length: upx1.length != n" if \ upx1!=nil && !( upx1.is_a?(Float) && lreq(upx1,glrget("RUNDEF")) ) && upx1.length != (n) raise "Invalid array length: upx2.length != n" if \ upx2!=nil && !( upx2.is_a?(Float) && lreq(upx2,glrget("RUNDEF")) ) && upx2.length != (n) raise "Invalid array length: upy.length != n+1" if \ upy!=nil && !( upy.is_a?(Float) && lreq(upy,glrget("RUNDEF")) ) && upy.length != (n+1) #< call the original method > __uhbxa( n,upx1,upx2,upy ) end |
.uhbxaz(upx1, upx2, upy, itpat1, itpat2) ⇒ Object
1704 1705 1706 1707 1708 1709 1710 1711 1712 1713 1714 1715 1716 1717 1718 1719 1720 1721 1722 1723 1724 1725 1726 1727 1728 1729 1730 1731 1732 |
# File 'lib/numru/dcl/dcl.rb', line 1704 def uhbxaz( upx1,upx2,upy,itpat1,itpat2 ) #< extract array size(s) (which was(were) formerly an argument(s)) > if ! ( upx1 == nil || upx1.is_a?(Float) && lreq( upx1, glrget("RUNDEF") ) ) len_upx1_0 = upx1.length n = len_upx1_0 else upx1 = glrget("RUNDEF") if ( upx1 == nil ) if ! ( upx2 == nil || upx2.is_a?(Float) && lreq( upx2, glrget("RUNDEF") ) ) len_upx2_0 = upx2.length n = len_upx2_0 else upx2 = glrget("RUNDEF") if ( upx2 == nil ) len_upy_0 = upy.length n = len_upy_0 - 1 end end #< check array size(s) > raise "Invalid array length: upx1.length != n" if \ upx1!=nil && !( upx1.is_a?(Float) && lreq(upx1,glrget("RUNDEF")) ) && upx1.length != (n) raise "Invalid array length: upx2.length != n" if \ upx2!=nil && !( upx2.is_a?(Float) && lreq(upx2,glrget("RUNDEF")) ) && upx2.length != (n) raise "Invalid array length: upy.length != n+1" if \ upy!=nil && !( upy.is_a?(Float) && lreq(upy,glrget("RUNDEF")) ) && upy.length != (n+1) #< call the original method > __uhbxaz( n,upx1,upx2,upy,itpat1,itpat2 ) end |
.uhbxf(upx1, upx2, upy) ⇒ Object
1580 1581 1582 1583 1584 1585 1586 1587 1588 1589 1590 1591 1592 1593 1594 1595 1596 1597 1598 1599 1600 1601 1602 1603 1604 1605 1606 1607 1608 |
# File 'lib/numru/dcl/dcl.rb', line 1580 def uhbxf( upx1,upx2,upy ) #< extract array size(s) (which was(were) formerly an argument(s)) > if ! ( upx1 == nil || upx1.is_a?(Float) && lreq( upx1, glrget("RUNDEF") ) ) len_upx1_0 = upx1.length n = len_upx1_0 else upx1 = glrget("RUNDEF") if ( upx1 == nil ) if ! ( upx2 == nil || upx2.is_a?(Float) && lreq( upx2, glrget("RUNDEF") ) ) len_upx2_0 = upx2.length n = len_upx2_0 else upx2 = glrget("RUNDEF") if ( upx2 == nil ) len_upy_0 = upy.length n = len_upy_0 - 1 end end #< check array size(s) > raise "Invalid array length: upx1.length != n" if \ upx1!=nil && !( upx1.is_a?(Float) && lreq(upx1,glrget("RUNDEF")) ) && upx1.length != (n) raise "Invalid array length: upx2.length != n" if \ upx2!=nil && !( upx2.is_a?(Float) && lreq(upx2,glrget("RUNDEF")) ) && upx2.length != (n) raise "Invalid array length: upy.length != n+1" if \ upy!=nil && !( upy.is_a?(Float) && lreq(upy,glrget("RUNDEF")) ) && upy.length != (n+1) #< call the original method > __uhbxf( n,upx1,upx2,upy ) end |
.uhbxfz(upx1, upx2, upy, itype, index) ⇒ Object
1613 1614 1615 1616 1617 1618 1619 1620 1621 1622 1623 1624 1625 1626 1627 1628 1629 1630 1631 1632 1633 1634 1635 1636 1637 1638 1639 1640 1641 |
# File 'lib/numru/dcl/dcl.rb', line 1613 def uhbxfz( upx1,upx2,upy,itype,index ) #< extract array size(s) (which was(were) formerly an argument(s)) > if ! ( upx1 == nil || upx1.is_a?(Float) && lreq( upx1, glrget("RUNDEF") ) ) len_upx1_0 = upx1.length n = len_upx1_0 else upx1 = glrget("RUNDEF") if ( upx1 == nil ) if ! ( upx2 == nil || upx2.is_a?(Float) && lreq( upx2, glrget("RUNDEF") ) ) len_upx2_0 = upx2.length n = len_upx2_0 else upx2 = glrget("RUNDEF") if ( upx2 == nil ) len_upy_0 = upy.length n = len_upy_0 - 1 end end #< check array size(s) > raise "Invalid array length: upx1.length != n" if \ upx1!=nil && !( upx1.is_a?(Float) && lreq(upx1,glrget("RUNDEF")) ) && upx1.length != (n) raise "Invalid array length: upx2.length != n" if \ upx2!=nil && !( upx2.is_a?(Float) && lreq(upx2,glrget("RUNDEF")) ) && upx2.length != (n) raise "Invalid array length: upy.length != n+1" if \ upy!=nil && !( upy.is_a?(Float) && lreq(upy,glrget("RUNDEF")) ) && upy.length != (n+1) #< call the original method > __uhbxfz( n,upx1,upx2,upy,itype,index ) end |
.uhbxl(upx, upy) ⇒ Object
1679 1680 1681 1682 1683 1684 1685 1686 1687 1688 1689 1690 1691 1692 1693 1694 1695 1696 1697 1698 1699 |
# File 'lib/numru/dcl/dcl.rb', line 1679 def uhbxl( upx,upy ) #< extract array size(s) (which was(were) formerly an argument(s)) > if ! ( upx == nil || upx.is_a?(Float) && lreq( upx, glrget("RUNDEF") ) ) len_upx_0 = upx.length n = len_upx_0 else upx = glrget("RUNDEF") if ( upx == nil ) len_upy_0 = upy.length n = len_upy_0 - 1 end #< check array size(s) > raise "Invalid array length: upx.length != n" if \ upx!=nil && !( upx.is_a?(Float) && lreq(upx,glrget("RUNDEF")) ) && upx.length != (n) raise "Invalid array length: upy.length != n+1" if \ upy!=nil && !( upy.is_a?(Float) && lreq(upy,glrget("RUNDEF")) ) && upy.length != (n+1) #< call the original method > __uhbxl( n,upx,upy ) end |
.uhbxlz(upx, upy, itype, index) ⇒ Object
1737 1738 1739 1740 1741 1742 1743 1744 1745 1746 1747 1748 1749 1750 1751 1752 1753 1754 1755 1756 1757 |
# File 'lib/numru/dcl/dcl.rb', line 1737 def uhbxlz( upx,upy,itype,index ) #< extract array size(s) (which was(were) formerly an argument(s)) > if ! ( upx == nil || upx.is_a?(Float) && lreq( upx, glrget("RUNDEF") ) ) len_upx_0 = upx.length n = len_upx_0 else upx = glrget("RUNDEF") if ( upx == nil ) len_upy_0 = upy.length n = len_upy_0 - 1 end #< check array size(s) > raise "Invalid array length: upx.length != n" if \ upx!=nil && !( upx.is_a?(Float) && lreq(upx,glrget("RUNDEF")) ) && upx.length != (n) raise "Invalid array length: upy.length != n+1" if \ upy!=nil && !( upy.is_a?(Float) && lreq(upy,glrget("RUNDEF")) ) && upy.length != (n+1) #< call the original method > __uhbxlz( n,upx,upy,itype,index ) end |
.uhdif(upx1, upx2, upy) ⇒ Object
1332 1333 1334 1335 1336 1337 1338 1339 1340 1341 1342 1343 1344 1345 1346 1347 1348 1349 1350 1351 1352 1353 1354 1355 1356 1357 1358 1359 1360 |
# File 'lib/numru/dcl/dcl.rb', line 1332 def uhdif( upx1,upx2,upy ) #< extract array size(s) (which was(were) formerly an argument(s)) > if ! ( upx1 == nil || upx1.is_a?(Float) && lreq( upx1, glrget("RUNDEF") ) ) len_upx1_0 = upx1.length n = len_upx1_0 else upx1 = glrget("RUNDEF") if ( upx1 == nil ) if ! ( upx2 == nil || upx2.is_a?(Float) && lreq( upx2, glrget("RUNDEF") ) ) len_upx2_0 = upx2.length n = len_upx2_0 else upx2 = glrget("RUNDEF") if ( upx2 == nil ) len_upy_0 = upy.length n = len_upy_0 end end #< check array size(s) > raise "Invalid array length: upx1.length != n" if \ upx1!=nil && !( upx1.is_a?(Float) && lreq(upx1,glrget("RUNDEF")) ) && upx1.length != (n) raise "Invalid array length: upx2.length != n" if \ upx2!=nil && !( upx2.is_a?(Float) && lreq(upx2,glrget("RUNDEF")) ) && upx2.length != (n) raise "Invalid array length: upy.length != n" if \ upy!=nil && !( upy.is_a?(Float) && lreq(upy,glrget("RUNDEF")) ) && upy.length != (n) #< call the original method > __uhdif( n,upx1,upx2,upy ) end |
.uhdifz(upx1, upx2, upy, itpat1, itpat2) ⇒ Object
1365 1366 1367 1368 1369 1370 1371 1372 1373 1374 1375 1376 1377 1378 1379 1380 1381 1382 1383 1384 1385 1386 1387 1388 1389 1390 1391 1392 1393 |
# File 'lib/numru/dcl/dcl.rb', line 1365 def uhdifz( upx1,upx2,upy,itpat1,itpat2 ) #< extract array size(s) (which was(were) formerly an argument(s)) > if ! ( upx1 == nil || upx1.is_a?(Float) && lreq( upx1, glrget("RUNDEF") ) ) len_upx1_0 = upx1.length n = len_upx1_0 else upx1 = glrget("RUNDEF") if ( upx1 == nil ) if ! ( upx2 == nil || upx2.is_a?(Float) && lreq( upx2, glrget("RUNDEF") ) ) len_upx2_0 = upx2.length n = len_upx2_0 else upx2 = glrget("RUNDEF") if ( upx2 == nil ) len_upy_0 = upy.length n = len_upy_0 end end #< check array size(s) > raise "Invalid array length: upx1.length != n" if \ upx1!=nil && !( upx1.is_a?(Float) && lreq(upx1,glrget("RUNDEF")) ) && upx1.length != (n) raise "Invalid array length: upx2.length != n" if \ upx2!=nil && !( upx2.is_a?(Float) && lreq(upx2,glrget("RUNDEF")) ) && upx2.length != (n) raise "Invalid array length: upy.length != n" if \ upy!=nil && !( upy.is_a?(Float) && lreq(upy,glrget("RUNDEF")) ) && upy.length != (n) #< call the original method > __uhdifz( n,upx1,upx2,upy,itpat1,itpat2 ) end |
.uherb(upx1, upx2, upy) ⇒ Object
1266 1267 1268 1269 1270 1271 1272 1273 1274 1275 1276 1277 1278 1279 1280 1281 1282 1283 1284 1285 1286 1287 1288 1289 1290 1291 1292 1293 1294 |
# File 'lib/numru/dcl/dcl.rb', line 1266 def uherb( upx1,upx2,upy ) #< extract array size(s) (which was(were) formerly an argument(s)) > if ! ( upx1 == nil || upx1.is_a?(Float) && lreq( upx1, glrget("RUNDEF") ) ) len_upx1_0 = upx1.length n = len_upx1_0 else upx1 = glrget("RUNDEF") if ( upx1 == nil ) if ! ( upx2 == nil || upx2.is_a?(Float) && lreq( upx2, glrget("RUNDEF") ) ) len_upx2_0 = upx2.length n = len_upx2_0 else upx2 = glrget("RUNDEF") if ( upx2 == nil ) len_upy_0 = upy.length n = len_upy_0 end end #< check array size(s) > raise "Invalid array length: upx1.length != n" if \ upx1!=nil && !( upx1.is_a?(Float) && lreq(upx1,glrget("RUNDEF")) ) && upx1.length != (n) raise "Invalid array length: upx2.length != n" if \ upx2!=nil && !( upx2.is_a?(Float) && lreq(upx2,glrget("RUNDEF")) ) && upx2.length != (n) raise "Invalid array length: upy.length != n" if \ upy!=nil && !( upy.is_a?(Float) && lreq(upy,glrget("RUNDEF")) ) && upy.length != (n) #< call the original method > __uherb( n,upx1,upx2,upy ) end |
.uherbz(upx1, upx2, upy, itype, index, rsize) ⇒ Object
1299 1300 1301 1302 1303 1304 1305 1306 1307 1308 1309 1310 1311 1312 1313 1314 1315 1316 1317 1318 1319 1320 1321 1322 1323 1324 1325 1326 1327 |
# File 'lib/numru/dcl/dcl.rb', line 1299 def uherbz( upx1,upx2,upy,itype,index,rsize ) #< extract array size(s) (which was(were) formerly an argument(s)) > if ! ( upx1 == nil || upx1.is_a?(Float) && lreq( upx1, glrget("RUNDEF") ) ) len_upx1_0 = upx1.length n = len_upx1_0 else upx1 = glrget("RUNDEF") if ( upx1 == nil ) if ! ( upx2 == nil || upx2.is_a?(Float) && lreq( upx2, glrget("RUNDEF") ) ) len_upx2_0 = upx2.length n = len_upx2_0 else upx2 = glrget("RUNDEF") if ( upx2 == nil ) len_upy_0 = upy.length n = len_upy_0 end end #< check array size(s) > raise "Invalid array length: upx1.length != n" if \ upx1!=nil && !( upx1.is_a?(Float) && lreq(upx1,glrget("RUNDEF")) ) && upx1.length != (n) raise "Invalid array length: upx2.length != n" if \ upx2!=nil && !( upx2.is_a?(Float) && lreq(upx2,glrget("RUNDEF")) ) && upx2.length != (n) raise "Invalid array length: upy.length != n" if \ upy!=nil && !( upy.is_a?(Float) && lreq(upy,glrget("RUNDEF")) ) && upy.length != (n) #< call the original method > __uherbz( n,upx1,upx2,upy,itype,index,rsize ) end |
.uipda2(u, v) ⇒ Object
1788 1789 1790 1791 1792 1793 1794 1795 1796 1797 1798 1799 1800 1801 1802 1803 1804 1805 1806 1807 1808 1809 1810 |
# File 'lib/numru/dcl/dcl.rb', line 1788 def uipda2( u,v ) #< extract array size(s) (which was(were) formerly an argument(s)) > if ( not_nary(u) || (u.rank < 1) ) raise "u must be a NArray of rank == 2" end len_u_0 = u.shape[0] nx = len_u_0 if ( not_nary(u) || (u.rank < 2) ) raise "u must be a NArray of rank == 2" end len_u_1 = u.shape[1] ny = len_u_1 #< check array size(s) > raise "Invalid array shape: u.shape[0] != nx" if u.shape[0] != (nx) raise "Invalid array shape: u.shape[1] != ny" if u.shape[1] != (ny) raise "Invalid array shape: v.shape[0] != nx" if v.shape[0] != (nx) raise "Invalid array shape: v.shape[1] != ny" if v.shape[1] != (ny) #< call the original method > __uipda2( u,v,nx,nx,ny ) end |
.uipda3(u, v, w) ⇒ Object
1815 1816 1817 1818 1819 1820 1821 1822 1823 1824 1825 1826 1827 1828 1829 1830 1831 1832 1833 1834 1835 1836 1837 1838 1839 |
# File 'lib/numru/dcl/dcl.rb', line 1815 def uipda3( u,v,w ) #< extract array size(s) (which was(were) formerly an argument(s)) > if ( not_nary(u) || (u.rank < 1) ) raise "u must be a NArray of rank == 2" end len_u_0 = u.shape[0] nx = len_u_0 if ( not_nary(u) || (u.rank < 2) ) raise "u must be a NArray of rank == 2" end len_u_1 = u.shape[1] ny = len_u_1 #< check array size(s) > raise "Invalid array shape: u.shape[0] != nx" if u.shape[0] != (nx) raise "Invalid array shape: u.shape[1] != ny" if u.shape[1] != (ny) raise "Invalid array shape: v.shape[0] != nx" if v.shape[0] != (nx) raise "Invalid array shape: v.shape[1] != ny" if v.shape[1] != (ny) raise "Invalid array shape: w.shape[0] != nx" if w.shape[0] != (nx) raise "Invalid array shape: w.shape[1] != ny" if w.shape[1] != (ny) #< call the original method > __uipda3( u,v,w,nx,nx,ny ) end |
.uipdat(z) ⇒ Object
1763 1764 1765 1766 1767 1768 1769 1770 1771 1772 1773 1774 1775 1776 1777 1778 1779 1780 1781 1782 1783 |
# File 'lib/numru/dcl/dcl.rb', line 1763 def uipdat( z ) #< extract array size(s) (which was(were) formerly an argument(s)) > if ( not_nary(z) || (z.rank < 1) ) raise "z must be a NArray of rank == 2" end len_z_0 = z.shape[0] nx = len_z_0 if ( not_nary(z) || (z.rank < 2) ) raise "z must be a NArray of rank == 2" end len_z_1 = z.shape[1] ny = len_z_1 #< check array size(s) > raise "Invalid array shape: z.shape[0] != nx" if z.shape[0] != (nx) raise "Invalid array shape: z.shape[1] != ny" if z.shape[1] != (ny) #< call the original method > __uipdat( z,nx,nx,ny ) end |
.uiscsq(clrlvl, icolor) ⇒ Object
1844 1845 1846 1847 1848 1849 1850 1851 1852 1853 1854 1855 1856 |
# File 'lib/numru/dcl/dcl.rb', line 1844 def uiscsq( clrlvl,icolor ) #< extract array size(s) (which was(were) formerly an argument(s)) > len_clrlvl_0 = clrlvl.length n = len_clrlvl_0 #< check array size(s) > raise "Invalid array length: clrlvl.length != n" if clrlvl.length != (n) raise "Invalid array length: icolor.length != n" if icolor.length != (n) #< call the original method > __uiscsq( clrlvl,icolor,n ) end |
.uismsq(shdlvl, shade) ⇒ Object
1861 1862 1863 1864 1865 1866 1867 1868 1869 1870 1871 1872 1873 |
# File 'lib/numru/dcl/dcl.rb', line 1861 def uismsq( shdlvl,shade ) #< extract array size(s) (which was(were) formerly an argument(s)) > len_shdlvl_0 = shdlvl.length n = len_shdlvl_0 #< check array size(s) > raise "Invalid array length: shdlvl.length != n" if shdlvl.length != (n) raise "Invalid array length: shade.length != n" if shade.length != (n) #< call the original method > __uismsq( shdlvl,shade,n ) end |
.ulsxbl(bl) ⇒ Object
1880 1881 1882 1883 1884 1885 1886 1887 1888 1889 1890 1891 |
# File 'lib/numru/dcl/dcl.rb', line 1880 def ulsxbl( bl ) #< extract array size(s) (which was(were) formerly an argument(s)) > len_bl_0 = bl.length nbl = len_bl_0 #< check array size(s) > raise "Invalid array length: bl.length != nbl" if bl.length != (nbl) #< call the original method > __ulsxbl( bl,nbl ) end |
.ulsybl(bl) ⇒ Object
1896 1897 1898 1899 1900 1901 1902 1903 1904 1905 1906 1907 |
# File 'lib/numru/dcl/dcl.rb', line 1896 def ulsybl( bl ) #< extract array size(s) (which was(were) formerly an argument(s)) > len_bl_0 = bl.length nbl = len_bl_0 #< check array size(s) > raise "Invalid array length: bl.length != nbl" if bl.length != (nbl) #< call the original method > __ulsybl( bl,nbl ) end |
.umspnt(ux, uy) ⇒ Object
1912 1913 1914 1915 1916 1917 1918 1919 1920 1921 1922 1923 1924 |
# File 'lib/numru/dcl/dcl.rb', line 1912 def umspnt( ux,uy ) #< extract array size(s) (which was(were) formerly an argument(s)) > len_ux_0 = ux.length n = len_ux_0 #< check array size(s) > raise "Invalid array length: ux.length != n" if ux.length != (n) raise "Invalid array length: uy.length != n" if uy.length != (n) #< call the original method > __umspnt( n,ux,uy ) end |
.usaxlb(cside, dtick, dlabel, ch, nc) ⇒ Object
1999 2000 2001 2002 2003 2004 2005 2006 2007 2008 2009 2010 2011 2012 2013 2014 |
# File 'lib/numru/dcl/dcl.rb', line 1999 def usaxlb( cside,dtick,dlabel,ch,nc ) #< extract array size(s) (which was(were) formerly an argument(s)) > len_dtick_0 = dtick.length n1 = len_dtick_0 len_dlabel_0 = dlabel.length n2 = len_dlabel_0 #< check array size(s) > raise "Invalid array length: dtick.length != n1" if dtick.length != (n1) raise "Invalid array length: dlabel.length != n2" if dlabel.length != (n2) raise "Invalid array length: ch.length != n2" if ch.length != (n2) #< call the original method > __usaxlb( cside,dtick,n1,dlabel,ch,nc,n2 ) end |
.usaxnm(cside, dtick, dlabel) ⇒ Object
2019 2020 2021 2022 2023 2024 2025 2026 2027 2028 2029 2030 2031 2032 2033 |
# File 'lib/numru/dcl/dcl.rb', line 2019 def usaxnm( cside,dtick,dlabel ) #< extract array size(s) (which was(were) formerly an argument(s)) > len_dtick_0 = dtick.length n1 = len_dtick_0 len_dlabel_0 = dlabel.length n2 = len_dlabel_0 #< check array size(s) > raise "Invalid array length: dtick.length != n1" if dtick.length != (n1) raise "Invalid array length: dlabel.length != n2" if dlabel.length != (n2) #< call the original method > __usaxnm( cside,dtick,n1,dlabel,n2 ) end |
.usgrph(x, y) ⇒ Object
1932 1933 1934 1935 1936 1937 1938 1939 1940 1941 1942 1943 1944 1945 1946 1947 1948 1949 1950 1951 1952 |
# File 'lib/numru/dcl/dcl.rb', line 1932 def usgrph( x,y ) #< extract array size(s) (which was(were) formerly an argument(s)) > if ! ( x == nil || x.is_a?(Float) && lreq( x, glrget("RUNDEF") ) ) len_x_0 = x.length n = len_x_0 else x = glrget("RUNDEF") if ( x == nil ) len_y_0 = y.length n = len_y_0 end #< check array size(s) > raise "Invalid array length: x.length != n" if \ x!=nil && !( x.is_a?(Float) && lreq(x,glrget("RUNDEF")) ) && x.length != (n) raise "Invalid array length: y.length != n" if \ y!=nil && !( y.is_a?(Float) && lreq(y,glrget("RUNDEF")) ) && y.length != (n) #< call the original method > __usgrph( n,x,y ) end |
.usplbl(cside, islct, pos, ch, nc) ⇒ Object
2038 2039 2040 2041 2042 2043 2044 2045 2046 2047 2048 2049 2050 |
# File 'lib/numru/dcl/dcl.rb', line 2038 def usplbl( cside,islct,pos,ch,nc ) #< extract array size(s) (which was(were) formerly an argument(s)) > len_pos_0 = pos.length n = len_pos_0 #< check array size(s) > raise "Invalid array length: pos.length != n" if pos.length != (n) raise "Invalid array length: ch.length != n" if ch.length != (n) #< call the original method > __usplbl( cside,islct,pos,ch,nc,n ) end |
.uspnum(cside, islct, pos) ⇒ Object
2055 2056 2057 2058 2059 2060 2061 2062 2063 2064 2065 2066 |
# File 'lib/numru/dcl/dcl.rb', line 2055 def uspnum( cside,islct,pos ) #< extract array size(s) (which was(were) formerly an argument(s)) > len_pos_0 = pos.length n = len_pos_0 #< check array size(s) > raise "Invalid array length: pos.length != n" if pos.length != (n) #< call the original method > __uspnum( cside,islct,pos,n ) end |
.usptmk(cside, islct, pos) ⇒ Object
2071 2072 2073 2074 2075 2076 2077 2078 2079 2080 2081 2082 |
# File 'lib/numru/dcl/dcl.rb', line 2071 def usptmk( cside,islct,pos ) #< extract array size(s) (which was(were) formerly an argument(s)) > len_pos_0 = pos.length n = len_pos_0 #< check array size(s) > raise "Invalid array length: pos.length != n" if pos.length != (n) #< call the original method > __usptmk( cside,islct,pos,n ) end |
.usspnt(x, y) ⇒ Object
1957 1958 1959 1960 1961 1962 1963 1964 1965 1966 1967 1968 1969 1970 1971 1972 1973 1974 1975 1976 1977 |
# File 'lib/numru/dcl/dcl.rb', line 1957 def usspnt( x,y ) #< extract array size(s) (which was(were) formerly an argument(s)) > if ! ( x == nil || x.is_a?(Float) && lreq( x, glrget("RUNDEF") ) ) len_x_0 = x.length n = len_x_0 else x = glrget("RUNDEF") if ( x == nil ) len_y_0 = y.length n = len_y_0 end #< check array size(s) > raise "Invalid array length: x.length != n" if \ x!=nil && !( x.is_a?(Float) && lreq(x,glrget("RUNDEF")) ) && x.length != (n) raise "Invalid array length: y.length != n" if \ y!=nil && !( y.is_a?(Float) && lreq(y,glrget("RUNDEF")) ) && y.length != (n) #< call the original method > __usspnt( n,x,y ) end |
.uswapz(x1, x2) ⇒ Object
1982 1983 1984 1985 1986 1987 1988 1989 1990 1991 1992 1993 1994 |
# File 'lib/numru/dcl/dcl.rb', line 1982 def uswapz( x1,x2 ) #< extract array size(s) (which was(were) formerly an argument(s)) > len_x1_0 = x1.length n = len_x1_0 #< check array size(s) > raise "Invalid array length: x1.length != n" if x1.length != (n) raise "Invalid array length: x2.length != n" if x2.length != (n) #< call the original method > __uswapz( x1,x2,n ) end |
.uulin(upx, upy) ⇒ Object
2087 2088 2089 2090 2091 2092 2093 2094 2095 2096 2097 2098 2099 2100 2101 2102 2103 2104 2105 2106 2107 |
# File 'lib/numru/dcl/dcl.rb', line 2087 def uulin( upx,upy ) #< extract array size(s) (which was(were) formerly an argument(s)) > if ! ( upx == nil || upx.is_a?(Float) && lreq( upx, glrget("RUNDEF") ) ) len_upx_0 = upx.length n = len_upx_0 else upx = glrget("RUNDEF") if ( upx == nil ) len_upy_0 = upy.length n = len_upy_0 end #< check array size(s) > raise "Invalid array length: upx.length != n" if \ upx!=nil && !( upx.is_a?(Float) && lreq(upx,glrget("RUNDEF")) ) && upx.length != (n) raise "Invalid array length: upy.length != n" if \ upy!=nil && !( upy.is_a?(Float) && lreq(upy,glrget("RUNDEF")) ) && upy.length != (n) #< call the original method > __uulin( n,upx,upy ) end |
.uulinz(upx, upy, itype, index) ⇒ Object
2112 2113 2114 2115 2116 2117 2118 2119 2120 2121 2122 2123 2124 2125 2126 2127 2128 2129 2130 2131 2132 |
# File 'lib/numru/dcl/dcl.rb', line 2112 def uulinz( upx,upy,itype,index ) #< extract array size(s) (which was(were) formerly an argument(s)) > if ! ( upx == nil || upx.is_a?(Float) && lreq( upx, glrget("RUNDEF") ) ) len_upx_0 = upx.length n = len_upx_0 else upx = glrget("RUNDEF") if ( upx == nil ) len_upy_0 = upy.length n = len_upy_0 end #< check array size(s) > raise "Invalid array length: upx.length != n" if \ upx!=nil && !( upx.is_a?(Float) && lreq(upx,glrget("RUNDEF")) ) && upx.length != (n) raise "Invalid array length: upy.length != n" if \ upy!=nil && !( upy.is_a?(Float) && lreq(upy,glrget("RUNDEF")) ) && upy.length != (n) #< call the original method > __uulinz( n,upx,upy,itype,index ) end |
.uumrk(upx, upy) ⇒ Object
2137 2138 2139 2140 2141 2142 2143 2144 2145 2146 2147 2148 2149 2150 2151 2152 2153 2154 2155 2156 2157 |
# File 'lib/numru/dcl/dcl.rb', line 2137 def uumrk( upx,upy ) #< extract array size(s) (which was(were) formerly an argument(s)) > if ! ( upx == nil || upx.is_a?(Float) && lreq( upx, glrget("RUNDEF") ) ) len_upx_0 = upx.length n = len_upx_0 else upx = glrget("RUNDEF") if ( upx == nil ) len_upy_0 = upy.length n = len_upy_0 end #< check array size(s) > raise "Invalid array length: upx.length != n" if \ upx!=nil && !( upx.is_a?(Float) && lreq(upx,glrget("RUNDEF")) ) && upx.length != (n) raise "Invalid array length: upy.length != n" if \ upy!=nil && !( upy.is_a?(Float) && lreq(upy,glrget("RUNDEF")) ) && upy.length != (n) #< call the original method > __uumrk( n,upx,upy ) end |
.uumrkz(upx, upy, itype, index, rsize) ⇒ Object
2162 2163 2164 2165 2166 2167 2168 2169 2170 2171 2172 2173 2174 2175 2176 2177 2178 2179 2180 2181 2182 |
# File 'lib/numru/dcl/dcl.rb', line 2162 def uumrkz( upx,upy,itype,index,rsize ) #< extract array size(s) (which was(were) formerly an argument(s)) > if ! ( upx == nil || upx.is_a?(Float) && lreq( upx, glrget("RUNDEF") ) ) len_upx_0 = upx.length n = len_upx_0 else upx = glrget("RUNDEF") if ( upx == nil ) len_upy_0 = upy.length n = len_upy_0 end #< check array size(s) > raise "Invalid array length: upx.length != n" if \ upx!=nil && !( upx.is_a?(Float) && lreq(upx,glrget("RUNDEF")) ) && upx.length != (n) raise "Invalid array length: upy.length != n" if \ upy!=nil && !( upy.is_a?(Float) && lreq(upy,glrget("RUNDEF")) ) && upy.length != (n) #< call the original method > __uumrkz( n,upx,upy,itype,index,rsize ) end |
.uvbra(upx, upy1, upy2) ⇒ Object
2385 2386 2387 2388 2389 2390 2391 2392 2393 2394 2395 2396 2397 2398 2399 2400 2401 2402 2403 2404 2405 2406 2407 2408 2409 2410 2411 2412 2413 |
# File 'lib/numru/dcl/dcl.rb', line 2385 def uvbra( upx,upy1,upy2 ) #< extract array size(s) (which was(were) formerly an argument(s)) > if ! ( upx == nil || upx.is_a?(Float) && lreq( upx, glrget("RUNDEF") ) ) len_upx_0 = upx.length n = len_upx_0 else upx = glrget("RUNDEF") if ( upx == nil ) if ! ( upy1 == nil || upy1.is_a?(Float) && lreq( upy1, glrget("RUNDEF") ) ) len_upy1_0 = upy1.length n = len_upy1_0 else upy1 = glrget("RUNDEF") if ( upy1 == nil ) len_upy2_0 = upy2.length n = len_upy2_0 end end #< check array size(s) > raise "Invalid array length: upx.length != n" if \ upx!=nil && !( upx.is_a?(Float) && lreq(upx,glrget("RUNDEF")) ) && upx.length != (n) raise "Invalid array length: upy1.length != n" if \ upy1!=nil && !( upy1.is_a?(Float) && lreq(upy1,glrget("RUNDEF")) ) && upy1.length != (n) raise "Invalid array length: upy2.length != n" if \ upy2!=nil && !( upy2.is_a?(Float) && lreq(upy2,glrget("RUNDEF")) ) && upy2.length != (n) #< call the original method > __uvbra( n,upx,upy1,upy2 ) end |
.uvbraz(upx, upy1, upy2, itpat1, itpat2, rsize) ⇒ Object
2418 2419 2420 2421 2422 2423 2424 2425 2426 2427 2428 2429 2430 2431 2432 2433 2434 2435 2436 2437 2438 2439 2440 2441 2442 2443 2444 2445 2446 |
# File 'lib/numru/dcl/dcl.rb', line 2418 def uvbraz( upx,upy1,upy2,itpat1,itpat2,rsize ) #< extract array size(s) (which was(were) formerly an argument(s)) > if ! ( upx == nil || upx.is_a?(Float) && lreq( upx, glrget("RUNDEF") ) ) len_upx_0 = upx.length n = len_upx_0 else upx = glrget("RUNDEF") if ( upx == nil ) if ! ( upy1 == nil || upy1.is_a?(Float) && lreq( upy1, glrget("RUNDEF") ) ) len_upy1_0 = upy1.length n = len_upy1_0 else upy1 = glrget("RUNDEF") if ( upy1 == nil ) len_upy2_0 = upy2.length n = len_upy2_0 end end #< check array size(s) > raise "Invalid array length: upx.length != n" if \ upx!=nil && !( upx.is_a?(Float) && lreq(upx,glrget("RUNDEF")) ) && upx.length != (n) raise "Invalid array length: upy1.length != n" if \ upy1!=nil && !( upy1.is_a?(Float) && lreq(upy1,glrget("RUNDEF")) ) && upy1.length != (n) raise "Invalid array length: upy2.length != n" if \ upy2!=nil && !( upy2.is_a?(Float) && lreq(upy2,glrget("RUNDEF")) ) && upy2.length != (n) #< call the original method > __uvbraz( n,upx,upy1,upy2,itpat1,itpat2,rsize ) end |
.uvbrf(upx, upy1, upy2) ⇒ Object
2319 2320 2321 2322 2323 2324 2325 2326 2327 2328 2329 2330 2331 2332 2333 2334 2335 2336 2337 2338 2339 2340 2341 2342 2343 2344 2345 2346 2347 |
# File 'lib/numru/dcl/dcl.rb', line 2319 def uvbrf( upx,upy1,upy2 ) #< extract array size(s) (which was(were) formerly an argument(s)) > if ! ( upx == nil || upx.is_a?(Float) && lreq( upx, glrget("RUNDEF") ) ) len_upx_0 = upx.length n = len_upx_0 else upx = glrget("RUNDEF") if ( upx == nil ) if ! ( upy1 == nil || upy1.is_a?(Float) && lreq( upy1, glrget("RUNDEF") ) ) len_upy1_0 = upy1.length n = len_upy1_0 else upy1 = glrget("RUNDEF") if ( upy1 == nil ) len_upy2_0 = upy2.length n = len_upy2_0 end end #< check array size(s) > raise "Invalid array length: upx.length != n" if \ upx!=nil && !( upx.is_a?(Float) && lreq(upx,glrget("RUNDEF")) ) && upx.length != (n) raise "Invalid array length: upy1.length != n" if \ upy1!=nil && !( upy1.is_a?(Float) && lreq(upy1,glrget("RUNDEF")) ) && upy1.length != (n) raise "Invalid array length: upy2.length != n" if \ upy2!=nil && !( upy2.is_a?(Float) && lreq(upy2,glrget("RUNDEF")) ) && upy2.length != (n) #< call the original method > __uvbrf( n,upx,upy1,upy2 ) end |
.uvbrfz(upx, upy1, upy2, itype, index, rsize) ⇒ Object
2352 2353 2354 2355 2356 2357 2358 2359 2360 2361 2362 2363 2364 2365 2366 2367 2368 2369 2370 2371 2372 2373 2374 2375 2376 2377 2378 2379 2380 |
# File 'lib/numru/dcl/dcl.rb', line 2352 def uvbrfz( upx,upy1,upy2,itype,index,rsize ) #< extract array size(s) (which was(were) formerly an argument(s)) > if ! ( upx == nil || upx.is_a?(Float) && lreq( upx, glrget("RUNDEF") ) ) len_upx_0 = upx.length n = len_upx_0 else upx = glrget("RUNDEF") if ( upx == nil ) if ! ( upy1 == nil || upy1.is_a?(Float) && lreq( upy1, glrget("RUNDEF") ) ) len_upy1_0 = upy1.length n = len_upy1_0 else upy1 = glrget("RUNDEF") if ( upy1 == nil ) len_upy2_0 = upy2.length n = len_upy2_0 end end #< check array size(s) > raise "Invalid array length: upx.length != n" if \ upx!=nil && !( upx.is_a?(Float) && lreq(upx,glrget("RUNDEF")) ) && upx.length != (n) raise "Invalid array length: upy1.length != n" if \ upy1!=nil && !( upy1.is_a?(Float) && lreq(upy1,glrget("RUNDEF")) ) && upy1.length != (n) raise "Invalid array length: upy2.length != n" if \ upy2!=nil && !( upy2.is_a?(Float) && lreq(upy2,glrget("RUNDEF")) ) && upy2.length != (n) #< call the original method > __uvbrfz( n,upx,upy1,upy2,itype,index,rsize ) end |
.uvbrl(upx, upy) ⇒ Object
2451 2452 2453 2454 2455 2456 2457 2458 2459 2460 2461 2462 2463 2464 2465 2466 2467 2468 2469 2470 2471 |
# File 'lib/numru/dcl/dcl.rb', line 2451 def uvbrl( upx,upy ) #< extract array size(s) (which was(were) formerly an argument(s)) > if ! ( upx == nil || upx.is_a?(Float) && lreq( upx, glrget("RUNDEF") ) ) len_upx_0 = upx.length n = len_upx_0 else upx = glrget("RUNDEF") if ( upx == nil ) len_upy_0 = upy.length n = len_upy_0 end #< check array size(s) > raise "Invalid array length: upx.length != n" if \ upx!=nil && !( upx.is_a?(Float) && lreq(upx,glrget("RUNDEF")) ) && upx.length != (n) raise "Invalid array length: upy.length != n" if \ upy!=nil && !( upy.is_a?(Float) && lreq(upy,glrget("RUNDEF")) ) && upy.length != (n) #< call the original method > __uvbrl( n,upx,upy ) end |
.uvbrlz(upx, upy, itype, index, rsize) ⇒ Object
2476 2477 2478 2479 2480 2481 2482 2483 2484 2485 2486 2487 2488 2489 2490 2491 2492 2493 2494 2495 2496 |
# File 'lib/numru/dcl/dcl.rb', line 2476 def uvbrlz( upx,upy,itype,index,rsize ) #< extract array size(s) (which was(were) formerly an argument(s)) > if ! ( upx == nil || upx.is_a?(Float) && lreq( upx, glrget("RUNDEF") ) ) len_upx_0 = upx.length n = len_upx_0 else upx = glrget("RUNDEF") if ( upx == nil ) len_upy_0 = upy.length n = len_upy_0 end #< check array size(s) > raise "Invalid array length: upx.length != n" if \ upx!=nil && !( upx.is_a?(Float) && lreq(upx,glrget("RUNDEF")) ) && upx.length != (n) raise "Invalid array length: upy.length != n" if \ upy!=nil && !( upy.is_a?(Float) && lreq(upy,glrget("RUNDEF")) ) && upy.length != (n) #< call the original method > __uvbrlz( n,upx,upy,itype,index,rsize ) end |
.uvbxa(upx, upy1, upy2) ⇒ Object
2567 2568 2569 2570 2571 2572 2573 2574 2575 2576 2577 2578 2579 2580 2581 2582 2583 2584 2585 2586 2587 2588 2589 2590 2591 2592 2593 2594 2595 |
# File 'lib/numru/dcl/dcl.rb', line 2567 def uvbxa( upx,upy1,upy2 ) #< extract array size(s) (which was(were) formerly an argument(s)) > if ! ( upx == nil || upx.is_a?(Float) && lreq( upx, glrget("RUNDEF") ) ) len_upx_0 = upx.length n = len_upx_0 - 1 else upx = glrget("RUNDEF") if ( upx == nil ) if ! ( upy1 == nil || upy1.is_a?(Float) && lreq( upy1, glrget("RUNDEF") ) ) len_upy1_0 = upy1.length n = len_upy1_0 else upy1 = glrget("RUNDEF") if ( upy1 == nil ) len_upy2_0 = upy2.length n = len_upy2_0 end end #< check array size(s) > raise "Invalid array length: upx.length != n+1" if \ upx!=nil && !( upx.is_a?(Float) && lreq(upx,glrget("RUNDEF")) ) && upx.length != (n+1) raise "Invalid array length: upy1.length != n" if \ upy1!=nil && !( upy1.is_a?(Float) && lreq(upy1,glrget("RUNDEF")) ) && upy1.length != (n) raise "Invalid array length: upy2.length != n" if \ upy2!=nil && !( upy2.is_a?(Float) && lreq(upy2,glrget("RUNDEF")) ) && upy2.length != (n) #< call the original method > __uvbxa( n,upx,upy1,upy2 ) end |
.uvbxaz(upx, upy1, upy2, itpat1, itpat2) ⇒ Object
2600 2601 2602 2603 2604 2605 2606 2607 2608 2609 2610 2611 2612 2613 2614 2615 2616 2617 2618 2619 2620 2621 2622 2623 2624 2625 2626 2627 2628 |
# File 'lib/numru/dcl/dcl.rb', line 2600 def uvbxaz( upx,upy1,upy2,itpat1,itpat2 ) #< extract array size(s) (which was(were) formerly an argument(s)) > if ! ( upx == nil || upx.is_a?(Float) && lreq( upx, glrget("RUNDEF") ) ) len_upx_0 = upx.length n = len_upx_0 - 1 else upx = glrget("RUNDEF") if ( upx == nil ) if ! ( upy1 == nil || upy1.is_a?(Float) && lreq( upy1, glrget("RUNDEF") ) ) len_upy1_0 = upy1.length n = len_upy1_0 else upy1 = glrget("RUNDEF") if ( upy1 == nil ) len_upy2_0 = upy2.length n = len_upy2_0 end end #< check array size(s) > raise "Invalid array length: upx.length != n+1" if \ upx!=nil && !( upx.is_a?(Float) && lreq(upx,glrget("RUNDEF")) ) && upx.length != (n+1) raise "Invalid array length: upy1.length != n" if \ upy1!=nil && !( upy1.is_a?(Float) && lreq(upy1,glrget("RUNDEF")) ) && upy1.length != (n) raise "Invalid array length: upy2.length != n" if \ upy2!=nil && !( upy2.is_a?(Float) && lreq(upy2,glrget("RUNDEF")) ) && upy2.length != (n) #< call the original method > __uvbxaz( n,upx,upy1,upy2,itpat1,itpat2 ) end |
.uvbxf(upx, upy1, upy2) ⇒ Object
2501 2502 2503 2504 2505 2506 2507 2508 2509 2510 2511 2512 2513 2514 2515 2516 2517 2518 2519 2520 2521 2522 2523 2524 2525 2526 2527 2528 2529 |
# File 'lib/numru/dcl/dcl.rb', line 2501 def uvbxf( upx,upy1,upy2 ) #< extract array size(s) (which was(were) formerly an argument(s)) > if ! ( upx == nil || upx.is_a?(Float) && lreq( upx, glrget("RUNDEF") ) ) len_upx_0 = upx.length n = len_upx_0 - 1 else upx = glrget("RUNDEF") if ( upx == nil ) if ! ( upy1 == nil || upy1.is_a?(Float) && lreq( upy1, glrget("RUNDEF") ) ) len_upy1_0 = upy1.length n = len_upy1_0 else upy1 = glrget("RUNDEF") if ( upy1 == nil ) len_upy2_0 = upy2.length n = len_upy2_0 end end #< check array size(s) > raise "Invalid array length: upx.length != n+1" if \ upx!=nil && !( upx.is_a?(Float) && lreq(upx,glrget("RUNDEF")) ) && upx.length != (n+1) raise "Invalid array length: upy1.length != n" if \ upy1!=nil && !( upy1.is_a?(Float) && lreq(upy1,glrget("RUNDEF")) ) && upy1.length != (n) raise "Invalid array length: upy2.length != n" if \ upy2!=nil && !( upy2.is_a?(Float) && lreq(upy2,glrget("RUNDEF")) ) && upy2.length != (n) #< call the original method > __uvbxf( n,upx,upy1,upy2 ) end |
.uvbxfz(upx, upy1, upy2, itype, index) ⇒ Object
2534 2535 2536 2537 2538 2539 2540 2541 2542 2543 2544 2545 2546 2547 2548 2549 2550 2551 2552 2553 2554 2555 2556 2557 2558 2559 2560 2561 2562 |
# File 'lib/numru/dcl/dcl.rb', line 2534 def uvbxfz( upx,upy1,upy2,itype,index ) #< extract array size(s) (which was(were) formerly an argument(s)) > if ! ( upx == nil || upx.is_a?(Float) && lreq( upx, glrget("RUNDEF") ) ) len_upx_0 = upx.length n = len_upx_0 - 1 else upx = glrget("RUNDEF") if ( upx == nil ) if ! ( upy1 == nil || upy1.is_a?(Float) && lreq( upy1, glrget("RUNDEF") ) ) len_upy1_0 = upy1.length n = len_upy1_0 else upy1 = glrget("RUNDEF") if ( upy1 == nil ) len_upy2_0 = upy2.length n = len_upy2_0 end end #< check array size(s) > raise "Invalid array length: upx.length != n+1" if \ upx!=nil && !( upx.is_a?(Float) && lreq(upx,glrget("RUNDEF")) ) && upx.length != (n+1) raise "Invalid array length: upy1.length != n" if \ upy1!=nil && !( upy1.is_a?(Float) && lreq(upy1,glrget("RUNDEF")) ) && upy1.length != (n) raise "Invalid array length: upy2.length != n" if \ upy2!=nil && !( upy2.is_a?(Float) && lreq(upy2,glrget("RUNDEF")) ) && upy2.length != (n) #< call the original method > __uvbxfz( n,upx,upy1,upy2,itype,index ) end |
.uvbxl(upx, upy) ⇒ Object
2633 2634 2635 2636 2637 2638 2639 2640 2641 2642 2643 2644 2645 2646 2647 2648 2649 2650 2651 2652 2653 |
# File 'lib/numru/dcl/dcl.rb', line 2633 def uvbxl( upx,upy ) #< extract array size(s) (which was(were) formerly an argument(s)) > if ! ( upx == nil || upx.is_a?(Float) && lreq( upx, glrget("RUNDEF") ) ) len_upx_0 = upx.length n = len_upx_0 - 1 else upx = glrget("RUNDEF") if ( upx == nil ) len_upy_0 = upy.length n = len_upy_0 end #< check array size(s) > raise "Invalid array length: upx.length != n+1" if \ upx!=nil && !( upx.is_a?(Float) && lreq(upx,glrget("RUNDEF")) ) && upx.length != (n+1) raise "Invalid array length: upy.length != n" if \ upy!=nil && !( upy.is_a?(Float) && lreq(upy,glrget("RUNDEF")) ) && upy.length != (n) #< call the original method > __uvbxl( n,upx,upy ) end |
.uvbxlz(upx, upy, itype, index) ⇒ Object
2658 2659 2660 2661 2662 2663 2664 2665 2666 2667 2668 2669 2670 2671 2672 2673 2674 2675 2676 2677 2678 |
# File 'lib/numru/dcl/dcl.rb', line 2658 def uvbxlz( upx,upy,itype,index ) #< extract array size(s) (which was(were) formerly an argument(s)) > if ! ( upx == nil || upx.is_a?(Float) && lreq( upx, glrget("RUNDEF") ) ) len_upx_0 = upx.length n = len_upx_0 - 1 else upx = glrget("RUNDEF") if ( upx == nil ) len_upy_0 = upy.length n = len_upy_0 end #< check array size(s) > raise "Invalid array length: upx.length != n+1" if \ upx!=nil && !( upx.is_a?(Float) && lreq(upx,glrget("RUNDEF")) ) && upx.length != (n+1) raise "Invalid array length: upy.length != n" if \ upy!=nil && !( upy.is_a?(Float) && lreq(upy,glrget("RUNDEF")) ) && upy.length != (n) #< call the original method > __uvbxlz( n,upx,upy,itype,index ) end |
.uvdif(upx, upy1, upy2) ⇒ Object
2253 2254 2255 2256 2257 2258 2259 2260 2261 2262 2263 2264 2265 2266 2267 2268 2269 2270 2271 2272 2273 2274 2275 2276 2277 2278 2279 2280 2281 |
# File 'lib/numru/dcl/dcl.rb', line 2253 def uvdif( upx,upy1,upy2 ) #< extract array size(s) (which was(were) formerly an argument(s)) > if ! ( upx == nil || upx.is_a?(Float) && lreq( upx, glrget("RUNDEF") ) ) len_upx_0 = upx.length n = len_upx_0 else upx = glrget("RUNDEF") if ( upx == nil ) if ! ( upy1 == nil || upy1.is_a?(Float) && lreq( upy1, glrget("RUNDEF") ) ) len_upy1_0 = upy1.length n = len_upy1_0 else upy1 = glrget("RUNDEF") if ( upy1 == nil ) len_upy2_0 = upy2.length n = len_upy2_0 end end #< check array size(s) > raise "Invalid array length: upx.length != n" if \ upx!=nil && !( upx.is_a?(Float) && lreq(upx,glrget("RUNDEF")) ) && upx.length != (n) raise "Invalid array length: upy1.length != n" if \ upy1!=nil && !( upy1.is_a?(Float) && lreq(upy1,glrget("RUNDEF")) ) && upy1.length != (n) raise "Invalid array length: upy2.length != n" if \ upy2!=nil && !( upy2.is_a?(Float) && lreq(upy2,glrget("RUNDEF")) ) && upy2.length != (n) #< call the original method > __uvdif( n,upx,upy1,upy2 ) end |
.uvdifz(upx, upy1, upy2, itpat1, itpat2) ⇒ Object
2286 2287 2288 2289 2290 2291 2292 2293 2294 2295 2296 2297 2298 2299 2300 2301 2302 2303 2304 2305 2306 2307 2308 2309 2310 2311 2312 2313 2314 |
# File 'lib/numru/dcl/dcl.rb', line 2286 def uvdifz( upx,upy1,upy2,itpat1,itpat2 ) #< extract array size(s) (which was(were) formerly an argument(s)) > if ! ( upx == nil || upx.is_a?(Float) && lreq( upx, glrget("RUNDEF") ) ) len_upx_0 = upx.length n = len_upx_0 else upx = glrget("RUNDEF") if ( upx == nil ) if ! ( upy1 == nil || upy1.is_a?(Float) && lreq( upy1, glrget("RUNDEF") ) ) len_upy1_0 = upy1.length n = len_upy1_0 else upy1 = glrget("RUNDEF") if ( upy1 == nil ) len_upy2_0 = upy2.length n = len_upy2_0 end end #< check array size(s) > raise "Invalid array length: upx.length != n" if \ upx!=nil && !( upx.is_a?(Float) && lreq(upx,glrget("RUNDEF")) ) && upx.length != (n) raise "Invalid array length: upy1.length != n" if \ upy1!=nil && !( upy1.is_a?(Float) && lreq(upy1,glrget("RUNDEF")) ) && upy1.length != (n) raise "Invalid array length: upy2.length != n" if \ upy2!=nil && !( upy2.is_a?(Float) && lreq(upy2,glrget("RUNDEF")) ) && upy2.length != (n) #< call the original method > __uvdifz( n,upx,upy1,upy2,itpat1,itpat2 ) end |
.uverb(upx, upy1, upy2) ⇒ Object
2187 2188 2189 2190 2191 2192 2193 2194 2195 2196 2197 2198 2199 2200 2201 2202 2203 2204 2205 2206 2207 2208 2209 2210 2211 2212 2213 2214 2215 |
# File 'lib/numru/dcl/dcl.rb', line 2187 def uverb( upx,upy1,upy2 ) #< extract array size(s) (which was(were) formerly an argument(s)) > if ! ( upx == nil || upx.is_a?(Float) && lreq( upx, glrget("RUNDEF") ) ) len_upx_0 = upx.length n = len_upx_0 else upx = glrget("RUNDEF") if ( upx == nil ) if ! ( upy1 == nil || upy1.is_a?(Float) && lreq( upy1, glrget("RUNDEF") ) ) len_upy1_0 = upy1.length n = len_upy1_0 else upy1 = glrget("RUNDEF") if ( upy1 == nil ) len_upy2_0 = upy2.length n = len_upy2_0 end end #< check array size(s) > raise "Invalid array length: upx.length != n" if \ upx!=nil && !( upx.is_a?(Float) && lreq(upx,glrget("RUNDEF")) ) && upx.length != (n) raise "Invalid array length: upy1.length != n" if \ upy1!=nil && !( upy1.is_a?(Float) && lreq(upy1,glrget("RUNDEF")) ) && upy1.length != (n) raise "Invalid array length: upy2.length != n" if \ upy2!=nil && !( upy2.is_a?(Float) && lreq(upy2,glrget("RUNDEF")) ) && upy2.length != (n) #< call the original method > __uverb( n,upx,upy1,upy2 ) end |
.uverbz(upx, upy1, upy2, itype, index, rsize) ⇒ Object
2220 2221 2222 2223 2224 2225 2226 2227 2228 2229 2230 2231 2232 2233 2234 2235 2236 2237 2238 2239 2240 2241 2242 2243 2244 2245 2246 2247 2248 |
# File 'lib/numru/dcl/dcl.rb', line 2220 def uverbz( upx,upy1,upy2,itype,index,rsize ) #< extract array size(s) (which was(were) formerly an argument(s)) > if ! ( upx == nil || upx.is_a?(Float) && lreq( upx, glrget("RUNDEF") ) ) len_upx_0 = upx.length n = len_upx_0 else upx = glrget("RUNDEF") if ( upx == nil ) if ! ( upy1 == nil || upy1.is_a?(Float) && lreq( upy1, glrget("RUNDEF") ) ) len_upy1_0 = upy1.length n = len_upy1_0 else upy1 = glrget("RUNDEF") if ( upy1 == nil ) len_upy2_0 = upy2.length n = len_upy2_0 end end #< check array size(s) > raise "Invalid array length: upx.length != n" if \ upx!=nil && !( upx.is_a?(Float) && lreq(upx,glrget("RUNDEF")) ) && upx.length != (n) raise "Invalid array length: upy1.length != n" if \ upy1!=nil && !( upy1.is_a?(Float) && lreq(upy1,glrget("RUNDEF")) ) && upy1.length != (n) raise "Invalid array length: upy2.length != n" if \ upy2!=nil && !( upy2.is_a?(Float) && lreq(upy2,glrget("RUNDEF")) ) && upy2.length != (n) #< call the original method > __uverbz( n,upx,upy1,upy2,itype,index,rsize ) end |
.uwsgxa(xp) ⇒ Object
2683 2684 2685 2686 2687 2688 2689 2690 2691 2692 2693 2694 |
# File 'lib/numru/dcl/dcl.rb', line 2683 def uwsgxa( xp ) #< extract array size(s) (which was(were) formerly an argument(s)) > len_xp_0 = xp.length nx = len_xp_0 #< check array size(s) > raise "Invalid array length: xp.length != nx" if xp.length != (nx) #< call the original method > __uwsgxa( xp,nx ) end |
.uwsgya(yp) ⇒ Object
2699 2700 2701 2702 2703 2704 2705 2706 2707 2708 2709 2710 |
# File 'lib/numru/dcl/dcl.rb', line 2699 def uwsgya( yp ) #< extract array size(s) (which was(were) formerly an argument(s)) > len_yp_0 = yp.length ny = len_yp_0 #< check array size(s) > raise "Invalid array length: yp.length != ny" if yp.length != (ny) #< call the original method > __uwsgya( yp,ny ) end |
.uxaxlb(cside, ux1, ux2, ch, nc) ⇒ Object
2764 2765 2766 2767 2768 2769 2770 2771 2772 2773 2774 2775 2776 2777 2778 2779 |
# File 'lib/numru/dcl/dcl.rb', line 2764 def uxaxlb( cside,ux1,ux2,ch,nc ) #< extract array size(s) (which was(were) formerly an argument(s)) > len_ux1_0 = ux1.length n1 = len_ux1_0 len_ux2_0 = ux2.length n2 = len_ux2_0 #< check array size(s) > raise "Invalid array length: ux1.length != n1" if ux1.length != (n1) raise "Invalid array length: ux2.length != n2" if ux2.length != (n2) raise "Invalid array length: ch.length != n2" if ch.length != (n2) #< call the original method > __uxaxlb( cside,ux1,n1,ux2,ch,nc,n2 ) end |
.uxaxnm(cside, ux1, ux2) ⇒ Object
2784 2785 2786 2787 2788 2789 2790 2791 2792 2793 2794 2795 2796 2797 2798 |
# File 'lib/numru/dcl/dcl.rb', line 2784 def uxaxnm( cside,ux1,ux2 ) #< extract array size(s) (which was(were) formerly an argument(s)) > len_ux1_0 = ux1.length n1 = len_ux1_0 len_ux2_0 = ux2.length n2 = len_ux2_0 #< check array size(s) > raise "Invalid array length: ux1.length != n1" if ux1.length != (n1) raise "Invalid array length: ux2.length != n2" if ux2.length != (n2) #< call the original method > __uxaxnm( cside,ux1,n1,ux2,n2 ) end |
.uxplbl(cside, islct, ux, ch, nc) ⇒ Object
2731 2732 2733 2734 2735 2736 2737 2738 2739 2740 2741 2742 2743 |
# File 'lib/numru/dcl/dcl.rb', line 2731 def uxplbl( cside,islct,ux,ch,nc ) #< extract array size(s) (which was(were) formerly an argument(s)) > len_ux_0 = ux.length n = len_ux_0 #< check array size(s) > raise "Invalid array length: ux.length != n" if ux.length != (n) raise "Invalid array length: ch.length != n" if ch.length != (n) #< call the original method > __uxplbl( cside,islct,ux,ch,nc,n ) end |
.uxpnum(cside, islct, ux) ⇒ Object
2748 2749 2750 2751 2752 2753 2754 2755 2756 2757 2758 2759 |
# File 'lib/numru/dcl/dcl.rb', line 2748 def uxpnum( cside,islct,ux ) #< extract array size(s) (which was(were) formerly an argument(s)) > len_ux_0 = ux.length n = len_ux_0 #< check array size(s) > raise "Invalid array length: ux.length != n" if ux.length != (n) #< call the original method > __uxpnum( cside,islct,ux,n ) end |
.uxptmk(cside, islct, ux) ⇒ Object
2715 2716 2717 2718 2719 2720 2721 2722 2723 2724 2725 2726 |
# File 'lib/numru/dcl/dcl.rb', line 2715 def uxptmk( cside,islct,ux ) #< extract array size(s) (which was(were) formerly an argument(s)) > len_ux_0 = ux.length n = len_ux_0 #< check array size(s) > raise "Invalid array length: ux.length != n" if ux.length != (n) #< call the original method > __uxptmk( cside,islct,ux,n ) end |
.uyaxlb(cside, uy1, uy2, ch, nc) ⇒ Object
2852 2853 2854 2855 2856 2857 2858 2859 2860 2861 2862 2863 2864 2865 2866 2867 |
# File 'lib/numru/dcl/dcl.rb', line 2852 def uyaxlb( cside,uy1,uy2,ch,nc ) #< extract array size(s) (which was(were) formerly an argument(s)) > len_uy1_0 = uy1.length n1 = len_uy1_0 len_uy2_0 = uy2.length n2 = len_uy2_0 #< check array size(s) > raise "Invalid array length: uy1.length != n1" if uy1.length != (n1) raise "Invalid array length: uy2.length != n2" if uy2.length != (n2) raise "Invalid array length: ch.length != n2" if ch.length != (n2) #< call the original method > __uyaxlb( cside,uy1,n1,uy2,ch,nc,n2 ) end |
.uyaxnm(cside, uy1, uy2) ⇒ Object
2872 2873 2874 2875 2876 2877 2878 2879 2880 2881 2882 2883 2884 2885 2886 |
# File 'lib/numru/dcl/dcl.rb', line 2872 def uyaxnm( cside,uy1,uy2 ) #< extract array size(s) (which was(were) formerly an argument(s)) > len_uy1_0 = uy1.length n1 = len_uy1_0 len_uy2_0 = uy2.length n2 = len_uy2_0 #< check array size(s) > raise "Invalid array length: uy1.length != n1" if uy1.length != (n1) raise "Invalid array length: uy2.length != n2" if uy2.length != (n2) #< call the original method > __uyaxnm( cside,uy1,n1,uy2,n2 ) end |
.uyplbl(cside, islct, uy, ch, nc) ⇒ Object
2819 2820 2821 2822 2823 2824 2825 2826 2827 2828 2829 2830 2831 |
# File 'lib/numru/dcl/dcl.rb', line 2819 def uyplbl( cside,islct,uy,ch,nc ) #< extract array size(s) (which was(were) formerly an argument(s)) > len_uy_0 = uy.length n = len_uy_0 #< check array size(s) > raise "Invalid array length: uy.length != n" if uy.length != (n) raise "Invalid array length: ch.length != n" if ch.length != (n) #< call the original method > __uyplbl( cside,islct,uy,ch,nc,n ) end |
.uypnum(cside, islct, uy) ⇒ Object
2836 2837 2838 2839 2840 2841 2842 2843 2844 2845 2846 2847 |
# File 'lib/numru/dcl/dcl.rb', line 2836 def uypnum( cside,islct,uy ) #< extract array size(s) (which was(were) formerly an argument(s)) > len_uy_0 = uy.length n = len_uy_0 #< check array size(s) > raise "Invalid array length: uy.length != n" if uy.length != (n) #< call the original method > __uypnum( cside,islct,uy,n ) end |
.uyptmk(cside, islct, uy) ⇒ Object
2803 2804 2805 2806 2807 2808 2809 2810 2811 2812 2813 2814 |
# File 'lib/numru/dcl/dcl.rb', line 2803 def uyptmk( cside,islct,uy ) #< extract array size(s) (which was(were) formerly an argument(s)) > len_uy_0 = uy.length n = len_uy_0 #< check array size(s) > raise "Invalid array length: uy.length != n" if uy.length != (n) #< call the original method > __uyptmk( cside,islct,uy,n ) end |
.vcintr(cx, n, jx) ⇒ Object
5078 5079 5080 5081 5082 5083 5084 5085 |
# File 'lib/numru/dcl/dcl.rb', line 5078 def vcintr( cx,n,jx ) #< check array size(s) > raise "Invalid array length: cx.length != jx*(n-1)+1" if cx.length != (jx*(n-1)+1) #< call the original method > __vcintr( cx,n,jx ) end |
.viadd(ix, iy, n, jx, jy, jz) ⇒ Object
4246 4247 4248 4249 4250 4251 4252 4253 4254 |
# File 'lib/numru/dcl/dcl.rb', line 4246 def viadd( ix,iy,n,jx,jy,jz ) #< check array size(s) > raise "Invalid array length: ix.length != jx*(n-1)+1" if ix.length != (jx*(n-1)+1) raise "Invalid array length: iy.length != jy*(n-1)+1" if iy.length != (jy*(n-1)+1) #< call the original method > __viadd( ix,iy,n,jx,jy,jz ) end |
.viadd0(ix, iy, n, jx, jy, jz) ⇒ Object
4259 4260 4261 4262 4263 4264 4265 4266 4267 |
# File 'lib/numru/dcl/dcl.rb', line 4259 def viadd0( ix,iy,n,jx,jy,jz ) #< check array size(s) > raise "Invalid array length: ix.length != jx*(n-1)+1" if ix.length != (jx*(n-1)+1) raise "Invalid array length: iy.length != jy*(n-1)+1" if iy.length != (jy*(n-1)+1) #< call the original method > __viadd0( ix,iy,n,jx,jy,jz ) end |
.viadd1(ix, iy, n, jx, jy, jz) ⇒ Object
4272 4273 4274 4275 4276 4277 4278 4279 4280 |
# File 'lib/numru/dcl/dcl.rb', line 4272 def viadd1( ix,iy,n,jx,jy,jz ) #< check array size(s) > raise "Invalid array length: ix.length != jx*(n-1)+1" if ix.length != (jx*(n-1)+1) raise "Invalid array length: iy.length != jy*(n-1)+1" if iy.length != (jy*(n-1)+1) #< call the original method > __viadd1( ix,iy,n,jx,jy,jz ) end |
.vicon(ix, n, jx, jy, ii) ⇒ Object
4051 4052 4053 4054 4055 4056 4057 4058 |
# File 'lib/numru/dcl/dcl.rb', line 4051 def vicon( ix,n,jx,jy,ii ) #< check array size(s) > raise "Invalid array length: ix.length != jx*(n-1)+1" if ix.length != (jx*(n-1)+1) #< call the original method > __vicon( ix,n,jx,jy,ii ) end |
.vicon0(ix, n, jx, jy, ii) ⇒ Object
4063 4064 4065 4066 4067 4068 4069 4070 |
# File 'lib/numru/dcl/dcl.rb', line 4063 def vicon0( ix,n,jx,jy,ii ) #< check array size(s) > raise "Invalid array length: ix.length != jx*(n-1)+1" if ix.length != (jx*(n-1)+1) #< call the original method > __vicon0( ix,n,jx,jy,ii ) end |
.vicon1(ix, n, jx, jy, ii) ⇒ Object
4075 4076 4077 4078 4079 4080 4081 4082 |
# File 'lib/numru/dcl/dcl.rb', line 4075 def vicon1( ix,n,jx,jy,ii ) #< check array size(s) > raise "Invalid array length: ix.length != jx*(n-1)+1" if ix.length != (jx*(n-1)+1) #< call the original method > __vicon1( ix,n,jx,jy,ii ) end |
.vidiv(ix, iy, n, jx, jy, jz) ⇒ Object
4363 4364 4365 4366 4367 4368 4369 4370 4371 |
# File 'lib/numru/dcl/dcl.rb', line 4363 def vidiv( ix,iy,n,jx,jy,jz ) #< check array size(s) > raise "Invalid array length: ix.length != jx*(n-1)+1" if ix.length != (jx*(n-1)+1) raise "Invalid array length: iy.length != jy*(n-1)+1" if iy.length != (jy*(n-1)+1) #< call the original method > __vidiv( ix,iy,n,jx,jy,jz ) end |
.vidiv0(ix, iy, n, jx, jy, jz) ⇒ Object
4376 4377 4378 4379 4380 4381 4382 4383 4384 |
# File 'lib/numru/dcl/dcl.rb', line 4376 def vidiv0( ix,iy,n,jx,jy,jz ) #< check array size(s) > raise "Invalid array length: ix.length != jx*(n-1)+1" if ix.length != (jx*(n-1)+1) raise "Invalid array length: iy.length != jy*(n-1)+1" if iy.length != (jy*(n-1)+1) #< call the original method > __vidiv0( ix,iy,n,jx,jy,jz ) end |
.vidiv1(ix, iy, n, jx, jy, jz) ⇒ Object
4389 4390 4391 4392 4393 4394 4395 4396 4397 |
# File 'lib/numru/dcl/dcl.rb', line 4389 def vidiv1( ix,iy,n,jx,jy,jz ) #< check array size(s) > raise "Invalid array length: ix.length != jx*(n-1)+1" if ix.length != (jx*(n-1)+1) raise "Invalid array length: iy.length != jy*(n-1)+1" if iy.length != (jy*(n-1)+1) #< call the original method > __vidiv1( ix,iy,n,jx,jy,jz ) end |
.vifct(ix, n, jx, jy, ii) ⇒ Object
4015 4016 4017 4018 4019 4020 4021 4022 |
# File 'lib/numru/dcl/dcl.rb', line 4015 def vifct( ix,n,jx,jy,ii ) #< check array size(s) > raise "Invalid array length: ix.length != jx*(n-1)+1" if ix.length != (jx*(n-1)+1) #< call the original method > __vifct( ix,n,jx,jy,ii ) end |
.vifct0(ix, n, jx, jy, ii) ⇒ Object
4027 4028 4029 4030 4031 4032 4033 4034 |
# File 'lib/numru/dcl/dcl.rb', line 4027 def vifct0( ix,n,jx,jy,ii ) #< check array size(s) > raise "Invalid array length: ix.length != jx*(n-1)+1" if ix.length != (jx*(n-1)+1) #< call the original method > __vifct0( ix,n,jx,jy,ii ) end |
.vifct1(ix, n, jx, jy, ii) ⇒ Object
4039 4040 4041 4042 4043 4044 4045 4046 |
# File 'lib/numru/dcl/dcl.rb', line 4039 def vifct1( ix,n,jx,jy,ii ) #< check array size(s) > raise "Invalid array length: ix.length != jx*(n-1)+1" if ix.length != (jx*(n-1)+1) #< call the original method > __vifct1( ix,n,jx,jy,ii ) end |
.vifna(ix, n, jx, jy, ifna) ⇒ Object
3943 3944 3945 3946 3947 3948 3949 3950 |
# File 'lib/numru/dcl/dcl.rb', line 3943 def vifna( ix,n,jx,jy,ifna ) #< check array size(s) > raise "Invalid array length: ix.length != jx*(n-1)+1" if ix.length != (jx*(n-1)+1) #< call the original method > __vifna( ix,n,jx,jy,ifna ) end |
.vifna0(ix, n, jx, jy, ifna) ⇒ Object
3955 3956 3957 3958 3959 3960 3961 3962 |
# File 'lib/numru/dcl/dcl.rb', line 3955 def vifna0( ix,n,jx,jy,ifna ) #< check array size(s) > raise "Invalid array length: ix.length != jx*(n-1)+1" if ix.length != (jx*(n-1)+1) #< call the original method > __vifna0( ix,n,jx,jy,ifna ) end |
.vifna1(ix, n, jx, jy, ifna) ⇒ Object
3967 3968 3969 3970 3971 3972 3973 3974 |
# File 'lib/numru/dcl/dcl.rb', line 3967 def vifna1( ix,n,jx,jy,ifna ) #< check array size(s) > raise "Invalid array length: ix.length != jx*(n-1)+1" if ix.length != (jx*(n-1)+1) #< call the original method > __vifna1( ix,n,jx,jy,ifna ) end |
.vifnb(ix, iy, n, jx, jy, jz, ifnb) ⇒ Object
4207 4208 4209 4210 4211 4212 4213 4214 4215 |
# File 'lib/numru/dcl/dcl.rb', line 4207 def vifnb( ix,iy,n,jx,jy,jz,ifnb ) #< check array size(s) > raise "Invalid array length: ix.length != jx*(n-1)+1" if ix.length != (jx*(n-1)+1) raise "Invalid array length: iy.length != jy*(n-1)+1" if iy.length != (jy*(n-1)+1) #< call the original method > __vifnb( ix,iy,n,jx,jy,jz,ifnb ) end |
.vifnb0(ix, iy, n, jx, jy, jz, ifnb) ⇒ Object
4220 4221 4222 4223 4224 4225 4226 4227 4228 |
# File 'lib/numru/dcl/dcl.rb', line 4220 def vifnb0( ix,iy,n,jx,jy,jz,ifnb ) #< check array size(s) > raise "Invalid array length: ix.length != jx*(n-1)+1" if ix.length != (jx*(n-1)+1) raise "Invalid array length: iy.length != jy*(n-1)+1" if iy.length != (jy*(n-1)+1) #< call the original method > __vifnb0( ix,iy,n,jx,jy,jz,ifnb ) end |
.vifnb1(ix, iy, n, jx, jy, jz, ifnb) ⇒ Object
4233 4234 4235 4236 4237 4238 4239 4240 4241 |
# File 'lib/numru/dcl/dcl.rb', line 4233 def vifnb1( ix,iy,n,jx,jy,jz,ifnb ) #< check array size(s) > raise "Invalid array length: ix.length != jx*(n-1)+1" if ix.length != (jx*(n-1)+1) raise "Invalid array length: iy.length != jy*(n-1)+1" if iy.length != (jy*(n-1)+1) #< call the original method > __vifnb1( ix,iy,n,jx,jy,jz,ifnb ) end |
.viinc(ix, n, jx, jy, ii) ⇒ Object
3979 3980 3981 3982 3983 3984 3985 3986 |
# File 'lib/numru/dcl/dcl.rb', line 3979 def viinc( ix,n,jx,jy,ii ) #< check array size(s) > raise "Invalid array length: ix.length != jx*(n-1)+1" if ix.length != (jx*(n-1)+1) #< call the original method > __viinc( ix,n,jx,jy,ii ) end |
.viinc0(ix, n, jx, jy, ii) ⇒ Object
3991 3992 3993 3994 3995 3996 3997 3998 |
# File 'lib/numru/dcl/dcl.rb', line 3991 def viinc0( ix,n,jx,jy,ii ) #< check array size(s) > raise "Invalid array length: ix.length != jx*(n-1)+1" if ix.length != (jx*(n-1)+1) #< call the original method > __viinc0( ix,n,jx,jy,ii ) end |
.viinc1(ix, n, jx, jy, ii) ⇒ Object
4003 4004 4005 4006 4007 4008 4009 4010 |
# File 'lib/numru/dcl/dcl.rb', line 4003 def viinc1( ix,n,jx,jy,ii ) #< check array size(s) > raise "Invalid array length: ix.length != jx*(n-1)+1" if ix.length != (jx*(n-1)+1) #< call the original method > __viinc1( ix,n,jx,jy,ii ) end |
.vimlt(ix, iy, n, jx, jy, jz) ⇒ Object
4324 4325 4326 4327 4328 4329 4330 4331 4332 |
# File 'lib/numru/dcl/dcl.rb', line 4324 def vimlt( ix,iy,n,jx,jy,jz ) #< check array size(s) > raise "Invalid array length: ix.length != jx*(n-1)+1" if ix.length != (jx*(n-1)+1) raise "Invalid array length: iy.length != jy*(n-1)+1" if iy.length != (jy*(n-1)+1) #< call the original method > __vimlt( ix,iy,n,jx,jy,jz ) end |
.vimlt0(ix, iy, n, jx, jy, jz) ⇒ Object
4337 4338 4339 4340 4341 4342 4343 4344 4345 |
# File 'lib/numru/dcl/dcl.rb', line 4337 def vimlt0( ix,iy,n,jx,jy,jz ) #< check array size(s) > raise "Invalid array length: ix.length != jx*(n-1)+1" if ix.length != (jx*(n-1)+1) raise "Invalid array length: iy.length != jy*(n-1)+1" if iy.length != (jy*(n-1)+1) #< call the original method > __vimlt0( ix,iy,n,jx,jy,jz ) end |
.vimlt1(ix, iy, n, jx, jy, jz) ⇒ Object
4350 4351 4352 4353 4354 4355 4356 4357 4358 |
# File 'lib/numru/dcl/dcl.rb', line 4350 def vimlt1( ix,iy,n,jx,jy,jz ) #< check array size(s) > raise "Invalid array length: ix.length != jx*(n-1)+1" if ix.length != (jx*(n-1)+1) raise "Invalid array length: iy.length != jy*(n-1)+1" if iy.length != (jy*(n-1)+1) #< call the original method > __vimlt1( ix,iy,n,jx,jy,jz ) end |
.viset(ix, n, jx, jy) ⇒ Object
4087 4088 4089 4090 4091 4092 4093 4094 |
# File 'lib/numru/dcl/dcl.rb', line 4087 def viset( ix,n,jx,jy ) #< check array size(s) > raise "Invalid array length: ix.length != jx*(n-1)+1" if ix.length != (jx*(n-1)+1) #< call the original method > __viset( ix,n,jx,jy ) end |
.visub(ix, iy, n, jx, jy, jz) ⇒ Object
4285 4286 4287 4288 4289 4290 4291 4292 4293 |
# File 'lib/numru/dcl/dcl.rb', line 4285 def visub( ix,iy,n,jx,jy,jz ) #< check array size(s) > raise "Invalid array length: ix.length != jx*(n-1)+1" if ix.length != (jx*(n-1)+1) raise "Invalid array length: iy.length != jy*(n-1)+1" if iy.length != (jy*(n-1)+1) #< call the original method > __visub( ix,iy,n,jx,jy,jz ) end |
.visub0(ix, iy, n, jx, jy, jz) ⇒ Object
4298 4299 4300 4301 4302 4303 4304 4305 4306 |
# File 'lib/numru/dcl/dcl.rb', line 4298 def visub0( ix,iy,n,jx,jy,jz ) #< check array size(s) > raise "Invalid array length: ix.length != jx*(n-1)+1" if ix.length != (jx*(n-1)+1) raise "Invalid array length: iy.length != jy*(n-1)+1" if iy.length != (jy*(n-1)+1) #< call the original method > __visub0( ix,iy,n,jx,jy,jz ) end |
.visub1(ix, iy, n, jx, jy, jz) ⇒ Object
4311 4312 4313 4314 4315 4316 4317 4318 4319 |
# File 'lib/numru/dcl/dcl.rb', line 4311 def visub1( ix,iy,n,jx,jy,jz ) #< check array size(s) > raise "Invalid array length: ix.length != jx*(n-1)+1" if ix.length != (jx*(n-1)+1) raise "Invalid array length: iy.length != jy*(n-1)+1" if iy.length != (jy*(n-1)+1) #< call the original method > __visub1( ix,iy,n,jx,jy,jz ) end |
.vradd(rx, ry, n, jx, jy, jz) ⇒ Object
4705 4706 4707 4708 4709 4710 4711 4712 4713 |
# File 'lib/numru/dcl/dcl.rb', line 4705 def vradd( rx,ry,n,jx,jy,jz ) #< check array size(s) > raise "Invalid array length: rx.length != jx*(n-1)+1" if rx.length != (jx*(n-1)+1) raise "Invalid array length: ry.length != jy*(n-1)+1" if ry.length != (jy*(n-1)+1) #< call the original method > __vradd( rx,ry,n,jx,jy,jz ) end |
.vradd0(rx, ry, n, jx, jy, jz) ⇒ Object
4718 4719 4720 4721 4722 4723 4724 4725 4726 |
# File 'lib/numru/dcl/dcl.rb', line 4718 def vradd0( rx,ry,n,jx,jy,jz ) #< check array size(s) > raise "Invalid array length: rx.length != jx*(n-1)+1" if rx.length != (jx*(n-1)+1) raise "Invalid array length: ry.length != jy*(n-1)+1" if ry.length != (jy*(n-1)+1) #< call the original method > __vradd0( rx,ry,n,jx,jy,jz ) end |
.vradd1(rx, ry, n, jx, jy, jz) ⇒ Object
4731 4732 4733 4734 4735 4736 4737 4738 4739 |
# File 'lib/numru/dcl/dcl.rb', line 4731 def vradd1( rx,ry,n,jx,jy,jz ) #< check array size(s) > raise "Invalid array length: rx.length != jx*(n-1)+1" if rx.length != (jx*(n-1)+1) raise "Invalid array length: ry.length != jy*(n-1)+1" if ry.length != (jy*(n-1)+1) #< call the original method > __vradd1( rx,ry,n,jx,jy,jz ) end |
.vrcon(rx, n, jx, jy, rr) ⇒ Object
4510 4511 4512 4513 4514 4515 4516 4517 |
# File 'lib/numru/dcl/dcl.rb', line 4510 def vrcon( rx,n,jx,jy,rr ) #< check array size(s) > raise "Invalid array length: rx.length != jx*(n-1)+1" if rx.length != (jx*(n-1)+1) #< call the original method > __vrcon( rx,n,jx,jy,rr ) end |
.vrcon0(rx, n, jx, jy, rr) ⇒ Object
4522 4523 4524 4525 4526 4527 4528 4529 |
# File 'lib/numru/dcl/dcl.rb', line 4522 def vrcon0( rx,n,jx,jy,rr ) #< check array size(s) > raise "Invalid array length: rx.length != jx*(n-1)+1" if rx.length != (jx*(n-1)+1) #< call the original method > __vrcon0( rx,n,jx,jy,rr ) end |
.vrcon1(rx, n, jx, jy, rr) ⇒ Object
4534 4535 4536 4537 4538 4539 4540 4541 |
# File 'lib/numru/dcl/dcl.rb', line 4534 def vrcon1( rx,n,jx,jy,rr ) #< check array size(s) > raise "Invalid array length: rx.length != jx*(n-1)+1" if rx.length != (jx*(n-1)+1) #< call the original method > __vrcon1( rx,n,jx,jy,rr ) end |
.vrdiv(rx, ry, n, jx, jy, jz) ⇒ Object
4822 4823 4824 4825 4826 4827 4828 4829 4830 |
# File 'lib/numru/dcl/dcl.rb', line 4822 def vrdiv( rx,ry,n,jx,jy,jz ) #< check array size(s) > raise "Invalid array length: rx.length != jx*(n-1)+1" if rx.length != (jx*(n-1)+1) raise "Invalid array length: ry.length != jy*(n-1)+1" if ry.length != (jy*(n-1)+1) #< call the original method > __vrdiv( rx,ry,n,jx,jy,jz ) end |
.vrdiv0(rx, ry, n, jx, jy, jz) ⇒ Object
4835 4836 4837 4838 4839 4840 4841 4842 4843 |
# File 'lib/numru/dcl/dcl.rb', line 4835 def vrdiv0( rx,ry,n,jx,jy,jz ) #< check array size(s) > raise "Invalid array length: rx.length != jx*(n-1)+1" if rx.length != (jx*(n-1)+1) raise "Invalid array length: ry.length != jy*(n-1)+1" if ry.length != (jy*(n-1)+1) #< call the original method > __vrdiv0( rx,ry,n,jx,jy,jz ) end |
.vrdiv1(rx, ry, n, jx, jy, jz) ⇒ Object
4848 4849 4850 4851 4852 4853 4854 4855 4856 |
# File 'lib/numru/dcl/dcl.rb', line 4848 def vrdiv1( rx,ry,n,jx,jy,jz ) #< check array size(s) > raise "Invalid array length: rx.length != jx*(n-1)+1" if rx.length != (jx*(n-1)+1) raise "Invalid array length: ry.length != jy*(n-1)+1" if ry.length != (jy*(n-1)+1) #< call the original method > __vrdiv1( rx,ry,n,jx,jy,jz ) end |
.vrfct(rx, n, jx, jy, rr) ⇒ Object
4474 4475 4476 4477 4478 4479 4480 4481 |
# File 'lib/numru/dcl/dcl.rb', line 4474 def vrfct( rx,n,jx,jy,rr ) #< check array size(s) > raise "Invalid array length: rx.length != jx*(n-1)+1" if rx.length != (jx*(n-1)+1) #< call the original method > __vrfct( rx,n,jx,jy,rr ) end |
.vrfct0(rx, n, jx, jy, rr) ⇒ Object
4486 4487 4488 4489 4490 4491 4492 4493 |
# File 'lib/numru/dcl/dcl.rb', line 4486 def vrfct0( rx,n,jx,jy,rr ) #< check array size(s) > raise "Invalid array length: rx.length != jx*(n-1)+1" if rx.length != (jx*(n-1)+1) #< call the original method > __vrfct0( rx,n,jx,jy,rr ) end |
.vrfct1(rx, n, jx, jy, rr) ⇒ Object
4498 4499 4500 4501 4502 4503 4504 4505 |
# File 'lib/numru/dcl/dcl.rb', line 4498 def vrfct1( rx,n,jx,jy,rr ) #< check array size(s) > raise "Invalid array length: rx.length != jx*(n-1)+1" if rx.length != (jx*(n-1)+1) #< call the original method > __vrfct1( rx,n,jx,jy,rr ) end |
.vrfna(rx, n, jx, jy, rfna) ⇒ Object
4402 4403 4404 4405 4406 4407 4408 4409 |
# File 'lib/numru/dcl/dcl.rb', line 4402 def vrfna( rx,n,jx,jy,rfna ) #< check array size(s) > raise "Invalid array length: rx.length != jx*(n-1)+1" if rx.length != (jx*(n-1)+1) #< call the original method > __vrfna( rx,n,jx,jy,rfna ) end |
.vrfna0(rx, n, jx, jy, rfna) ⇒ Object
4414 4415 4416 4417 4418 4419 4420 4421 |
# File 'lib/numru/dcl/dcl.rb', line 4414 def vrfna0( rx,n,jx,jy,rfna ) #< check array size(s) > raise "Invalid array length: rx.length != jx*(n-1)+1" if rx.length != (jx*(n-1)+1) #< call the original method > __vrfna0( rx,n,jx,jy,rfna ) end |
.vrfna1(rx, n, jx, jy, rfna) ⇒ Object
4426 4427 4428 4429 4430 4431 4432 4433 |
# File 'lib/numru/dcl/dcl.rb', line 4426 def vrfna1( rx,n,jx,jy,rfna ) #< check array size(s) > raise "Invalid array length: rx.length != jx*(n-1)+1" if rx.length != (jx*(n-1)+1) #< call the original method > __vrfna1( rx,n,jx,jy,rfna ) end |
.vrfnb(rx, ry, n, jx, jy, jz, rfnb) ⇒ Object
4666 4667 4668 4669 4670 4671 4672 4673 4674 |
# File 'lib/numru/dcl/dcl.rb', line 4666 def vrfnb( rx,ry,n,jx,jy,jz,rfnb ) #< check array size(s) > raise "Invalid array length: rx.length != jx*(n-1)+1" if rx.length != (jx*(n-1)+1) raise "Invalid array length: ry.length != jy*(n-1)+1" if ry.length != (jy*(n-1)+1) #< call the original method > __vrfnb( rx,ry,n,jx,jy,jz,rfnb ) end |
.vrfnb0(rx, ry, n, jx, jy, jz, rfnb) ⇒ Object
4679 4680 4681 4682 4683 4684 4685 4686 4687 |
# File 'lib/numru/dcl/dcl.rb', line 4679 def vrfnb0( rx,ry,n,jx,jy,jz,rfnb ) #< check array size(s) > raise "Invalid array length: rx.length != jx*(n-1)+1" if rx.length != (jx*(n-1)+1) raise "Invalid array length: ry.length != jy*(n-1)+1" if ry.length != (jy*(n-1)+1) #< call the original method > __vrfnb0( rx,ry,n,jx,jy,jz,rfnb ) end |
.vrfnb1(rx, ry, n, jx, jy, jz, rfnb) ⇒ Object
4692 4693 4694 4695 4696 4697 4698 4699 4700 |
# File 'lib/numru/dcl/dcl.rb', line 4692 def vrfnb1( rx,ry,n,jx,jy,jz,rfnb ) #< check array size(s) > raise "Invalid array length: rx.length != jx*(n-1)+1" if rx.length != (jx*(n-1)+1) raise "Invalid array length: ry.length != jy*(n-1)+1" if ry.length != (jy*(n-1)+1) #< call the original method > __vrfnb1( rx,ry,n,jx,jy,jz,rfnb ) end |
.vrinc(rx, n, jx, jy, rr) ⇒ Object
4438 4439 4440 4441 4442 4443 4444 4445 |
# File 'lib/numru/dcl/dcl.rb', line 4438 def vrinc( rx,n,jx,jy,rr ) #< check array size(s) > raise "Invalid array length: rx.length != jx*(n-1)+1" if rx.length != (jx*(n-1)+1) #< call the original method > __vrinc( rx,n,jx,jy,rr ) end |
.vrinc0(rx, n, jx, jy, rr) ⇒ Object
4450 4451 4452 4453 4454 4455 4456 4457 |
# File 'lib/numru/dcl/dcl.rb', line 4450 def vrinc0( rx,n,jx,jy,rr ) #< check array size(s) > raise "Invalid array length: rx.length != jx*(n-1)+1" if rx.length != (jx*(n-1)+1) #< call the original method > __vrinc0( rx,n,jx,jy,rr ) end |
.vrinc1(rx, n, jx, jy, rr) ⇒ Object
4462 4463 4464 4465 4466 4467 4468 4469 |
# File 'lib/numru/dcl/dcl.rb', line 4462 def vrinc1( rx,n,jx,jy,rr ) #< check array size(s) > raise "Invalid array length: rx.length != jx*(n-1)+1" if rx.length != (jx*(n-1)+1) #< call the original method > __vrinc1( rx,n,jx,jy,rr ) end |
.vrintr(rx, n, jx) ⇒ Object
5066 5067 5068 5069 5070 5071 5072 5073 |
# File 'lib/numru/dcl/dcl.rb', line 5066 def vrintr( rx,n,jx ) #< check array size(s) > raise "Invalid array length: rx.length != jx*(n-1)+1" if rx.length != (jx*(n-1)+1) #< call the original method > __vrintr( rx,n,jx ) end |
.vrmlt(rx, ry, n, jx, jy, jz) ⇒ Object
4783 4784 4785 4786 4787 4788 4789 4790 4791 |
# File 'lib/numru/dcl/dcl.rb', line 4783 def vrmlt( rx,ry,n,jx,jy,jz ) #< check array size(s) > raise "Invalid array length: rx.length != jx*(n-1)+1" if rx.length != (jx*(n-1)+1) raise "Invalid array length: ry.length != jy*(n-1)+1" if ry.length != (jy*(n-1)+1) #< call the original method > __vrmlt( rx,ry,n,jx,jy,jz ) end |
.vrmlt0(rx, ry, n, jx, jy, jz) ⇒ Object
4796 4797 4798 4799 4800 4801 4802 4803 4804 |
# File 'lib/numru/dcl/dcl.rb', line 4796 def vrmlt0( rx,ry,n,jx,jy,jz ) #< check array size(s) > raise "Invalid array length: rx.length != jx*(n-1)+1" if rx.length != (jx*(n-1)+1) raise "Invalid array length: ry.length != jy*(n-1)+1" if ry.length != (jy*(n-1)+1) #< call the original method > __vrmlt0( rx,ry,n,jx,jy,jz ) end |
.vrmlt1(rx, ry, n, jx, jy, jz) ⇒ Object
4809 4810 4811 4812 4813 4814 4815 4816 4817 |
# File 'lib/numru/dcl/dcl.rb', line 4809 def vrmlt1( rx,ry,n,jx,jy,jz ) #< check array size(s) > raise "Invalid array length: rx.length != jx*(n-1)+1" if rx.length != (jx*(n-1)+1) raise "Invalid array length: ry.length != jy*(n-1)+1" if ry.length != (jy*(n-1)+1) #< call the original method > __vrmlt1( rx,ry,n,jx,jy,jz ) end |
.vrrnm(rx, n, jx, jy, nb) ⇒ Object
5090 5091 5092 5093 5094 5095 5096 5097 |
# File 'lib/numru/dcl/dcl.rb', line 5090 def vrrnm( rx,n,jx,jy,nb ) #< check array size(s) > raise "Invalid array length: rx.length != jx*(n-1)+1" if rx.length != (jx*(n-1)+1) #< call the original method > __vrrnm( rx,n,jx,jy,nb ) end |
.vrrnm0(rx, n, jx, jy, nb) ⇒ Object
5102 5103 5104 5105 5106 5107 5108 5109 |
# File 'lib/numru/dcl/dcl.rb', line 5102 def vrrnm0( rx,n,jx,jy,nb ) #< check array size(s) > raise "Invalid array length: rx.length != jx*(n-1)+1" if rx.length != (jx*(n-1)+1) #< call the original method > __vrrnm0( rx,n,jx,jy,nb ) end |
.vrrnm1(rx, n, jx, jy, nb) ⇒ Object
5114 5115 5116 5117 5118 5119 5120 5121 |
# File 'lib/numru/dcl/dcl.rb', line 5114 def vrrnm1( rx,n,jx,jy,nb ) #< check array size(s) > raise "Invalid array length: rx.length != jx*(n-1)+1" if rx.length != (jx*(n-1)+1) #< call the original method > __vrrnm1( rx,n,jx,jy,nb ) end |
.vrset(rx, n, jx, jy) ⇒ Object
4546 4547 4548 4549 4550 4551 4552 4553 |
# File 'lib/numru/dcl/dcl.rb', line 4546 def vrset( rx,n,jx,jy ) #< check array size(s) > raise "Invalid array length: rx.length != jx*(n-1)+1" if rx.length != (jx*(n-1)+1) #< call the original method > __vrset( rx,n,jx,jy ) end |
.vrsub(rx, ry, n, jx, jy, jz) ⇒ Object
4744 4745 4746 4747 4748 4749 4750 4751 4752 |
# File 'lib/numru/dcl/dcl.rb', line 4744 def vrsub( rx,ry,n,jx,jy,jz ) #< check array size(s) > raise "Invalid array length: rx.length != jx*(n-1)+1" if rx.length != (jx*(n-1)+1) raise "Invalid array length: ry.length != jy*(n-1)+1" if ry.length != (jy*(n-1)+1) #< call the original method > __vrsub( rx,ry,n,jx,jy,jz ) end |
.vrsub0(rx, ry, n, jx, jy, jz) ⇒ Object
4757 4758 4759 4760 4761 4762 4763 4764 4765 |
# File 'lib/numru/dcl/dcl.rb', line 4757 def vrsub0( rx,ry,n,jx,jy,jz ) #< check array size(s) > raise "Invalid array length: rx.length != jx*(n-1)+1" if rx.length != (jx*(n-1)+1) raise "Invalid array length: ry.length != jy*(n-1)+1" if ry.length != (jy*(n-1)+1) #< call the original method > __vrsub0( rx,ry,n,jx,jy,jz ) end |
.vrsub1(rx, ry, n, jx, jy, jz) ⇒ Object
4770 4771 4772 4773 4774 4775 4776 4777 4778 |
# File 'lib/numru/dcl/dcl.rb', line 4770 def vrsub1( rx,ry,n,jx,jy,jz ) #< check array size(s) > raise "Invalid array length: rx.length != jx*(n-1)+1" if rx.length != (jx*(n-1)+1) raise "Invalid array length: ry.length != jy*(n-1)+1" if ry.length != (jy*(n-1)+1) #< call the original method > __vrsub1( rx,ry,n,jx,jy,jz ) end |
.vs1din(wz, nw, x) ⇒ Object
5468 5469 5470 5471 5472 5473 5474 5475 5476 5477 5478 5479 5480 5481 5482 5483 5484 5485 |
# File 'lib/numru/dcl/dcl.rb', line 5468 def vs1din( wz,nw,x ) #< extract array size(s) (which was(were) formerly an argument(s)) > if ( not_nary(wz) || (wz.rank < 1) ) raise "wz must be a NArray of rank == 2" end len_wz_0 = wz.shape[0] ix = len_wz_0 #< check array size(s) > raise "Invalid array shape: wz.shape[0] != ix" if wz.shape[0] != (ix) raise "Invalid array shape: wz.shape[1] != 2" if wz.shape[1] != (2) raise "Invalid array length: nw.length != ix" if nw.length != (ix) raise "Invalid array length: x.length != ix" if x.length != (ix) #< call the original method > __vs1din( wz,nw,ix,x ) end |
.vs1out(wz, nw) ⇒ Object
5490 5491 5492 5493 5494 5495 5496 5497 5498 5499 5500 5501 5502 5503 5504 5505 5506 |
# File 'lib/numru/dcl/dcl.rb', line 5490 def vs1out( wz,nw ) #< extract array size(s) (which was(were) formerly an argument(s)) > if ( not_nary(wz) || (wz.rank < 1) ) raise "wz must be a NArray of rank == 2" end len_wz_0 = wz.shape[0] ix = len_wz_0 #< check array size(s) > raise "Invalid array shape: wz.shape[0] != ix" if wz.shape[0] != (ix) raise "Invalid array shape: wz.shape[1] != 2" if wz.shape[1] != (2) raise "Invalid array length: nw.length != ix" if nw.length != (ix) #< call the original method > __vs1out( wz,nw,ix ) end |
.vs2din(wz, nw, x, y) ⇒ Object
5511 5512 5513 5514 5515 5516 5517 5518 5519 5520 5521 5522 5523 5524 5525 5526 5527 5528 5529 5530 5531 5532 5533 5534 5535 5536 |
# File 'lib/numru/dcl/dcl.rb', line 5511 def vs2din( wz,nw,x,y ) #< extract array size(s) (which was(were) formerly an argument(s)) > if ( not_nary(wz) || (wz.rank < 1) ) raise "wz must be a NArray of rank == 3" end len_wz_0 = wz.shape[0] ix = len_wz_0 if ( not_nary(wz) || (wz.rank < 2) ) raise "wz must be a NArray of rank == 3" end len_wz_1 = wz.shape[1] iy = len_wz_1 #< check array size(s) > raise "Invalid array shape: wz.shape[0] != ix" if wz.shape[0] != (ix) raise "Invalid array shape: wz.shape[1] != iy" if wz.shape[1] != (iy) raise "Invalid array shape: wz.shape[2] != 5" if wz.shape[2] != (5) raise "Invalid array shape: nw.shape[0] != ix" if nw.shape[0] != (ix) raise "Invalid array shape: nw.shape[1] != iy" if nw.shape[1] != (iy) raise "Invalid array length: x.length != ix" if x.length != (ix) raise "Invalid array length: y.length != ix" if y.length != (ix) #< call the original method > __vs2din( wz,nw,ix,iy,x,y ) end |
.vs2out(wz, nw) ⇒ Object
5541 5542 5543 5544 5545 5546 5547 5548 5549 5550 5551 5552 5553 5554 5555 5556 5557 5558 5559 5560 5561 5562 5563 5564 |
# File 'lib/numru/dcl/dcl.rb', line 5541 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 |