* 何か役立つ計算をおこなうためには、ループ処理が必須となる。CALでループ処理を実装してみよう。

 * /home/nakasato/CALTEST3"にループを使った計算例のプログラムを置いたので、自分のディレクトリにコピーして実行すること。
{{{
gpu1[~/CALTEST3] ./hellocal
55.000000 55.000000 55.000000 55.000000 55.000000 55.000000 55.000000 55.000000
55.000000 55.000000 55.000000 55.000000 55.000000 55.000000 55.000000 55.000000

Press enter to exit...
}}}

 * このプログラムは、1から10までの合計を計算するプログラムである。

 * なお、このプログラムから、kernelプログラムは別ファイルとして処理している。"hellocal.cpp"の34-51行にて、"prog.il"というファイルを読み込んでいる。kernelプログラムのみに変更を加える場合には、このファイルを変更するだけでよくて、再度makeする必要はない。

 * "hellocal.cpp"の本体部分は、これまでのプログラムとほとんど変わりがない。入出力用の配列を2次元から1次元としたことが大きな違いである。69-70行で、"calResAllocLocal1D()"によって1次元のメモリを確保している。この入力用のメモリには、78-84行にて1からnx(=256)の数字を代入している。

 * 計算domainは(0, 0, 256, 1)としている(109行)ので、256個の論理プロセッサにて"prog.il"が実行される。

 * kernelプログラムは、前と比べるとかなり変更がある。重要な変更点は：
   1. "dcl_literal"による定数値の宣言と利用
   2. "whileloop"によるループ処理の記述
   3. データを読み込むポインタの更新

 以下、個々の点について詳しく説明する。

 * 定数について。初級のプログラムでは、浮動小数点整数をホストプログラムから転送していたが、CALでは定数値を直接プログラム中で利用することもできる。今回のプログラムでは"l0"と"l1"という定数値が5-6行で定義されている。
{{{
dcl_literal 変数名, xの値, yの値, zの値, wの値
}}}
 というように宣言する。4要素を持つ変数であることに注意すること。整数を書けばそのままであり、"0xXX"とすれば16進数になるし、小数点が含まれる数は浮動小数点として扱われる。5-6行での宣言により、CAL上では以下のような定数として、"l0"と"l1"を利用できる。
{{{
l0.x = 0.0f, l0.y = 0.0f, l0.z = 1.0f, l0.w = 0.0f
l1.x = 0, l1.y = 0, l1.z = 1, l1.w = 10
}}}
 "l0"は、8行において、"r1.xy"への代入で利用されている。結果として
{{{
r1.x = 0.0, r1.y = 0.0
}}}
 となる。"l1"も同様に使われている。実際には、これらの数字には以下のような意味がある：
||l0.xとl0.y || データの読み込みのポインタ初期値||
||l0.z          || そのポインタのインクリメント用||
||l1.x          ||ループカウンタの初期値 ||
||l1.z　　　||ループカウンタのインクリメント用||

 これらはループ処理とデータの読み込みに利用される。詳細は以下で説明する。

 * ループについて。CALでのループの実現には、色々な方法があるが、ここでは"whileloop"文を利用する。これは、"whileloop"と"endloop"に挟まれた命令列を永久に実行するという命令文である。よって、無限ループを終わらせる処理を自前で書く必要がある。必要な部分だけを抜き出すと以下のようなCALプログラムがループのひな形となる：
{{{
whileloop
  ige r2.x, r4.x, r4.w
  break_logicalnz r2.x
  iadd r4.x, r4.x, r4.z
endloop
}}}
 ここで、"r4.x"がループカウンタとして、"r4.w"をループの上限値として使っている。これはC言語で書くと以下のような処理に相当する：
{{{
while(1) {
  if (r4.x >= r4.w) break;
  r4.x = r4.x + 1;
}
}}}

 *  "ige"の行は、"r4.x"と"r4.w"の大小を比較して、"r4.x >= r4.w"が成り立っているならば、"r2.x"にTRUEがセットされる(詳しくはil.pdfの43ページを参照のこと。以下同様)。

 * "break_logicalnz r2.x"は、"r2.x"が0でないならば、今のループを終了する。TRUEは0ではないので、"ige"でTRUEがセットされていたら、このループが終了する。この2命令を合わせて、C言語のほうのif文に相当することになる。

 * "iadd"は、単純に整数の加算である。"r4.z"は"1"として初期化されているので、"r4.x"をインクリメントすることになる。