[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[dennou-ruby:000544] Re: array dimension proto type



堀之内です。

補足ですが、コメントアウトされたオリジナルソースはいじらず、プロ
トタイプ宣言だけ * をつぶしましょう。こんな感じ:

/* 
 *      SUBROUTINE SGPLU(N,UPX,UPY)
 *      REAL      UPX(*),UPY(*),VPX(*),VPY(*),RPX(*),RPY(*)
 */
      SUBROUTINE SGPLU(
          INTEGER N
          REAL (N) UPX
          REAL (N) UPY
      )

なお、対象を見つけるには以下が便利です:

% grep -nv '^ *\*' grph1.f77proto | grep '\* *)' | grep -v CHARACTER

堀之内 武                     horinout@xxxxxx
京都大学宙空電波科学研究センター (旧超高層電波研究センター)