Error: A subroutine or function is calling itself recursively.

ch06

编译了陶文铨老师的 计算传热学进展 附录里的程序。显示Error: A subroutine or function is calling itself recursively.
其中有两句 CALL SCAN 语句第一个没有错误  第二条就出现上述错误，不知道是什么原因。请知道的大侠指点一下。
谢谢！ 关于scan语句如下：

ENTRY SCAN
      NP=0
      DO 2100 K=1,N
      DO 2100 I=1,NDOMAIN(K)
      NP=NP+1
      ……

      INDOMAIN=.TRUE.
      END IF
2500  CONTINUE
      RETURN

lishhit

把函数名改成 recursive subroutine subname（。。。）试试

ch06

谢谢lishhit 的热心回答
那还需要用ENTRY 吗？不好意思 我没明白你的意思。

[ 本帖最后由 ch06 于 2008-12-31 11:24 编辑 ]

lishhit

ENTRY 我不懂 没有用过 所以也没经验

ch06

Thank you all the same！