Common Lisp Package: HOMPACK

README:

FUNCTION

Private

Undocumented

DCPOSE (NDIM N QR ALPHA PIVOT IERR Y SUM)

DIVP (XXXX YYYY ZZZZ IERR)

F (X V)

FFUNP (N NUMT MMAXT KDEG COEF CL X XX TRM DTRM CLX DXNP1 F DF)

FIXPDF (N Y IFLAG ARCTOL EPS TRACE$ A NDIMA NFE ARCLEN YP YPOLD QR ALPHA TZ PIVOT WT PHI P PAR IPAR)

FIXPDS (N Y IFLAG ARCTOL EPS TRACE$ A NDIMA NFE ARCLEN YP YPOLD QR LENQR PIVOT PP WORK WT PHI P PAR IPAR)

FIXPNF (N Y IFLAG ARCRE ARCAE ANSRE ANSAE TRACE$ A NFE ARCLEN YP YOLD YPOLD QR ALPHA TZ PIVOT W WP Z0 Z1 SSPAR PAR IPAR)

FIXPNS (N Y IFLAG ARCRE ARCAE ANSRE ANSAE TRACE$ A NFE ARCLEN YP YOLD YPOLD QR LENQR PIVOT WORK SSPAR PAR IPAR)

FIXPQF (N Y IFLAG ARCRE ARCAE ANSRE ANSAE TRACE$ A NFE ARCLEN YP YOLD YPOLD QT R F0 F1 Z0 DZ W T$ YSAV SSPAR PAR IPAR)

FIXPQS (N Y IFLAG ARCRE ARCAE ANSRE ANSAE TRACE$ A NFE ARCLEN YP YOLD YPOLD QR LENQR PIVOT PP RHOVEC Z0 DZ T$ WORK SSPAR PAR IPAR)

FJAC (X V K)

FJACS (X QR LENQR PIVOT)

FODE (S Y YP YPOLD A QR ALPHA TZ PIVOT NFE N IFLAG PAR IPAR)

FODEDS (S Y YP YPOLD A QR LENQR PIVOT PP WORK NFE N IFLAG PAR IPAR)

GFUNP (N IDEG PDG QDG X XDGM1 XDG PXDGM1 PXDG G DG)

GMFADS (NN A NWK MAXA)

HFUN1P (QDG LAMBDA$ X PDG CL COEF RHO DRHOX DRHOL XDGM1 XDG G DG PXDGM1 PXDG F DF XX TRM DTRM CLX DXNP1 N MMAXT IDEG NUMT KDEG)

HFUNP (QDG LAMBDA$ X PAR IPAR)

INITP (IFLG1 N NUMT KDEG COEF NN MMAXT PAR IPAR IDEG FACV CL PDG QDG R)

MFACDS (NN Q LENAA MAXA)

MULP (XXXX YYYY ZZZZ)

MULTDS (Y AA X MAXA NN LENAA)

OTPUTP (N NUMPAT CL FACV CLX X XNP1)

PCGDS (NN AA LENAA MAXA PP START WORK IFLAG)

PCGNS (NN AA LENAA MAXA PP RHO START WORK IFLAG)

PCGQS (NN AA LENAA MAXA PP YP RHO START WORK IFLAG)

POLSYS (N NUMT COEF KDEG IFLG1 IFLG2 EPSBIG EPSSML SSPAR NUMRR NN MMAXT TTOTDG LENWK LENIWK LAMBDA$ ROOTS ARCLEN NFE WK IWK)

POLYNF (N Y IFLAG ARCRE ARCAE ANSRE ANSAE TRACE$ A NFE ARCLEN YP YOLD YPOLD QR ALPHA TZ PIVOT W WP Z0 Z1 SSPAR PAR IPAR)

POLYP (N NUMT COEF KDEG IFLG1 IFLG2 EPSBIG EPSSML NUMRR NN MMAXT TTOTDG LAMBDA$ ROOTS ARCLEN NFE TOTDG PDG QDG R FACV CL Y YP YOLD YPOLD QR ALPHA TZ W WP Z0 Z1 SSPAR PAR IDEG ICOUNT PIVOT IPAR)

