VECTOR1.F95

	PROGRAM VECTOR1
!
! Purpose: To calculate the length of a vector.
!
	IMPLICIT NONE
	REAL:: R1(3),RLEN1	! Vector and length of vector respectively
	INTEGER:: I		! DO loop variable
!
	DO I=1,3
	   WRITE(*,10,ADVANCE='NO')I
	   READ(*,*)R1(I)
	END DO
	RLEN1=SQRT(R1(1)**2+R1(2)**2+R1(3)**2)	! Compute vector length
	WRITE(*,20)RLEN1
  10	FORMAT('Enter vector component ',I2,': ')
  20	FORMAT('The length of the vector is ',E15.7)
	STOP
	END PROGRAM VECTOR1