---

Common Block THET2

Specification

COMMON /THET2/THE2,KTHE2,THCON1


Description

Fixed scattering angle data for TOF profile refinement

Common Block TITLE

Specification

COMMON /TITLE/ITITLE
CHARACTER *80 ITITLE


Description

ITITLE The title of the CDF

Declared by

INPUTN to use all members
MAPTIT to use all members
STPLOT to use all members
MAG3D to use all members
POSOUT to use all members

Common Block TTHMNC

Specification

COMMON /TTHMNC/TTHMON(1),KTHMON(1),C2TMON(1),S4TMON(1),OPCMON(1),
&ALPCOR,DLPCOR


Description

Data for X-ray monochromator

Symbolic parameters used

SORC set to 1 dimensioning TTHMON KTHMON C2TMON S4TMON OPCMON

Common Block TWIN

Specification

COMMON /TWIN/TWMAT(3,3,12),TWPOP(12),KTWPOP(12),NTWIN,TORTH(3,3,2),
&MTWIN,TMUNIT
LOGICAL MTWIN,TMUNIT


Description

TWMAT twin matrices
TWPOP, KTWPOP Twin populations and refinement switch
NTWIN number of twins
TORTH(3,3,2) matrix relating the untwinned othogonal exes to
those of the 1st twin.
MTWIN logical to indicate "magnetic" twinning

Declared by

CALCPA to use TWMAT NTWIN MTWIN
CALMMG to use TWMAT NTWIN
DOPOPS to use
DOTWN1 to use TWMAT TWPOP NTWIN TORTH TMUNIT
DOTWN2 to use TWPOP KTWPOP NTWIN
LMTCAL to use TWMAT NTWIN
NDPOPS to use NTWIN MTWIN
PRIDOM to use NTWIN
SETDC to use TORTH TMUNIT
SFTLSQ to use NTWIN
CALCTW to use TWMAT TWPOP KTWPOP NTWIN
SNPLSQ to use TWMAT NTWIN MTWIN

---

---

P. Jane Brown

Institut Laue Langevin,
Grenoble, FRANCE