快速傅立叶变换子程序 //l=0时，pr存放采样输入的实部，返回离散傅立叶变换的模；l=1时，pr存放傅立叶变换的实部，返回逆傅立叶变换的模 //l=0时，pi存放采样输入的虚部，返回离散傅立叶变换的幅角；l=1时，pi存放傅立叶变换的虚部，返回逆傅立叶变换的幅角 //l=0时，fr返回傅立叶变换的实部 l=1时返回逆傅立叶变换的实部 //l=0时，fi返回傅立叶变换的虚部 l=1时返回逆傅立叶变换的虚部 (l=0时正变换，l=1时逆变换) //il=0时，表示不要求本函数计