program define sturng7
#delimit ;
if `1' { matrix StuRng71 = (
   .18898669, .01550028, -.00255145, .00011519 \
   .18444814, .01372278, -.00243016, .00012295 \
   .17991458, .01204495, -.00235632, .00013393 \
   .17539345, .01045725, -.00232124, .00014654 \
   .17089912, .00893961, -.00231152, .00015873 \
   .16645311, .00746238, -.00231044, .00016841 \
   .16207296, .00600429, -.00230683, .00017484)
};
else { matrix StuRng70 = (
   .65294063, .1250658,  -.03554144, .00281108 \
   .45192069, .09907939, -.02450668, .00177237 \
   .3581599,  .07788067, -.01722387, .00112507 \
   .30600661, .06408402, -.01308244, .00079012 \
   .27526817, .05297764, -.0099171,  .00052869 \
   .25442514, .04611539, -.00842455, .00045242 \
   .24034709, .04004055, -.00699659, .00035513 \
   .23074725, .03429684, -.00551562, .00022896 \
   .22288336, .03052801, -.00471631, .00017594 \
   .21645206, .02785802, -.00427905, .00016257 \
   .21137689, .02550129, -.00387411, .00014509 \
   .20723054, .02348577, -.00352968, .0001287 \
   .20372017, .0218359,  -.00327306, .00011878 \
   .20070009, .0204795,  -.00308607, .00011413 \
   .19808365, .01933574, -.00294352, .00011225 \
   .19580092, .01835144, -.00282992, .00011167 \
   .19379319, .01749436, -.00273741, .00011181 \
   .19201221, .01674367, -.00266198, .0001125 \
   .19041982, .01608362, -.00260086, .00011366 \
   .18898669, .01550028, -.00255145, .00011519)
};
end;