! 例題 6-3  配列の対称・反対称化 ［配列演算式 ］
PROGRAM ex6_3

  IMPLICIT NONE
  REAL , DIMENSION ( -2 : 2 ) :: x, s, a

  x = (/ 2.52E0, -3.23E0, -1.81E0, 5.09E0, -0.57E0 /)
  s = ( x( : ) + x( 2 : -2 : -1 ) ) / 2.0E0
  a = ( x( : ) - x( 2 : -2 : -1 ) ) / 2.0E0

  PRINT '( 1X, A, 5F7.3 )', 'Symmetric     :', s
  PRINT '( 1X, A, 5F7.3 )', 'Antisymmetric :', a

END PROGRAM ex6_3