TIPS(2)

楽チン！ループの1重化

do k=1,kmax

!OCL NOVREC( f )

do ij = 1, jmax*imax

call subscript2

& (ij,1,

& 1,imax,

& 1,jmax,

& i,j)

f(i,j,k) = ... 　　

do k=1,kmax

do j = 1, jmax

do i = 1, imax

f(i,j,k) = ...

　　　　　

サブルーティンsubscript2をインライン展開する。

最適化制御行を用いて、f(i,j,k)が回帰演算しないとコンパイラに伝える。!OCL NOVREC( f )。

⇒簡単にベクトル長が1000を超える。

前のスライド次のスライド最初のスライドに戻るグラフィックスの表示