サイズが奇数の場合、暗黙の do ループに基づく配列の初期化がありますN
。
J=(N+1)/2
XLOC(1:N) = (/ (I-J, I=1,N) /)
FORALL
F90+ のコンテキストでは、(/ .. /) 構文を使用することをお勧めします。または、ステートメントを使用する方が効率的です。
例:その時のためN=19
にXLOC=(-9,-8,-7,-6,-5,-4,-3,-2,-1,0,1,2,3,4,5,6,7,8,9)
他にどのようにこの配列を初期化しますか?
編集 1
より読みやすいコードでこの配列をどのように初期化しますか?