2011-10-20 17 views
1

で引数リストの構文エラーは、このサブルーチンの定義があるアスタリスク:以下FORTRAN77のコードでは(1)

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

2つの最後の引数、アスタリスクの意味は何ですか?

どうすれば関数を呼び出すことができますか?

私はそれが代替戻り指定子です

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)

答えて

2

を得る:()MSIRNSを呼び出すコードで

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

、アスタリスクを "* N"に置き換える必要があります。ここで、Nはalのラベルですternateリターンライン。

+1

間違いなく古いコード...代替リターンはFortran 95で「廃止」と宣言されており、新しいプログラムでは使用しないでください。 –

関連する問題