子程序内是否可以定义函数

青衣巷

语句函数，已经废止了的用法。
但是intel fortran还是支持的。你的代码我用intel成功编译的。

记住，出错要给错误提示。