Source module last modified on Thu, 24 Mar 2005, 20:10;
HTML image of Fortran source automatically generated by
for2html on Mon, 23 May 2005, 21:29.
# dimension of an array with random nummber
integer*4 crnd
parameter(crnd=16)
# setting of RAN generator
integer*4 iseed,irnd
common /rndgen/ iseed,irnd
# array of random numbers and limits setting for NESS
STRUCTURE /RANDFIELD/
real*8 mean(crnd),limits(crnd),pool(crnd)
integer*4 active(crnd),dim
end structure
integer*4 nseed,hit(crnd)
real*8 xnorm(crnd),xrnd(crnd)
record /RANDFIELD/ rndlist
common /randvars/ rndlist,xnorm,xrnd,hit,nseed
# transformation arrays for sampling optimization
real*8 cmat(crnd,crnd),tmat(crnd,crnd),tmean(crnd)
common /rotace/ cmat,tmat,tmean
# covariance matrix of random variables from RANDVARS
real*8 cov(crnd,crnd),mval(crnd),maxv(crnd),scov
integer*4 ncov
common /covar/ cov,mval,maxv,scov,ncov
# similar, but a structure type
STRUCTURE /STATI/
real*8 sum2(crnd,crnd),sum1(crnd),sumn,c(crnd,crnd),m(crnd),p
integer*4 nc
end structure