＜CONJG Example Program＞
Program conjg_example
Complex :: c(3) = [ (1,2),(3,4),(5,6) ]
Print 1, Conjg(c)
1 Format(3(2X,'(',F0.5,',',F0.5,')'))
End Program
■ Execution Results
(1.00000,-2.00000) (3.00000,-4.00000) (5.00000,-6.00000)
Program conjg_example
Complex :: c(3) = [ (1,2),(3,4),(5,6) ]
Print 1, Conjg(c)
1 Format(3(2X,'(',F0.5,',',F0.5,')'))
End Program
(1.00000,-2.00000) (3.00000,-4.00000) (5.00000,-6.00000)