61£®ÎªÊ²Ã´Ê¹ÓÃINDEPENDENT
ÁíÒ»ÖÖ·½Ê½ÊµÏÖ(²¿·Ö)Êý×é¶Ô×¼
!HPF$ INDEPENDENT
DO i = 1, n
a(i) = b(i)
END DO
±í´ïÓ¦ÓÃÏà¹ØÐÅÏ¢
!"colors"
»¥Ï಻ӰÏì
DO i = 1, ncolor
¡¡¡¡¡¡!HPF$ INDEPENDENT, NEW(i1,i2,f12)
¡¡¡¡¡¡DO ix = color_beg(i), color_end(i)
¡¡¡¡¡¡¡¡¡¡i1 = icolor(ix,1)
¡¡¡¡¡¡¡¡¡¡i2 = icolor(ix,2)
¡¡¡¡¡¡¡¡¡¡i3 = w(i1)-w(i2)
¡¡¡¡¡¡¡¡¡¡x(i1) = x(i1) + f12
¡¡¡¡¡¡¡¡¡¡x(i2) = x(i2) - f12
¡¡¡¡¡¡END DO
END DO
Copyright: NPACT
