子程序中jian'jie定义的函数在调用时出现错误，被认为实参...

fcode

1. 建议写 implicit none
2. 请找到正确的报错位置。错误在第58行，与 Fp有关，而你给出的代码里，完全没有出现 Fp

fcode

你在主程序中把 Fa 定义成了外部过程，而Fun2函数的虚参Fa又需要是一个常规变量。

fcode

在一个程序单元中，一个名字，如果是函数就一直是函数。如果是常规变量，就一直是常规变量。

虚参和实参的类型要相同，要么都是函数，要么都是常规变量。
你需要明确，Fa 和 Fs 分别是什么。

此外，Fortran做不到这样：
传递一个函数名Fa给一个函数sub，让sub函数里给出Fa函数的实现，再返回给主程序。
做不到！！！