program temperature

	!write a program that askes for n temperatures, then asks what these
	!n temperatures are in celsius. Then, it prints the average of these
	!temperatures in farenheit
	!write a celsius to farenheit fucntion

	implicit none

	integer::  temperatureSum, J, i, ntemp
	real:: u, y, ctf
	integer, dimension(:), allocatable :: temperatures

	temperatureSum=0
	J=0

	print*, "enter number of temperatures"

	read*, ntemp

	allocate(temperatures(ntemp))

	do i=1, ntemp

		print*, "enter value in celsius"
		read*, temp

		temperatureSum = temperatureSum + ntemp

	    y=ctf(temp)

	end do

	u=(ntot/ntemp)

	print*, "mean temp =", u

	print*, "Temp in farenheit=", y

	stop

end

real function ctf (a)

implicit none

real:: a

ctf=(a*(9.0/5)+32)

return

end