48 nfft_init_2d(&my_plan,N,N,M);
50 fp=fopen(
"knots.dat",
"r");
52 for(j=0;j<my_plan.M_total;j++)
54 fscanf(fp,
"%le %le ",&my_plan.x[2*j+0],&my_plan.x[2*j+1]);
58 fi=fopen(
"input_f.dat",
"r");
64 fscanf(fi,
"%le ",&real);
65 my_plan.f_hat[(N*j+k)] = real;
70 nfft_precompute_psi(&my_plan);
74 for(j=0;j<my_plan.M_total;j++)
76 fprintf(fk,
"%le %le %le %le\n",my_plan.x[2*j+0],my_plan.x[2*j+1],creal(my_plan.f[j]),cimag(my_plan.f[j]));
81 nfft_finalize(&my_plan);