/*****************************************************************************/
/*									     */
/*  EULER'S PHI FUNCTION                                                     */
/*  05/29/14 (dkc)							     */
/*									     */
/*****************************************************************************/
unsigned int euclid(unsigned int d, unsigned int e);
unsigned int euler(unsigned int f) {
unsigned int i,sum,temp;
sum=1;
for (i=2; i<f; i++) {
   temp=euclid(i,f);
   if (temp==1)
      sum=sum+1;
   }
return(sum);
}