Contents Prev Manual

Common Block PAWLPR

Specification

COMMON /PAWLPR/AKLO,AKHI,SLACK,STRKT,STRTOL,SLKTOL,ITST,ISPSLK(2,
&300),IGSLAK(300),AMSLAK(2,300),WTSLAK(300),WEELEV,KOM16
LOGICAL STRKT

Symbolic parameters used

PSLK set to 300 dimensioning ISPSLK IGSLAK AMSLAK WTSLAK

Common Block PGNAMS

Specification

COMMON /PGNAMS/PGCOLS(15),PGSYMS( 9),PGTYPS( 2)
CHARACTER *3 PGCOLS,PGSYMS*6,PGTYPS*4

Description

Names for colours and symbols for plotting
PGCOLS colour names
PGSYMS symbol names
PGTYPS fill type for symbols

Declared by

LCOLPG to use PGCOLS
LSYMPG to use PGSYMS PGTYPS
PIGLET to use

Symbolic parameters used

PCOL set to 15 dimensioning PGCOLS
PSYM set to 9 dimensioning PGSYMS
PTYP set to 2 dimensioning PGTYPS

Common Block PGNUMS

Specification

COMMON /PGNUMS/RGBCOL(3,15),NPGCOL,LPGCOL,NPGSYM,LPGSYM,NPGTYP,
&LPGTYP

Description

RGBCOL RGB specifications for defined colours
NPGCOL,NPGSYM,NPGTYP numbers of defined colours, symbols and fill types
LPGCOL,LPGSYM,LPGTYP numbers characters in names of colours, symbols
and fill types

Declared by

LCOLPG to use NPGCOL LPGCOL
LSYMPG to use NPGSYM LPGSYM NPGTYP LPGTYP
PIGLET to use

Symbolic parameters used

PCOL set to 15 dimensioning RGBCOL

Common Block PHAS0

Specification

COMMON /PHAS0/INRLP0,ICDLP0,INRLP1,ICDLP1,NCDF0

Description

Multiphase refinement data

Declared by

CDFIN to use NCDF0

Common Block PHASE

Specification

COMMON /PHASE/NPHASE,IPHASE,JPHASE,KPHASE,NPHUNI(1),SCALEP(1),
&KSCALP(1),PHMAG(1)
LOGICAL PHMAG

Description

More ultiphase refinement data

Declared by

ATOPOS to use JPHASE
CALCFR to use JPHASE
CALCMG to use JPHASE
CALCMP to use
CALCSF to use JPHASE
CALPOL to use JPHASE
CARDIN to use JPHASE
CDFIN to use NPHASE
CDSCAN to use JPHASE
CELREL to use JPHASE
DOMPL2 to use
F2RELA to use JPHASE
FINDCD to use JPHASE
FIXVAR to use
FUDGIN to use KPHASE
INITIL to use NPHASE IPHASE JPHASE KPHASE
LFCALC to use JPHASE
LLTFAC to use JPHASE
LMCALC to use JPHASE
LMMPCA to use
MAGCNL to use JPHASE
MATINV to use KPHASE
NEWCRY to use JPHASE
PARNAM to use KPHASE
PARRD to use JPHASE KPHASE
PRIVAR to use KPHASE
PRIWRD to use
RDFV to use JPHASE KPHASE
RDWORD to use KPHASE
SPHELI to use JPHASE
TBLFND to use KPHASE
VARMAK to use NPHASE JPHASE
VOCAB to use KPHASE
LCHALC to use JPHASE

Symbolic parameters used

PHAS set to 1 dimensioning NPHUNI SCALEP KSCALP PHMAG

Common Block PICDEF

Specification

COMMON /PICDEF/CMPERA,FRLINE,APERMB,PWIDTH,PHGHT,X0,Y0

Description

Picure definition (MAG3D)
CMPERA cms per angsrtom unit
FRLINE fractional line-width
APERMB angstom units per Boh mageton (arrow length)
PWIDTH,PHGHT picture width and height
X0,Y0 starting positions

Declared by

