@stdlib/esm/blas/ext/base/snansumpw.js

ES module distribution for Stdlib, a standard library for JavaScript and Node.js.

// This file is a part of stdlib. License is Apache-2.0: http://www.apache.org/licenses/LICENSE-2.0
import r from"./../../../utils/define-nonenumerable-read-only-property.js";import t from"./../../../number/float64/base/to-float32.js";import e from"./../../../math/base/assert/is-nanf.js";import f from"./../../../math/base/special/floor.js";var o=t,n=e,a=f,i=128;function u(r,t,e,f){var m,s,l,p,b,v,d,j,c,y,h,x,g;if(r<=0)return 0;if(1===r||0===e)return n(t[f])?0:t[f];if(m=f,r<8){for(h=0,g=0;g<r;g++)!1===n(t[m])&&(h=o(h+t[m])),m+=e;return h}if(r<=i){for(s=n(t[m])?0:t[m],l=n(t[m+=e])?0:t[m],p=n(t[m+=e])?0:t[m],b=n(t[m+=e])?0:t[m],v=n(t[m+=e])?0:t[m],d=n(t[m+=e])?0:t[m],j=n(t[m+=e])?0:t[m],c=n(t[m+=e])?0:t[m],m+=e,y=r%8,g=8;g<r-y;g+=8)s=n(t[m])?s:o(s+t[m]),l=n(t[m+=e])?l:o(l+t[m]),p=n(t[m+=e])?p:o(p+t[m]),b=n(t[m+=e])?b:o(b+t[m]),v=n(t[m+=e])?v:o(v+t[m]),d=n(t[m+=e])?d:o(d+t[m]),j=n(t[m+=e])?j:o(j+t[m]),c=n(t[m+=e])?c:o(c+t[m]),m+=e;for(h=o(o(o(s+l)+o(p+b))+o(o(v+d)+o(j+c)));g<r;g++)!1===n(t[m])&&(h=o(h+t[m])),m+=e;return h}return x=a(r/2),o(u(x-=x%8,t,e,m)+u(r-x,t,e,m+x*e))}var m=t,s=e,l=u;function p(r,t,e){var f,o,n;if(r<=0)return 0;if(1===r||0===e)return s(t[0])?0:t[0];if(f=e<0?(1-r)*e:0,r<8){for(o=0,n=0;n<r;n++)!1===s(t[f])&&(o=m(o+t[f])),f+=e;return o}return l(r,t,e,f)}var b=r,v=p,d=u;b(v,"ndarray",d);export default v;
//# sourceMappingURL=snansumpw.js.map