program define sturng4
#delimit ;
if `1' { matrix StuRng41 = (
   .29667538, .01743194, -.00415575, .00024242 \
   .29386026, .01551539, -.00399307, .00024728 \
   .29101786, .0136845,  -.00388658, .00025721 \
   .28814259, .01194681, -.00383736, .00027159 \
   .28523177, .01030337, -.00384252, .00028911 \
   .28229851, .00873171, -.00388857, .00030699 \
   .27936494, .00719669, -.00395677, .00032194)
};
else { matrix StuRng40 = (
   .65493387, .12471695, -.03544692, .0028004 \
   .47234976, .1018649,  -.02588878, .0019161 \
   .40437278, .07842101, -.01823804, .00122996 \
   .36994883, .06395105, -.01403536, .00087877 \
   .34985438, .05407703, -.01145244, .00067948 \
   .33726203, .04645923, -.00956474, .00053869 \
   .328574,   .04068872, -.00822094, .00044314 \
   .32218516, .0362805,  -.00727161, .00038175 \
   .31733134, .03276593, -.00655646, .00033825 \
   .31351262, .02992028, -.00600962, .00030725 \
   .31041962, .02759003, -.00558872, .00028547 \
   .30785915, .02565621, -.00526085, .00027026 \
   .30570206, .02403132, -.00500241, .00025973 \
   .30385903, .022649,   -.00479577, .00025246 \
   .30226389, .02146265, -.00462943, .00024762 \
   .30086857, .0204353,  -.00449434, .00024455 \
   .29963762, .01953822, -.00438384, .00024278 \
   .29854143, .0187507,  -.00429334, .00024203 \
   .29756007, .01805274, -.00421805, .00024194 \
   .29667538, .01743194, -.00415575, .00024242)
};
end;