1

在下面的fortran77代码中，有这个子程序定义

  SUBROUTINE MSIRNS ( D , NOBST , N , X , R , RR , SURFT ,
 ,                    INOBSI , ISUR , IDELTS , IRELPS ,
 ,                    RNOBSI , RSUR , RDELTS , RRELPS ,
 ,                    OBSD , * , * )

最后两个参数是什么意思，星号？

因此，我该如何调用该函数？

我尝试了所有这些变体

RES = CALL MSIRNS (D, NOBST, N, X, R, RR, SURFT, INOBSI, ISUR, IDELTS, IRELPS, RNOBSI, RSUR, RDELTS, RRELPS, OBSD, *, *)
    CALL MSIRNS (D, NOBST, N, X, R, RR, SURFT, INOBSI, ISUR, IDELTS, IRELPS, RNOBSI, RSUR, RDELTS, RRELPS, OBSD, *, *)
    RES = CALL MSIRNS (D, NOBST, N, X, R, RR, SURFT, INOBSI, ISUR, IDELTS, IRELPS, RNOBSI, RSUR, RDELTS, RRELPS, OBSD)

但总是得到

错误：(1) 处的参数列表中的语法错误

4

1 回答 1

2

这是一个备用返回说明符：

http://www.fortran.com/F77_std/rjcnf0001-sh-15.html#sh-15.8.3

在调用 MSIRNS() 的代码中，您需要将星号替换为“*N”，其中 N 是备用返回行的标签。

于 2011-10-20T11:48:21.473 回答