void fivel(double[],double[],double,double,double,double,double,
	double,double,double,double,double,double,double,
	double,double,double,double,double,double,double,
	double,double[],float);