home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / adaptor.zip / adapt.zip / adaptor / examples / dalib / random / count.f next >
Text File  |  1993-03-23  |  577b  |  24 lines
  1.       program random
  2.       integer K, N, init
  3.       parameter (K = 16, N=50000)
  4.       integer C(0:K-1)
  5.       integer A(N), HA(N)
  6. cmf$  layout HA(:host)
  7. cmf$  layout C(:host)
  8.       print *, 'Init (seed for random numbers): '
  9.       read *, init
  10.       call cmf_randomize (init)
  11.       print *, 'Get ', N, ' random numbers in range 0 - ', K-1
  12.       call cmf_random (A,K)
  13.       HA = A
  14.       print *, 'Counting: '
  15. c     print *, HA
  16.       C = 0
  17.       do I = 1, N
  18.         C(HA(I)) = C(HA(I)) + 1
  19.       end do
  20.       do I = 1, K
  21.         print *, I-1, ' : ', C(I-1)
  22.       end do
  23.       end
  24.