Common Block CARDRC
Specification
COMMON /CARDRC/ICRYDA,NTOTAL(1),NYZ,NTOTL,INREA(26,1),ICDN(26,1),
&IERR,IO10,SDREAD
LOGICAL SDREAD
DIMENSION INREAD(26),ICDNO(26)
EQUIVALENCE (INREAD(1),INREA(1,1))
EQUIVALENCE (ICDNO(1),ICDN(1,1))
Description
-
IO10 is the unit number of the scratch file for Crystal Data
IREC is the current record number in this file
ICRYDA is the unit number of the input Crystal Data file
NYZ is the number of Y or
Z cards
read in the course of reading some
other set of cards
NTOTL is the total number of records on the crystal data file.
Declared by
-
ADDBON to use
IERR
ATOPOS to use
NYZ SDREAD
BATCH to use
ICRYDA
CARDIN to use
NTOTAL NYZ IO10
CDFIN to use
ICRYDA NTOTAL INREA ICDN IO10
CDSCAN to use
NTOTAL NYZ
DOCHI1 to use
NYZ IERR
DOMAG to use
NYZ IERR
DOMAG1 to use
NYZ IERR
DOMAG2 to use
DOMPL2 to use
DOTWN1 to use
ERRATM to use
IERR
ERRCH2 to use
IERR
ERRCHK to use
IERR
ERRIN2 to use
IERR
ERRMES to use
IERR
ERRRE2 to use
IERR
EXTPAR to use
F2NEW to use
SDREAD
F2RELA to use
FINDCD to use
NTOTAL NYZ
FUDGIN to use
IERR
GEOMIN to use
IICD3 to use
INITIL to use
ICRYDA
INPLSF to use
NYZ
INPUTA to use
SDREAD
INPUTC to use
SDREAD
INPUTD to use
NYZ
INPUTE to use
INPUTG to use
NYZ IERR
INPUTI to use
NYZ
INPUTM to use
NYZ IERR
INPUTN to use
INPUTS to use
IERR
INPUTU to use
INPUTW to use
NYZ
IPDONE to use
LERCHK to use
IERR
LLSCAL to use
IERR
MAGSYM to use
IERR
MAJUST to use
NYZ IO10
MOLORB to use
IERR
MPFORM to use
NYZ IERR
NEWCRY to use
NTOTAL IO10
NWINDS to use
NTOTAL IO10
NWINFW to use
NTOTAL IO10
NWINSF to use
NTOTAL IO10
NWINT2 to use
NTOTAL IO10
ONCARD to use
NYZ
ORTFUN to use
PFSET to use
NYZ IERR
PREFIN to use
ICRYDA NTOTAL NTOTL IERR IO10
RDATOM to use
IERR
READRT to use
RECIP to use
NYZ SDREAD
RELPOS to use
SAVMAP to use
NTOTAL IO10
SETABS to use
SETANI to use
NYZ IERR
SETDC to use
IERR
SETFC to use
IERR
SETFCM to use
IERR
SETFOR to use
NYZ IERR
SETFOU to use
IERR
SETGAU to use
SETPOL to use
STLSFW to use
STLSSF to use
IERR
SYMOP to use
NYZ IERR
SYMTID to use
ABSMSF to use
ICDINC to use
AVEXAR to use
CALMSF to use
CALQSF to use
CHILSQ to use
FORFAC to use
IERR
INCMSF to use
ICDINC to use
MAG3D to use
POSOUT to use
ICRYDA
MAGLSQ to use
MG3DGL to use
ICRYDA
MMPLSQ to use
MVENTR to use
NVENTR to use
ICRYDA
PALSQ to use
SORGAM to use
ICRYDA
Symbolic parameters used
-
PHAS set to 1 dimensioning NTOTAL INREA ICDN
Common Block CELFIX
Specification
COMMON /CELFIX/IPTCEL(6),AMCELL(6),NCELF,NCELG,NCELS,RCLMAT(6,6),
&KOM3
Description
-
IPTCEL and AMCELL are used to hold the simple relations between the
cell parameters, temporarily until they can be incorporated
RCLMAT holds the matrix projecting the quadratic products on the basic
quadratic product variables
Declared by
-
ANGERS to use
RCLMAT
BONERR to use
RCLMAT
CELREL to use
IPTCEL AMCELL NCELF NCELG NCELS
GEOMCO to use
MATCEL to use
RDFV to use
NCELF NCELG NCELS
RECELL to use
IPTCEL
RECIP to use
IPTCEL AMCELL
RECISD to use
IPTCEL AMCELL
RELCL6 to use
IPTCEL AMCELL RCLMAT
SYMTID to use
IPTCEL AMCELL
Common Block CELPAR
Specification
COMMON /CELPAR/CELL(3,3,2),V(2),ORTH(3,3,2),CPARS(6,2),KCPARS(6),
&CELESD(6,6,2),CELLSD(6,6),SDCELL,LSQCEL,PRODSD,KOM4
LOGICAL SDCELL,PRODSD,LSQCEL
Description
-
CELL holds the real and reciprocal cell sides, cosines and sines
V holds the real and reciprocaL cell volumes
ORTH holds the matrices which transform crystallographic coordinates
to the CCSL orthogonal coordinates, in either space
CPARS hold the real and reciprocal cell quadratic products
CELESD holds the real and reciprocal elements of inverse LSQ matrix
SDCELL is true if Cell ESD's have been read
LSQCEL is true if they were filled in after a least squares refinement
PRODSD is true if they were obtained from ESD's in the quad prods
Declared by
-
ANGERS to use
CPARS CELESD SDCELL
APSHDS to use
CPARS
APSHT2 to use
CPARS
BONDER to use
CELL
BONERR to use
CPARS CELESD SDCELL
CALCDS to use
CPARS KCPARS
CALDSM to use
CPARS KCPARS
CELDER to use
CPARS
CELLMA to use
CELL CPARS
CELMAT to use
CPARS
CELNEW to use
CELL CELESD CELLSD PRODSD
CELSDP to use
CELL CELLSD
CELSHF to use
CPARS KCPARS
CONATF to use
CELL CPARS
DOCHI1 to use
ORTH
EXTPAR to use
GEOMCO to use
CELL
GEOMIN to use
GEOMLS to use
KCPARS
MAGSYM to use
ORTH
MATCEL to use
CELL CPARS KCPARS CELESD CELLSD
MPCON to use
ORTHG to use
CELL ORTH
ORTHO to use
ORTH
PROPDR to use
CPARS
READRT to use
ORTH
RECELL to use
CELL CPARS CELESD CELLSD SDCELL LSQCEL PRODSD
RECIP to use
CELL SDCELL
RECISD to use
CELL CELESD CELLSD SDCELL LSQCEL PRODSD
ROTOSM to use
ORTH
SCLPRD to use
CPARS
SETANI to use
CELL CPARS
SETFOU to use
SYMTID to use
CPARS
VCTMOD to use
CPARS
BONDS to use
CELL SDCELL
MG3DGL to use
ORTH
SORGAM to use
Common Block CHARS
Specification
COMMON /CHARS/LETUP(26),LETLOW(26),ISPCE,IDIGIT(10),ISMBOL(21)
CHARACTER *1 LETUP,LETLOW,ISPCE,IDIGIT,ISMBOL
Description
-
/CHARS/ is an attempt to deal with slightly differing character sets
on different computers. All its elements are initialised by
data statements. LETUP ans LETLOW hold the upper and lower
case letters, ISPCE space, IDIGIT digits 0-9, and ISMBOL the
commonly used symbols, including those which KANGA2 expects to
be asked to plot.
If the system is transferred between computers, some of the symbols
(as listed explicitly in INITIL) may become garbled.
Declared by
-
CDFIN to use
LETUP
INITIL to use
all members
INPUTS to use
LETUP LETLOW IDIGIT
INTCHR to use
IDIGIT
KANGA2 to use
LETTER to use
LETUP LETLOW
NDIGIT to use
IDIGIT
NSYMBL to use
ISMBOL
NUMA1 to use
IDIGIT
OPSYM to use
LETLOW ISPCE IDIGIT
PRIPLN to use
LETLOW IDIGIT
TBLFND to use
IDIGIT
UPLOW to use
LETUP LETLOW
UPONE to use
LETUP LETLOW
UPPER to use
LETUP
Common Block CONSTA
Specification
COMMON /CONSTA/PI,RAD,DEG,TWOPI,FOURPI,PIBY2,ALOG2,SQL2X8,VALMUB
Description
-
Contains frequently used constants
Declared by
-
ABSCOR to use
RAD
ARCCOS to use
PI PIBY2
ASPHFF to use
TWOPI
CIRCLE to use
TWOPI
CONATF to use
PI TWOPI
DEGREE to use
DEG
ERRMAP to use
TWOPI
EULSYM to use
PI
FCALC to use
TWOPI
FCHALC to use
TWOPI VALMUB
FMCALC to use
TWOPI VALMUB
FMMPCA to use
TWOPI FOURPI VALMUB
FMPCAL to use
TWOPI FOURPI
FOUINP to use
PIBY2
FOUR1D to use
TWOPI
FOUR1Z to use
TWOPI
FOURGP to use
TWOPI
FT01A to use
TWOPI
INITIL to use
all members
JTERMS to use
PI TWOPI
LFCALC to use
TWOPI
LMCALC to use
TWOPI VALMUB
LMMPCA to use
TWOPI FOURPI VALMUB
LMPCAL to use
TWOPI FOURPI
MAGCON to use
PFORMF to use
FOURPI
POLUNI to use
TWOPI
PSICON to use
RADIAN to use
RAD
RESOL to use
TWOPI
SETANI to use
PI TWOPI
SPHARM to use
TWOPI
STERMS to use
PI TWOPI FOURPI
SYMEQU to use
TWOPI
TRYUNI to use
PI TWOPI FOURPI PIBY2
LCHALC to use
TWOPI VALMUB
MAG3D to use
TWOPI
AROW3D to use
PI TWOPI
ELIPSE to use
TWOPI
MG3DGL to use
TWOPI
MVENTR to use
TWOPI
NVENTR to use
TWOPI
EXOPHS to use
PI
Common Block CONSTR
Specification
COMMON /CONSTR/JCONST,JROWPT(21),JCMAT(200),AMOUNT(200),NEXTJ
Description
-
Holds Constraint information for least squares programs
Declared by
-
MATCEL to use
JROWPT JCMAT AMOUNT
PARSFW to use
JCONST
PRIVAR to use
JCONST JROWPT JCMAT AMOUNT
RELATE to use
JCONST JROWPT JCMAT AMOUNT
SHFESD to use
JROWPT JCMAT AMOUNT
VARMAK to use
JCONST JROWPT JCMAT AMOUNT NEXTJ
Symbolic parameters used
-
CS+1 set to 21 dimensioning JROWPT
CSTC set to 200 dimensioning JCMAT AMOUNT
Common Block CONTUR
Specification
COMMON /CONTUR/ZPLVAL(20),ZCPL,IPL,IZPL,CONT(50),NCONT,PMAP(2,2)
Description
-
Holds information needed to draw contours
CONT contains the NCONT contour levels to be drawn
Declared by
-
FORIER to use
ZPLVAL ZCPL IPL IZPL
INPUTM to use
ZPLVAL IZPL CONT NCONT
MAPDRW to use
NCONT
NEXCON to use
CONT NCONT
SETFOU to use
ZPLVAL IZPL CONT NCONT
STPLOT to use
IZPL PMAP
USYM to use
PMAP
Symbolic parameters used
-
CONT set to 50 dimensioning CONT
PLOT set to 20 dimensioning ZPLVAL
Common Block CPLANE
Specification
COMMON /CPLANE/AA(15),BB(15),CC(15),DD(15),NP
Description
-
Holds coefficients of equations describing the NP crystal faces
on CCSL orthogonal axes
aa(n)*x + bb(n)*y + cc(n)*z = dd(n)
Declared by
-
ABMULT to use
all members
ABSOR to use
all members
INPUTG to use
all members
SETABS to use
NP
SETGAU to use
all members
Symbolic parameters used
-
CPLN set to 15 dimensioning AA BB CC DD
Common Block CRPDC
Specification
COMMON /CRPDC/ISNAME,IUNAME,IP1,IP2,OP2,DATDIR,NORD(11),DATE,DVM,
&TEMP,COMENT,MESBUF
CHARACTER*19 DATE,DVM*12,TEMP*8,COMENT*80
CHARACTER*8 ISNAME,IUNAME
CHARACTER*10 IP1,IP2,OP2
CHARACTER *80 DATDIR,NORD*4,MESBUF*125
Description
-
All character information handed round in the program crypad and its
associated subroutines.
Common Block CRPDN
Specification
COMMON /CRPDN/ALAM,UBM(9),MSTYP,AMSC(4),ANGS(4),DANGS(3),NSTEP,
&NSEQ,SANG(4),HKL(3),IGEO(3),TMORTS(4),ISEQ,LCOUNT,PLTING,IPOL,LUNO,
&IEND,PGHARD,LDEV(2)
LOGICAL PLTING,IEND,PGHARD
Description
-
All numerical information handed round in the program crypad and its
associated subroutines.
P. Jane Brown
e-mail: brown@ill.fr
Institut Laue Langevin,
Grenoble, FRANCE