program DangerousMath
!-------------------------------------------------------------------------
!Tyler Martin			Engr 225 Lab 2	 	   25 January 2012
!				Dangerous Math Program
!-------------------------------------------------------------------------
Implicit None
integer, parameter::dp=selected_real_kind(15)
	real(dp) :: A, B, C, x, mu
	integer :: I, K, n = 9
        character (10) :: Name
        	A=3
        	B=(n+3)/5
        	x=5.75
        	I=3.1415959
        	K=x/2.0
        	mu=1./5.75

write (*,*) "Please human, enter your name."
read (*,*) Name
write (*,*) "Hello ", Name
write (*,*)a,b,x,I,k,mu

write (*,*) "Enter a value for A and B"
read (*,*) A, B
C = ((A + B)**2 - 2*A*B - B**2)/A**2
write (*,*) C

stop
end program DangerousMath