!-----  Ex3_2: Calculating Square Root   -----     
      REAL :: x
      PRINT*, "Input a real number:"
      READ *, x
      IF(x>=0.0) THEN
         PRINT*, SQRT(x)
      ELSE
         PRINT*,"Impossible for x<0."
      END IF
      END