Common Block DEPMAT
Specification
COMMON /DEPMAT/LDEP
Description
-
LDEP is the unit on to which output of deposited material is written.
Declared by
-
NWINSF to use
all members
CHILSQ to use
all members
MAGLSQ to use
all members
PALSQ to use
all members
SFLSQ to use
all members
SFTLSQ to use
all members
Common Block DERBAS
Specification
COMMON /DERBAS/DERIVB(200),LVARB
Description
-
DERIVB holds the derivitives with respect to the LVARB basic variables
Declared by
-
APSHDS to use
DERIVB
APSHFW to use
DERIVB
APSHSF to use
DERIVB
APSHT2 to use
DERIVB
CELNEW to use
LVARB
CELSDP to use
LVARB
MATCOR to use
LVARB
MATINV to use
all members
MATSET to use
LVARB
MATSHF to use
all members
MATTOT to use
all members
PARSFW to use
LVARB
PRIVAR to use
LVARB
RELATE to use
all members
RFACS to use
LVARB
SHFESD to use
DERIVB
VARMAK to use
LVARB
Symbolic parameters used
-
BVAR set to 200 dimensioning DERIVB
Common Block DERVAR
Specification
COMMON /DERVAR/DERIVV(250),LVARV
Description
-
DERIVV holds the derivitives with respect to all LVARV variables
Declared by
-
APSHDS to use
LVARV
APSHFW to use
LVARV
APSHSF to use
LVARV
APSHT2 to use
LVARV
CALCDS to use
DERIVV
CALCFR to use
all members
CALCFW to use
DERIVV
CALCGR to use
all members
CALCMG to use
all members
CALCMP to use
all members
CALCSF to use
all members
CALDSM to use
DERIVV
CALPOL to use
all members
GEOMLS to use
all members
LMMPCA to use
LMPCAL to use
PARSFW to use
LVARV
RELATE to use
all members
VARMAK to use
LVARV
VARSDS to use
LVARV
VARSMG to use
LVARV
VARSSF to use
LVARV
VARST2 to use
LVARV
CALCTW to use
all members
Symbolic parameters used
-
VVAR set to 250 dimensioning DERIVV
Common Block DGEOM
Specification
COMMON /DGEOM/IGEOM,UM(9),NLR,ANGLIN(3),ALAMBD(5,1),NLAMB,ILAMB,
&ALAM2
EQUIVALENCE (WLGTH,ALAMBD(1,1))
Description
-
Holds information read from Dcards
GEOM geometry type
UM(9) orientation matrix wrt othogonal cryst allographic axes
NLR left/right indicator
ANGLIN(3) aangles associated with particular geometries
ALAMBD wavelengths
NLAMB number of different wavelenghts
ILAMB which wavelength in ALAMBD
ALAM Half wavelength contamination
Declared by
-
ABSCOR to use
IGEOM
ALRPOL to use
IGEOM UM ANGLIN
ANGDIR to use
IGEOM UM NLR
GETDC to use
IGEOM UM NLR
INPUTD to use
IGEOM UM NLR ANGLIN ALAMBD NLAMB ALAM2
MAGDIR to use
UM
SETDC to use
IGEOM UM ANGLIN
SETLP to use
IGEOM
SETPOL to use
UM
AVEXAR to use
PATHS to use
CALMSF to use
CALQSF to use
UM
CHILSQ to use
UM
ANGLD3 to use
UM
MAGLSQ to use
UM
PALSQ to use
UM
SORGAM to use
ALAM2
Symbolic parameters used
-
LAMB set to 5 dimensioning ALAMBD
SORC set to 1 dimensioning ALAMBD
Common Block DREAD
Specification
COMMON /DREAD/IDREAD(9)
Description
-
IDREAD indicates which
D cards
have been found and read
Declared by
-
INPUTD to use
all members
SETABS to use
all members
SETDC to use
all members
SETLP to use
all members
Symbolic parameters used
-
DCRD set to 9 dimensioning IDREAD
Common Block D3OPC
Specification
COMMON /D3OPC/ISNAME,IUNAME,IP1,IP2,IPOLD,DATDIR,OP2,OP3,NORD(6),
&MONOID,FILTER,DATE,TEMPER,FIELD,DVM,MESBUF
CHARACTER*8 ISNAME,IUNAME,MONOID,FILTER,TEMPER,FIELD,DVM
CHARACTER*10 IP1,IP2,IPOLD,OP2*100,OP3,DATDIR*80,NORD*4,DATE*19,
&MESBUF*125
Description
-
Contains all character information handed around by D3OP and its
associated subroutines.
Declared by
-
D3OP99 to use
ISNAME IUNAME IP1 IPOLD DATDIR OP2 NORD MONOID FILTER DATE TEMPER DVM MESBUF
BPBPRC to use
DATE TEMPER FIELD DVM MESBUF
AISPRC to use
IP1 OP2 TEMPER MESBUF
CENPRC to use
OP3 MESBUF
NCHECK to use
IP1 IP2 IPOLD DATDIR MESBUF
INFILE to use
IP1 IP2 DATDIR
Common Block D3OPN
Specification
COMMON /D3OPN/IGEO(3),ALAM,UBM(9),H(3),IMTYP,AIS(3),IAIS,NBPB,
&NSEQ(4),IMEAS,LCOUNT,ANG(3),POLARS(4),BLSPS(8),TMORTS(4),LUN(4),
&LUNO,IEND,OLDFIL
LOGICAL IEND,OLDFIL
Description
-
Contains all numerical information handed around by D3OP and its
associated subroutines.
Declared by
-
D3OP99 to use
IGEO ALAM UBM IMTYP AIS IAIS NBPB NSEQ IMEAS LCOUNT ANG POLARS BLSPS TMORTS LUN LUNO IEND OLDFIL
BPBPRC to use
NBPB NSEQ LCOUNT ANG TMORTS LUNO
AISPRC to use
AIS IAIS NSEQ LCOUNT TMORTS LUN
CENPRC to use
LCOUNT ANG LUN
NCHECK to use
NSEQ LCOUNT IEND OLDFIL
P. Jane Brown
e-mail: brown@ill.fr
Institut Laue Langevin,
Grenoble, FRANCE