! 例題 5-8  正規分布のヒストグラム ［DO 形出力リスト ］
PROGRAM ex5_8

  IMPLICIT NONE
  INTEGER :: i, j, h
  REAL :: x, dx = 0.2E0                            ! きざみ幅 0.2

  DO i = -16, 16
    x = i * dx
    h = NINT( 50.0E0 * EXP( - x * x / 2.0E0 ) )
    PRINT '( 1X, F4.1, 1X, "|", 50A1 )', x, ('*', j = 1, h )
  END DO

END PROGRAM ex5_8