Fortran中Recursive应用的问题？

wyh.hy37

在MODULE中用接口定义了三个MODULE PROCEDURE子例行程序
MODULE SORT_MODULE
IMPLICIT NONE
  INTERFACE  FAST_SORT
    RECURSIVE MODULE PROCEDURE FAST_SORT_I
    RECURSIVE MODULE PROCEDURE FAST_SORT_R
    RECURSIVE MODULE PROCEDURE FAST_SORT_D
  END INTERFACE
CONTAINS
……
END MODULE
由于FAST_SORT中存在递归运算，所以定义为RECURSIVE属性。但是在最后用
CALL FAST_SORT()出错，问一下是RECURSIVE用错了麽？

pasuka

快速排序的递归Fortran程序代码，请参考彭国伦的《Fortran95程序设计》，书里面有，不需要写得像lz那么复杂