        subroutine NAME UNDERSCORE ( n )
        integer n
	TYPE b, t
#ifdef sunpro_version
	volatile b, t
#endif
	n = 0
	b = 1
 1	continue
		n = n + 1
		b = b + b
		t = b + 1
		t = t - b
		t = t - 1
	if (t .eq. 0) goto 1
        return
        end    

