demo_norran Program

     program demo_norran
     use M_datapac, only : norran, label, plotxt, sort, norplt, plott
     implicit none
     integer,parameter :: N=300
     real              :: x(N), y(N)
     real              :: mu, sigma
     integer           :: Iseed
     integer           :: i
        Iseed=1234
        sigma=1.00000
        mu=0.0
        call label('norran')
        call norran(N,Iseed,x)
        x = sigma*x
        x = x + mu
        call plotxt(x,n)
        call sort(x,n,y) ! sort and replot to better discern distribution
        call plott([(real(i),i=1,n)],y,n)
     end program demo_norran