＜Example Program＞
Program cmplx_example
Real :: a(3) = [ 0.0625,1.5,200.0 ]
Print 1, Cmplx(a,1)
1 Format(3(2X,'(',F0.5,',',F0.5,')'))
End Program
Results
(.06250,1.00000) (1.50000,1.00000) (200.00000,1.00000)
Program cmplx_example
Real :: a(3) = [ 0.0625,1.5,200.0 ]
Print 1, Cmplx(a,1)
1 Format(3(2X,'(',F0.5,',',F0.5,')'))
End Program
Results
(.06250,1.00000) (1.50000,1.00000) (200.00000,1.00000)