Contents Prev Manual

FUNCTION JFIX(X)

Rounds a real to be an integer.

Arguments:

On entry X is a real
On exit JFIX is an integer with the value X, rounded not truncated

Notes:

Note that the FORTRAN function IFIX truncates

Called by:

ATOPOS BIGGAM CDFIN ERRMAP FCTOR FETTLE GEOMCO GETSCL ICDFMT IICD1 IICD3 INDFIX INVENT MAGDIR MATCOR MULIND NUMA1 PRIPLN PRNTMP RDNUMS RELSM6 SETFOU SETGEN SYMOP WGHTLS ICDINC ARRNGE GETMSF GETSFZ GRAFIC ICDINC MAGPOW POWDER

*** JFIX by JCM ***

Classification:

Miscellaneous . . . . . . . Utility

SUBROUTINE JGMADD(JA,JB,JC,NI,NJ)

In integers, sets matrix C = matrix A plus matrix B.

Arguments:

On entry JA and JB are integer matrices both of dimension NIxNJ
On exit JC=JA+JB also NIxNJ

*** JGMADD by JCM Jun 88 ***

Classification:

Matrices and Vectors . . . . . . . Utility

SUBROUTINE JGMEQ(JA,JB,NI,NJ)

Equates an integer matrix to a given integer matrix.

Arguments:

On entry JA is an integer matrix of dimension NIxNJ
On exit JB = integer matrix being a copy of JA

Called by:

ADDCON ADDELM AINOUT FACGRP FIXVAR LATGEN MAGSYM PSICON SETFOU SUBSYM SYMBAK GRAFIC MAG3D POSORT MG3DGL MVENTR

*** JGMEQ by JCM Jun 88 ***

Classification:

Matrices and Vectors . . . . . . . Utility

SUBROUTINE JGMPRD(JA,JB,JC,NI,NJ,NK)

In integers, sets matrix C = matrix A times matrix B.

Arguments:

On entry JA is an integer matrix of dimension NIxNJ
JB is an integer matrix of dimension NJxNK

On exit JC is an integer matrix of dimension NIxNK, being JA times JB

*** JGMPRD by JCM Jun 88 ***

Classification:

Matrices and Vectors . . . . . . . Utility

SUBROUTINE JGMREV(JA,JB,NI,NJ)

Reverses the signs of the elements of an integer matrix.

Arguments:

On entry JA is an integer matrix of dimension NIxNJ
On exit JB is an integer matrix, being a copy of JA with reversed signs.

Notes:

JB may be the same as JA.

*** JGMREV by JCM Jun 88 ***

Classification:

Matrices and Vectors . . . . . . . Utility

SUBROUTINE JGMSUB(JA,JB,JC,NI,NJ)

In integers, sets matrix C = matrix A minus matrix B.

Arguments:

On entry JA and JB are integer matrices of dimension NIxNJ
On exit JC is an integer matrix = JA - JB

*** JGMSUB by JCM Jun 88 ***

Classification:

Matrices and Vectors . . . . . . . Utility

SUBROUTINE JGMZER(JA,NI,NJ)

Clears an integer matrix to zero.

Arguments:

On entry NI and NJ are the dimensions of the required matrix
On exit the integer matrix JA, of dimensions NIxNJ is cleared to zero.

Called by:

ANGLST BNDLST DOCHI1 DOMAG DOMAG1 DOMAG2 DOTWN2 FACGRP FILPRO INPLSF INPUTD INPUTG MAGSYM MAKGRP MOLORB MPFORM MUCALC PFSET PROPAG PSICON RADFUN READRT RELCL6 RELMT3 SETANI SUBSYM SYMGEN SYMUNI XYZREL D3OP99 GRAFIC INCMSF MAG3D MG3DGL MVENTR

*** JGMZER by JCM Jun 88 ***

Classification:

Matrices and Vectors . . . . . . . Utility

SUBROUTINE JMPOL

Writes to unit NEWIN all
J MPOL cards after a multipole refinement.

Called by:

DOMPL2

Common blocks used:

/ATNAM/ to use ATNAME
/MPODA/ to use NMPAT MPATAB MPTAB MP POLAMP
/MPODAC/ to use all members
/NEWOLD/ to use NEWIN

*** JMPOL by JCM 11 Feb 91 ***

Classification:

Specific Least Squares Refinement . . . . . . . Crystallographic

SUBROUTINE JTERMS(G,R,H,S)

Calculates the terms in the 2D averaged spherically symmetric form
factor summation which depend on S,K, and R only.

Calls:

BJ

Common blocks used:

/CONSTA/ to use PI TWOPI

*** JTERMS by PJB 17 Jan 85 ***

Classification:

Mathematical Functions . . . . . . . Utility

Contents Manual
P. Jane Brown e-mail: brown@ill.fr
Institut Laue Langevin,
Grenoble, FRANCE