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
PGCOLN to use
PGCOLS
PGSYMN 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
PGCOLN to use
NPGCOL
PGSYMN to use
NPGSYM
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
CALCGM to use
JPHASE
CALCMG to use
JPHASE
CALCMP to use
CALCPA to use
JPHASE
CALCSF to use
JPHASE
CALMMG to use
JPHASE
CALPOL to use
JPHASE
CALPOW 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
LMTCAL to use
JPHASE
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
TCHALC to use
JPHASE
VARMAK to use
NPHASE JPHASE
VOCAB to use
KPHASE
TCHMPC 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
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
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(40)
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
CALCGM to use
CALCGR to use
CALCMG to use
CALCMP to use
CALCPA to use
CALCSF to use
CALDSM to use
CALMMG to use
CALPOL to use
CALPOW to use
DOTWN1 to use
GEOMCO to use
LFCALC to use
LMCALC to use
LMMPCA to use
LMPCAL to use
LMTCAL to use
MATCEL to use
LVRBS LBSVR
PARNAM to use
LVRPR LBSVR
PARSFW to use
LVRBS LVRPR LBSVR
PRIVAR to use
LVRPR LBSVR LRDVR
RELATE to use
LBSVR LRDVR
TCHALC to use
VARMAK to use
all members
VARSDS to use
LVRBS LVRPR
VARSMG to use
LVRPR
VARSSF to use
LVRPR
VARST2 to use
LVRBS LVRPR
TCHMPC to use
CALCTW to use
Symbolic parameters used
-
BVAR set to 200 dimensioning LBSVR
CSTR set to 40 dimensioning LRDVR
VVAR set to 250 dimensioning LVRBS LVRPR
Common Block POLDA
Specification
COMMON /POLDA/POLUP,DPOLUP,POLDW,DPOLDW,MODEP,POLND(3)
Description
-
POLUP,DPOLUP polarisation for spin up state and esd
POLDW,DPOLDW polarisation for spin up state and esd
MODEP type of depolarisation
POLND polarisation direction (orthogonal crystallographic axes)
Declared by
-
CALCFR to use
POLUP POLDW POLND
CALCGM to use
CALCMG to use
CALCPA to use
POLND
CALMMG to use
CALPOW to use
POLUP POLDW
DOCHI1 to use
FGAMMA to use
POLUP DPOLUP POLDW DPOLDW
FMMPCA to use
POLND
GAMEX to use
POLUP POLDW
LMCALC to use
POLND
LMMPCA to use
POLND
LMTCAL to use
POLND
PRJECT to use
POLND
RREFLS to use
POLUP POLDW POLND
RREFSA to use
RREFSF to use
POLUP POLDW POLND
SETPOL to use
POLUP DPOLUP POLDW DPOLDW POLND
CHILSQ to use
POLUP POLDW POLND
MAGLSQ to use
POLUP POLDW POLND
MMPLSQ to use
POLUP POLDW POLND
MPCLSQ to use
POLUP POLDW POLND
PALSQ to use
POLUP
SNPLSQ to use
POLUP POLDW POLND
SORASY to use
POLUP POLDW POLND
SORGAM to use
POLUP POLDW POLND
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
-
CALCPA to use
DXSDN DXSDQ DPOLDN DPOLDQ POLIT POLO QSQR POLD QSQRM
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
MPCLSQ to use
TCHMPC to use
MPFOR 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
LMTCAL to use
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
TCHALC to use
KX AMULT KTF SITE KSITE
XROOT to use
XTRANS to use
XYZREL to use
NATOM ISGEN
BONDS to use
NATOM ATESDS
CHILSQ to use
NATOM
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
MPCLSQ to use
NATOM
TCHMPC to use
KX AMULT KTF SITE KSITE
MPLSQ to use
NATOM
PALSQ to use
NATOM
SFLSQ to use
NATOM
SFTLSQ to use
NATOM
SNPLSQ 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
CALCGM to use
LVFST1 NVARF
CALCGR to use
LVFST1 NVARF
CALCMG to use
LVFST1 NVARF
CALCMP to use
LVFST1 NVARF
CALCPA to use
LVFST1 NVARF
CALCSF to use
LVFST1 NVARF
CALMMG to use
LVFST1 NVARF
CALPOL to use
LVFST1 NVARF
CALPOW to use
LVFST1 NVARF
LFCALC to use
LVFST1 NVARF
LMCALC to use
LVFST1 NVARF
LMMPCA to use
LVFST1 NVARF
LMPCAL to use
LVFST1 NVARF
LMTCAL 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
TCHALC to use
LVFST1 NVARF
VARMAK to use
NFAM LVFST1 LBFST1 NVARF NBARF
CHILSQ to use
NFAM LF1SP
MAGLSQ to use
NFAM LF1SP
MMPLSQ to use
NFAM LF1SP
MPCLSQ to use
NFAM LF1SP
TCHMPC to use
LVFST1 NVARF
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
SNPLSQ to use
NFAM LF1SP LF3SP
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
P. Jane Brown
Institut Laue Langevin,
Grenoble, FRANCE