test: update implementation according to tests

Author: gunjjoshi

lib/node_modules/@stdlib/fft/base/fftpack/lib/rfftb1.js

@@ -62,6 +62,7 @@
 
 // MODULES //
 
+var floor = require( '@stdlib/math/base/special/floor' );
 var radb2 = require( './radb2.js' );
 var radb3 = require( './radb3.js' );
 var radb4 = require( './radb4.js' );
@@ -109,7 +110,7 @@ function rfftb1( n, c, cOffset, ch, chOffset, wa, waOffset, ifac, ifacOffset ) {
 	for ( k1 = 1; k1 <= nf; k1++ ) {
 		ip = ifac[ ifacOffset + k1 + 1 ];
 		l2 = ip * l1;
-		ido = n / l2;
+		ido = floor( n / l2 );
 		idl1 = ido * l1;
 		switch ( ip ) {
 		case 4:

lib/node_modules/@stdlib/fft/base/fftpack/lib/rfftf.js

@@ -76,8 +76,11 @@ var rfftf1 = require( './rfftf1.js' );
 * @returns {void}
 */
 function rfftf( n, r, rOffset, wsave, wsaveOffset ) {
+	// Parameter adjustments:
 	rOffset -= 1;
 	wsaveOffset -= 1;
+
+	// Function Body:
 	if ( n === 1 ) {
 		return;
 	}

lib/node_modules/@stdlib/fft/base/fftpack/lib/rffti.js

@@ -74,7 +74,10 @@ var rffti1 = require( './rffti1.js' );
 * @returns {void}
 */
 function rffti( n, wsave, wptr ) {
+	// Parameter adjustments:
 	wptr -= 1;
+
+	// Function Body:
 	if ( n === 1 ) {
 		return;
 	}

lib/node_modules/@stdlib/fft/base/fftpack/test/fixtures/fft_arrays_after_rfftf_n120.json

@@ -0,0 +1,7 @@
+{
+"n": 120,
+"x": [0.03083902969956398,0.030900374054908752,-0.00020247766224201769,0.031040014699101448,-0.00047737153363414109,0.03135429322719574,-0.00069796526804566383,0.031725130975246429,-0.00096623948775231838,0.032305143773555756,-0.0012189216213300824,0.032975524663925171,-0.0014748886460438371,0.033795684576034546,-0.0017344177467748523,0.034791789948940277,-0.0020218964200466871,0.035969942808151245,-0.0023188898339867592,0.037362650036811829,-0.0026424960233271122,0.039003536105155945,-0.003011561231687665,0.040955860167741776,-0.003406106261536479,0.043271362781524658,-0.0038257110863924026,0.045990999788045883,-0.0042763263918459415,0.049222987145185471,-0.0047971354797482491,0.053122729063034058,-0.0054354295134544373,0.057901963591575623,-0.0061875460669398308,0.063855946063995361,-0.0070716571062803268,0.071370065212249756,-0.008146963082253933,0.08110392838716507,-0.0094751361757516861,0.094240143895149231,-0.011275533586740494,0.1126929298043251,-0.013713463209569454,0.14050231873989105,-0.017380006611347198,0.18702024221420288,-0.023406274616718292,0.28012543916702271,-0.035382881760597229,0.55822575092315674,-0.070929050445556641,59.508262634277344,-7.5845475196838379,-0.57180434465408325,0.072892248630523682,-0.28565272688865662,0.036319263279438019,-0.19105374813079834,0.024175975471735001,-0.1439974308013916,0.01806979812681675,-0.11590223014354706,0.014376971870660782,-0.097253799438476562,0.011901378631591797,-0.084020942449569702,0.010126423090696335,-0.074179209768772125,0.0087793758139014244,-0.066573970019817352,0.0077061271294951439,-0.06053180992603302,0.0068333921954035759,-0.055645354092121124,0.0061358669772744179,-0.051642805337905884,0.005544295534491539,-0.048319138586521149,0.0050014499574899673,-0.045488756150007248,0.0045139910653233528,-0.043039977550506592,0.0040927696973085403,-0.040955647826194763,0.0037340838462114334,-0.039184771478176117,0.0034191349986940622,-0.037640523165464401,0.0030661181081086397,-0.036249179393053055,0.0028076146263629198,-0.035059034824371338,0.0025288993492722511,-0.03405042365193367,0.0022866141516715288,-0.033147640526294708,0.0020571693312376738,-0.032315805554389954,0.0018158011371269822,-0.031667672097682953,0.0016478649340569973,-0.0310530886054039,0.0014280847972258925,-0.030578164383769035,0.0012640516506507993,-0.030152836814522743,0.0010560512309893966,-0.029794521629810333,0.00085893168579787016,-0.0295118298381567,0.00070250802673399448,-0.02930961549282074,0.00053680455312132835,-0.029176684096455574,0.00034588968264870346,-0.029077693819999695,0.00016692864301148802,-0.029034022241830826],
+"y": [0.030839033424854279,0.030900157988071442,-0.00020209288049954921,0.031038636341691017,-0.00047537029604427516,0.031356561928987503,-0.00069980142870917916,0.031720448285341263,-0.00096687825862318277,0.032306842505931854,-0.001218556659296155,0.03297949954867363,-0.0014728016685694456,0.033799774944782257,-0.0017323096981272101,0.034793972969055176,-0.0020210205111652613,0.035971205681562424,-0.0023171533830463886,0.037361223250627518,-0.0026441747322678566,0.039013862609863281,-0.0030138564761728048,0.040949482470750809,-0.0034058163873851299,0.043278880417346954,-0.0038293588440865278,0.045984350144863129,-0.004275705199688673,0.049226399511098862,-0.0047954828478395939,0.053125549107789993,-0.0054269256070256233,0.057886891067028046,-0.006187832448631525,0.063864156603813171,-0.0070704971440136433,0.071364983916282654,-0.0081554381176829338,0.081106856465339661,-0.0094713149592280388,0.094250679016113281,-0.011276840232312679,0.11269472539424896,-0.013700877316296101,0.14046232402324677,-0.017392802983522415,0.18699529767036438,-0.023378325626254082,0.28015166521072388,-0.035412818193435669,0.55818092823028564,-0.0709189772605896,59.508224487304688,-7.5848789215087891,-0.57174909114837646,0.072905957698822021,-0.28566664457321167,0.036314193159341812,-0.19104973971843719,0.024181321263313293,-0.14396752417087555,0.018063604831695557,-0.11588776111602783,0.014379133470356464,-0.097253128886222839,0.011902566999197006,-0.084011249244213104,0.010136635974049568,-0.074164167046546936,0.0087833832949399948,-0.066573724150657654,0.007725812029093504,-0.060557235032320023,0.0068348334170877934,-0.055626880377531052,0.0061401855200529099,-0.051631040871143341,0.0055518895387649536,-0.0482960045337677,0.005002977792173624,-0.045484796166419983,0.0045031392946839333,-0.043036479502916336,0.0040796715766191483,-0.040936168283224106,0.0037210385780781507,-0.039188381284475327,0.0034156972542405128,-0.037638276815414429,0.0030720417853444815,-0.036231242120265961,0.0028135501779615879,-0.035028070211410522,0.0025393918622285128,-0.034082677215337753,0.0023091656621545553,-0.033151034265756607,0.0020959652028977871,-0.032320640981197357,0.0018393107457086444,-0.031669147312641144,0.0016544634709134698,-0.031027892604470253,0.0014082385459914804,-0.030571868643164635,0.0013093580491840839,-0.030155891552567482,0.00099236180540174246,-0.029800813645124435,0.00083190418081358075,-0.029508264735341072,0.00068956613540649414,-0.029280709102749825,0.00053987069986760616,-0.029210545122623444,0.00041600182885304093,-0.029106197878718376,0.00017845185357145965,-0.02903420478105545],
+"xh": [0.98776596784591675,0.3080717921257019,-0.89168214797973633,-0.58617627620697021,0.70886129140853882,0.80726128816604614,-0.45708689093589783,-0.94982075691223145,0.16084907948970795,0.99998766183853149,0.15103428065776825,-0.95288187265396118,-0.44822683930397034,0.81308633089065552,0.7018170952796936,-0.59419786930084229,-0.88714039325714111,0.31750932335853577,0.98616749048233032,-0.0099371941760182381,-0.98926675319671631,-0.29860338568687439,0.89613676071166992,0.57809752225875854,-0.71583545207977295,-0.80135774612426758,0.46590185165405273,0.94666522741317749,-0.170647993683815,-0.99988889694213867,-0.14120550453662872,0.95584917068481445,0.43931993842124939,-0.81882995367050171,-0.69470363855361938,0.60215967893600464,0.88251060247421265,-0.32691845297813416,-0.98447197675704956,0.019873406738042831,0.99066966772079468,0.28910478949546814,-0.90050244331359863,-0.56996059417724609,0.72273898124694824,0.79537153244018555,-0.47466829419136047,-0.94341778755187988,0.18043100833892822,0.9996914267539978,0.13135713338851929,-0.95872104167938232,-0.43037480115890503,0.82449382543563843,0.68752151727676392,-0.61006659269332886,-0.87779545783996582,0.33628988265991211,0.98267900943756104,-0.029807658866047859,-0.99197554588317871,-0.27958133816719055,0.90477752685546875,0.5617673397064209,-0.72957110404968262,-0.78930914402008057,0.48339122533798218,0.94007599353790283,-0.1901962012052536,-0.99939519166946411,-0.12149955332279205,0.96149927377700806,0.42138373851776123,-0.83007627725601196,-0.68027156591415405,0.61791020631790161,0.87299180030822754,-0.34563171863555908,-0.9807889461517334,0.039738964289426804,0.99318289756774902,0.27002662420272827,-0.90896493196487427,-0.55351859331130981,0.73633116483688354,0.78316879272460938,-0.49206641316413879,-0.93664133548736572,0.19994261860847473,0.99900031089782715,0.11162997782230377,-0.96418464183807373,-0.41234409809112549,0.83557260036468506,0.67296004295349121,-0.6256868839263916,-0.86810201406478882,0.35493943095207214,0.97880208492279053,-0.049666348844766617,-0.99429219961166382,-0.26043787598609924,0.91306573152542114,0.54522156715393066,-0.74301338195800781,-0.77695584297180176,0.50069302320480347,0.93311417102813721,-0.20966927707195282,-0.99850678443908691,-0.10174938291311264,0.96677273511886597,0.40327069163322449,-0.84099066257476807,-0.6655765175819397,0.63340771198272705,0.86312645673751831,-0.36421206593513489,-0.97671854496002197,0.059588827192783356],
+"w": [0.00090250372886657715,0.00091134011745452881,-0.00018470315262675285,0.00093166530132293701,-0.00041163060814142227,0.0010223388671875,-0.00061738491058349609,0.00110664963722229,-0.00083437375724315643,0.0012553110718727112,-0.0010389266535639763,0.0014113429933786392,-0.0012654699385166168,0.0016087610274553299,-0.0014992346987128258,0.0018693516030907631,-0.0017249905504286289,0.0021511353552341461,-0.0019833773840218782,0.0025234222412109375,-0.0022291485220193863,0.0029279487207531929,-0.0025343652814626694,0.0034527182579040527,-0.0028463602066040039,0.0041061630472540855,-0.0031773052178323269,0.0048709092661738396,-0.0035419706255197525,0.0057912319898605347,-0.0039316266775131226,0.006968979723751545,-0.0044272821396589279,0.0084731588140130043,-0.0049608149565756321,0.010407984256744385,-0.0055822134017944336,0.012940655462443829,-0.0063304770737886429,0.01639239490032196,-0.0072382930666208267,0.021298669278621674,-0.0084099145606160164,0.02852378785610199,-0.009924665093421936,0.039985254406929016,-0.0121066989377141,0.060223139822483063,-0.015556201338768005,0.10297311097383499,-0.022081129252910614,0.23710241913795471,-0.040527738630771637,29.705503463745117,-3.7982244491577148,-0.34385329484939575,0.029257636517286301,-0.21482507884502411,0.00912473164498806,-0.19105374813079834,0.029936525970697403,0.029948865994811058,0.0015517547726631165,0.029950283467769623,0.0030817985534667969,0.029971122741699219,0.004665374755859375,0.029976807534694672,0.0062369555234909058,0.030038421973586082,0.0078624263405799866,0.030084032565355301,0.0095546990633010864,0.030133366584777832,0.011315200477838516,0.030196908861398697,0.013119526207447052,0.030285097658634186,0.015054473653435707,0.030378330498933792,0.017061645165085793,0.030515432357788086,0.019247964024543762,0.030669689178466797,0.021590948104858398,0.030845131725072861,0.024143554270267487,0.031049560755491257,0.026968978345394135,0.031322896480560303,0.03009888157248497,0.031632084399461746,0.03362433984875679,0.032059904187917709,0.037641391158103943,0.032620906829833984,0.042364835739135742,0.033346369862556458,0.048013702034950256,0.034292925149202347,0.054923407733440399,0.035668022930622101,0.063690364360809326,0.037695910781621933,0.075351297855377197,0.040945142507553101,0.091950982809066772,0.046648319810628891,0.11816540360450745,0.058698907494544983,0.167673259973526,0.096502266824245453,0.3077852725982666,8.4018831253051758,28.843524932861328,-0.067222937941551208,-0.22214126586914062,-0.030864095315337181,-0.069307334721088409,-0.024175975471735001,0.99862951040267944,0.052335958927869797,0.99452191591262817,0.10452846437692642,0.98768836259841919,0.15643447637557983,0.97814762592315674,0.20791170001029968,0.96592581272125244,0.25881904363632202,0.95105654001235962,0.30901700258255005,0.93358039855957031,0.35836794972419739,0.91354542970657349,0.40673664212226868,0.89100652933120728,0.45399051904678345,0.86602538824081421,0.5,0.83867055177688599,0.54463905096054077,0.80901700258255005,0.58778524398803711,0.77714592218399048,0.62932038307189941,0.74314481019973755,0.66913062334060669,0.70710676908493042,0.70710676908493042,0.66913056373596191,0.74314486980438232,0.62932038307189941,0.77714598178863525,0.58778524398803711,0.80901700258255005,0.544638991355896,0.83867061138153076,0.49999997019767761,0.86602544784545898,0.45399051904678345,0.89100652933120728,0.40673661231994629,0.91354548931121826,0.35836786031723022,0.93358045816421509,0.30901697278022766,0.95105654001235962,0.25881907343864441,0.96592581272125244,0.2079116553068161,0.97814762592315674,0.15643437206745148,0.98768836259841919,0.10452841967344284,0.99452191591262817,0.052335973829030991,0.99862951040267944,0,0,0.99452191591262817,0.10452846437692642,0.97814762592315674,0.20791170001029968,0.95105654001235962,0.30901700258255005,0.91354542970657349,0.40673664212226868,0.86602538824081421,0.5,0.80901700258255005,0.58778524398803711,0.74314481019973755,0.66913062334060669,0,0.97814762592315674,0.20791170001029968,0.91354542970657349,0.40673664212226868,0.80901700258255005,0.58778524398803711,0.66913056373596191,0.74314486980438232,0.49999997019767761,0.86602544784545898,0.30901697278022766,0.95105654001235962,0.10452841967344284,0.99452191591262817,0,0.95105654001235962,0.30901700258255005,0.80901700258255005,0.58778524398803711,0.58778524398803711,0.80901700258255005,0.30901697278022766,0.95105654001235962,-4.3711388286737929e-08,1,-0.30901703238487244,0.95105648040771484,-0.58778518438339233,0.80901700258255005,0,0.91354542970657349,0.40673664212226868,0.66913056373596191,0.74314486980438232,0,0.66913056373596191,0.74314486980438232,-0.10452850908041,0.99452191591262817,0,0,0,0,0,0,1.6815581571897805e-43,5.6051938572992683e-45,2.8025969286496341e-45,5.6051938572992683e-45,4.2038953929744512e-45,7.0064923216240854e-45,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0]
+}