Reduction

!HPF$ independent,new(ixe,dxe),reduction(rhotmp)

do i=1,no,lpara !lpara: 256 or 512

do ip=0,lpara-1

ixe=xe(i+ip)

dxe=1.0-xe(i+ip)+ixe

rhotmp(ip,ixe,iye)=rhotmp(ip,ixe,iye)-dxe*dye

end do

end do

Strip-mining for vectorization

Particles

Field

To 1st row

To 2nd row

To 3rd row

Vector op.

lpara

前のｽﾗｲﾄﾞ

次のｽﾗｲﾄﾞ

最初のｽﾗｲﾄﾞに戻る

ｸﾞﾗﾌｨｯｸｽの表示