1

次のfortran77コードには、このサブルーチン定義があります

  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)

しかし、常に取得します

エラー：（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 に答える