FACT++  1.0
void palSmat ( int  n,
float *  a,
float *  y,
float *  d,
int *  jf,
int *  iw 
)