<Example Program>

Program sqrt_example
  Real :: a(3) = [ 0,2,4 ]
  Complex :: c(3) = [ (0,1), (-1,0), (5,5) ]
  Print 1, Sqrt(a)
1 Format(3(2X,F0.5))
  Print 2, Sqrt(c)
2 Format(3(2X,'(',F0.5,',',F0.5,')'))
End Program

Execution Results

  .00000  1.41421  2.00000
  (.70711,.70711)  (.00000,1.00000)  (2.45673,1.01761)