MAG3D to use CMPERA APERMB PWIDTH PHGHT X0 Y0
ARROW to use CMPERA APERMB
ATLAB to use CMPERA
ATLABS to use CMPERA PWIDTH PHGHT X0 Y0
ATOM to use CMPERA
LAXIS to use CMPERA FRLINE
LINE to use CMPERA
MAG3DX to use CMPERA FRLINE APERMB
POSOUT to use CMPERA FRLINE PWIDTH PHGHT X0 Y0
ARROW to use CMPERA APERMB
ATOM to use CMPERA
LABAX to use CMPERA
LINES to use CMPERA
MVENTX to use CMPERA APERMB

Common Block PLODAT

Specification

COMMON /PLODAT/PAPERW,PAPERH,ASPECT,BORDER,CHUNIT,FROMCM

Description

Plotter data
PAPERW,PAPERH paper width and height
ASPECT aspect ratio
BORDER border width
CHUNIT size of one character unit
FROMCM scale map or fill screen?

Declared by

ATMPLO to use CHUNIT
ATMPLT to use CHUNIT
MAPCON to use ASPECT CHUNIT
MAPFRA to use CHUNIT
MAPKEY to use ASPECT CHUNIT
MAPTIT to use CHUNIT
PICMOV to use BORDER FROMCM
PIGLET to use FROMCM
PINITL to use all members
PLOTO to use ASPECT BORDER CHUNIT
PLTTXT to use CHUNIT
STPLOT to use PAPERW ASPECT BORDER CHUNIT FROMCM
MAG3D to use ASPECT CHUNIT
LABAXE to use CHUNIT

Common Block PLOMAP

Specification

COMMON /PLOMAP/WIDTOT,HGTTOT,WIDPIC,HGTPIC,WIDMAP,HGTMAP,WIDTTL,
&HGTTTL,WIDTXT,HGTTXT,WIDCON,HGTCON,XMARG,YMARG,XWHITE,YWHITE,NYPIC,
&IYPIC,CHSCAL(2,3),SCALMP

Description

Data for plotting maps
WIDTOT,HGTTOT total width and height of output (may be many pictures)
WIDPIC,HGTPIC,width and height of one picture
WIDMAP,HGTMAP width and height of maps
WIDTTL,HGTTTL width and height of title
WIDTXT,HGTTXT width anf heigth of text panel
WIDCON,HGTCON,width and height of contour panel
XMARG,YMARG,XWHITE,YWHITE borders,
NYPIC numbr of pictures in y direction
IYPIC identifies the one being plotted
CHSCAL(2,3) character scales
SCALMP scale of map cm/angstrom

Declared by

ATMPLO to use CHSCAL
ATMPLT to use WIDMAP HGTMAP
INPUTM to use SCALMP
MAPCON to use WIDPIC HGTMAP HGTTXT WIDCON HGTCON XMARG YMARG YWHITE CHSCAL
MAPFRA to use YWHITE SCALMP
MAPKEY to use WIDPIC HGTMAP HGTTXT WIDCON HGTCON XMARG YWHITE CHSCAL
PICMOV to use WIDPIC HGTPIC NYPIC IYPIC
SETFOU to use SCALMP
STPLOT to use WIDTOT HGTTOT WIDPIC HGTPIC WIDMAP HGTMAP WIDTTL HGTTTL WIDTXT HGTTXT WIDCON XMARG YMARG XWHITE YWHITE NYPIC IYPIC CHSCAL
USYM to use SCALMP
FORFIG to use WIDPIC HGTPIC
FOURPL to use WIDPIC HGTPIC

Common Block PLOTCH

Specification

COMMON /PLOTCH/ITEXT,NTEX(2)
CHARACTER *80 ITEXT,NTEX*15

Description

ITEXT Graph title
NTEX Labels of x and y axes

Declared by

PLOTO to use all members

Common Block PLTRAN

Specification

COMMON /PLTRAN/PMTRIX(2,3,10),PTRAN(2,3,2),NSPCE,NCON1,NCON2,MPEN,
&NTRAN(10),MAXSP

Description

PMTRIX plotter transformation matrices
PTRAN transformation in use
NSPCE number of current plotter space
NCON1,NCON2 spaces related by PTRAN
NTRAN which space is given by which PMTRIX
MAXSP maximum spaces used

Declared by

ARROW to use NSPCE
CIRCLE to use NSPCE
DPLOT to use PTRAN NSPCE
KANGA1 to use PTRAN MPEN
KANGA3 to use MPEN
MAPCON to use PMTRIX
MAPKEY to use
PICMOV to use PMTRIX
PIGLET to use
PLCONV to use PMTRIX PTRAN NSPCE NCON1 NCON2 NTRAN
PLOTO to use
PLTRIN to use PMTRIX NTRAN MAXSP
SPCSET to use PMTRIX PTRAN NSPCE NTRAN MAXSP
ELIPSE to use NSPCE

