＜AIMAG Example Program＞

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

---

■ Execution Results

  2.00000  4.00000  6.00000