Fortran 90：返回错误

Question

您好我是fortran的新用户。

我尝试为我的项目使用子程序。代码非常简单，下面是代码

subroutine initial_data(f, x, y, z)
implicit none
   REAL                 :: f, x, y, z

  ! Adding function
   #include "func_expr.h"

  return
end subroutine

func_expr.h是我创建的单独文件，因为f的表达式非常复杂。我收到以下错误消息：

  

错误＃5082：语法错误，在期待以下之一时找到IDENTIFIER'RETURN'：*）:: ,; 。 （/ + - ：] /）'** / //＆gt; .LT。 ＆LT; ...       返回   ---- ^

和

  

错误＃6404：此名称没有类型，并且必须具有显式类型。 [返回]       返回   ---- ^

     

编译中止了initial.f90.f（代码1）

我不确定哪个部分出错了，为什么返回有问题。

非常感谢任何帮助！