#include <S.h>
#include <math.h>
void my_j0_vec(x, n)
double *x ; long *n ;
{
        long i ;
        for (i = 0 ; i < *n ; i++)
                x[i] = j0(x[i]) ;
}