forallを多重doループに展開する

forallを利用した多重ループは、コンパイラによっては正確な解を得られなかったり (例: NVIDIAコンパイラ24.1でのCPU部分のコンパイル) 、そもそも受け付けなかったり (例: OpenACCを挿入した場合) する。見通しも悪いので、すべてdoによる多重ループに書き直す。