riwibd.F

Go to the documentation of this file. Or view the newest version in sPHENIX GitHub for file riwibd.F

C **********************************************************************

      SUBROUTINE riwibd

      IMPLICIT NONE
      
C   BLOCK DATA SUBSTITUTE from RIWIAD
**HI      IMPLICIT REAL*8(A-H,O-Z)
      common/store/xa(11),xb(11),xc(11),xd(11),ma(11),mb(11),mc(11)
      DOUBLE PRECISION xa,xb,xc,xd
      INTEGER ma,mb,mc
      common/store1/r(10000),lr
      DOUBLE PRECISION r
      INTEGER lr
      common/option/iprriw,iconv,ireset
      INTEGER iprriw,iconv,ireset 
      common/random/nshots
      INTEGER nshots
      common/intern/factor,alfa,beta,gamma,delta,level,nmin
      INTEGER level,nmin
      DOUBLE PRECISION factor,alfa,beta,gamma,delta

      COMMON /lpflag/ lst3
      INTEGER lst3
      SAVE /lpflag/

      INTEGER init
      DATA init/0/

      IF(init.EQ.1) RETURN
      init=1
      ma(1)=0
      lr=10000
      iconv=1
      ireset=0
      nshots=2
      factor=1.65
      level=90
      alfa=0.3
      beta=0.3
      gamma=0.3
      delta=.7
      nmin=2
C...Print flag to be changed here.
      iprriw=0
      IF(lst3.GE.4) WRITE(6,1000) iprriw
      RETURN
 1000 FORMAT(5x,'RIWIAD print flag changed: IPRRIW =',i5)
      END