#include </usr/hpm/x/wave/scenesub.c>

main(argc,argv)
int argc;
char *argv[];
{char name[50]; int l,ord;
 struct {long  proc_user, proc_sys, child_user, child_sys} time[2];

 initialize();

 for (l=1; l<argc; ++l)
   {sscanf(argv[l],"%d",&ord);
    sprintf(name,"/usrg1/hpm/x/wave/F%d.9F",ord);

    for (i=0; i<nn; ++i) {Qr[i]=1.0; Qi[i]=0.0;}   ck();
    times(&time[0]); 
    readA(name);  convolve();  ck();
    times(&time[1]);
    printf("convolution time %f, kernel time %f\n",
	(time[1].proc_user - time[0].proc_user)/60.0,
	(time[1].proc_sys - time[0].proc_sys)/60.0);
   }
}