Common Block PLTS

Specification

COMMON /PLTS/X(2,5),S(2),CH,XS,ISIG(2),YS,NDIVS(2,2)

Description

Graph definition
X(I,J )defines how the graph will be drawn
I=1 for x-axis, I=2 for y-axis.
J=1 length of axis in user units
J=2 length of axis in cms.
J=3 division of axis in user units
J=4 minimum value in user units
J=5 position of axis to be plotted
S(I) scale for axis
CH character size
XS x mark length
ISIG(I) number of signicicant figures for axis numbers
YS y mark length
NDIVS(2,I) number of major and minor divisions

Declared by

GETSCL to use ISIG NDIVS
PLOTO to use CH XS ISIG YS NDIVS

Common Block POINTS

Specification

COMMON /POINTS/LVRBS(250),LVRPR(250),LBSVR(200),LRDVR(20)

Description

LVRBS which basic is this variable (+=basic, -=redundant)
LVRPR which parameter is this variable (packed)
LBSVR which variable is this basic variable" (all +ve)
LRDVR which variable is this redundant variable

Declared by

APSHDS to use LVRBS LVRPR
APSHFW to use LVRBS LVRPR
APSHSF to use LVRBS LVRPR
APSHT2 to use LVRBS LVRPR
CALCDS to use
CALCFR to use
CALCGR to use
CALCMG to use
CALCMP to use
CALCSF to use
CALDSM to use
CALPOL to use
DOTWN1 to use
GEOMCO to use
LFCALC to use
LMCALC to use
LMMPCA to use
LMPCAL to use
MATCEL to use LVRBS LBSVR
PARNAM to use LVRPR LBSVR
PARSFW to use LVRBS LVRPR LBSVR
PRIVAR to use LVRPR LBSVR LRDVR
PRMBLK to use
RELATE to use LBSVR LRDVR
VARMAK to use all members
VARSDS to use LVRBS LVRPR
VARSMG to use LVRPR
VARSSF to use LVRPR
VARST2 to use LVRBS LVRPR
LCHALC to use
CALCTW to use

Symbolic parameters used

BVAR set to 200 dimensioning LBSVR
CSTR set to 20 dimensioning LRDVR
VVAR set to 250 dimensioning LVRBS LVRPR

Common Block POLDA

Specification

COMMON /POLDA/POLUP,DPOLUP,POLDW,DPOLDW,MODE,POLND(3)

Description

POLUP,DPOLUP polarisation for spin up state and esd
POLDW,DPOLDW polarisation for spin up state and esd
MODE type of depolarisation
POLND polarisation direction (orthogonal crystallographic axes)

Declared by

CALCFR to use POLUP POLDW POLND
CALCMG to use POLUP POLDW POLND
DOCHI1 to use POLND
FGAMMA to use POLUP DPOLUP POLDW DPOLDW
GAMEX to use POLUP POLDW
SETPOL to use all members
CHILSQ to use POLND
MAGLSQ to use POLND
PALSQ to use POLUP

Common Block POLDAT

Specification

COMMON /POLDAT/DXSDN,DXSDQ(3,24),DPOLDN(3),DPOLDQ(3,3,24),NDOMN,
&ND180,POLIT(3,3),POLM(6),POLO(3,24),QSQR(24),POLD(3),QSQRM
COMPLEX DXSDN,DXSDQ,DPOLDN,DPOLDQ

Description

Incident and scattered Polarisation information used in PALSQ

Declared by

CALPOL to use DXSDN DXSDQ DPOLDN DPOLDQ NDOMN ND180 POLM POLO QSQR POLD QSQRM
PALSQ to use NDOMN ND180 POLIT POLM

Symbolic parameters used

DOMS set to 24 dimensioning DXSDQ DPOLDQ POLO QSQR

Common Block POLFOR

Specification

COMMON /POLFOR/MPFOR(20),NMPFOR,MPLFOR(6,10),NUMGEN,PFORFA(6),
&LMAX

Description

