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
MAGLSQ to use
PALSQ to use
all members
SFLSQ to use
all members
SFTLSQ to use
all members
SNPLSQ to use
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
CHILSQ to use
LVARB
MAGLSQ to use
LVARB
MMPLSQ to use
LVARB
MPCLSQ to use
LVARB
MPLSQ to use
LVARB
SFLSQ to use
LVARB
SFTLSQ to use
LVARB
SNPLSQ 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
CALCGM to use
all members
CALCGR to use
all members
CALCMG to use
all members
CALCMP to use
all members
CALCPA to use
all members
CALCSF to use
all members
CALDSM to use
DERIVV
CALMMG to use
all members
CALPOL to use
all members
CALPOW 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
ARRHED to use
IGEOM UM
CALCMG to use
GETDC to use
IGEOM UM NLR
INPUTD to use
IGEOM UM NLR ANGLIN ALAMBD NLAMB ALAM2
MAGDIR to use
UM
RREFLS to use
UM
RREFSA to use
UM
RREFSF to use
UM
SETDC to use
IGEOM UM ANGLIN
SETLP to use
IGEOM
SETPOL to use
UM
ABSMSF to use
UM
AVERPA to use
UM
AVEXAR to use
UM
ABSOUT to use
CALMSF to use
CALQSF to use
UM
CHILSQ to use
ANGLD3 to use
UM
MAGLSQ to use
MPCLSQ to use
PALSQ to use
UM
SNPLSQ to use
SORASY to use
UM
SORGAM to use
UM ALAM2
Symbolic parameters used
-
LAMB set to 5 dimensioning ALAMBD
SORC set to 1 dimensioning ALAMBD
Common Block DREAD
Specification
COMMON /DREAD/IDREAD(10),DNEEDS(10)
LOGICAL DNEEDS
Description
-
IDREAD indicates the number of each kind of
D card
read
DNEEDS indicates which DCARDS are still needed
Declared by
-
ARRHED to use
all members
INPUTD to use
all members
SETABS to use
IDREAD
SETDC to use
all members
SETLP to use
IDREAD
Common Block DSOURC
Specification
COMMON /DSOURC/NUMSRC,JSRC,MSRC(2,4),NOBSRC(4),SRCPAR(20,4),
&SRCWT(4),DPOP(24),KDPOP(24),IPDOM(4),IPSCAL(4)
Description
-
Contains constants belonging to different types of data (sources)
NUMSRC number of different types
JSRC The current source
MSRC MODER:- data format and REFI:- refinement type for each source
NOBSRC Number of last observation for each source
SRCPAR Buffer to hold special parameters pertinant to the source
e.g. the polarisation direction.
SRCWT The relative weight to be given to this data source
DPOP domain populations and LSQ pointer KDPOP
IPDOM, IPSCAL position of domain and scale pointers for each source
IPDOM(I) is the number of domain populations up to but not including
the Ith source.
Declared by
-
CALCPA to use
JSRC DPOP KDPOP IPDOM
CALMMG to use
JSRC DPOP KDPOP IPDOM
DATASF to use
NUMSRC JSRC NOBSRC SRCPAR SRCWT IPSCAL
DOPOPS to use
NUMSRC JSRC MSRC DPOP KDPOP IPDOM IPSCAL
INPLSF to use
NUMSRC JSRC MSRC NOBSRC SRCWT DPOP IPDOM IPSCAL
LDSCAL to use
NUMSRC IPSCAL
LLDPOP to use
NUMSRC JSRC DPOP IPDOM
MUCALC to use
NUMSRC MSRC SRCPAR
REFHDR to use
JSRC SRCPAR
RREFLS to use
JSRC MSRC NOBSRC SRCPAR
RREFSA to use
JSRC MSRC NOBSRC SRCPAR IPSCAL
RREFSF to use
NUMSRC JSRC SRCWT
TCHALC to use
WGHTSF to use
JSRC SRCWT
CHILSQ to use
NUMSRC JSRC MSRC NOBSRC SRCPAR
MAGLSQ to use
NUMSRC JSRC MSRC NOBSRC SRCPAR
MMPLSQ to use
NUMSRC JSRC MSRC NOBSRC SRCPAR
MPCLSQ to use
NUMSRC JSRC MSRC NOBSRC SRCPAR
TCHMPC to use
MPLSQ to use
NUMSRC JSRC NOBSRC
SFLSQ to use
NUMSRC JSRC NOBSRC
SFTLSQ to use
NUMSRC JSRC NOBSRC
SNPLSQ to use
NUMSRC JSRC MSRC NOBSRC SRCPAR
DFLTMT to use
NUMSRC IPSCAL
Symbolic parameters used
-
DPOP set to 24 dimensioning DPOP KDPOP
DSRC set to 4 dimensioning MSRC NOBSRC SRCPAR SRCWT IPDOM IPSCAL
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.
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.
P. Jane Brown
Institut Laue Langevin,
Grenoble, FRANCE