/******************************
*	strm_bin.c
*	19.03.2002
******************************/

#include <stdio.h>
#include <stdlib.h>

double d[10] = {10.23, 19.87, 100.2, 0.258, 
11.15, 95.23, 21.21, 458.03, 73.321, 3.14};

int main(void)
{
 int i;
 FILE *soubor;
 
 if((soubor = fopen("soubor2", "wb")) == NULL)
 {
  printf("Soubor nelze otevrit.\n");
  exit(1);
 }
 
 for(i=0; i<10; i++)
    if(fwrite(&d[i], sizeof(double), 1, soubor) != 1)
	{
	 printf("Chyba pri zapisu.\n");
	 exit(1);
	}
 fclose(soubor);
 
 if((soubor = fopen("soubor2", "rb")) == NULL)
 {
  printf("Soubor nelze otevrit.\n");
  exit(1);
 }	  

 /* vymazani pole */
 for(i=0; i<10; i++) d[i] = 0.0;
 
 for(i=0; i<10; i++)
    if(fread(&d[i], sizeof(double), 1, fp) != 1)
	{
	 printf("Chyba pri zapisu.\n");
	 exit(1);
	}
 fclose(soubor);
 
 /* vypis pole */
 for(i=0; i<10; i++) 
    printf("%f ", d[i]);
	
 return 0;		 
}