PROGRAM HurricaneCase

! Written by Kate T-C
! Today is 8/27/09. It is now 3:36 PM
! This program demonstrates a Select/Case block
!   and random number generation in Fortran

implicit none

real :: harvest=0.0
integer, dimension(8) :: time
integer :: rand

	call date_and_time(values=time)
	call random_seed(put=time(8:8))
	call random_number(harvest)

	rand = floor(harvest*1000)


	print *, 'The intensity of Tropical Storm Danny will be....'

	select case(rand)
		case (0,1)
	  		print *, 'Tropical Storm (Aw)'
		case (2,3)
			print *, 'Catagory 1'
		case (4,5)
			print *, 'Catagory 2'
		case (6,7)
		    print *, 'Catagory 3'
		case (8,9)
		    print *, 'Catagory 4'
		case default
		    print *, 'Catagory 5!!!'
END SELECT


END