Fortran：将硬编码值传递给接受real（16）的函数不起作用。我怎样才能解决这个问题？

Question

相关代码：

Parts(3, indexcount) = push(pi/2, 0.0d0,0.0d0,0.0d0, Parts(1, indexcount),Parts(2, indexcount), 0.01d0, 20000.0d0)

 real(16) function push(phaseinit, yinit, pxinit, pyinit, a0, R, dt, Time_total)
implicit none
real(16) :: phaseinit, yinit, pxinit, pyinit, gammamax, I0, R_star, k_ratio, Vph

etc...

编译时：

Error: Type mismatch in argument 'yinit' at (1); passed REAL(8) to REAL(16)

我试图找到详细介绍如何正确初始化real(16)的数值的在线资源，但找不到任何东西。看来这可以让我初始化real(8)，但是我不知道real(16)的对应过程是什么。