/*
 * Converts distances from miles to kilometers
 *
 * Data-file mode: prgoram-controlled input and output files
 */

#include <stdio.h> 
#define KMS_PER_MILE 1.609

int
main(void)
{
	double miles, kms; 
	FILE *inp, *outp; 

        /* open the input and out files */ 
	inp = fopen("m2kdistance.dat","r"); 
	outp = fopen("m2kdistance.out","w"); 

	fscanf(inp, "%lf", &miles); 
	fprintf(outp, "The distance in miles is %.2f.\n",miles); 
	
	kms = KMS_PER_MILE * miles; 

	fprintf(outp, "That equals %.2f kilometers,\n",kms); 

        /* close files */ 
	fclose(inp);
	fclose(outp);

	return (0); 
}