Fortran 中的星号: (1) 处参数列表中的语法错误 [英] Asterisks in Fortran: Syntax error in argument list at (1)

问题描述

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

In the following fortran77 code, there is this subroutine definition

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

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

what is the meaning of the two last arguments, asterisks?

我该如何调用该函数?

我尝试了所有这些变体

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) 处参数列表中的语法错误

Error: Syntax error in argument list at (1)

推荐答案

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

It's an alternate return specifier:

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

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

In the code that calls MSIRNS(), you need to replace the asterisks with "*N", where N is the label of the alternate return line.

这篇关于Fortran 中的星号: (1) 处参数列表中的语法错误的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！