block.f

Go to the documentation of this file.

      BLOCK DATA block
*
*
*       Run time initializations.
*       -------------------------
*
      include 'params.h'
      REAL*8  ep,dsc,facm,tfac,range
      common/rand2/  iy,idum2,iv(32),ixyz(65)
      common/icpu0/  icpu
      common/ind6/  ind(6)
      common/bssave/  ep(4),dsc,facm,tfac,itfac,jc
      common/slow0/  range,islow(10)
      common/counts/  ncount(168)
*
*
*       Initialize COMMON indices & B-S data array.
      DATA  icpu,iy,idum2,iv,ixyz  /0,0,123456789,32*0,65*0/
      DATA  ind  /1,2,3,4,5,6/
      DATA  ep  /0.04d0,0.0016d0,0.64d-4,0.256d-5/
      DATA  range  /50.0d0/
      DATA  islow  /1,2,4,8,16,32,64,128,256,512/
      DATA  ncount  /168*0/
*
      END