MPFOR(I) multipole form factor identifier I refers to form factor table
NMPFOR number of multipole form factors
MPLFOR(L,I) form factor to be used for Ith multipole form-factor
NUMGEN number of form factor names generated
PFORFA(J) value of form factor for J-1 th
LMAX max L in calculation

Declared by

FMMPCA to use MPFOR MPLFOR
FMPCAL to use MPFOR MPLFOR
LMMPCA to use MPFOR MPLFOR
LMPCAL to use MPFOR MPLFOR
MPFORM to use MPFOR NMPFOR MPLFOR NUMGEN
PFORMF to use MPFOR MPLFOR PFORFA LMAX
PFOUT to use MPFOR MPLFOR
PFSET to use MPFOR NMPFOR MPLFOR
MPLSQ to use

Symbolic parameters used

FORM set to 20 dimensioning MPFOR
MPFL set to 6 dimensioning MPLFOR PFORFA
MPFO set to 10 dimensioning MPLFOR

Common Block POLKA

Specification

COMMON /POLKA/NDOM,FRAC(24),NPTS,PANGS(3,2,50),DPANGS(3,50),
&ERRCH(50)
CHARACTER *1 ERRCH

Description

Polarisation and domain information

Common Block POSNS

Specification

COMMON /POSNS/NATOM,X(3,250),KX(3,250),AMULT(250),TF(250),KTF(250),
&SITE(250),KSITE(250),ISGEN(3,250),SDX(3,250),SDTF(250),SDSITE(250),
&ATESDS,KOM17
LOGICAL ATESDS

Description

NATOM number of independent atoms
X atomic positions, KX position refinement switch
AMULT fractional multiplicity of each site
TF Isotropic temperature factor for each site
KTF ITF refinement switch
SITE,KSITE site occupation factor and refinement switch
ISGEN generators of the point group symmetry of the sites
SDX,SDTF,SDSITE esd's in positions, ITF's and occupation factors
ATESDS is true if esd'd in the positions have been read

Declared by

ADDATM to use
ANGERS to use SDX ATESDS
ANGLST to use
ATMPLO to use NATOM
ATMPLT to use
ATOMS to use
ATOPOS to use NATOM AMULT TF SITE ISGEN SDX SDTF SDSITE ATESDS
BNDLST to use NATOM
BONDA to use
BONERR to use SDX ATESDS
DOCHI1 to use NATOM ISGEN
DOMAG to use NATOM
DOMAG1 to use NATOM
DOMAG2 to use
DOMPL2 to use
F2NEW to use TF SITE SDX SDTF SDSITE
F2RELA to use NATOM ISGEN
F2SHFT to use TF SITE SDX SDTF SDSITE
F2VAR8 to use NATOM KX KTF KSITE
FCALC to use NATOM AMULT TF SITE
FCHALC to use AMULT TF SITE
FMCALC to use AMULT TF SITE
FMMPCA to use AMULT TF SITE
FMPCAL to use NATOM AMULT TF SITE
GEOMIN to use
GEOMLS to use KX
IATOM to use NATOM
LFCALC to use NATOM KX AMULT TF KTF SITE KSITE
LMAGPR to use KX KTF KSITE
LMCALC to use KX AMULT TF KTF SITE KSITE
LMMPCA to use KX AMULT TF KTF SITE KSITE
LMPCAL to use NATOM KX AMULT TF KTF SITE KSITE
MAGCNL to use NATOM
MAGCON to use ISGEN
MOLORB to use NATOM
MPCON to use ISGEN
MPFORM to use
MUCALC to use ISGEN
PSICON to use
RDBOND to use
RELPOS to use ISGEN
SETANI to use NATOM TF
SETFOR to use NATOM
XROOT to use
XTRANS to use
XYZREL to use NATOM ISGEN
BONDS to use NATOM ATESDS
CHILSQ to use NATOM
LCHALC to use KX AMULT KTF SITE KSITE
FORFAC to use NATOM
MAG3D to use NATOM
ATLABS to use NATOM
MAG3DX to use NATOM
MAGLSQ to use NATOM
MG3DGL to use NATOM
MMPLSQ to use NATOM
MPLSQ to use NATOM
MVENTR to use NATOM
MVENTX to use NATOM
PALSQ to use NATOM
SFLSQ to use NATOM
SFTLSQ to use NATOM

Symbolic parameters used

