C C---Common blocks for agreement factors. C INTEGER NBM,NBM2,NMAXPART,NMAXPAR,NMXBINS PARAMETER (NBM = 101) PARAMETER (NBM2 = 2*NBM) PARAMETER (NMAXPART = 3) PARAMETER (NMAXPAR = 100) PARAMETER (NMXBINS = 100) C C---Overall ls scale parameters and their flags REAL SCALE_LS_OVER,B_LS_OVER,B_LS_ANISO_OVER(6),SCALE_LS_BULK, & B_LS_BULK,SCALE_LS_PART(NMAXPART),B_LS_PART(NMAXPART), & BAVER_MOLEC,B_LS_OVER0 REAL EIGEN_ANISO(6,6) INTEGER N_EIGEN_ANISO INTEGER ISCPART(NMAXPART) COMMON /LS_OVER_SCALE/SCALE_LS_OVER,B_LS_OVER,B_LS_ANISO_OVER, & SCALE_LS_BULK,B_LS_BULK,SCALE_LS_PART,B_LS_PART,ISCPART, & N_EIGEN_ANISO,EIGEN_ANISO,BAVER_MOLEC,B_LS_OVER0 LOGICAL B_LS_OVER_FLAG,B_LS_OVER_REFINE_FLAG,B_LS_ANISO_OVER_FLAG, & B_LS_ANISO_OVER_REFINE_FLAG,BULK_LS_FLAG, & SCALE_LS_BULK_REFINE_FLAG,B_LS_BULK_REFINE_FLAG, & SCALE_LS_PART_REFINE_FLAG(NMAXPART), & B_LS_PART_REFINE_FLAG(NMAXPART),LSEXPUSE,LSUSEWORK, & ALL_SCALES_FLAG,LS_SCALE_FLAG,ML_SCALE_FLAG COMMON /LS_OVER_FLAGS/B_LS_OVER_FLAG,B_LS_OVER_REFINE_FLAG, & B_LS_ANISO_OVER_FLAG,B_LS_ANISO_OVER_REFINE_FLAG, & BULK_LS_FLAG,SCALE_LS_BULK_REFINE_FLAG, & B_LS_BULK_REFINE_FLAG, & SCALE_LS_PART_REFINE_FLAG,B_LS_PART_REFINE_FLAG, & LSEXPUSE,LSUSEWORK,ALL_SCALES_FLAG,LS_SCALE_FLAG, & ML_SCALE_FLAG C REAL AFOMFC,AFO,AFC,AFOFO,AFCFC,WFOMFC,ASIG,AWGT,AFOFC,WFO, & WFOFO,RFAC,WRFC,CORR,SIGE COMMON /AGREM/AFOMFC(2,NBM),AFO(2,NBM),AFC(2,NBM),AFOFO(2,NBM), + AFCFC(2,NBM),WFOMFC(2,NBM),ASIG(2,NBM),AWGT(2,NBM), + AFOFC(2,NBM),WFO(2,NBM),WFOFO(2,NBM),RFAC(2,NBM),WRFC(2,NBM), + CORR(2,NBM),SIGE(2,NBM) C REAL FVALA,FOMAVA,FOMOVERA,D_ML COMMON/AGGRA/ FVALA(2,NBM),FOMAVA(2,NBM),FOMOVERA(2),D_ML(2,NBM) REAL FVALC,FOMAVC,FOMOVERC COMMON/AGGRC/ FVALC(2,NBM),FOMAVC(2,NBM),FOMOVERC(2) REAL FOMAVT,FOMOVERT,RFACTOR_LOGIC COMMON/AGGRT/ FOMAVT(2,NBM),FOMOVERT(2), RFACTOR_LOGIC C INTEGER NREFA,NREFM,NREFC,NREFOVERA,NREFOVERC,NREFOVERT COMMON/AGGRNUM/ NREFA(2,NBM), NREFM(2,NBM),NREFC(2,NBM), + NREFOVERA(2), NREFOVERC(2),NREFOVERT(2) C C---Scaling parameters C INTEGER NSCALE,ISCALE,IFIXPAR,IEQUALPAR,IMLFIX,IMLEQUAL, & ILSFIX,ILSEQUAL,NDPAR,NLSPAR,NMLPAR,IPARPOSIT, & NRESIOPT,NSCALEREF,NMLCYCL,NLSCYCL,NSCPART, & ILSSCALTYPOV,ILSCALTYP,IMLSCALTYPOV,IMLSCALTYP, & IPARTYPE,NISOPAR,NSCOPT,NSIGOPT, & ILSCALTYP_SAVE(NMAXPART),ISCPART_SAVE(NMAXPART), & IFSCR_SAVE,ISCRF0 REAL DPAR,DMLPAR,DFSCPAR,DFSCISOPAR,DIPAR,BML_DEFINED, & SCML_DEFINED,BLS_DEFINED,SCLS_DEFINED, & UAVER_MOLEC,UOVER_ATOM,SCALC,BCALC COMMON /RFLCT1/ NSCALE,ISCALE,SCALC,BCALC,IFIXPAR(NMAXPAR), . IEQUALPAR(2,NMAXPAR),IMLFIX(NMAXPAR), . IMLEQUAL(2,NMAXPAR), . ILSFIX(NMAXPAR),ILSEQUAL(2,NMAXPAR), . NDPAR,NLSPAR,NMLPAR,NISOPAR,NSCOPT, . DPAR(NMAXPAR),NSIGOPT,IPARPOSIT(NMAXPART), . NRESIOPT,DMLPAR(NMAXPAR),DFSCPAR(NMAXPAR), . DFSCISOPAR(NMAXPAR),DIPAR(NMAXPAR),NSCALEREF, . NMLCYCL,NLSCYCL,NSCPART, . ILSSCALTYPOV,ILSCALTYP(NMAXPART),IMLSCALTYPOV, . IMLSCALTYP(NMAXPART),IPARTYPE(NMAXPART), . BML_DEFINED,SCML_DEFINED,BLS_DEFINED,SCLS_DEFINED, . UAVER_MOLEC,UOVER_ATOM, & ILSCALTYP_SAVE,ISCPART_SAVE,IFSCR_SAVE,ISCRF0 CHARACTER MLSCALTYPE*5,LSSCALTYPE*5 COMMON /RFLCTC/ MLSCALTYPE,LSSCALTYPE LOGICAL LINIT,MLINIT,LSTAT,MLSCFIX,MLBFIX,LSSCFIX,LSBFIX COMMON /EST_LOG/ LINIT,MLINIT,LSTAT,MLSCFIX,MLBFIX,LSSCFIX,LSBFIX LOGICAL USEWORK,MLUSEWORK COMMON /EST_INT/ USEWORK,MLUSEWORK INTEGER NGRCYCL,NPARCYCL COMMON /CYCLES/ NGRCYCL,NPARCYCL CHARACTER APPLY_SCALE_TO*4 COMMON /EST_CHAR/ APPLY_SCALE_TO C C---Normalisation coefficients C REAL SIGMAN(NMXBINS),SIGMAP(NMAXPART,NMXBINS) COMMON /REFLT_REL/ SIGMAN,SIGMAP