＜COSH Example Program＞

Program cosh_example
  Real, Dimension(2,3) :: a
  Complex, Dimension(3) :: c
  a = Reshape( [ 0.0,0.2,-0.4,0.6,-1.2,5.7 ], [ 2,3 ])
  c = [ (0.2,0.0),(0.5,-1.5707963),(5.7,1.5707963) ]
  Print 1, Cosh(a)
1 Format(6(2X,F0.5))
  Print 2, Cosh(c)
2 Format(3(2X,'(',F0.5,',',F0.5,')'))
End Program

■ Execution Results

  1.00000  1.02007  1.08107  1.18547  1.81066  149.43535
  (1.02007,.00000)  (.00001,-.52110)  (.00001,149.43199)