bug fix in cubepm_p3dfft_nested.fh