---

Common Block GAUSS

Specification

COMMON /GAUSS/XX(1000),YY(1000),ZZ(1000),WW(1000),NL,NM,NN,NQ


Description

Coordinates and weights of Gauss points

Declared by

ABMULT to use XX YY ZZ WW NQ
ABSOR to use XX YY ZZ WW NQ
INPUTG to use NL NM NN
SETABS to use NL NM NN
SETGAU to use all members

Symbolic parameters used

GPTS set to 1000 dimensioning XX YY ZZ WW

Common Block GKSDAT

Specification

COMMON /GKSDAT/NP,XP(100),YP(100),LASER,PICTS
LOGICAL LASER,PICTS


Description

Data for plotting with GKS
NP,XP,YP dfinition of polyline
LASER if laser output
PICTS if a picture has been drawn

Symbolic parameters used

NGKS set to 100 dimensioning XP YP

Common Block GLOBAL

Specification

COMMON /GLOBAL/NINIT,NBATCH,NSYSTM,MULFAS,MULSOU,MULONE
LOGICAL MULFAS,MULSOU,MULONE


Description

Global information about jobs
NINIT set once INIT has been called
NBATCH set if Batch run
NSYSTM type of system
MULFAS true if multi-phase
MULSOU true if multi-source
MULONE true if either multi-phase or multi-source

Declared by

BATCH to use NBATCH
CDFIN to use MULFAS
FILPRO to use NSYSTM
INCREM to use
INITIL to use NINIT NSYSTM MULFAS MULSOU MULONE
KPAK to use MULONE
KSAME to use MULONE
KUNPAK to use MULFAS MULSOU MULONE
KWHOLE to use MULFAS MULSOU
PARNAM to use MULFAS
PRIVAR to use MULFAS
PRIWRD to use MULONE
TBLFND to use MULFAS
UPONE to use NSYSTM

Common Block GRDBCK

Specification

COMMON /GRDBCK/IBACK,NBACK(1),ARGBAK(100,1),BACKGD(100,1),
&KBCKGD(100,1),NBK,LBKD(20),ZBAKIN
LOGICAL ZBAKIN1


Description

Background parameters for profile refinement

Symbolic parameters used

BACK set to 100 dimensioning ARGBAK BACKGD KBCKGD
SORC set to 1 dimensioning NBACK ARGBAK BACKGD KBCKGD

Common Block GREAD

Specification

COMMON /GREAD/IGREAD(4)


Description

IGREAD indicates which words have been read from G cards

Declared by

INPUTG to use all members
SETABS to use all members

Symbolic parameters used

GCRD set to 4 dimensioning IGREAD

Common Block GUNIT

Specification

COMMON /GUNIT/MARK(3,2),BSYM(3,3),IBOX,KOM11


Description

Data used to define the type of asymmetric unit

Declared by

MULBOX to use MARK BSYM IBOX
POLUNI to use MARK BSYM

---

---

P. Jane Brown

Institut Laue Langevin,
Grenoble, FRANCE