在FORTRAN77中使用子程序内的函数

我正在更新遗留代码，我需要在子例程中使用一个简单的数学函数。我不知道怎么做。我有一个从测试程序调用的函数。对于子例程，我需要做哪些不同的操作

例如：

subroutine foo(i,j,k)

i = bar(j,k)

stuff = otherstuff

return 
end

其他资料： bar是一种erf近似值。 我正在使用PGF90编译器。 我是C语言的FORTRAN新手

---

谢谢

基本上，从程序或子例程调用应该没有区别。代码是否真的像这样，没有任何声明？这意味着所有变量都将具有隐式类型：名称以字母i-n开头的变量将是整数，其他所有变量都是实数；这也适用于函数返回值。显示的代码尝试将实数（

bar（）

）分配给整数（

i

）

---

如果您正在编写新代码，总是使用

隐式无启动程序和过程。这迫使您显式地包含所有变量和函数返回值的类型声明，从而大大减少了错误。
您遇到的确切问题是什么？你收到错误信息了吗？在编译过程中？链接期间？什么时候运行程序？要比“我有问题”更具体。