Fortran 関数の中に配列 エラー

Question

      real*8 function f1(x,y,z,i)

              implicit none
              integer :: i
              integer,parameter :: n=14610
              real*8 :: x,y,z,xj(n),yj(n),zj(n),r,rm,rj
              real*8,parameter :: gs=40.3396d0,gj=3.8603d-2

              r=sqrt(x*x+y*y+z*z)
              rm=sqrt((xj(i)-x)*(xj(i)-x)+(yj(i)-y)*(yj(i)-y)+
     &                 (zj(i)-z)*(zj(i)-z))
              rj=sqrt(xj(i)*xj(i)+yj(i)*yj(i)+zj(i)*zj(i))

              f1=-gs*x/(r*r*r)+gj((xj(i)-x)/(rm*rm*rm)-xj(i)/(rj*rj*rj))

              return

      end function f1

このように関数副プログラムを作成したのですが、

f1=-gs*x/(r*r*r)+gj((xj(i)-x)/(rm*rm*rm)-xj(i)/(rj*rj*rj))
(1)
unclassifiable statement at (1) f90

とエラーが表示されてしまいます。
コンパイラはgfortranです。
今まで関数副プログラムを作成してこのようになったことはなく、見比べたりしましたがどこにエラーの原因があるのか分からず困っております。
関数の中に配列を組み込む方法も教わったようにしたと思うのですが、このやり方ではまずいでしょうか。
よろしくお願いいたします。

Answer 1

定数gjが配列もしくは関数名のように参照されています。
何らかのタイプミスと言うことでしょう。

Comments

[aaaaaaaaa_a]

正しくは　gj*(~)でした。本当にありがとうございます。

[otn]

「この行に絶対間違いがある」ということが分かっているのに、このレベルのタイプミスを発見できないというのはおかしいです。
何故発見できなかったのかをちゃんと分析した方が良いです。その上でその欠点をカバーする方法を考えないと、このレベルの躓きがたくさん出ます。

[aaaaaaaaa_a]

低レベルな質問でお手を煩わせてしまい申し訳ありませんでした。精進します。

[otn]

そういう問題では無いのですが。