/******************************************************************************/
/*									      */
/*  "WEAK" FURTWANGLER CONDITIONS                                             */
/*  09/23/05 (dkc)							      */
/*									      */
/******************************************************************************/
unsigned int powquot(unsigned int a, unsigned int index);
unsigned int furtest(unsigned int d) {
unsigned int flag,quotient,f,remd,p,ps;
p=3;
ps=9;
flag=0;
if ((d/2)*2!=d) {
   quotient=powquot(d, 0);
   if (quotient*p==d)
      f=quotient;
   else
      f=d;
   quotient=powquot(f, 1);
   remd=f-quotient*ps;
   if ((remd!=1)&&(remd!=8))
      flag=1;
   }
else {
   quotient=powquot(d, 0);
   if (quotient*p!=d) {
      f=d/2;
      quotient=powquot(f, 1);
      remd=f-quotient*ps;
      if ((remd!=1)&&(remd!=8))
	 flag=1;
      }
   }
return flag;
}