Thanks for your reply but after trying this
A1 := RandomReal[{0, 9}, {60}];
B1 := RandomReal[{0, 9}, {60}];
R1 := RandomReal[{0.01, 10}, {100}];
R2 := RandomReal[{0.01, 10}, {100}];
f1 := RandomReal[{0.00001, 0.0000001}, {100}];
f2 := RandomReal[{0.00001, 0.0000001}, {100}];
Export["C:\\Scan168.txt",
Reap[Table[
If[Between[
mass[R1[[n]], R2[[n]], f1[[n]],
f2[[n]], A1[[v]], B1[[v]]], {0, 0.609999}] &&
Between[mass3[R1[[n]], R2[[n]], f1[[n]],
f2[[n]], A1[[v]], B1[[v]]], {0.6001, 1.16999}] &&
Between[
mass1[R1[[n]], R2[[n]], f1[[n]],
f2[[n]], A1[[v]], B1[[v]]], {16.79001, 68.009999}] &&
Between[
mass2[R1[[n]], R2[[n]], f1[[n]],
f2[[n]], A1[[v]], B1[[v]]], {1.43601,
2.91799}], {R1[[n]], R2[[n]], f1[[n]],
f2[[n]], A1[[v]], B1[[v]]}, Nothing], {v, 1, 60}, {n,
1, 100}] // Flatten[#, 1] &]]
I am getting error messege
Thread::tdlen: Objects of unequal length in 2 <<3>> {7.09846,11.0615,2.99195,3.59533,7.92718,9.11883,14.4567,8.97938,12.5384,7.00722,14.712,14.7486,6.62113,9.37542,13.2825,2.59686,13.4586,<<17>>,19.469,13.7266,6.78945,14.4631,5.78073,13.8504,11.7908,4.76266,10.2747,14.8003,5.85192,16.8839,13.8162,7.69785,8.22073,12.0752,<<50>>} cannot be combined.