＜COS Example Program＞

Program cos_example
  Real, Dimension(2,3) :: a
  Complex, Dimension(3) :: c
  a = Reshape( [ 0.0,0.2,-0.4,0.6,-0.8,1.57 ], [ 2,3 ])
  c = [ (.2,.3),(.5,-.1),(.4,-.3) ]
  Print 1, Cos(a)
1 Format(6(2X,F0.5))
  Print 2, Cos(c)
2 Format(3(2X,'(',F0.5,',',F0.5,')'))
End Program

■ Execution Results

  1.00000  .98007  .92106  .82534  .69671  .00080
  (1.02450,-.06050)  (.88197,.04802)  (.96282,.11859)