home *** CD-ROM | disk | FTP | other *** search
/ Fish 'n' More 1 / FishNMoreVol1.bin / more / code_examples / librar / defactor.c < prev    next >
Text File  |  1989-02-08  |  422b  |  20 lines
  1. /*---------------------------------*/
  2. /*                   */
  3. /*           DEFACTOR(X,X)       */
  4. /*                   */
  5. /* Divides the second argument into*/
  6. /* the first to see if it is a fac-*/
  7. /* tor. If so, a zero is returned. */
  8. /*                   */
  9. /*---------------------------------*/
  10. defactor(a,b)
  11. double a,b;
  12. {
  13.         double dd;
  14.        dd=a/b;
  15.         if (a==(dd*b))
  16.             return(0);
  17.         else
  18.             return(1);
  19. }
  20.