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
C--- sharvest include file
C
      INTEGER MAXSHELL
      PARAMETER (MAXSHELL=100)
      INTEGER MAXCOLS
      PARAMETER (MAXCOLS=200)
      INTEGER NLPRGI
      PARAMETER (NLPRGI=21)
C
C
      CHARACTER Hversion*80
      COMMON /CHARV/ Hversion
      LOGICAL PRIVATE,USECWD,NOHARVEST
      INTEGER NROWLIMIT,NLPRGO
      REAL    HRh1,HRh2,Hsdrej,Hsdrej2,Hsdreja,Hsdrej2a
      COMMON /IHARV/PRIVATE,USECWD,NOHARVEST,
     +             NROWLIMIT,NLPRGO,
     +             HRh1,HRh2,Hsdrej,Hsdrej2,Hsdreja,Hsdrej2a
c
c _reflns_shells
c
      INTEGER NSHELL
      REAL HRes1Shell,HRes2Shell,Hcomplt,Hccmplt,Hamltpl,Hpcvo,
     +     Hpcv,Hrmeas,Hrmeaso,Hrpim,Hrpimo,Hanomfrc,Hanomcmp,Hanommlt,
     +     HsigI, HRmerge, HRcum, HRanom, Hsdall,
     +     Hfbias, HanoCC, HCChalf
      INTEGER NHall, NHuniq, NHcent, NHanom, NHnpb
      COMMON /H1shell/HRes1Shell(MAXSHELL),
     +               HRes2Shell(MAXSHELL),
     +               Hcomplt(MAXSHELL),
     +               Hccmplt(MAXSHELL),
     +               Hamltpl(MAXSHELL),
     +               Hpcvo(MAXSHELL),
     +               Hpcv(MAXSHELL),
     +               Hrmeas(MAXSHELL),
     +               Hrmeaso(MAXSHELL),
     +               Hrpim(MAXSHELL),
     +               Hrpimo(MAXSHELL),
     +               Hanomfrc(MAXSHELL),
     +               Hanomcmp(MAXSHELL),
     +               Hanommlt(MAXSHELL),
     +               NSHELL,
     +               NHall(MAXSHELL), 
     +               NHuniq(MAXSHELL),
     +               NHcent(MAXSHELL),
     +               NHanom(MAXSHELL),
     +               HsigI(MAXSHELL),
     +               HRmerge(MAXSHELL),
     +               HRcum(MAXSHELL), 
     +               HRanom(MAXSHELL),
     +               Hsdall(MAXSHELL),
     +               Hfbias(MAXSHELL),
     +               HanoCC(MAXSHELL),
     +               HCChalf(MAXSHELL),
     +               NHnpb(MAXSHELL),
     $               HrmergeItop
c
c _diffrn_reflns.
c
       LOGICAL HLaniso,HLdiffuse,HLNPART
       REAL   HRes1over, HRes2over, Hoverfsigi, HRIover, 
     +        HRIAover, HSDover, HoverBias, HcompltALL, 
     +        HmulityALL, HpcvALL, HpcvoALL,
     $        HrmeasALL, HrmeasoALL,HrpimALL, HrpimoALL,
     $        HanomfrcALL, HanomcmpALL, HanommltALL,
     +        HminI,HmaxI,Hfull,HFFscatter,HSFscatter,
     +        Hpart, HFPscatter, HSPscatter, HanoCCALL, HanoNPs,
     $        HrmergeItop, HCChalfALL,
     $        HsdCminFull, HsdCmaxFull, HsdCminPart, HsdCmaxPart
       INTEGER NHovermeas, NHoveruniq, NHovercent,
     +         NHoverano , NHoverntb,NHfull,NHpart,
     +         NHallobs
       COMMON /Hall/ HRes1over, HRes2over, NHovermeas, NHoveruniq, 
     +               NHovercent,NHoverano , Hoverfsigi, HRIover, 
     +               HRIAover, HSDover, HoverBias,NHoverntb,
     +               HcompltALL, HmulityALL, HpcvALL ,
     +               HpcvoALL,   HrmeasALL,  HrmeasoALL,
     $               HrpimALL, HrpimoALL,
     +               HanomfrcALL, HanomcmpALL, HanommltALL,
     +               HminI,HmaxI,NHfull,NHpart,
     +               Hfull,HFFscatter,HSFscatter,
     +               Hpart, HFPscatter, HSPscatter,HanoCCALL, HanoNPs,
     +               NHallobs,HLaniso,HLdiffuse,HLNPART,HCChalfALL,
     $               HsdCminFull, HsdCmaxFull, HsdCminPart, HsdCmaxPart
c
c
       save /CHARV/, /IHARV/, /H1shell/, /Hall/