! calculating square root
PROGRAM ex3_2

  REAL :: x

  PRINT *, 'Input a real number: '
  READ *, x

  IF ( x >= 0.0E0 ) THEN
    PRINT *, SQRT( x )
  ELSE
    PRINT *, 'Impossible for x < 0'
  END IF

END PROGRAM ex3_2