C     Common data for program RPS
C
      PARAMETER (NXSET=64, NYSET=45, NTH=40, MAXANG=20, MAXEN=20)
C
      CHARACTER*1 CHARS(15)
      CHARACTER*6 PTCLE(3)
C
      REAL ABSRBS(3)
C
      INTEGER IDET(2), MASSES(3)
C
      LOGICAL LOVL
C
      EQUIVALENCE (MASSES(1),MHI)
C
      COMMON/PARMS/EBEAM,MB,MT,MHI,MLI,MREC,Q2,EX,EXI,EXINC,EXF,        
     +THRESH,DISTA,DIAMA,DISTB,DIAMB,                                   
     +EAMIN,EBMIN,EAMAX,EBMAX,ABSRBS,THSMIN,PSIMIN,                     
     +IVAR,ELIMAX,IDET,THMINA,THMINB,                                   
     +DTH,DPSI,DTHA,DTHB,LOVL,                                          
     +THAMIN,THAMAX,THBMIN,THBMAX
C
      DATA CHARS/'A','B','C','D','0','1','2','3','4','5','6',           
     +'7','8','9','I'/
      DATA PTCLE/'    HI','    LI','RECOIL'/
C
C-------------------------------------------------------------------
C
C     Thstar vs psi plot:
C      NXSET,NYSET are no. of x(psi) & y(thstar) bins
C      DTH,DPSI are thstar & psi bin sizes
C      THSMIN,PSIMIN are starting values of thstar,psi
C
C     TH(A) vs TH(B) plot:
C      NTH is no. of x(TH(B)) & y(TH(A)) bins
C      DTHA,DTHB are TH(A) & TH(B) bin sizes
C      THMINA,THMINB are starting values of TH(A),TH(B)
C
C     CHARS contains characters of code showing why a point
C       on a plot cannot be reached
C     PTCLE contains names of particles 1,2 & 3
C     IDET(1) contains no. (1,2 or 3) of particle detected in telescope A
C     IDET(2) contains no. (1,2 or 3) of particle detected in telescope B
C
C     IVAR=0 : original type of plot (only one angle setting per plot)
C     IVAR=1 : all angles for one Ex on same plot
C     IVAR=2 : 'auto-detector' mode (angles scanned automatically for
C       input detector sizes, all angles on one plot)
C     IVAR=3 : log file RPS.LOG produced for one Ex (calculates all
C       angles, irrespective of cuts)