C
C
C     This code is distributed under the terms and conditions of the
C     CCP4 licence agreement as `Part 2' (Annex 2) software.
C     A copy of the CCP4 licence can be obtained by writing to the
C     CCP4 Secretary, Daresbury Laboratory, Warrington WA4 4AD, UK.
C
c+++ rfile.fh +++
c
c     sminf             resolution limits (4 (sin theta/lambda)**2)
c     smaxf              from the file
c     smin(irun)        resolution limits (4 (sin theta/lambda)**2)
c     smax(irun)          for each run
c     sminlm            resolution limits (4 (sin theta/lambda)**2)
c     smaxlm              overall after user-set limits applied
c     sminfr(irun)      resolution limits (4 (sin theta/lambda)**2)
c     smaxfr(irun)        for each run, actual values read & accepted
c     sdImin(irun), sdImax(irun)
c                       minimum, maximum sd multiple for inclusion in scaling  
c     abImax(irun)      maximum absolute value for I
c     dfsdmn, dfsdmx, dfabmx  default (non-excluding) values of
c                       sdImin, sdImax, abImax
c     srange            resolution range width (4 (sin theta/lambda)**2)
c     frclrg(2)         fractioncalc range (min & max)
c     avgins            average intensity after scaling: initialized to
c                       negative value, updated by scaling
c     flmxin            maximum intensity in input file
c     rejrct(i,j,nrjrct,irun) rectangles on detector to reject
c                         i = 1,2 minimum, maximum, j = 1,2 == Xdet, Ydet
c     rcrarc(i,nrjarc,irun)  arcs on detector to reject
c                         i=1,2 centre, 3=radius**2
c     phiarc(i,nrjarc,irun)  phi limits of arc i=1 beginning, 2=end
c                      (anticlockwise)
c 
c     nsrang            number of resolution ranges
c     imid              flag for intensity selection
c                       =  0 use integrated intensity
c                       = -1 use profile-fitted intensity
c                       = -2 use profile-fitted intensity, for fullys, 
c                            integrated for partials
c     ipower            (not used at present) for combining integrated &
c                        profile-fitted intensity
c     lsclpr            if .false. always use integrated I for scaled partials
c                          .true. allow profile-fitted I to be used for
c                              scaled partials
c     nrjrct(irun)      number of detector rectangles to reject (= 0 none)
c     mrjrct            .ne. 0 if any rectangles to exclude
c                       .gt. 0 some runs only, .lt. 0 same for all runs
c     nrjarc(irun)      number of detector arcs to reject (= 0 none)
c     mrjarc            .ne. 0 if any arcs to exclude
c                       .gt. 0 some runs only, .lt. 0 same for all runs
c
c     lappsc            if .true. apply input SCALE column if present
c                       if .false., don't
c     lpstrf            .true. if Postref columns (IMEAN,SIGIMEAN,ISUM,SIGISUM)
c                       are present in input file
c     lprtfl            .true. if partials are present in file
c     linarc(nrjarc,irun) .true. exclude inside, .false. exclude outside
c     lcorner           .true. to apply corner correction
c
      common /rfile/ sminf, smaxf, smin(maxrun), smax(maxrun),
     $   sminlm, smaxlm, sminfr(maxrun), smaxfr(maxrun),
     $   sdImin(maxrun), sdImax(maxrun),
     $   abImax(maxrun), dfsdmn, dfsdmx, dfabmx, frclrg(2),
     $   srange, avgins, flmxin, rejrct(2,2,maxrct,maxrun),
     $   rcrarc(3,maxarc,maxrun), phiarc(2,maxarc,maxrun),
     $   nsrang, imid, ipower, nrjrct(maxrun), mrjrct,
     $   nrjarc(maxrun), mrjarc,
     $   lappsc, lpstrf, lprtfl, lsclpr, linarc(maxarc,maxrun),
     $   lcorner
      real sminf, smaxf, smin, smax, sminlm, smaxlm, sminfr, smaxfr,
     $   sdImin, sdImax, abImax, dfsdmn, dfsdmx, dfabmx, srange,
     $   frclrg, avgins, flmxin, rejrct, rcrarc, phiarc
      integer imid, ipower, nsrang, nrjrct, mrjrct, nrjarc, mrjarc
      logical lappsc, lpstrf, lprtfl, lsclpr, linarc, lcorner
      common /rfilec/ rtitle, cornerfile
      character rtitle*80, cornerfile*200
c
      save /rfile/, /rfilec/
c--- rfile.fh ---