PROGRAM DANGEROUSMATH
!---------------------------------------------------------------------------------
!Karl Harris                             ENGR225              1-25-12
!I predict the outcome to be "A= 3.0,B= 2.0,x= 5.75, I= 3, k= 2, mu= 0

IMPLICIT NONE
integer,parameter ::dp=selected_real_kind(15) !15 sig figs
Real(dp) ::  A,B, x, C, mu
Integer :: I, K, n = 9
Character(10) :: Name
A=3
B=(n+3)/5
X=5.75d0
I=3.1415959
K=x/2.0
mu=1./5.75

Write(*,*)"Please enter your name"
Read(*,*) Name

Write(*,*) "Hello", Name

Write(*,*)" I predict the outcome to be A= 3.0,B= 2.0,x= 5.75, I= 3, k= 2, mu= 0 " 
Write(*,*) a,b,x, I, k, mu

Write(*,*) "Enter a value for A & B"
Read(*,*) A, B
C=((A+B)**2-2*A*B-B**2)/A**2
Write(*,*) C
STOP
END PROGRAM DANGEROUSMATH