!--------------------------------------------------
!Compiled by Ted Hertel
!ENGR 225 Fall 2010
!--------------------------------------------------


!declare variables
module types
        real, parameter::dp=selected_real_kind(15)
end module types


program dangerousmath

implicit none
real :: a, b, x, mu, c
integer :: i, k, n = 9
character (10) :: name
        a = 3
        b = (n+3)/5
        x = 5.75
        i = 3.141959
        k = x/2.0
        mu = 1./5.75
write (*,*) "Please enter your name."
read (*,*) name
write (*,*) "Hello ", name
write (*,*) a,b,x,i,k,mu

!Enter A and B to calculate C

write (*,*) "Enter a value for A and B"
read (*,*) a, b
!calculate c
c = ((a + b) ** 2 - 2 * a * b - b ** 2)/a ** 2
write (*,*) c


stop
end program dangerousmath