Fortran code for the 3D NUFFT