ATOM set to 250 dimensioning X KX AMULT TF KTF SITE KSITE ISGEN SDX SDTF SDSITE

Common Block POSNS2

Specification

COMMON /POSNS2/NATO(1)

Description

Number of atoms for each phase (multiphase PR)

Declared by

ATOPOS to use all members
TBLFND to use all members

Symbolic parameters used

PHAS set to 1 dimensioning NATO

Common Block POSREL

Specification

COMMON /POSREL/NXYZ(3,250),XYZ(3,250)

Description

NXYZ type of constraint on each coordinate and each atom (0=none)
XYZ amount of constraint on each coordinate and each atom

Declared by

XYZREL to use all members

Symbolic parameters used

ATOM set to 250 dimensioning NXYZ XYZ

Common Block PRABSC

Specification

COMMON /PRABSC/NABTYP(1),ABSPR(2,1),KABSPR(2,1),ABSCOR,DERABQ(2),
&NABSPR(1)

Description

Parameters for absorption corrections in LSQ

Symbolic parameters used

SORC set to 1 dimensioning NABTYP ABSPR KABSPR NABSPR

Common Block PRBLEM

Specification

COMMON /PRBLEM/NFAM,NGENPS(6,1),NSPCPS(6,1),LF1SP(5),LF3SP(10,1,1),
&LVFST1(6,1,1),LBFST1(6,1,1),NVARF(6,1,1),NBARF(6,1,1),LF6SP(3,1)
DIMENSION NGENS(6),NSPC(6)
EQUIVALENCE (NGENS(1),NGENPS(1,1)),(NSPC(1),NSPCPS(1,1))

Description

NFAM number of families of parameters
NGENPS number of genuses in each family
NSPCPS number of species in each family
LF1SP type of each family 1 species
LF3SP,ype of each family 13species
LVFST1 base pointer yo variables of each family
LBFST1 base pointer to basic variables of each family
NVARF number of variables in each family
NBARF number of basic variables in each family
LF6SP pointers to family 6 (peak parameters)

Declared by

CALCFR to use LVFST1 NVARF
CALCGR to use LVFST1 NVARF
CALCMG to use LVFST1 NVARF
CALCMP to use LVFST1 NVARF
CALCSF to use LVFST1 NVARF
CALPOL to use LVFST1 NVARF
LFCALC to use LVFST1 NVARF
LMCALC to use LVFST1 NVARF
LMMPCA to use LVFST1 NVARF
LMPCAL to use LVFST1 NVARF
LSETSF to use NFAM
LSETUP to use NFAM
PARNAM to use NSPCPS LF1SP LF3SP LF6SP
PARRUN to use NFAM LF1SP
STLSSF to use LF1SP
TBLFND to use NFAM
VARMAK to use NFAM LVFST1 LBFST1 NVARF NBARF
CHILSQ to use NFAM LF1SP
LCHALC to use LVFST1 NVARF
MAGLSQ to use NFAM LF1SP
MMPLSQ to use NFAM LF1SP
MPLSQ to use NFAM LF1SP
PALSQ to use NFAM LF1SP
SFLSQ to use NFAM LF1SP
SFTLSQ to use NFAM LF1SP
CALCTW to use LVFST1 NVARF

Symbolic parameters used

FAMS set to 6 dimensioning NGENPS NSPCPS LVFST1 LBFST1 NVARF NBARF NGENS NSPC
PHAS set to 1 dimensioning NGENPS NSPCPS LF3SP LVFST1 LBFST1 NVARF NBARF
SORC set to 1 dimensioning LF3SP LVFST1 LBFST1 NVARF NBARF LF6SP

Common Block PREORI

Specification

COMMON /PREORI/NPRTYP,PRFDIR(3),PRFLEN,PRFPAR,KPRFPR,PRFCOR,
&DERPRQ

Description

Preferred orientation parameters (profile refinement)

Common Block PREXTN

Specification

COMMON /PREXTN/NEXTYP,EXTPR,KEXTPR,EXTCO,DEREXQ,DXDFQ

Description

Profile refinement extinction parameters

Common Block PRNAMS

Specification

COMMON /PRNAMS/PRNAME(14)
CHARACTER *4 PRNAME

Description

PRNAME list of names of special profile refinemnt parameters

Symbolic parameters used

PRPR set to 14 dimensioning PRNAME

