C ***  PROGRAM: RIQAS - COMMON BLOCK USED IN ALL SUBROUTINES
C ***  VERSION: 900122
C *
C *
      PARAMETER( KVERSN=900122 )
      PARAMETER( MAXPHS=15, MAXATM=96, MAXBCK=32, MAXEXC=32, MAXSCA=32 )
      PARAMETER( MAXSEN=20*MAXSCA )
C *
      CHARACTER QTITLE*80,QRFILE*64,QFILE*64,QPHS*32
      CHARACTER QATOM*8,QSCAT*4,QSCNAM*4
      CHARACTER QPHSNM*32,QFORM*32,QCMNT*72
      CHARACTER QSGP*20,QXTALS*20,QASPG*20
C *
C *  COMMON FOR DEFAULT PARAMETERS
C *
      COMMON /DEFPRM/ KVDEF(30),RVDEF(30),KVDEFR(30),RVDEFR(30)
C *
C *  COMMON FOR DATABASE PROGRAMS
C *
      COMMON /IOLUNS/ ITTI,ITTO,INDXI,INDXO,IDFI,IDFO,IRETI,IRETO,ISCR
      COMMON /CHAR1A/ QRFILE,QFILE,QPHS
      COMMON /ICNTRL/ IPH,NPHS,CWRDOS
      COMMON /DBFFMT/ KBIN
C *
C *  PHASE SPECIFIC PARAMETERS
C *
C *  PHASE RELATED PARAMETERS
      COMMON /QPHAS1/ QPHSNM(MAXPHS),QFORM(MAXPHS),QCMNT(MAXPHS),
     1                QSGP(MAXPHS),QXTALS(MAXPHS)
      COMMON /NPHAS1/ NATOM(MAXPHS),KATMPF(MAXPHS),KMAGSF(MAXPHS),
     1                KINDRF(MAXPHS)
C *
C *  ATOM PARAMETERS
      COMMON /QATOM1/ QATOM(MAXATM,MAXPHS),QSCAT(MAXATM,MAXPHS),
     1                QASPG(MAXATM,MAXPHS)
      COMMON /ATOMPA/ PAXYZ(3,MAXATM,MAXPHS),
     1                CAXYZ(3,MAXATM,MAXPHS),
     1                KAXYZ(3,MAXATM,MAXPHS),
     1                POCCU(MAXATM,MAXPHS),
     1                COCCU(MAXATM,MAXPHS),
     1                KOCCU(MAXATM,MAXPHS),
     1                PBISO(MAXATM,MAXPHS),
     1                CBISO(MAXATM,MAXPHS),
     1                KBISO(MAXATM,MAXPHS),
     1                PBAIS(6,MAXATM,MAXPHS),
     1                CBAIS(6,MAXATM,MAXPHS),
     1                KBAIS(6,MAXATM,MAXPHS)
      COMMON /ATOMMV/ KMAGSI(MAXATM,MAXPHS),
     1                PVMAG(3,MAXATM,MAXPHS),
     1                CVMAG(3,MAXATM,MAXPHS),
     1                KVMAG(3,MAXATM,MAXPHS)
C *
C *  PROFILE-SHAPE-FUNCTION PARAMETERS
      COMMON /PSFCO1/ KPSF(2,MAXPHS),
     1                PPSFC(3,2,MAXPHS),
     1                CPSFC(3,2,MAXPHS),
     1                KPSFC(3,2,MAXPHS),
     1                RLIM(MAXPHS),
     1                PASYP(MAXPHS),
     1                CASYP(MAXPHS),
     1                KASYP(MAXPHS)
C *
C *  PROFILE-BROADENING COEFFICIENTS
      COMMON /PRBROA/ PUVW(3,2,MAXPHS),CUVW(3,2,MAXPHS),KUVW(3,2,MAXPHS)
C *
C *  LATTICE PARAMETERS
      COMMON /LATICA/ PCELL(6,MAXPHS),CCELL(6,MAXPHS),KCELL(6,MAXPHS)
C *
C *  SCALE AND OVERALL ISOTROPIC TEMPERATURE PARAMETERS
      COMMON /OVRALA/ PSCALE(MAXPHS),CSCALE(MAXPHS),KSCALE(MAXPHS),
     1                POVISO(MAXPHS),COVISO(MAXPHS),KOVISO(MAXPHS),
     1                PABSCO(MAXPHS),CABSCO(MAXPHS),KABSCO(MAXPHS)
C *
C *  PREFERRED ORIENTATION
      COMMON /PREORA/ KPOCT(2,MAXPHS),POVEC(3,2,MAXPHS),
     1                PPREF(2,2,MAXPHS),
     1                CPREF(2,2,MAXPHS),
     1                KPREF(2,2,MAXPHS)
C *
C *  GLOBAL PARAMETERS
C *
C *  TWO-THETA ERROR CORRECTION
      COMMON /TTHTCA/ PZERPT,CZERPT,KZERPT,
     1                PDISP ,CDISP ,KDISP
C *
C *  AMORPHOUS PROFILE PARAMETERS
      COMMON /AMOPRA/ PAMORP(3),CAMORP(3),KAMORP(3)
C *
C *  BACKGROUND
      COMMON /POLBGA/ PBKG(6),CBKG(6),KBKG(6)
C *
C *  COMMON FOR RIETVELD CONTROL PARAMETERS
C *
      COMMON /RTCNTB/ QTITLE
C *
C *  JOB CONTROL FLAGS AND PARAMETERS
      COMMON /RTCNTC/ JOBXN,NBCKGD,NEXCRG,NSCAT,KINTSF,KAMOR,KWSGON,
     1                WAVE1,WAVE2,RATIO,WDT,CTHM,
     1                EPS,RELAX(4),THMIN,STEP,THMAX
C *
C *  AUTOPILOT FLAGS
      COMMON /RTCNTE/ NRND,KAUTOV(20),KAUTOR(20)
C *
C *  OUTPUT CONTROL FLAGS
      COMMON /RTCNTG/ IOUT,IPLT,IPCH,MAT,NXT,LST1,LST2,LST3,
     1                ISYM,IPLT2,KCLRCW
C *
C *  QUANTITATIVE ANALYSIS
      COMMON /RTCNTF/ KINTSN,RINTSQ,KINTSA(3),RINTSA(3)
C *
C *  BACKGROUND VALUES FOR EXTRAPOLATION
      COMMON /RTCNTK/ POS(MAXBCK),BCK(MAXBCK)
C *
C *  EXCLUDED REGIONS
      COMMON /RTCNTL/ ALOW(MAXEXC),AHIGH(MAXEXC)
C *
C *  SCATTERING SET ENTRIES
      COMMON /QSCACF/ QSCNAM(MAXSCA)
      COMMON /RSCACF/ DFP(MAXSCA),DFPP(MAXSCA),AC(9,MAXSCA),
     1                POSI(20,MAXSCA),SCAT(20,MAXSCA),NVSCA(MAXSCA)
C *
C *  PLOT CONTROL FLAGS
      COMMON /RTCNTP/ KLPPLT(2),KHCPLT(6)
