PRACE NPT

void setarr( double x[], double val, int n )

{

   int   i;

// ---------------------------------------------------------------------

   for ( i = 0; i < n; i++ ) { x[i] = val; }

}