include/randvars.inc

Fortran project SIMRES, source module include/randvars.inc.

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