home *** CD-ROM | disk | FTP | other *** search
/ The C Users' Group Library 1994 August / wc-cdrom-cusersgrouplibrary-1994-08.iso / listings / v_09_06 / 9n06122a < prev    next >
Text File  |  1991-04-23  |  1KB  |  52 lines
  1. #include  <stdio.h>
  2. #include  <stdlib.h>
  3.  
  4. extern FILE    *testfile;
  5.  
  6. /**************************************************************
  7. * subroutine R : read a floating point number from test file
  8. ***************************************************************/
  9. float
  10. r()
  11.      {
  12.      float     f;
  13.      int       rc;
  14.  
  15.  
  16.      rewind(testfile);
  17.      rc = fread(&f, sizeof(float), 1, testfile);
  18.      if (rc != 1)
  19.           {
  20.           printf("R : read error\n");
  21.           exit(0);
  22.           }
  23.  
  24.      printf("R : \tf = %f\n", f);
  25.      return f;
  26.  
  27.      }
  28.  
  29. /****************************************************************
  30. * subroutine W : write a floating point number in test file
  31. ****************************************************************/
  32. int 
  33. w(f)
  34. float     f;
  35.  
  36.      {
  37.      int       rc;  /* return code */
  38.  
  39.      printf("W : \tf = %f\n", f);
  40.  
  41.      rewind(testfile);
  42.      rc = fwrite(&f, sizeof(float), 1, testfile);
  43.      if (rc != 1)
  44.           {
  45.           printf("W : write error\n");
  46.           exit(0);
  47.           }
  48.  
  49.      return 1;
  50.      }
  51.  
  52.