program write_to_a_file

* This program creates a file called "f2c.dat", which
*	contains a column of temperature in Celsius 
*	and a corresponding column of temperature in
*	Fahrenheit. 
** By Steve Gao for Computational Geophysics
*--------------------------------------------

	open(1,file='f2c.dat')

	do i=-100, 150
	f=32.0+i*9.0/5.0
	write(1, 11) i*1.0, f
11	format(f6.1, 1x, f6.1)
	enddo

	close(1)

	print*,'The results are in the file f2c.dat'

	stop
	end