---

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,PATHS
LOGICAL LOREN,GAUSS,PATHS


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
CALCGM to use
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
CALMMG to use KDOMR KMOSC EXTCOR DEXDFQ DEXDRQ DEXDGQ
DATASF to use IEXTYP PATHS
EXTINC to use IEXTYP KDOMR AMOSC KMOSC EXTCOR CEXT XEXT DEXDFQ DEXDRQ DEXDGQ LOREN GAUSS PATHS
GAMEX to use IEXTYP EXTCOR DEXDFQ
INPUTE to use IEXTYP AMOSC LOREN GAUSS
PARSSF to use IEXTYP
RREFLS to use IEXTYP CEXT
RREFSA to use IEXTYP CEXT PATHS
RREFSF to use IEXTYP CEXT
ABSOUT to use
CHILSQ to use IEXTYP CEXT PATHS
MAGLSQ to use IEXTYP CEXT PATHS
MMPLSQ to use IEXTYP CEXT PATHS
MPCLSQ to use IEXTYP CEXT PATHS
MPLSQ to use IEXTYP CEXT PATHS
SFLSQ to use IEXTYP CEXT PATHS
SFTLSQ to use IEXTYP CEXT PATHS
CALCTW to use KDOMR KMOSC EXTCOR DEXDFQ DEXDRQ DEXDGQ
SNPLSQ to use IEXTYP CEXT PATHS
SORASY to use
SORGAM to use IEXTYP EXTCOR CEXT PATHS

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

Institut Laue Langevin,
Grenoble, FRANCE