fortran - Fortran 中的 Asterisk : Syntax error in argument list at (1)

Question

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

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

最后两个参数 Asterisk 的含义是什么？

我该如何调用该函数？

我尝试了所有这些变体

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)

但总是得到

Error: Syntax error in argument list at (1)

Answer 1

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

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

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