--- loncom/homework/default_homework.lcpm	2001/07/23 22:40:59	1.32
+++ loncom/homework/default_homework.lcpm	2001/07/27 18:15:04	1.33
@@ -268,16 +268,9 @@ sub random_noncentral_f {
 }
 
 sub random_multivariate_normal {
-  my ($item_cnt,$seed,@mean) = @_;
-  return "Number of deviates must be greater than 0" if $item_cnt <= 0;
-  my (@covar,@retArray);
-  my $ind = 0;
-  while ($ind<$item_cnt) {
-     push @covar, pop (@mean);
-     $ind++;
-  }
+  my ($item_cnt,$seed,$mean,$covar) = @_;
   &random_set_seed_from_phrase($seed);
-  @retArray=&math_random_multivariate_normal($item_cnt,@mean,@covar);
+  @retArray=&math_random_multivariate_normal($item_cnt,@$mean,@$covar);
   return @retArray;
 }