#include <S.h>
my_rnorm(x, n_p)
double *x ;
long *n_p ;
{
        long i, n = *n_p ;
        seed_in((long *)NULL) ;
        for (i=0 ; i<n ; i++)
                x[i] = norm_rand() ;
        seed_out((long *)NULL) ;
}