Common Block ABSDAT
Specification
COMMON /ABSDAT/AMU,MODEA
Description
-
AMU is coefficient of absorption
MODEA requests one or more of selection of 3 integrals
Declared by
-
ABMULT to use
all members
ABSOR to use
all members
INPUTG to use
all members
SETABS to use
MODEA
ABSMSF to use
MODEA
AVEXAR to use
MODEA
INCMSF to use
MODEA
SORGAM to use
MODEA
Common Block ADASH
Specification
COMMON /ADASH/DASH,X1,Y1,REM,IPEN,IDSH,DTRAN(2,2)
Description
-
DASH is the length of a plotted dash within a dashed line, in cms
X1 and Y1 remember dash position internally
REM holds remainder of a dash not yet plotted
IPEN remembers if pen up or down
IDSH holds space from previous entry to DPLOT
DTRAN holds transformation matrix for space in DPLOT
Declared by
-
DPLOT to use
all members
PINITL to use
DASH IDSH
PLOTO to use
DASH X1 Y1
Common Block ANISO
Specification
COMMON /ANISO/ATF(6,50),KATF(6,50),IAPT(250),IATYP(50),KOM1
Description
-
ATF holds standard beta anisotropic temperature factor coefficients
KATF indicates which ATF are to be varied
IAPT(N) shows which members of ATF apply to the Nth atom
IATYP(J) gives type of Jth ATF as input
Declared by
-
ANITF to use
ATF IAPT
CONATF to use
IATYP
DFLTSF to use
IAPT
F2NEW to use
ATF IAPT IATYP
F2RELA to use
IAPT
F2SHFT to use
ATF IAPT
F2VAR8 to use
KATF IAPT
LFCALC to use
KATF IAPT
LMAGPR to use
KATF IAPT
LMCALC to use
KATF IAPT
LMMPCA to use
KATF IAPT
LMPCAL to use
KATF IAPT
SETANI to use
ATF IAPT IATYP
LCHALC to use
KATF IAPT
DFTWSF to use
IAPT
Symbolic parameters used
-
ATFS set to 50 dimensioning ATF KATF IATYP
ATOM set to 250 dimensioning IAPT
Common Block ANSCAT
Specification
COMMON /ANSCAT/NAMODE(20),FDASH(20),KOM2
COMPLEX FDASH
Description
-
NAMODE(I) gives type of Ith anomalous scattering factor
FDASH holds the real and imaginary parts of factor for type 1
Declared by
-
FORMFA to use
NAMODE FDASH
SETFOR to use
NAMODE FDASH
Symbolic parameters used
-
FORM set to 20 dimensioning NAMODE FDASH
Common Block ARRDAT
Specification
COMMON /ARRDAT/IFOR(6),INC,LINO,NREF,INLBUF,NBUF,IBUF,INFBUF,
&INDLEN,NUMVAL,IPOS,ISTORE,ICHNGE,NEW,LPRINT,ICD,IS,NREF1,NREFL,
&NUMOR
LOGICAL INC,NEW,LPRINT
Description
-
IFOR holds the array of user's options for ARRNGE and related programs
Declared by
-
ARPRIN to use
INC LINO NREF INLBUF NBUF IBUF INFBUF INDLEN NUMVAL IPOS ISTORE ICHNGE NEW LPRINT ICD IS
ARREAD to use
NREF1 NREFL NUMOR
IICD3 to use
REJECT to use
ARRINC to use
NREF IBUF NUMVAL ICHNGE IS
ICDINC to use
INC IS
ARRNGE to use
INC NREF IBUF NUMVAL ICHNGE
ICDINC to use
INC IS
Common Block ARSORT
Specification
COMMON /ARSORT/NREFS,KEYS,ITEMS,LRPACK(10,3),MS,KP,JPOINT,ICOUNT,
&KOLD(6)
Description
-
Holds sorting information for ARRNGE type programs
NREFS is the number of reflections
KEYS the sort keys
ITEMS the number of data items attached to each reflection
Declared by
-
AINOUT to use
all members
Common Block ATBLOC
Specification
COMMON /ATBLOC/NAME,IPNAME(12)
CHARACTER *4 NAME,IPNAME
Description
-
Holds character specification for a block of shifts
NAME is the atom to which the block refers
IPNAME is the list of parameters to which shifts are applied
Declared by
-
APSHSF to use
all members
PRBLOK to use
all members
Common Block ATBLOK
Specification
COMMON /ATBLOK/IBUFF,PNEW(12),PESD(12),PSHIFT(12),POLD(12),
&PSESD(12)
Description
-
Holds numerical specification for a block of shifts
IBUFF is the number of shifts to be printed
PNEW,PESD,PSHIFT,POLD,PSESD hold the newvalue, ESD, shift,
old value and shift/ESD ratio for each parameter.
Declared by
-
APSHSF to use
all members
PRBLOK to use
all members
Common Block ATNAM
Specification
COMMON /ATNAM/ATNAME(250),ATNA(250,1)
CHARACTER *4 ATNA,ATNAME
Description
-
ATNAME(N) holds the name of atom N as read from an
A card
Declared by
-
ANGLST to use
ATNAME
ATMPLT to use
ATNAME
ATOPOS to use
ATNAME
BNDLST to use
ATNAME
DOCHI1 to use
ATNAME
DOMAG to use
ATNAME
DOMAG1 to use
ATNAME
DOMAG2 to use
GEOMCO to use
ATNAME
GEOMIN to use
IATOM to use
ATNAME
JMPOL to use
ATNAME
MAGCON to use
ATNAME
MAPKEY to use
ATNAME
MPCON to use
MPFORM to use
MUCALC to use
ATNAME
PARNAM to use
all members
PFORMF to use
ATNAME
PFOUT to use
ATNAME
PFSET to use
ATNAME
PSICON to use
ATNAME
RDATOM to use
ATNAME
RDBOND to use
ATNAME
READRT to use
SETFOR to use
ATNAME
SETFOU to use
ATNAME
SPHELI to use
ATNAME
TBLFND to use
ATNA
BONDS to use
ATNAME
FORFAC to use
ATNAME
MAG3D to use
ATNAME
ATLABS to use
ATNAME
MAG3DX to use
ATNAME
MG3DGL to use
ATNAME
MVENTX to use
ATNAME
Symbolic parameters used
-
ATOM set to 250 dimensioning ATNAME ATNA
PHAS set to 1 dimensioning ATNA
Common Block ATNMPK
Specification
COMMON /ATNMPK/ATPACK(10,3)
INTEGER ATPACK
Description
-
ATPACK contains packed atom specifications name, operator, and cell
Declared by
-
ATSPEC to use
all members
BNDLST to use
all members
BONDS to use
all members
P. Jane Brown
e-mail: brown@ill.fr
Institut Laue Langevin,
Grenoble, FRANCE