Express application-dependent information
-
! ³colors² don't interfere with each other
-
!HPF$ INDEPENDENT, NEW(ix, i1,i2,f12)
-
DO i = 1, ncolor
-
DO ix = color_beg(i), color_end(i)
-
i1 = icolor(ix,1)
-
i2 = icolor(ix,2)
-
f12 = w(i1)-w(i2)
-
x(i1) = x(i1) + f12
-
x(i2) = x(i2) - f12
-
END DO
-
END DO
|