(PROGN (PRIN1 "Use LOADDB to load database files!
" T) (ERROR!))
(" 7-Oct-85 22:32:11" . {QV}<IDL>SOURCES>MATRIX.;9)
FNS (INVERT MPROD NORM SWEEP SWEEP.SLTR SWEEPER SWEEP.COMPOSE SWEEP.UNDOPERM)
(READATABASE)
(
CALL INVERT (UENTRY EAPPLY* FUNCTION) MPROD (UENTRY EAPPLY* FUNCTION) NORM (UENTRY EAPPLY* FUNCTION) 
SWEEP (UENTRY EAPPLY* FUNCTION) SWEEP.SLTR (MAKESLTR IMIN GETRELT GENROW CONV.ROWINT UERROR UERROR! 
IPLUS) SWEEPER (GETRELT COPYROW GETAELT AELTPTR2 FGREATERP FMINUS PLUS SETAELT FQUOTIENT UERROR PRIN1 
UERROR! FDIFFERENCE FTIMES SWEEP.UNDOPERM) SWEEP.COMPOSE (LIST CONS MERGE SORT) SWEEP.UNDOPERM (
GETRELT IPLUS GENROW FSELECT ROWPTROF VFROMR) NIL
BIND INVERT NIL MPROD NIL NORM NIL SWEEP NIL SWEEP.SLTR NIL SWEEPER NIL SWEEP.COMPOSE NIL 
SWEEP.UNDOPERM NIL NIL
NLAMBDA INVERT (UARG) MPROD NIL NORM NIL SWEEP (UARG) SWEEP.SLTR NIL SWEEPER NIL SWEEP.COMPOSE NIL 
SWEEP.UNDOPERM NIL NIL
NOBIND INVERT NIL MPROD NIL NORM NIL SWEEP NIL SWEEP.SLTR NIL SWEEPER NIL SWEEP.COMPOSE NIL 
SWEEP.UNDOPERM NIL NIL
RECORD INVERT (SIMARRAY) MPROD (ROWINT SIMARRAY SELARRAY GENSTATEBLOCK) NORM (ROWINT ROWFLOAT 
ARRAYFRAME) SWEEP (SIMARRAY ROWINT) SWEEP.SLTR (ROWINT SIMARRAY) SWEEPER (ROWINT ARRAYFRAME) 
SWEEP.COMPOSE NIL SWEEP.UNDOPERM (ARRAYFRAME ROWINT SELARRAY) NIL
CREATE INVERT NIL MPROD (SIMARRAY) NORM (ROWFLOAT ROWINT ROWPTR) SWEEP NIL SWEEP.SLTR NIL SWEEPER NIL 
SWEEP.COMPOSE NIL SWEEP.UNDOPERM NIL NIL
FETCH INVERT (AELTTYPE ELEMENTBLOCK FORMAT DONE) MPROD (SHAPE NELTS AELTTYPE DONE ELTCNT) NORM (FORMAT
 SHAPE) SWEEP (AELTTYPE ELEMENTBLOCK NELTS) SWEEP.SLTR (SHAPE AELTTYPE NELTS) SWEEPER (AELTTYPE FORMAT
 SHAPE NELTS REFCOUNT) SWEEP.COMPOSE NIL SWEEP.UNDOPERM (NELTS SHAPE) NIL
REPLACE INVERT NIL MPROD (SHAPE) NORM (NELTS INIT) SWEEP NIL SWEEP.SLTR NIL SWEEPER NIL SWEEP.COMPOSE 
NIL SWEEP.UNDOPERM NIL NIL
REFFREE INVERT NIL MPROD NIL NORM NIL SWEEP NIL SWEEP.SLTR NIL SWEEPER NIL SWEEP.COMPOSE NIL 
SWEEP.UNDOPERM NIL NIL
REF INVERT (UARG VALUE) MPROD (A B SA SB C AX BX SAX SBX MPTYPE MP AXROW AXROWGSB BXGSB MPGSB NCOLS) 
NORM (M VALUE GENORDER ASHAPE MIN DIAG NORM VM TM) SWEEP (UARG VALUE TM) SWEEP.SLTR (M VALUE SV MAXV V
) SWEEPER (S IO VALUE SHP R C PR BL V) SWEEP.COMPOSE (HEAD) SWEEP.UNDOPERM (S PR PC VALUE N SHP NR NC)
 NIL
SETFREE INVERT NIL MPROD NIL NORM NIL SWEEP NIL SWEEP.SLTR NIL SWEEPER NIL SWEEP.COMPOSE NIL 
SWEEP.UNDOPERM NIL NIL
SET INVERT (M S P) MPROD (ROW COL AELT BELT TOT) NORM (I ELT L SEL J DIAGI) SWEEP (M S OUTVARS INVARS 
I) SWEEP.SLTR (I) SWEEPER (PC K X Y PRI PIV P Q MAXPIV J I PFLG PTR) SWEEP.COMPOSE (I) SWEEP.UNDOPERM 
(I J) NIL
SMASHFREE INVERT NIL MPROD NIL NORM NIL SWEEP NIL SWEEP.SLTR NIL SWEEPER NIL SWEEP.COMPOSE NIL 
SWEEP.UNDOPERM NIL NIL
SMASH INVERT NIL MPROD NIL NORM (SEL) SWEEP NIL SWEEP.SLTR NIL SWEEPER NIL SWEEP.COMPOSE NIL 
SWEEP.UNDOPERM NIL NIL
PROP INVERT NIL MPROD NIL NORM NIL SWEEP NIL SWEEP.SLTR NIL SWEEPER NIL SWEEP.COMPOSE NIL 
SWEEP.UNDOPERM NIL NIL
TEST INVERT (P GSB) MPROD (AELT BELT) NORM (SEL I ELT J GSBNORM GSBVM) SWEEP (OUTVARS INVARS I OV IV 
SWT COVART OL IL) SWEEP.SLTR (SLTR I) SWEEPER (SYM K X Y PTR I PRI P Q J PFLG) SWEEP.COMPOSE (CL AL IL
 OL VALUE V I) SWEEP.UNDOPERM (I) NIL
TESTFREE INVERT NIL MPROD (LABPROPFLAG) NORM (LABPROPFLAG) SWEEP (LABPROPFLAG) SWEEP.SLTR NIL SWEEPER 
NIL SWEEP.COMPOSE NIL SWEEP.UNDOPERM NIL NIL
PREDICATE INVERT NIL MPROD NIL NORM NIL SWEEP NIL SWEEP.SLTR (ARRAYTYPEP ROWTYPEP FIXP IGEQ IGREATERP 
UERRORPRINT?) SWEEPER (ARRAYTYPEP FLOATP EQP ROWTYPEP TYPENAMEP SELECTQ FIXP IGREATERP GREATERP 
UERRORPRINT?) SWEEP.COMPOSE (STRINGP FMEMB) SWEEP.UNDOPERM (TYPENAMEP ROWTYPEP IGREATERP EQP 
ARRAYTYPEP FIXP) NIL
EFFECT INVERT (DECLARE) MPROD (DECLARE) NORM (DECLARE) SWEEP (DECLARE) SWEEP.SLTR (PRIN1 TERPRI) 
SWEEPER (SETRELT PRINTOUT TERPRI) SWEEP.COMPOSE (FRPLACD) SWEEP.UNDOPERM (SETRELT) NIL
CLISP INVERT (ULAMBDA DPROG printout the type? bind until do) MPROD (ULAMBDA DLAMBDA the DPROG 
printout bind declare for to do until finally) NORM (ULAMBDA DLAMBDA the DPROG for to do DPROGN from 
declare) SWEEP (ULAMBDA DPROG printout type? the for to declare collect DPROGN) SWEEP.SLTR (DLAMBDA 
the DPROG for to when do printout) SWEEPER (DLAMBDA the DPROG for to do from declare finally unless) 
SWEEP.COMPOSE (DLAMBDA the for in collect unless) SWEEP.UNDOPERM (DLAMBDA for to always thereis the 
DPROG do) NIL
SPECVARS INVERT (M) MPROD (A B) NORM (M) SWEEP (M OUTVARS INVARS) SWEEP.SLTR NIL SWEEPER NIL 
SWEEP.COMPOSE NIL SWEEP.UNDOPERM NIL NIL
LOCALVARS INVERT (T) MPROD NIL NORM NIL SWEEP (T) SWEEP.SLTR NIL SWEEPER NIL SWEEP.COMPOSE NIL 
SWEEP.UNDOPERM NIL NIL
APPLY INVERT (DECLARE UENTRY CONV.ARRAY ARRAYTYPEP UERROR UERRORPRINT? PRIN1 PRIN2 TERPRI UERROR! UARG
 COPYIDLARRAY HASNILS SWEEPER SWEEP.SLTR SETUP NEXT SETAELT FMINUS GETAELT SETTITLE MAKETITLE) MPROD (
DECLARE UENTRY ARRAYTYPEP ROWTYPEP GETRELT FIXP CONV.SIMARRAY ROWINTOF SELECTQ ALLOC.SARRAY UERROR 
UERRORPRINT? PRIN1 TERPRI UERROR! FSELECT ROWPTROF SETUP IGEQ TYPENAMEP IGREATERP RESETUP 
ADJUST.SELECTION NUMBERP SETAELT NEXT GETAELT IPLUS ITIMES SKIP FLOATP FPLUS FTIMES SHOULDNT 
LAB.COPYDIM SETTITLE MAKETITLE) NORM (DECLARE UENTRY ARRAYTYPEP SELECTQ ROWTYPEP IMIN GETRELT FIXP 
GREATERP GETAELT AELTPTR2 PLUS SETRELT SQRT DIFFERENCE ALLOC.SARRAY ROWINTOF FSELECT VFROMR TYPENAMEP 
SETUP FLOATP SETAELT NEXT FQUOTIENT FTIMES LAB.COPYDIMS SETTITLE GETTITLE STRINGP CONS LIST MAKETITLE)
 SWEEP (DECLARE UENTRY CONV.ARRAY ARRAYTYPEP UERROR UERRORPRINT? PRIN1 PRIN2 TERPRI UERROR! UARG 
COPYIDLARRAY HASNILS SWEEPER SWEEP.SLTR ROWTYPEP IGREATERP GETLEVLAB GETRELT FRPLACD LIST IPLUS 
GETTITLE STRINGP SELECTQ SETTITLE MAKETITLE CONS SWEEP.COMPOSE) SWEEP.SLTR NIL SWEEPER NIL 
SWEEP.COMPOSE NIL SWEEP.UNDOPERM NIL NIL
ERROR INVERT NIL MPROD NIL NORM NIL SWEEP NIL SWEEP.SLTR NIL SWEEPER NIL SWEEP.COMPOSE NIL 
SWEEP.UNDOPERM NIL NIL
LOCALFREEVARS INVERT NIL MPROD NIL NORM NIL SWEEP NIL SWEEP.SLTR NIL SWEEPER NIL SWEEP.COMPOSE NIL 
SWEEP.UNDOPERM NIL NIL
ARGS INVERT NIL MPROD NIL NORM NIL SWEEP NIL SWEEP.SLTR NIL SWEEPER NIL SWEEP.COMPOSE NIL 
SWEEP.UNDOPERM NIL NIL
USERTEMPLATES OP# (CALL) SPREADAPPLY (CALL FUNCTIONAL EVAL . PPE) UENTRY (CALL NIL .. EVAL RETURN) 
perform (MACRO ARGS (PERFORMTRAN ARGS T)) SPREADAPPLY* (CALL FUNCTIONAL .. EVAL) PERFORM (MACRO ARGS (
PERFORMTRAN ARGS T)) SHAZAM (CALL .. NIL) UERRORGUARD MACRO UERROR MACRO UERRORSET MACRO SETQ.NOREF (
CALL SET EVAL . PPE) NIL
0 INVERT (MATRIX SIMARRAY NIL) MPROD (MATRIX VECTOR ANY ROWINT INTEGER SIMARRAY SELARRAY NIL IJK 
GENSTATEBLOCK SCALAR FIXP FLOATP) NORM (MATRIX ROWINT INTEGER ROWFLOAT NIL ARRAY FLOATING TITLE) SWEEP
 (ANY MATRIX NIL SIMARRAY ROWINT LST TITLE BOOL) SWEEP.SLTR (MATRIX NIL ROWINT TTELT INTEGER) SWEEPER 
(MATRIX FLOATING ROWINT ARRAY BOOL INTEGER NIL) SWEEP.COMPOSE (STRINGP LST NIL) SWEEP.UNDOPERM (ARRAY 
ROWINT SELARRAY INTEGER NIL) NIL

)