配列の要素をほかの配列の要素にしたい

Question

do i = 1,25
q(i) = 13
enddo
do i = 1,25
do j = 1,25
r(i,j) = r(i,j) +sqrt((x(j)-x(q(i)))**2+(y(j)-y(q(i)))**2)
enddo
enddo
のようなことはできないでしょうか。このままだとシンタックスエラーとなってしまいます。
xy軸平面上に正方形があった時、その中に等間隔に25個の格子点があるとします。その真ん中(13番目)にある格子点とそのほかの格子点との距離の合計値を、そのほかの点でも共有する周期境界のようなものを表すプログラムです。(つまりこの場合だと例えば正方形の左下にある格子点1にも格子点13と同様の条件を与えているということです。)
日本語が分かりにくい場合は修正いたします。
よろしくお願いします。

Answer 1

別の個所に問題がありました。