PROGRAM DANGEROUSMATH
!-------------------------------------------------------------------------------Enrique Diaz				Engr225			Sept 1, 2010
!					Assignment #2
!This program will tell my ability to recognize error within programs and itll give me experience with double precision
!integer, parameter :: dp=selected_real_kind (15) !15 sigfigs
!
!-------------------------------------------------------------------------------
IMPLICIT NONE
integer, parameter :: dp=selected_real_kind (15) !15 sigfigs
REAl (dp) :: A, B, X, mu, C
Integer :: I, K, n = 9
character (10) :: Name
A= 3
B= (n+3) /5
C= ((A +B) ** 2-2 * A * B - B ** 2)/A ** 2
X= 5.75d0
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
WRITE (*,*) "Enter a value for A and B"
READ (*,*) A, B
WRITE (*,*) C
Stop
END PROGRAM DANGEROUSMATH