---

Common Block EXCREG

Specification

COMMON /EXCREG/NEXCL(1),EXCLUD(40,1)


Description

Defines excluded regions in profile refinement

Symbolic parameters used

EXCL set to 40 dimensioning EXCLUD
SORC set to 1 dimensioning NEXCL EXCLUD

Common Block EXTN

Specification

COMMON /EXTN/IEXTYP,DOMR,KDOMR,AMOSC,KMOSC,EXTCOR,CEXT(4),XEXT,
&DEXDFQ,DEXDRQ,DEXDGQ,LOREN,GAUSS
LOGICAL LOREN,GAUSS


Description

IEXTYP type of exteinction
DOMR domain radius KDOMR indicates whether it is to be refined
AMOSC mosaic spread, KMOSC indicates whether it is to be refined
EXTCOR the extinction correction applied to F (sqrt(y))
CEXT The 4 constants of the Becker Coppens theory
XEXT The x parameter in the expansion for y.
DEXDFQ the derivative of extcor with respect to F
DEXDRQ the derivative of extcor with respect to DOMR
DEXDGQ the derivative of extcor with respect to AMOSC
LOREN Extinction type in Lorentzian
GAUSS Extinction type is Gaussian

Declared by

CALCFR to use KDOMR KMOSC EXTCOR DEXDFQ DEXDRQ DEXDGQ
CALCGR to use KDOMR KMOSC EXTCOR DEXDFQ DEXDRQ DEXDGQ
CALCMG to use KDOMR KMOSC EXTCOR DEXDFQ DEXDRQ DEXDGQ
CALCMP to use KDOMR KMOSC EXTCOR DEXDFQ DEXDRQ DEXDGQ
CALCSF to use KDOMR KMOSC EXTCOR DEXDFQ DEXDRQ DEXDGQ
EXTINC to use IEXTYP KDOMR AMOSC KMOSC EXTCOR CEXT XEXT DEXDFQ DEXDRQ DEXDGQ LOREN GAUSS
EXTPAR to use CEXT LOREN GAUSS
GAMEX to use IEXTYP EXTCOR DEXDFQ
INPUTE to use IEXTYP AMOSC LOREN GAUSS
PARSSF to use IEXTYP
RREFSF to use CEXT
PATHS to use CEXT
CHILSQ to use
EXTCAL to use CEXT
MAGLSQ to use
MMPLSQ to use
MPLSQ to use
SFLSQ to use IEXTYP
SFTLSQ to use IEXTYP
CALCTW to use KDOMR KMOSC EXTCOR DEXDFQ DEXDRQ DEXDGQ
SORGAM to use IEXTYP EXTCOR CEXT

Common Block EXTRAE

Specification

COMMON /EXTRAE/DOMRI(3),FOVLP,KDOMRI(3),KFOVLP


Description

Extra extinction parameters needed when the magnetic and nuclear
domain sizes are different

Declared by

INPUTE to use FOVLP

---

---

P. Jane Brown e-mail: brown@ill.fr
Institut Laue Langevin,
Grenoble, FRANCE