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

[Takeshi Horinouchi <horinout@xxxxxx>]

堀之内です。

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

/* 
 *      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
京都大学宙空電波科学研究センター (旧超高層電波研究センター)