Searched refs:nw1 (Results 1 – 2 of 2) sorted by relevance
575 integer nw, ip(0 : *), j, nwh, nw0, nw1 local601 nw1 = nw0 + nwh603 w(nw1) = 1604 w(nw1 + 1) = wn4r608 w(nw1 + 2) = wk1r609 w(nw1 + 3) = wk1i613 w(nw1 + 2) = 0.5d0 / wk1r614 w(nw1 + 3) = 0.5d0 / wk3r620 w(nw1 + j) = wk1r621 w(nw1 + j + 1) = wk1i[all …]
646 int j, nwh, nw0, nw1; in makewt() local673 nw1 = nw0 + nwh; in makewt()675 w[nw1] = 1; in makewt()676 w[nw1 + 1] = wn4r; in makewt()680 w[nw1 + 2] = wk1r; in makewt()681 w[nw1 + 3] = wk1i; in makewt()685 w[nw1 + 2] = 0.5 / wk1r; in makewt()686 w[nw1 + 3] = 0.5 / wk3r; in makewt()692 w[nw1 + j] = wk1r; in makewt()693 w[nw1 + j + 1] = wk1i; in makewt()[all …]