POWP (NNNN XXXX YYYY)

QIMUDS (Q F MAXA NN LENAA)

QRFAQF (QT R N IFLAG)

QRSLQF (QT R B X N)

R1UPQF (N S T$ QT R W)

RHO (A LAMBDA$ X V PAR IPAR)

RHOA (A LAMBDA$ X PAR IPAR)

RHOJAC (A LAMBDA$ X V K PAR IPAR)

RHOJS (A LAMBDA$ X QR LENQR PIVOT PP PAR IPAR)

ROOT (T$ FT B C RELERR ABSERR IFLAG)

ROOTNF (N NFE IFLAG RELERR ABSERR Y YP YOLD YPOLD A QR ALPHA TZ PIVOT W WP PAR IPAR)

ROOTNS (N NFE IFLAG RELERR ABSERR Y YP YOLD YPOLD A QR LENQR PIVOT WORK PAR IPAR)

ROOTQF (N NFE IFLAG RELERR ABSERR Y YP YOLD YPOLD A QT R DZ Z W T$ F0 F1 PAR IPAR)

ROOTQS (N NFE IFLAG LENQR RELERR ABSERR Y YP YOLD YPOLD A QR PIVOT PP RHOVEC Z DZ WORK PAR IPAR)

SCLGNP (N NN MMAXT NUMT DEG MODE EPS0 COEF NNUMT DDEG CCOEF ALPHA BETA RWORK XWORK FACV FACE COESCL IERR)

SINTRP (X Y XOUT YOUT YPOUT NEQN KOLD PHI IVC IV KGI GI ALPHA G W XOLD P)

SOLVDS (NN A NWK MAXA V)

STEPDS (F NEQN Y X H EPS WT START HOLD K KOLD CRASH PHI P YP ALPHA W G KSTEPS XOLD IVC IV KGI GI FPWA1 FPWA2 FPWA3 IFPC1 IFPWA1 FPWA4 FPWA5 IFPC2 IFPC3 PAR IPAR)

STEPNF (N NFE IFLAG START CRASH HOLD H RELERR ABSERR S Y YP YOLD YPOLD A QR ALPHA TZ PIVOT W WP Z0 Z1 SSPAR PAR IPAR)

STEPNS (N NFE IFLAG START CRASH HOLD H RELERR ABSERR S Y YP YOLD YPOLD A QR LENQR PIVOT WORK SSPAR PAR IPAR)

STEPQF (N NFE IFLAG START CRASH HOLD H WK RELERR ABSERR S Y YP YOLD YPOLD A QT R F0 F1 Z0 DZ W T$ SSPAR PAR IPAR)

STEPQS (N NFE IFLAG LENQR START CRASH HOLD H WK RELERR ABSERR S Y YP YOLD YPOLD A QR PIVOT PP RHOVEC Z0 DZ T$ WORK SSPAR PAR IPAR)

STEPS (F NEQN Y X H EPS WT START HOLD K KOLD CRASH PHI P YP ALPHA W G KSTEPS XOLD IVC IV KGI GI FPWA1 FPWA2 FPWA3 FPWA4 FPWA5 IFPWA1 IFPC1 IFPC2 PAR IPAR)

STRPTP (N ICOUNT IDEG R X)

TANGNF (RHOLEN Y YP YPOLD A QR ALPHA TZ PIVOT NFE N IFLAG PAR IPAR)

TANGNS (RHOLEN Y YP TZ YPOLD A QR LENQR PIVOT PP RHOVEC WORK NFE N IFLAG PAR IPAR)

TANGQF (Y YP YPOLD A QT R W S T$ N IFLAG NFE PAR IPAR)

TANGQS (Y YP YPOLD A QR PIVOT PP RHOVEC WORK N LENQR IFLAG NFE PAR IPAR)

UPQRQF (N ETA S F0 F1 QT R W T$)