Common Block PRNUMS

Specification

COMMON /PRNUMS/NPRNUM(3,14)

Description

NPRNUM specifications of parameters corresponding to PRNAMEs

Symbolic parameters used

PRPR set to 14 dimensioning NPRNUM

Common Block PRPKCN

Specification

COMMON /PRPKCN/ARGK,PKCNSP(6,1,1),KPCNSP(6,1,1),DTDPCN(6),DTDWL,
&NPKCSP(1,1),ARGMIN(1),ARGMAX(1),ARGSTP(1),PCON

Description

Profile refinement peak parameters

Symbolic parameters used

PHAS set to 1 dimensioning PKCNSP KPCNSP NPKCSP
PKSP set to 6 dimensioning PKCNSP KPCNSP DTDPCN
SORC set to 1 dimensioning PKCNSP KPCNSP NPKCSP ARGMIN ARGMAX ARGSTP

Common Block PRPKFN

Specification

COMMON /PRPKFN/ARGI,YNORM,PKFNSP(8,6,1,1),KPFNSP(8,6,1,1),DERPFN(8,
&6),NPKFSP(8,1,1),TOLER(8,1,1),NPKGEN(1,1),PKFNVA(8),DYNDVQ(8),
&DYNDKQ,REFUSE,CYC1,NOPKRF,TOLR(2,1),NFFT,AKNOTS,NBASF4(1000,2,1),
&L4END(1),L6ST,L6END
LOGICAL REFUSE,CYC1,NOPKRF

Description

Profile refinement peak function parameters

Symbolic parameters used

PHAS set to 1 dimensioning PKFNSP KPFNSP NPKFSP TOLER NPKGEN NBASF4 L4END
PKGN set to 8 dimensioning PKFNSP KPFNSP DERPFN NPKFSP TOLER PKFNVA DYNDVQ
PKSP set to 6 dimensioning PKFNSP KPFNSP DERPFN
REFS set to 1000 dimensioning NBASF4
SORC set to 1 dimensioning PKFNSP KPFNSP NPKFSP TOLER NPKGEN TOLR

Common Block PRSAVE

Specification

COMMON /PRSAVE/KPOINT(70),SAVP2(70),SAVDER(200,70),SAVPRC(70),
&SAVDPC(70),SAVFCN(70)

Description

Saved structure factor data (profile refinement)

Symbolic parameters used

F2VA set to 200 dimensioning SAVDER
OLAP set to 70 dimensioning KPOINT SAVP2 SAVDER SAVPRC SAVDPC SAVFCN

Common Block PRSAVF

Specification

COMMON /PRSAVF/PKLIST(256,9,70),XPKDEL(70),PKADD(256,9),ARGNOT(50),
&PKNOT(64,9,50),XPDKNT(50)

Description

Saved peak position data (profile refinement)

Symbolic parameters used

FFT1 set to 64 dimensioning PKNOT
FFT2 set to 256 dimensioning PKLIST PKADD
OLAP set to 70 dimensioning PKLIST XPKDEL

Common Block PRSTAT

Specification

COMMON /PRSTAT/SMYC,SMYD,SMYO,SMIO,SMID,SMWYOS,IZCT,P5,IOP1,IOP2,
&KMI(1),KMA(1)

Description

Statistical data for profile refinement

Declared by

BATCH to use IOP1 IOP2
INITIL to use IOP1 IOP2

Symbolic parameters used

PHAS set to 1 dimensioning KMI KMA

Common Block PRZERO

Specification

COMMON /PRZERO/ZEROSP(6,1,1),KZROSP(6,1,1),DKDZER(6),NZERSP(1,
&1)

Description

Zero point parameters (profile refiment)

Symbolic parameters used

PHAS set to 1 dimensioning ZEROSP KZROSP NZERSP
PKSP set to 6 dimensioning ZEROSP KZROSP DKDZER
SORC set to 1 dimensioning ZEROSP KZROSP NZERSP

Common Block PWORDS

Specification

COMMON /PWORDS/PWD(10,1,1)
CHARACTER *4 PWD

Description

List of words 'SWCH','TAUF','TAUS','SIGM','GAMM', 'CANI
(profile refinement)

Symbolic parameters used

PHAS set to 1 dimensioning PWD
PWRD set to 10 dimensioning PWD
SORC set to 1 dimensioning PWD

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