🚀 go-pugleaf

In article <396@validgh.com> dgh@validgh.com (David G. Hough on validgh) writes:
>      do 30 i = 2,n
>         if(abs(dx(i)).le.dmax) go to 30
>         isamax = i
>         dmax = abs(dx(i))
>   30 continue

One instruction that can eliminate the conditional branch is
conditional assignment.  (It is unclear whether it should be a 3 in 1
out operation or a 2 in 1 out operation with the destination as an
implicit operand.)  In the above, it can be used like:

	isamax = 1
	dmax = abs(dx(1))
	do 30 i = 2, n
	    absdx = abs(dx(i))
	    ibig  = absdx .le. dmax
	    asm("<if ibig is true, replace isamax's value with i>")
	    asm("<if ibig is true, replace dmax's value with absdx>")
    30	continue

Obviously one can pipeline the abs.  The delay caused by the
loop-carried dependence can be eliminated by unrolling (or recursive
doubling) and computing separate values of ibig and dmax for different
sections of the array.

One has to be careful with this, as branch-prediction might hide the
branch penalty associated with the original version.

-andy
--
UUCP:    {arpa gateways, sun, decwrl, uunet, rutgers}!neon.stanford.edu!andy
ARPA:    andy@neon.stanford.edu