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