natebenes · March 9, 2010 23:02
diff --git a/example5.f90 b/example5.f90
 PROGRAM example5
 IMPLICIT NONE

 REAL,DIMENSION(5):: v1, v2
 REAL :: dot
 INTEGER :: i
 dot = 0

 WRITE(*,*) 'Enter the first dataset:'
 READ (*,*) v1 
 WRITE(*,*) 'Enter the second dataset:'
 READ (*,*) v2 
 DO i = 1,5
 	dot = dot + (v1(i))*(v2(i))
 END DO
 101 FORMAT(X, 'The answer is', X, F9.5)
 WRITE(*,101) dot
 END PROGRAM
	PROGRAM example5
	IMPLICIT NONE

	REAL,DIMENSION(5):: v1, v2
	REAL :: dot
	INTEGER :: i
	dot = 0

	WRITE(,) 'Enter the first dataset:'
	READ (,) v1
	WRITE(,) 'Enter the second dataset:'
	READ (,) v2
	DO i = 1,5
	dot = dot + (v1(i))*(v2(i))
	END DO
	101 FORMAT(X, 'The answer is', X, F9.5)
	WRITE(*,101) dot
	END PROGRAM