bclrf(array,n)
float *array;
int n;
{
	while (--n){
	*array++ = 0.;
	}
}