/*****************************************************************************/
/*									     */
/* "WEAK" FURTWANGLER CONDITIONS                                             */
/* 11/13/06 (dkc)							     */
/*									     */
/*****************************************************************************/
unsigned int powquot(unsigned int d, unsigned int index);
unsigned int furcond(unsigned int d, unsigned int e) {
unsigned int flag0,flag1;
flag0=powquot(d, 2);
flag0=flag0*6;
flag1=powquot(e, 2);
flag1=flag1*6;
if ((d==flag0)||(e==flag1))    // 2*p divides d or e
   return(0);
flag0=powquot(d-e, 1);
flag0=flag0*9;
flag0=(d-e)-flag0;
if ((flag0==1)||(flag0==8))   // (d-e)-((d-e)/ps)*ps not equal to 1 or 8
   return(0);
flag1=powquot(d+e, 1);
flag1=flag1*9;
flag1=(d+e)-flag1;
if ((flag1==1)||(flag1==8))   // (d+e)-((d+e)/ps)*ps not equal to 1 or 8
   return(0);
return(0);
}