＜DBLE Example Program＞

Program dble_example
  Complex :: c(3) = [ (1,2),(3,4),(5,6) ]
  Print 1, Dble(13), Dble(c)
1 Format(4(2X,F0.5))
End Program

■ Execution Results

  13.00000  1.00000  3.00000  5.00000