/src/bindings/lapack02-cffi.lisp

https://github.com/rigetti/magicl · Lisp · 14087 lines · 13582 code · 503 blank · 2 comment · 0 complexity · c9e0dbc864c9cb4c49da22fb2a2ce553 MD5 · raw file 

    

  1. ;;;; Generated on 3/22/2021 at 17:54:19 (UTC-8).
    2. 

  2. 

  3. (COMMON-LISP:DECLAIM
    4. 

  4.  (COMMON-LISP:OPTIMIZE (COMMON-LISP:SPEED 0) COMMON-LISP:SAFETY
    5. 

  5.   COMMON-LISP:DEBUG COMMON-LISP:COMPILATION-SPEED))
    6. 

  6. 

  7. (COMMON-LISP:IN-PACKAGE #:MAGICL.LAPACK-CFFI)
    8. 

  8. 

  9. (COMMON-LISP:DECLAIM
    10. 

  10.  (COMMON-LISP:INLINE %%DGBBRD %DGBBRD %%DGBCON %DGBCON %%DGBEQU %DGBEQU
    11. 

  11.   %%DGBEQUB %DGBEQUB %%DGBRFS %DGBRFS %%DGBRFSX %DGBRFSX %%DGBSV %DGBSV
    12. 

  12.   %%DGBSVX %DGBSVX %%DGBSVXX %DGBSVXX %%DGBTF2 %DGBTF2 %%DGBTRF %DGBTRF
    13. 

  13.   %%DGBTRS %DGBTRS %%DGEBAK %DGEBAK %%DGEBAL %DGEBAL %%DGEBD2 %DGEBD2 %%DGEBRD
    14. 

  14.   %DGEBRD %%DGECON %DGECON %%DGEEQU %DGEEQU %%DGEEQUB %DGEEQUB %%DGEES %DGEES
    15. 

  15.   %%DGEESX %DGEESX %%DGEEV %DGEEV %%DGEEVX %DGEEVX %%DGEHD2 %DGEHD2 %%DGEHRD
    16. 

  16.   %DGEHRD %%DGEJSV %DGEJSV %%DGELQ %DGELQ %%DGELQ2 %DGELQ2 %%DGELQF %DGELQF
    17. 

  17.   %%DGELQT %DGELQT %%DGELQT3 %DGELQT3 %%DGELS %DGELS %%DGELSD %DGELSD %%DGELSS
    18. 

  18.   %DGELSS %%DGELSY %DGELSY %%DGEMLQ %DGEMLQ %%DGEMLQT %DGEMLQT %%DGEMQR %DGEMQR
    19. 

  19.   %%DGEMQRT %DGEMQRT %%DGEQL2 %DGEQL2 %%DGEQLF %DGEQLF %%DGEQP3 %DGEQP3 %%DGEQR
    20. 

  20.   %DGEQR %%DGEQR2 %DGEQR2 %%DGEQR2P %DGEQR2P %%DGEQRF %DGEQRF %%DGEQRFP
    21. 

  21.   %DGEQRFP %%DGEQRT %DGEQRT %%DGEQRT2 %DGEQRT2 %%DGEQRT3 %DGEQRT3 %%DGERFS
    22. 

  22.   %DGERFS %%DGERFSX %DGERFSX %%DGERQ2 %DGERQ2 %%DGERQF %DGERQF %%DGESC2 %DGESC2
    23. 

  23.   %%DGESDD %DGESDD %%DGESV %DGESV %%DGESVD %DGESVD %%DGESVDQ %DGESVDQ %%DGESVDX
    24. 

  24.   %DGESVDX %%DGESVJ %DGESVJ %%DGESVX %DGESVX %%DGESVXX %DGESVXX %%DGETC2
    25. 

  25.   %DGETC2 %%DGETF2 %DGETF2 %%DGETRF %DGETRF %%DGETRF2 %DGETRF2 %%DGETRI %DGETRI
    26. 

  26.   %%DGETRS %DGETRS %%DGETSLS %DGETSLS %%DGGBAK %DGGBAK %%DGGBAL %DGGBAL %%DGGES
    27. 

  27.   %DGGES %%DGGES3 %DGGES3 %%DGGESX %DGGESX %%DGGEV %DGGEV %%DGGEV3 %DGGEV3
    28. 

  28.   %%DGGEVX %DGGEVX %%DGGGLM %DGGGLM %%DGGHD3 %DGGHD3 %%DGGHRD %DGGHRD %%DGGLSE
    29. 

  29.   %DGGLSE %%DGGQRF %DGGQRF %%DGGRQF %DGGRQF %%DGGSVD3 %DGGSVD3 %%DGGSVP3
    30. 

  30.   %DGGSVP3 %%DGSVJ0 %DGSVJ0 %%DGSVJ1 %DGSVJ1 %%DGTCON %DGTCON %%DGTRFS %DGTRFS
    31. 

  31.   %%DGTSV %DGTSV %%DGTSVX %DGTSVX %%DGTTRF %DGTTRF %%DGTTRS %DGTTRS %%DGTTS2
    32. 

  32.   %DGTTS2 %%DHGEQZ %DHGEQZ %%DHSEIN %DHSEIN %%DHSEQR %DHSEQR %%DISNAN %DISNAN
    33. 

  33.   %%DLA_GBAMV %DLA_GBAMV %%DLA_GBRCOND %DLA_GBRCOND %%DLA_GBRFSX_EXTENDED
    34. 

  34.   %DLA_GBRFSX_EXTENDED %%DLA_GBRPVGRW %DLA_GBRPVGRW %%DLA_GEAMV %DLA_GEAMV
    35. 

  35.   %%DLA_GERCOND %DLA_GERCOND %%DLA_GERFSX_EXTENDED %DLA_GERFSX_EXTENDED
    36. 

  36.   %%DLA_GERPVGRW %DLA_GERPVGRW %%DLA_LIN_BERR %DLA_LIN_BERR %%DLA_PORCOND
    37. 

  37.   %DLA_PORCOND %%DLA_PORFSX_EXTENDED %DLA_PORFSX_EXTENDED %%DLA_PORPVGRW
    38. 

  38.   %DLA_PORPVGRW %%DLA_SYAMV %DLA_SYAMV %%DLA_SYRCOND %DLA_SYRCOND
    39. 

  39.   %%DLA_SYRFSX_EXTENDED %DLA_SYRFSX_EXTENDED %%DLA_SYRPVGRW %DLA_SYRPVGRW
    40. 

  40.   %%DLA_WWADDW %DLA_WWADDW %%DLABAD %DLABAD %%DLABRD %DLABRD %%DLACN2 %DLACN2
    41. 

  41.   %%DLACON %DLACON %%DLACPY %DLACPY %%DLADIV %DLADIV %%DLAE2 %DLAE2 %%DLAEBZ
    42. 

  42.   %DLAEBZ %%DLAED0 %DLAED0 %%DLAED1 %DLAED1 %%DLAED2 %DLAED2 %%DLAED3 %DLAED3
    43. 

  43.   %%DLAED4 %DLAED4 %%DLAED5 %DLAED5 %%DLAED6 %DLAED6 %%DLAED7 %DLAED7 %%DLAED8
    44. 

  44.   %DLAED8 %%DLAED9 %DLAED9 %%DLAEDA %DLAEDA %%DLAEIN %DLAEIN %%DLAEV2 %DLAEV2
    45. 

  45.   %%DLAEXC %DLAEXC %%DLAG2 %DLAG2 %%DLAG2S %DLAG2S %%DLAGS2 %DLAGS2 %%DLAGTF
    46. 

  46.   %DLAGTF %%DLAGTM %DLAGTM %%DLAGTS %DLAGTS %%DLAGV2 %DLAGV2 %%DLAHQR %DLAHQR
    47. 

  47.   %%DLAHR2 %DLAHR2 %%DLAIC1 %DLAIC1 %%DLAISNAN %DLAISNAN %%DLALN2 %DLALN2
    48. 

  48.   %%DLALS0 %DLALS0 %%DLALSA %DLALSA %%DLALSD %DLALSD %%DLAMRG %DLAMRG
    49. 

  49.   %%DLAMSWLQ %DLAMSWLQ %%DLAMTSQR %DLAMTSQR %%DLANEG %DLANEG %%DLANGB %DLANGB
    50. 

  50.   %%DLANGE %DLANGE %%DLANGT %DLANGT %%DLANHS %DLANHS %%DLANSB %DLANSB %%DLANSF
    51. 

  51.   %DLANSF %%DLANSP %DLANSP %%DLANST %DLANST %%DLANSY %DLANSY %%DLANTB %DLANTB
    52. 

  52.   %%DLANTP %DLANTP %%DLANTR %DLANTR %%DLANV2 %DLANV2 %%DLAORHR_COL_GETRFNP
    53. 

  53.   %DLAORHR_COL_GETRFNP %%DLAORHR_COL_GETRFNP2 %DLAORHR_COL_GETRFNP2 %%DLAPLL
    54. 

  54.   %DLAPLL %%DLAPMR %DLAPMR %%DLAPMT %DLAPMT %%DLAPY2 %DLAPY2 %%DLAPY3 %DLAPY3
    55. 

  55.   %%DLAQGB %DLAQGB %%DLAQGE %DLAQGE %%DLAQP2 %DLAQP2 %%DLAQPS %DLAQPS %%DLAQR0
    56. 

  56.   %DLAQR0 %%DLAQR1 %DLAQR1 %%DLAQR2 %DLAQR2 %%DLAQR3 %DLAQR3 %%DLAQR4 %DLAQR4
    57. 

  57.   %%DLAQR5 %DLAQR5 %%DLAQSB %DLAQSB %%DLAQSP %DLAQSP %%DLAQSY %DLAQSY %%DLAQTR
    58. 

  58.   %DLAQTR %%DLAR1V %DLAR1V %%DLAR2V %DLAR2V %%DLARF %DLARF %%DLARFB %DLARFB
    59. 

  59.   %%DLARFG %DLARFG %%DLARFGP %DLARFGP %%DLARFT %DLARFT %%DLARFX %DLARFX
    60. 

  60.   %%DLARFY %DLARFY %%DLARGV %DLARGV %%DLARNV %DLARNV %%DLARRA %DLARRA %%DLARRB
    61. 

  61.   %DLARRB %%DLARRC %DLARRC %%DLARRD %DLARRD %%DLARRE %DLARRE %%DLARRF %DLARRF
    62. 

  62.   %%DLARRJ %DLARRJ %%DLARRK %DLARRK %%DLARRR %DLARRR %%DLARRV %DLARRV
    63. 

  63.   %%DLARSCL2 %DLARSCL2 %%DLARTG %DLARTG %%DLARTGP %DLARTGP %%DLARTGS %DLARTGS
    64. 

  64.   %%DLARTV %DLARTV %%DLARUV %DLARUV %%DLARZ %DLARZ %%DLARZB %DLARZB %%DLARZT
    65. 

  65.   %DLARZT %%DLAS2 %DLAS2 %%DLASCL %DLASCL %%DLASCL2 %DLASCL2 %%DLASD0 %DLASD0
    66. 

  66.   %%DLASD1 %DLASD1 %%DLASD2 %DLASD2 %%DLASD3 %DLASD3 %%DLASD4 %DLASD4 %%DLASD5
    67. 

  67.   %DLASD5 %%DLASD6 %DLASD6 %%DLASD7 %DLASD7 %%DLASD8 %DLASD8 %%DLASDA %DLASDA
    68. 

  68.   %%DLASDQ %DLASDQ %%DLASDT %DLASDT %%DLASET %DLASET %%DLASQ1 %DLASQ1 %%DLASQ2
    69. 

  69.   %DLASQ2 %%DLASQ3 %DLASQ3 %%DLASQ4 %DLASQ4 %%DLASQ5 %DLASQ5 %%DLASQ6 %DLASQ6
    70. 

  70.   %%DLASR %DLASR %%DLASRT %DLASRT %%DLASSQ %DLASSQ %%DLASV2 %DLASV2 %%DLASWLQ
    71. 

  71.   %DLASWLQ))
    72. 

  72. 

  73. (CFFI:DEFCFUN ("dgbbrd_" %%DGBBRD :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    74. 

  74.     :VOID
    75. 

  75.   (VECT :STRING)
    76. 

  76.   (M :POINTER)
    77. 

  77.   (N :POINTER)
    78. 

  78.   (NCC :POINTER)
    79. 

  79.   (KL :POINTER)
    80. 

  80.   (KU :POINTER)
    81. 

  81.   (AB :POINTER)
    82. 

  82.   (LDAB :POINTER)
    83. 

  83.   (D :POINTER)
    84. 

  84.   (E :POINTER)
    85. 

  85.   (Q :POINTER)
    86. 

  86.   (LDQ :POINTER)
    87. 

  87.   (PT :POINTER)
    88. 

  88.   (LDPT :POINTER)
    89. 

  89.   (C :POINTER)
    90. 

  90.   (LDC :POINTER)
    91. 

  91.   (WORK :POINTER)
    92. 

  92.   (INFO :POINTER))
    93. 

  93. 

  94. (COMMON-LISP:DEFUN %DGBBRD
    95. 

  95.                    (VECT M N NCC KL KU AB LDAB D E Q LDQ PT LDPT C LDC WORK
    96. 

  96.                     INFO)
    97. 

  97.   (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGBBRD)
    98. 

  98.                        (COMMON-LISP:TYPE COMMON-LISP:STRING VECT)
    99. 

  99.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
    100. 

  100.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
    101. 

  101.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NCC)
    102. 

  102.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KL)
    103. 

  103.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KU)
    104. 

  104.                        (COMMON-LISP:TYPE
    105. 

  105.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AB)
    106. 

  106.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
    107. 

  107.                        (COMMON-LISP:TYPE
    108. 

  108.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
    109. 

  109.                        (COMMON-LISP:TYPE
    110. 

  110.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) E)
    111. 

  111.                        (COMMON-LISP:TYPE
    112. 

  112.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Q)
    113. 

  113.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ)
    114. 

  114.                        (COMMON-LISP:TYPE
    115. 

  115.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) PT)
    116. 

  116.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDPT)
    117. 

  117.                        (COMMON-LISP:TYPE
    118. 

  118.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
    119. 

  119.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
    120. 

  120.                        (COMMON-LISP:TYPE
    121. 

  121.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    122. 

  122.                         WORK)
    123. 

  123.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
    124. 

  124.   (CFFI:WITH-FOREIGN-OBJECTS ((M-REF5837 ':INT32) (N-REF5838 ':INT32)
    125. 

  125.                               (NCC-REF5839 ':INT32) (KL-REF5840 ':INT32)
    126. 

  126.                               (KU-REF5841 ':INT32) (LDAB-REF5843 ':INT32)
    127. 

  127.                               (LDQ-REF5847 ':INT32) (LDPT-REF5849 ':INT32)
    128. 

  128.                               (LDC-REF5851 ':INT32) (INFO-REF5853 ':INT32))
    129. 

  129.     (COMMON-LISP:SETF (CFFI:MEM-REF M-REF5837 :INT32) M)
    130. 

  130.     (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5838 :INT32) N)
    131. 

  131.     (COMMON-LISP:SETF (CFFI:MEM-REF NCC-REF5839 :INT32) NCC)
    132. 

  132.     (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF5840 :INT32) KL)
    133. 

  133.     (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF5841 :INT32) KU)
    134. 

  134.     (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF5843 :INT32) LDAB)
    135. 

  135.     (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF5847 :INT32) LDQ)
    136. 

  136.     (COMMON-LISP:SETF (CFFI:MEM-REF LDPT-REF5849 :INT32) LDPT)
    137. 

  137.     (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF5851 :INT32) LDC)
    138. 

  138.     (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5853 :INT32) INFO)
    139. 

  139.     (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF5842 AB) (D-REF5844 D)
    140. 

  140.                                             (E-REF5845 E) (Q-REF5846 Q)
    141. 

  141.                                             (PT-REF5848 PT) (C-REF5850 C)
    142. 

  142.                                             (WORK-REF5852 WORK))
    143. 

  143.       (%%DGBBRD VECT M-REF5837 N-REF5838 NCC-REF5839 KL-REF5840 KU-REF5841
    144. 

  144.        AB-REF5842 LDAB-REF5843 D-REF5844 E-REF5845 Q-REF5846 LDQ-REF5847
    145. 

  145.        PT-REF5848 LDPT-REF5849 C-REF5850 LDC-REF5851 WORK-REF5852
    146. 

  146.        INFO-REF5853))))
    147. 

  147. 

  148. (CFFI:DEFCFUN ("dgbcon_" %%DGBCON :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    149. 

  149.     :VOID
    150. 

  150.   (NORM :STRING)
    151. 

  151.   (N :POINTER)
    152. 

  152.   (KL :POINTER)
    153. 

  153.   (KU :POINTER)
    154. 

  154.   (AB :POINTER)
    155. 

  155.   (LDAB :POINTER)
    156. 

  156.   (IPIV :POINTER)
    157. 

  157.   (ANORM :POINTER)
    158. 

  158.   (RCOND :POINTER)
    159. 

  159.   (WORK :POINTER)
    160. 

  160.   (IWORK :POINTER)
    161. 

  161.   (INFO :POINTER))
    162. 

  162. 

  163. (COMMON-LISP:DEFUN %DGBCON
    164. 

  164.                    (NORM N KL KU AB LDAB IPIV ANORM RCOND WORK IWORK INFO)
    165. 

  165.   (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGBCON)
    166. 

  166.                        (COMMON-LISP:TYPE COMMON-LISP:STRING NORM)
    167. 

  167.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
    168. 

  168.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KL)
    169. 

  169.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KU)
    170. 

  170.                        (COMMON-LISP:TYPE
    171. 

  171.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AB)
    172. 

  172.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
    173. 

  173.                        (COMMON-LISP:TYPE
    174. 

  174.                         (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
    175. 

  175.                          (COMMON-LISP:*))
    176. 

  176.                         IPIV)
    177. 

  177.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ANORM)
    178. 

  178.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RCOND)
    179. 

  179.                        (COMMON-LISP:TYPE
    180. 

  180.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    181. 

  181.                         WORK)
    182. 

  182.                        (COMMON-LISP:TYPE
    183. 

  183.                         (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
    184. 

  184.                          (COMMON-LISP:*))
    185. 

  185.                         IWORK)
    186. 

  186.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
    187. 

  187.   (CFFI:WITH-FOREIGN-OBJECTS ((N-REF5855 ':INT32) (KL-REF5856 ':INT32)
    188. 

  188.                               (KU-REF5857 ':INT32) (LDAB-REF5859 ':INT32)
    189. 

  189.                               (ANORM-REF5861 ':DOUBLE) (RCOND-REF5862 ':DOUBLE)
    190. 

  190.                               (INFO-REF5865 ':INT32))
    191. 

  191.     (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5855 :INT32) N)
    192. 

  192.     (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF5856 :INT32) KL)
    193. 

  193.     (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF5857 :INT32) KU)
    194. 

  194.     (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF5859 :INT32) LDAB)
    195. 

  195.     (COMMON-LISP:SETF (CFFI:MEM-REF ANORM-REF5861 :DOUBLE) ANORM)
    196. 

  196.     (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF5862 :DOUBLE) RCOND)
    197. 

  197.     (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5865 :INT32) INFO)
    198. 

  198.     (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF5858 AB) (IPIV-REF5860 IPIV)
    199. 

  199.                                             (WORK-REF5863 WORK)
    200. 

  200.                                             (IWORK-REF5864 IWORK))
    201. 

  201.       (%%DGBCON NORM N-REF5855 KL-REF5856 KU-REF5857 AB-REF5858 LDAB-REF5859
    202. 

  202.        IPIV-REF5860 ANORM-REF5861 RCOND-REF5862 WORK-REF5863 IWORK-REF5864
    203. 

  203.        INFO-REF5865))))
    204. 

  204. 

  205. (CFFI:DEFCFUN ("dgbequ_" %%DGBEQU :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    206. 

  206.     :VOID
    207. 

  207.   (M :POINTER)
    208. 

  208.   (N :POINTER)
    209. 

  209.   (KL :POINTER)
    210. 

  210.   (KU :POINTER)
    211. 

  211.   (AB :POINTER)
    212. 

  212.   (LDAB :POINTER)
    213. 

  213.   (R :POINTER)
    214. 

  214.   (C :POINTER)
    215. 

  215.   (ROWCND :POINTER)
    216. 

  216.   (COLCND :POINTER)
    217. 

  217.   (AMAX :POINTER)
    218. 

  218.   (INFO :POINTER))
    219. 

  219. 

  220. (COMMON-LISP:DEFUN %DGBEQU (M N KL KU AB LDAB R C ROWCND COLCND AMAX INFO)
    221. 

  221.   (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGBEQU)
    222. 

  222.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
    223. 

  223.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
    224. 

  224.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KL)
    225. 

  225.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KU)
    226. 

  226.                        (COMMON-LISP:TYPE
    227. 

  227.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AB)
    228. 

  228.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
    229. 

  229.                        (COMMON-LISP:TYPE
    230. 

  230.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) R)
    231. 

  231.                        (COMMON-LISP:TYPE
    232. 

  232.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
    233. 

  233.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ROWCND)
    234. 

  234.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT COLCND)
    235. 

  235.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT AMAX)
    236. 

  236.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
    237. 

  237.   (CFFI:WITH-FOREIGN-OBJECTS ((M-REF5866 ':INT32) (N-REF5867 ':INT32)
    238. 

  238.                               (KL-REF5868 ':INT32) (KU-REF5869 ':INT32)
    239. 

  239.                               (LDAB-REF5871 ':INT32) (ROWCND-REF5874 ':DOUBLE)
    240. 

  240.                               (COLCND-REF5875 ':DOUBLE) (AMAX-REF5876 ':DOUBLE)
    241. 

  241.                               (INFO-REF5877 ':INT32))
    242. 

  242.     (COMMON-LISP:SETF (CFFI:MEM-REF M-REF5866 :INT32) M)
    243. 

  243.     (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5867 :INT32) N)
    244. 

  244.     (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF5868 :INT32) KL)
    245. 

  245.     (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF5869 :INT32) KU)
    246. 

  246.     (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF5871 :INT32) LDAB)
    247. 

  247.     (COMMON-LISP:SETF (CFFI:MEM-REF ROWCND-REF5874 :DOUBLE) ROWCND)
    248. 

  248.     (COMMON-LISP:SETF (CFFI:MEM-REF COLCND-REF5875 :DOUBLE) COLCND)
    249. 

  249.     (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF5876 :DOUBLE) AMAX)
    250. 

  250.     (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5877 :INT32) INFO)
    251. 

  251.     (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF5870 AB) (R-REF5872 R)
    252. 

  252.                                             (C-REF5873 C))
    253. 

  253.       (%%DGBEQU M-REF5866 N-REF5867 KL-REF5868 KU-REF5869 AB-REF5870
    254. 

  254.        LDAB-REF5871 R-REF5872 C-REF5873 ROWCND-REF5874 COLCND-REF5875
    255. 

  255.        AMAX-REF5876 INFO-REF5877))))
    256. 

  256. 

  257. (CFFI:DEFCFUN ("dgbequb_" %%DGBEQUB :LIBRARY
    258. 

  258.                MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    259. 

  259.     :VOID
    260. 

  260.   (M :POINTER)
    261. 

  261.   (N :POINTER)
    262. 

  262.   (KL :POINTER)
    263. 

  263.   (KU :POINTER)
    264. 

  264.   (AB :POINTER)
    265. 

  265.   (LDAB :POINTER)
    266. 

  266.   (R :POINTER)
    267. 

  267.   (C :POINTER)
    268. 

  268.   (ROWCND :POINTER)
    269. 

  269.   (COLCND :POINTER)
    270. 

  270.   (AMAX :POINTER)
    271. 

  271.   (INFO :POINTER))
    272. 

  272. 

  273. (COMMON-LISP:DEFUN %DGBEQUB (M N KL KU AB LDAB R C ROWCND COLCND AMAX INFO)
    274. 

  274.   (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGBEQUB)
    275. 

  275.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
    276. 

  276.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
    277. 

  277.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KL)
    278. 

  278.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KU)
    279. 

  279.                        (COMMON-LISP:TYPE
    280. 

  280.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AB)
    281. 

  281.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
    282. 

  282.                        (COMMON-LISP:TYPE
    283. 

  283.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) R)
    284. 

  284.                        (COMMON-LISP:TYPE
    285. 

  285.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
    286. 

  286.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ROWCND)
    287. 

  287.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT COLCND)
    288. 

  288.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT AMAX)
    289. 

  289.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
    290. 

  290.   (CFFI:WITH-FOREIGN-OBJECTS ((M-REF5878 ':INT32) (N-REF5879 ':INT32)
    291. 

  291.                               (KL-REF5880 ':INT32) (KU-REF5881 ':INT32)
    292. 

  292.                               (LDAB-REF5883 ':INT32) (ROWCND-REF5886 ':DOUBLE)
    293. 

  293.                               (COLCND-REF5887 ':DOUBLE) (AMAX-REF5888 ':DOUBLE)
    294. 

  294.                               (INFO-REF5889 ':INT32))
    295. 

  295.     (COMMON-LISP:SETF (CFFI:MEM-REF M-REF5878 :INT32) M)
    296. 

  296.     (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5879 :INT32) N)
    297. 

  297.     (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF5880 :INT32) KL)
    298. 

  298.     (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF5881 :INT32) KU)
    299. 

  299.     (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF5883 :INT32) LDAB)
    300. 

  300.     (COMMON-LISP:SETF (CFFI:MEM-REF ROWCND-REF5886 :DOUBLE) ROWCND)
    301. 

  301.     (COMMON-LISP:SETF (CFFI:MEM-REF COLCND-REF5887 :DOUBLE) COLCND)
    302. 

  302.     (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF5888 :DOUBLE) AMAX)
    303. 

  303.     (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5889 :INT32) INFO)
    304. 

  304.     (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF5882 AB) (R-REF5884 R)
    305. 

  305.                                             (C-REF5885 C))
    306. 

  306.       (%%DGBEQUB M-REF5878 N-REF5879 KL-REF5880 KU-REF5881 AB-REF5882
    307. 

  307.        LDAB-REF5883 R-REF5884 C-REF5885 ROWCND-REF5886 COLCND-REF5887
    308. 

  308.        AMAX-REF5888 INFO-REF5889))))
    309. 

  309. 

  310. (CFFI:DEFCFUN ("dgbrfs_" %%DGBRFS :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    311. 

  311.     :VOID
    312. 

  312.   (TRANS :STRING)
    313. 

  313.   (N :POINTER)
    314. 

  314.   (KL :POINTER)
    315. 

  315.   (KU :POINTER)
    316. 

  316.   (NRHS :POINTER)
    317. 

  317.   (AB :POINTER)
    318. 

  318.   (LDAB :POINTER)
    319. 

  319.   (AFB :POINTER)
    320. 

  320.   (LDAFB :POINTER)
    321. 

  321.   (IPIV :POINTER)
    322. 

  322.   (B :POINTER)
    323. 

  323.   (LDB :POINTER)
    324. 

  324.   (X :POINTER)
    325. 

  325.   (LDX :POINTER)
    326. 

  326.   (FERR :POINTER)
    327. 

  327.   (BERR :POINTER)
    328. 

  328.   (WORK :POINTER)
    329. 

  329.   (IWORK :POINTER)
    330. 

  330.   (INFO :POINTER))
    331. 

  331. 

  332. (COMMON-LISP:DEFUN %DGBRFS
    333. 

  333.                    (TRANS N KL KU NRHS AB LDAB AFB LDAFB IPIV B LDB X LDX FERR
    334. 

  334.                     BERR WORK IWORK INFO)
    335. 

  335.   (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGBRFS)
    336. 

  336.                        (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
    337. 

  337.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
    338. 

  338.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KL)
    339. 

  339.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KU)
    340. 

  340.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
    341. 

  341.                        (COMMON-LISP:TYPE
    342. 

  342.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AB)
    343. 

  343.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
    344. 

  344.                        (COMMON-LISP:TYPE
    345. 

  345.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    346. 

  346.                         AFB)
    347. 

  347.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAFB)
    348. 

  348.                        (COMMON-LISP:TYPE
    349. 

  349.                         (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
    350. 

  350.                          (COMMON-LISP:*))
    351. 

  351.                         IPIV)
    352. 

  352.                        (COMMON-LISP:TYPE
    353. 

  353.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
    354. 

  354.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
    355. 

  355.                        (COMMON-LISP:TYPE
    356. 

  356.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) X)
    357. 

  357.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
    358. 

  358.                        (COMMON-LISP:TYPE
    359. 

  359.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    360. 

  360.                         FERR)
    361. 

  361.                        (COMMON-LISP:TYPE
    362. 

  362.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    363. 

  363.                         BERR)
    364. 

  364.                        (COMMON-LISP:TYPE
    365. 

  365.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    366. 

  366.                         WORK)
    367. 

  367.                        (COMMON-LISP:TYPE
    368. 

  368.                         (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
    369. 

  369.                          (COMMON-LISP:*))
    370. 

  370.                         IWORK)
    371. 

  371.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
    372. 

  372.   (CFFI:WITH-FOREIGN-OBJECTS ((N-REF5891 ':INT32) (KL-REF5892 ':INT32)
    373. 

  373.                               (KU-REF5893 ':INT32) (NRHS-REF5894 ':INT32)
    374. 

  374.                               (LDAB-REF5896 ':INT32) (LDAFB-REF5898 ':INT32)
    375. 

  375.                               (LDB-REF5901 ':INT32) (LDX-REF5903 ':INT32)
    376. 

  376.                               (INFO-REF5908 ':INT32))
    377. 

  377.     (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5891 :INT32) N)
    378. 

  378.     (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF5892 :INT32) KL)
    379. 

  379.     (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF5893 :INT32) KU)
    380. 

  380.     (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF5894 :INT32) NRHS)
    381. 

  381.     (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF5896 :INT32) LDAB)
    382. 

  382.     (COMMON-LISP:SETF (CFFI:MEM-REF LDAFB-REF5898 :INT32) LDAFB)
    383. 

  383.     (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF5901 :INT32) LDB)
    384. 

  384.     (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF5903 :INT32) LDX)
    385. 

  385.     (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5908 :INT32) INFO)
    386. 

  386.     (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF5895 AB) (AFB-REF5897 AFB)
    387. 

  387.                                             (IPIV-REF5899 IPIV) (B-REF5900 B)
    388. 

  388.                                             (X-REF5902 X) (FERR-REF5904 FERR)
    389. 

  389.                                             (BERR-REF5905 BERR)
    390. 

  390.                                             (WORK-REF5906 WORK)
    391. 

  391.                                             (IWORK-REF5907 IWORK))
    392. 

  392.       (%%DGBRFS TRANS N-REF5891 KL-REF5892 KU-REF5893 NRHS-REF5894 AB-REF5895
    393. 

  393.        LDAB-REF5896 AFB-REF5897 LDAFB-REF5898 IPIV-REF5899 B-REF5900
    394. 

  394.        LDB-REF5901 X-REF5902 LDX-REF5903 FERR-REF5904 BERR-REF5905 WORK-REF5906
    395. 

  395.        IWORK-REF5907 INFO-REF5908))))
    396. 

  396. 

  397. (CFFI:DEFCFUN ("dgbrfsx_" %%DGBRFSX :LIBRARY
    398. 

  398.                MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    399. 

  399.     :VOID
    400. 

  400.   (TRANS :STRING)
    401. 

  401.   (EQUED :STRING)
    402. 

  402.   (N :POINTER)
    403. 

  403.   (KL :POINTER)
    404. 

  404.   (KU :POINTER)
    405. 

  405.   (NRHS :POINTER)
    406. 

  406.   (AB :POINTER)
    407. 

  407.   (LDAB :POINTER)
    408. 

  408.   (AFB :POINTER)
    409. 

  409.   (LDAFB :POINTER)
    410. 

  410.   (IPIV :POINTER)
    411. 

  411.   (R :POINTER)
    412. 

  412.   (C :POINTER)
    413. 

  413.   (B :POINTER)
    414. 

  414.   (LDB :POINTER)
    415. 

  415.   (X :POINTER)
    416. 

  416.   (LDX :POINTER)
    417. 

  417.   (RCOND :POINTER)
    418. 

  418.   (BERR :POINTER)
    419. 

  419.   (N_ERR_BNDS :POINTER)
    420. 

  420.   (ERR_BNDS_NORM :POINTER)
    421. 

  421.   (ERR_BNDS_COMP :POINTER)
    422. 

  422.   (NPARAMS :POINTER)
    423. 

  423.   (PARAMS :POINTER)
    424. 

  424.   (WORK :POINTER)
    425. 

  425.   (IWORK :POINTER)
    426. 

  426.   (INFO :POINTER))
    427. 

  427. 

  428. (COMMON-LISP:DEFUN %DGBRFSX
    429. 

  429.                    (TRANS EQUED N KL KU NRHS AB LDAB AFB LDAFB IPIV R C B LDB X
    430. 

  430.                     LDX RCOND BERR N_ERR_BNDS ERR_BNDS_NORM ERR_BNDS_COMP
    431. 

  431.                     NPARAMS PARAMS WORK IWORK INFO)
    432. 

  432.   (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGBRFSX)
    433. 

  433.                        (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
    434. 

  434.                        (COMMON-LISP:TYPE COMMON-LISP:STRING EQUED)
    435. 

  435.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
    436. 

  436.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KL)
    437. 

  437.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KU)
    438. 

  438.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
    439. 

  439.                        (COMMON-LISP:TYPE
    440. 

  440.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AB)
    441. 

  441.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
    442. 

  442.                        (COMMON-LISP:TYPE
    443. 

  443.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    444. 

  444.                         AFB)
    445. 

  445.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAFB)
    446. 

  446.                        (COMMON-LISP:TYPE
    447. 

  447.                         (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
    448. 

  448.                          (COMMON-LISP:*))
    449. 

  449.                         IPIV)
    450. 

  450.                        (COMMON-LISP:TYPE
    451. 

  451.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) R)
    452. 

  452.                        (COMMON-LISP:TYPE
    453. 

  453.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
    454. 

  454.                        (COMMON-LISP:TYPE
    455. 

  455.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
    456. 

  456.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
    457. 

  457.                        (COMMON-LISP:TYPE
    458. 

  458.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) X)
    459. 

  459.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
    460. 

  460.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RCOND)
    461. 

  461.                        (COMMON-LISP:TYPE
    462. 

  462.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    463. 

  463.                         BERR)
    464. 

  464.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32)
    465. 

  465.                         N_ERR_BNDS)
    466. 

  466.                        (COMMON-LISP:TYPE
    467. 

  467.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    468. 

  468.                         ERR_BNDS_NORM)
    469. 

  469.                        (COMMON-LISP:TYPE
    470. 

  470.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    471. 

  471.                         ERR_BNDS_COMP)
    472. 

  472.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NPARAMS)
    473. 

  473.                        (COMMON-LISP:TYPE
    474. 

  474.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    475. 

  475.                         PARAMS)
    476. 

  476.                        (COMMON-LISP:TYPE
    477. 

  477.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    478. 

  478.                         WORK)
    479. 

  479.                        (COMMON-LISP:TYPE
    480. 

  480.                         (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
    481. 

  481.                          (COMMON-LISP:*))
    482. 

  482.                         IWORK)
    483. 

  483.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
    484. 

  484.   (CFFI:WITH-FOREIGN-OBJECTS ((N-REF5911 ':INT32) (KL-REF5912 ':INT32)
    485. 

  485.                               (KU-REF5913 ':INT32) (NRHS-REF5914 ':INT32)
    486. 

  486.                               (LDAB-REF5916 ':INT32) (LDAFB-REF5918 ':INT32)
    487. 

  487.                               (LDB-REF5923 ':INT32) (LDX-REF5925 ':INT32)
    488. 

  488.                               (RCOND-REF5926 ':DOUBLE)
    489. 

  489.                               (N_ERR_BNDS-REF5928 ':INT32)
    490. 

  490.                               (NPARAMS-REF5931 ':INT32) (INFO-REF5935 ':INT32))
    491. 

  491.     (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5911 :INT32) N)
    492. 

  492.     (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF5912 :INT32) KL)
    493. 

  493.     (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF5913 :INT32) KU)
    494. 

  494.     (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF5914 :INT32) NRHS)
    495. 

  495.     (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF5916 :INT32) LDAB)
    496. 

  496.     (COMMON-LISP:SETF (CFFI:MEM-REF LDAFB-REF5918 :INT32) LDAFB)
    497. 

  497.     (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF5923 :INT32) LDB)
    498. 

  498.     (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF5925 :INT32) LDX)
    499. 

  499.     (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF5926 :DOUBLE) RCOND)
    500. 

  500.     (COMMON-LISP:SETF (CFFI:MEM-REF N_ERR_BNDS-REF5928 :INT32) N_ERR_BNDS)
    501. 

  501.     (COMMON-LISP:SETF (CFFI:MEM-REF NPARAMS-REF5931 :INT32) NPARAMS)
    502. 

  502.     (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5935 :INT32) INFO)
    503. 

  503.     (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF5915 AB) (AFB-REF5917 AFB)
    504. 

  504.                                             (IPIV-REF5919 IPIV) (R-REF5920 R)
    505. 

  505.                                             (C-REF5921 C) (B-REF5922 B)
    506. 

  506.                                             (X-REF5924 X) (BERR-REF5927 BERR)
    507. 

  507.                                             (ERR_BNDS_NORM-REF5929
    508. 

  508.                                              ERR_BNDS_NORM)
    509. 

  509.                                             (ERR_BNDS_COMP-REF5930
    510. 

  510.                                              ERR_BNDS_COMP)
    511. 

  511.                                             (PARAMS-REF5932 PARAMS)
    512. 

  512.                                             (WORK-REF5933 WORK)
    513. 

  513.                                             (IWORK-REF5934 IWORK))
    514. 

  514.       (%%DGBRFSX TRANS EQUED N-REF5911 KL-REF5912 KU-REF5913 NRHS-REF5914
    515. 

  515.        AB-REF5915 LDAB-REF5916 AFB-REF5917 LDAFB-REF5918 IPIV-REF5919 R-REF5920
    516. 

  516.        C-REF5921 B-REF5922 LDB-REF5923 X-REF5924 LDX-REF5925 RCOND-REF5926
    517. 

  517.        BERR-REF5927 N_ERR_BNDS-REF5928 ERR_BNDS_NORM-REF5929
    518. 

  518.        ERR_BNDS_COMP-REF5930 NPARAMS-REF5931 PARAMS-REF5932 WORK-REF5933
    519. 

  519.        IWORK-REF5934 INFO-REF5935))))
    520. 

  520. 

  521. (CFFI:DEFCFUN ("dgbsv_" %%DGBSV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    522. 

  522.     :VOID
    523. 

  523.   (N :POINTER)
    524. 

  524.   (KL :POINTER)
    525. 

  525.   (KU :POINTER)
    526. 

  526.   (NRHS :POINTER)
    527. 

  527.   (AB :POINTER)
    528. 

  528.   (LDAB :POINTER)
    529. 

  529.   (IPIV :POINTER)
    530. 

  530.   (B :POINTER)
    531. 

  531.   (LDB :POINTER)
    532. 

  532.   (INFO :POINTER))
    533. 

  533. 

  534. (COMMON-LISP:DEFUN %DGBSV (N KL KU NRHS AB LDAB IPIV B LDB INFO)
    535. 

  535.   (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGBSV)
    536. 

  536.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
    537. 

  537.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KL)
    538. 

  538.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KU)
    539. 

  539.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
    540. 

  540.                        (COMMON-LISP:TYPE
    541. 

  541.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AB)
    542. 

  542.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
    543. 

  543.                        (COMMON-LISP:TYPE
    544. 

  544.                         (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
    545. 

  545.                          (COMMON-LISP:*))
    546. 

  546.                         IPIV)
    547. 

  547.                        (COMMON-LISP:TYPE
    548. 

  548.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
    549. 

  549.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
    550. 

  550.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
    551. 

  551.   (CFFI:WITH-FOREIGN-OBJECTS ((N-REF5936 ':INT32) (KL-REF5937 ':INT32)
    552. 

  552.                               (KU-REF5938 ':INT32) (NRHS-REF5939 ':INT32)
    553. 

  553.                               (LDAB-REF5941 ':INT32) (LDB-REF5944 ':INT32)
    554. 

  554.                               (INFO-REF5945 ':INT32))
    555. 

  555.     (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5936 :INT32) N)
    556. 

  556.     (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF5937 :INT32) KL)
    557. 

  557.     (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF5938 :INT32) KU)
    558. 

  558.     (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF5939 :INT32) NRHS)
    559. 

  559.     (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF5941 :INT32) LDAB)
    560. 

  560.     (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF5944 :INT32) LDB)
    561. 

  561.     (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5945 :INT32) INFO)
    562. 

  562.     (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF5940 AB) (IPIV-REF5942 IPIV)
    563. 

  563.                                             (B-REF5943 B))
    564. 

  564.       (%%DGBSV N-REF5936 KL-REF5937 KU-REF5938 NRHS-REF5939 AB-REF5940
    565. 

  565.        LDAB-REF5941 IPIV-REF5942 B-REF5943 LDB-REF5944 INFO-REF5945))))
    566. 

  566. 

  567. (CFFI:DEFCFUN ("dgbsvx_" %%DGBSVX :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    568. 

  568.     :VOID
    569. 

  569.   (FACT :STRING)
    570. 

  570.   (TRANS :STRING)
    571. 

  571.   (N :POINTER)
    572. 

  572.   (KL :POINTER)
    573. 

  573.   (KU :POINTER)
    574. 

  574.   (NRHS :POINTER)
    575. 

  575.   (AB :POINTER)
    576. 

  576.   (LDAB :POINTER)
    577. 

  577.   (AFB :POINTER)
    578. 

  578.   (LDAFB :POINTER)
    579. 

  579.   (IPIV :POINTER)
    580. 

  580.   (EQUED :STRING)
    581. 

  581.   (R :POINTER)
    582. 

  582.   (C :POINTER)
    583. 

  583.   (B :POINTER)
    584. 

  584.   (LDB :POINTER)
    585. 

  585.   (X :POINTER)
    586. 

  586.   (LDX :POINTER)
    587. 

  587.   (RCOND :POINTER)
    588. 

  588.   (FERR :POINTER)
    589. 

  589.   (BERR :POINTER)
    590. 

  590.   (WORK :POINTER)
    591. 

  591.   (IWORK :POINTER)
    592. 

  592.   (INFO :POINTER))
    593. 

  593. 

  594. (COMMON-LISP:DEFUN %DGBSVX
    595. 

  595.                    (FACT TRANS N KL KU NRHS AB LDAB AFB LDAFB IPIV EQUED R C B
    596. 

  596.                     LDB X LDX RCOND FERR BERR WORK IWORK INFO)
    597. 

  597.   (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGBSVX)
    598. 

  598.                        (COMMON-LISP:TYPE COMMON-LISP:STRING FACT)
    599. 

  599.                        (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
    600. 

  600.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
    601. 

  601.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KL)
    602. 

  602.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KU)
    603. 

  603.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
    604. 

  604.                        (COMMON-LISP:TYPE
    605. 

  605.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AB)
    606. 

  606.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
    607. 

  607.                        (COMMON-LISP:TYPE
    608. 

  608.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    609. 

  609.                         AFB)
    610. 

  610.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAFB)
    611. 

  611.                        (COMMON-LISP:TYPE
    612. 

  612.                         (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
    613. 

  613.                          (COMMON-LISP:*))
    614. 

  614.                         IPIV)
    615. 

  615.                        (COMMON-LISP:TYPE COMMON-LISP:STRING EQUED)
    616. 

  616.                        (COMMON-LISP:TYPE
    617. 

  617.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) R)
    618. 

  618.                        (COMMON-LISP:TYPE
    619. 

  619.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
    620. 

  620.                        (COMMON-LISP:TYPE
    621. 

  621.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
    622. 

  622.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
    623. 

  623.                        (COMMON-LISP:TYPE
    624. 

  624.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) X)
    625. 

  625.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
    626. 

  626.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RCOND)
    627. 

  627.                        (COMMON-LISP:TYPE
    628. 

  628.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    629. 

  629.                         FERR)
    630. 

  630.                        (COMMON-LISP:TYPE
    631. 

  631.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    632. 

  632.                         BERR)
    633. 

  633.                        (COMMON-LISP:TYPE
    634. 

  634.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    635. 

  635.                         WORK)
    636. 

  636.                        (COMMON-LISP:TYPE
    637. 

  637.                         (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
    638. 

  638.                          (COMMON-LISP:*))
    639. 

  639.                         IWORK)
    640. 

  640.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
    641. 

  641.   (CFFI:WITH-FOREIGN-OBJECTS ((N-REF5948 ':INT32) (KL-REF5949 ':INT32)
    642. 

  642.                               (KU-REF5950 ':INT32) (NRHS-REF5951 ':INT32)
    643. 

  643.                               (LDAB-REF5953 ':INT32) (LDAFB-REF5955 ':INT32)
    644. 

  644.                               (LDB-REF5961 ':INT32) (LDX-REF5963 ':INT32)
    645. 

  645.                               (RCOND-REF5964 ':DOUBLE) (INFO-REF5969 ':INT32))
    646. 

  646.     (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5948 :INT32) N)
    647. 

  647.     (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF5949 :INT32) KL)
    648. 

  648.     (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF5950 :INT32) KU)
    649. 

  649.     (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF5951 :INT32) NRHS)
    650. 

  650.     (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF5953 :INT32) LDAB)
    651. 

  651.     (COMMON-LISP:SETF (CFFI:MEM-REF LDAFB-REF5955 :INT32) LDAFB)
    652. 

  652.     (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF5961 :INT32) LDB)
    653. 

  653.     (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF5963 :INT32) LDX)
    654. 

  654.     (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF5964 :DOUBLE) RCOND)
    655. 

  655.     (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5969 :INT32) INFO)
    656. 

  656.     (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF5952 AB) (AFB-REF5954 AFB)
    657. 

  657.                                             (IPIV-REF5956 IPIV) (R-REF5958 R)
    658. 

  658.                                             (C-REF5959 C) (B-REF5960 B)
    659. 

  659.                                             (X-REF5962 X) (FERR-REF5965 FERR)
    660. 

  660.                                             (BERR-REF5966 BERR)
    661. 

  661.                                             (WORK-REF5967 WORK)
    662. 

  662.                                             (IWORK-REF5968 IWORK))
    663. 

  663.       (%%DGBSVX FACT TRANS N-REF5948 KL-REF5949 KU-REF5950 NRHS-REF5951
    664. 

  664.        AB-REF5952 LDAB-REF5953 AFB-REF5954 LDAFB-REF5955 IPIV-REF5956 EQUED
    665. 

  665.        R-REF5958 C-REF5959 B-REF5960 LDB-REF5961 X-REF5962 LDX-REF5963
    666. 

  666.        RCOND-REF5964 FERR-REF5965 BERR-REF5966 WORK-REF5967 IWORK-REF5968
    667. 

  667.        INFO-REF5969))))
    668. 

  668. 

  669. (CFFI:DEFCFUN ("dgbsvxx_" %%DGBSVXX :LIBRARY
    670. 

  670.                MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    671. 

  671.     :VOID
    672. 

  672.   (FACT :STRING)
    673. 

  673.   (TRANS :STRING)
    674. 

  674.   (N :POINTER)
    675. 

  675.   (KL :POINTER)
    676. 

  676.   (KU :POINTER)
    677. 

  677.   (NRHS :POINTER)
    678. 

  678.   (AB :POINTER)
    679. 

  679.   (LDAB :POINTER)
    680. 

  680.   (AFB :POINTER)
    681. 

  681.   (LDAFB :POINTER)
    682. 

  682.   (IPIV :POINTER)
    683. 

  683.   (EQUED :STRING)
    684. 

  684.   (R :POINTER)
    685. 

  685.   (C :POINTER)
    686. 

  686.   (B :POINTER)
    687. 

  687.   (LDB :POINTER)
    688. 

  688.   (X :POINTER)
    689. 

  689.   (LDX :POINTER)
    690. 

  690.   (RCOND :POINTER)
    691. 

  691.   (RPVGRW :POINTER)
    692. 

  692.   (BERR :POINTER)
    693. 

  693.   (N_ERR_BNDS :POINTER)
    694. 

  694.   (ERR_BNDS_NORM :POINTER)
    695. 

  695.   (ERR_BNDS_COMP :POINTER)
    696. 

  696.   (NPARAMS :POINTER)
    697. 

  697.   (PARAMS :POINTER)
    698. 

  698.   (WORK :POINTER)
    699. 

  699.   (IWORK :POINTER)
    700. 

  700.   (INFO :POINTER))
    701. 

  701. 

  702. (COMMON-LISP:DEFUN %DGBSVXX
    703. 

  703.                    (FACT TRANS N KL KU NRHS AB LDAB AFB LDAFB IPIV EQUED R C B
    704. 

  704.                     LDB X LDX RCOND RPVGRW BERR N_ERR_BNDS ERR_BNDS_NORM
    705. 

  705.                     ERR_BNDS_COMP NPARAMS PARAMS WORK IWORK INFO)
    706. 

  706.   (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGBSVXX)
    707. 

  707.                        (COMMON-LISP:TYPE COMMON-LISP:STRING FACT)
    708. 

  708.                        (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
    709. 

  709.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
    710. 

  710.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KL)
    711. 

  711.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KU)
    712. 

  712.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
    713. 

  713.                        (COMMON-LISP:TYPE
    714. 

  714.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AB)
    715. 

  715.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
    716. 

  716.                        (COMMON-LISP:TYPE
    717. 

  717.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    718. 

  718.                         AFB)
    719. 

  719.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAFB)
    720. 

  720.                        (COMMON-LISP:TYPE
    721. 

  721.                         (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
    722. 

  722.                          (COMMON-LISP:*))
    723. 

  723.                         IPIV)
    724. 

  724.                        (COMMON-LISP:TYPE COMMON-LISP:STRING EQUED)
    725. 

  725.                        (COMMON-LISP:TYPE
    726. 

  726.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) R)
    727. 

  727.                        (COMMON-LISP:TYPE
    728. 

  728.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
    729. 

  729.                        (COMMON-LISP:TYPE
    730. 

  730.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
    731. 

  731.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
    732. 

  732.                        (COMMON-LISP:TYPE
    733. 

  733.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) X)
    734. 

  734.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
    735. 

  735.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RCOND)
    736. 

  736.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RPVGRW)
    737. 

  737.                        (COMMON-LISP:TYPE
    738. 

  738.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    739. 

  739.                         BERR)
    740. 

  740.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32)
    741. 

  741.                         N_ERR_BNDS)
    742. 

  742.                        (COMMON-LISP:TYPE
    743. 

  743.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    744. 

  744.                         ERR_BNDS_NORM)
    745. 

  745.                        (COMMON-LISP:TYPE
    746. 

  746.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    747. 

  747.                         ERR_BNDS_COMP)
    748. 

  748.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NPARAMS)
    749. 

  749.                        (COMMON-LISP:TYPE
    750. 

  750.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    751. 

  751.                         PARAMS)
    752. 

  752.                        (COMMON-LISP:TYPE
    753. 

  753.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    754. 

  754.                         WORK)
    755. 

  755.                        (COMMON-LISP:TYPE
    756. 

  756.                         (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
    757. 

  757.                          (COMMON-LISP:*))
    758. 

  758.                         IWORK)
    759. 

  759.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
    760. 

  760.   (CFFI:WITH-FOREIGN-OBJECTS ((N-REF5972 ':INT32) (KL-REF5973 ':INT32)
    761. 

  761.                               (KU-REF5974 ':INT32) (NRHS-REF5975 ':INT32)
    762. 

  762.                               (LDAB-REF5977 ':INT32) (LDAFB-REF5979 ':INT32)
    763. 

  763.                               (LDB-REF5985 ':INT32) (LDX-REF5987 ':INT32)
    764. 

  764.                               (RCOND-REF5988 ':DOUBLE)
    765. 

  765.                               (RPVGRW-REF5989 ':DOUBLE)
    766. 

  766.                               (N_ERR_BNDS-REF5991 ':INT32)
    767. 

  767.                               (NPARAMS-REF5994 ':INT32) (INFO-REF5998 ':INT32))
    768. 

  768.     (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5972 :INT32) N)
    769. 

  769.     (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF5973 :INT32) KL)
    770. 

  770.     (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF5974 :INT32) KU)
    771. 

  771.     (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF5975 :INT32) NRHS)
    772. 

  772.     (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF5977 :INT32) LDAB)
    773. 

  773.     (COMMON-LISP:SETF (CFFI:MEM-REF LDAFB-REF5979 :INT32) LDAFB)
    774. 

  774.     (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF5985 :INT32) LDB)
    775. 

  775.     (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF5987 :INT32) LDX)
    776. 

  776.     (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF5988 :DOUBLE) RCOND)
    777. 

  777.     (COMMON-LISP:SETF (CFFI:MEM-REF RPVGRW-REF5989 :DOUBLE) RPVGRW)
    778. 

  778.     (COMMON-LISP:SETF (CFFI:MEM-REF N_ERR_BNDS-REF5991 :INT32) N_ERR_BNDS)
    779. 

  779.     (COMMON-LISP:SETF (CFFI:MEM-REF NPARAMS-REF5994 :INT32) NPARAMS)
    780. 

  780.     (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5998 :INT32) INFO)
    781. 

  781.     (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF5976 AB) (AFB-REF5978 AFB)
    782. 

  782.                                             (IPIV-REF5980 IPIV) (R-REF5982 R)
    783. 

  783.                                             (C-REF5983 C) (B-REF5984 B)
    784. 

  784.                                             (X-REF5986 X) (BERR-REF5990 BERR)
    785. 

  785.                                             (ERR_BNDS_NORM-REF5992
    786. 

  786.                                              ERR_BNDS_NORM)
    787. 

  787.                                             (ERR_BNDS_COMP-REF5993
    788. 

  788.                                              ERR_BNDS_COMP)
    789. 

  789.                                             (PARAMS-REF5995 PARAMS)
    790. 

  790.                                             (WORK-REF5996 WORK)
    791. 

  791.                                             (IWORK-REF5997 IWORK))
    792. 

  792.       (%%DGBSVXX FACT TRANS N-REF5972 KL-REF5973 KU-REF5974 NRHS-REF5975
    793. 

  793.        AB-REF5976 LDAB-REF5977 AFB-REF5978 LDAFB-REF5979 IPIV-REF5980 EQUED
    794. 

  794.        R-REF5982 C-REF5983 B-REF5984 LDB-REF5985 X-REF5986 LDX-REF5987
    795. 

  795.        RCOND-REF5988 RPVGRW-REF5989 BERR-REF5990 N_ERR_BNDS-REF5991
    796. 

  796.        ERR_BNDS_NORM-REF5992 ERR_BNDS_COMP-REF5993 NPARAMS-REF5994
    797. 

  797.        PARAMS-REF5995 WORK-REF5996 IWORK-REF5997 INFO-REF5998))))
    798. 

  798. 

  799. (CFFI:DEFCFUN ("dgbtf2_" %%DGBTF2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    800. 

  800.     :VOID
    801. 

  801.   (M :POINTER)
    802. 

  802.   (N :POINTER)
    803. 

  803.   (KL :POINTER)
    804. 

  804.   (KU :POINTER)
    805. 

  805.   (AB :POINTER)
    806. 

  806.   (LDAB :POINTER)
    807. 

  807.   (IPIV :POINTER)
    808. 

  808.   (INFO :POINTER))
    809. 

  809. 

  810. (COMMON-LISP:DEFUN %DGBTF2 (M N KL KU AB LDAB IPIV INFO)
    811. 

  811.   (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGBTF2)
    812. 

  812.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
    813. 

  813.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
    814. 

  814.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KL)
    815. 

  815.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KU)
    816. 

  816.                        (COMMON-LISP:TYPE
    817. 

  817.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AB)
    818. 

  818.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
    819. 

  819.                        (COMMON-LISP:TYPE
    820. 

  820.                         (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
    821. 

  821.                          (COMMON-LISP:*))
    822. 

  822.                         IPIV)
    823. 

  823.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
    824. 

  824.   (CFFI:WITH-FOREIGN-OBJECTS ((M-REF5999 ':INT32) (N-REF6000 ':INT32)
    825. 

  825.                               (KL-REF6001 ':INT32) (KU-REF6002 ':INT32)
    826. 

  826.                               (LDAB-REF6004 ':INT32) (INFO-REF6006 ':INT32))
    827. 

  827.     (COMMON-LISP:SETF (CFFI:MEM-REF M-REF5999 :INT32) M)
    828. 

  828.     (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6000 :INT32) N)
    829. 

  829.     (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF6001 :INT32) KL)
    830. 

  830.     (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF6002 :INT32) KU)
    831. 

  831.     (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF6004 :INT32) LDAB)
    832. 

  832.     (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6006 :INT32) INFO)
    833. 

  833.     (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF6003 AB) (IPIV-REF6005 IPIV))
    834. 

  834.       (%%DGBTF2 M-REF5999 N-REF6000 KL-REF6001 KU-REF6002 AB-REF6003
    835. 

  835.        LDAB-REF6004 IPIV-REF6005 INFO-REF6006))))
    836. 

  836. 

  837. (CFFI:DEFCFUN ("dgbtrf_" %%DGBTRF :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    838. 

  838.     :VOID
    839. 

  839.   (M :POINTER)
    840. 

  840.   (N :POINTER)
    841. 

  841.   (KL :POINTER)
    842. 

  842.   (KU :POINTER)
    843. 

  843.   (AB :POINTER)
    844. 

  844.   (LDAB :POINTER)
    845. 

  845.   (IPIV :POINTER)
    846. 

  846.   (INFO :POINTER))
    847. 

  847. 

  848. (COMMON-LISP:DEFUN %DGBTRF (M N KL KU AB LDAB IPIV INFO)
    849. 

  849.   (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGBTRF)
    850. 

  850.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
    851. 

  851.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
    852. 

  852.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KL)
    853. 

  853.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KU)
    854. 

  854.                        (COMMON-LISP:TYPE
    855. 

  855.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AB)
    856. 

  856.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
    857. 

  857.                        (COMMON-LISP:TYPE
    858. 

  858.                         (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
    859. 

  859.                          (COMMON-LISP:*))
    860. 

  860.                         IPIV)
    861. 

  861.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
    862. 

  862.   (CFFI:WITH-FOREIGN-OBJECTS ((M-REF6007 ':INT32) (N-REF6008 ':INT32)
    863. 

  863.                               (KL-REF6009 ':INT32) (KU-REF6010 ':INT32)
    864. 

  864.                               (LDAB-REF6012 ':INT32) (INFO-REF6014 ':INT32))
    865. 

  865.     (COMMON-LISP:SETF (CFFI:MEM-REF M-REF6007 :INT32) M)
    866. 

  866.     (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6008 :INT32) N)
    867. 

  867.     (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF6009 :INT32) KL)
    868. 

  868.     (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF6010 :INT32) KU)
    869. 

  869.     (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF6012 :INT32) LDAB)
    870. 

  870.     (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6014 :INT32) INFO)
    871. 

  871.     (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF6011 AB) (IPIV-REF6013 IPIV))
    872. 

  872.       (%%DGBTRF M-REF6007 N-REF6008 KL-REF6009 KU-REF6010 AB-REF6011
    873. 

  873.        LDAB-REF6012 IPIV-REF6013 INFO-REF6014))))
    874. 

  874. 

  875. (CFFI:DEFCFUN ("dgbtrs_" %%DGBTRS :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    876. 

  876.     :VOID
    877. 

  877.   (TRANS :STRING)
    878. 

  878.   (N :POINTER)
    879. 

  879.   (KL :POINTER)
    880. 

  880.   (KU :POINTER)
    881. 

  881.   (NRHS :POINTER)
    882. 

  882.   (AB :POINTER)
    883. 

  883.   (LDAB :POINTER)
    884. 

  884.   (IPIV :POINTER)
    885. 

  885.   (B :POINTER)
    886. 

  886.   (LDB :POINTER)
    887. 

  887.   (INFO :POINTER))
    888. 

  888. 

  889. (COMMON-LISP:DEFUN %DGBTRS (TRANS N KL KU NRHS AB LDAB IPIV B LDB INFO)
    890. 

  890.   (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGBTRS)
    891. 

  891.                        (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
    892. 

  892.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
    893. 

  893.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KL)
    894. 

  894.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KU)
    895. 

  895.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
    896. 

  896.                        (COMMON-LISP:TYPE
    897. 

  897.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AB)
    898. 

  898.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
    899. 

  899.                        (COMMON-LISP:TYPE
    900. 

  900.                         (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
    901. 

  901.                          (COMMON-LISP:*))
    902. 

  902.                         IPIV)
    903. 

  903.                        (COMMON-LISP:TYPE
    904. 

  904.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
    905. 

  905.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
    906. 

  906.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
    907. 

  907.   (CFFI:WITH-FOREIGN-OBJECTS ((N-REF6016 ':INT32) (KL-REF6017 ':INT32)
    908. 

  908.                               (KU-REF6018 ':INT32) (NRHS-REF6019 ':INT32)
    909. 

  909.                               (LDAB-REF6021 ':INT32) (LDB-REF6024 ':INT32)
    910. 

  910.                               (INFO-REF6025 ':INT32))
    911. 

  911.     (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6016 :INT32) N)
    912. 

  912.     (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF6017 :INT32) KL)
    913. 

  913.     (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF6018 :INT32) KU)
    914. 

  914.     (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF6019 :INT32) NRHS)
    915. 

  915.     (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF6021 :INT32) LDAB)
    916. 

  916.     (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF6024 :INT32) LDB)
    917. 

  917.     (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6025 :INT32) INFO)
    918. 

  918.     (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF6020 AB) (IPIV-REF6022 IPIV)
    919. 

  919.                                             (B-REF6023 B))
    920. 

  920.       (%%DGBTRS TRANS N-REF6016 KL-REF6017 KU-REF6018 NRHS-REF6019 AB-REF6020
    921. 

  921.        LDAB-REF6021 IPIV-REF6022 B-REF6023 LDB-REF6024 INFO-REF6025))))
    922. 

  922. 

  923. (CFFI:DEFCFUN ("dgebak_" %%DGEBAK :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    924. 

  924.     :VOID
    925. 

  925.   (JOB :STRING)
    926. 

  926.   (SIDE :STRING)
    927. 

  927.   (N :POINTER)
    928. 

  928.   (ILO :POINTER)
    929. 

  929.   (IHI :POINTER)
    930. 

  930.   (SCALE :POINTER)
    931. 

  931.   (M :POINTER)
    932. 

  932.   (V :POINTER)
    933. 

  933.   (LDV :POINTER)
    934. 

  934.   (INFO :POINTER))
    935. 

  935. 

  936. (COMMON-LISP:DEFUN %DGEBAK (JOB SIDE N ILO IHI SCALE M V LDV INFO)
    937. 

  937.   (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGEBAK)
    938. 

  938.                        (COMMON-LISP:TYPE COMMON-LISP:STRING JOB)
    939. 

  939.                        (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
    940. 

  940.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
    941. 

  941.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILO)
    942. 

  942.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IHI)
    943. 

  943.                        (COMMON-LISP:TYPE
    944. 

  944.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    945. 

  945.                         SCALE)
    946. 

  946.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
    947. 

  947.                        (COMMON-LISP:TYPE
    948. 

  948.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) V)
    949. 

  949.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV)
    950. 

  950.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
    951. 

  951.   (CFFI:WITH-FOREIGN-OBJECTS ((N-REF6028 ':INT32) (ILO-REF6029 ':INT32)
    952. 

  952.                               (IHI-REF6030 ':INT32) (M-REF6032 ':INT32)
    953. 

  953.                               (LDV-REF6034 ':INT32) (INFO-REF6035 ':INT32))
    954. 

  954.     (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6028 :INT32) N)
    955. 

  955.     (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF6029 :INT32) ILO)
    956. 

  956.     (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF6030 :INT32) IHI)
    957. 

  957.     (COMMON-LISP:SETF (CFFI:MEM-REF M-REF6032 :INT32) M)
    958. 

  958.     (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF6034 :INT32) LDV)
    959. 

  959.     (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6035 :INT32) INFO)
    960. 

  960.     (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((SCALE-REF6031 SCALE) (V-REF6033 V))
    961. 

  961.       (%%DGEBAK JOB SIDE N-REF6028 ILO-REF6029 IHI-REF6030 SCALE-REF6031
    962. 

  962.        M-REF6032 V-REF6033 LDV-REF6034 INFO-REF6035))))
    963. 

  963. 

  964. (CFFI:DEFCFUN ("dgebal_" %%DGEBAL :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    965. 

  965.     :VOID
    966. 

  966.   (JOB :STRING)
    967. 

  967.   (N :POINTER)
    968. 

  968.   (A :POINTER)
    969. 

  969.   (LDA :POINTER)
    970. 

  970.   (ILO :POINTER)
    971. 

  971.   (IHI :POINTER)
    972. 

  972.   (SCALE :POINTER)
    973. 

  973.   (INFO :POINTER))
    974. 

  974. 

  975. (COMMON-LISP:DEFUN %DGEBAL (JOB N A LDA ILO IHI SCALE INFO)
    976. 

  976.   (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGEBAL)
    977. 

  977.                        (COMMON-LISP:TYPE COMMON-LISP:STRING JOB)
    978. 

  978.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
    979. 

  979.                        (COMMON-LISP:TYPE
    980. 

  980.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
    981. 

  981.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
    982. 

  982.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILO)
    983. 

  983.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IHI)
    984. 

  984.                        (COMMON-LISP:TYPE
    985. 

  985.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    986. 

  986.                         SCALE)
    987. 

  987.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
    988. 

  988.   (CFFI:WITH-FOREIGN-OBJECTS ((N-REF6037 ':INT32) (LDA-REF6039 ':INT32)
    989. 

  989.                               (ILO-REF6040 ':INT32) (IHI-REF6041 ':INT32)
    990. 

  990.                               (INFO-REF6043 ':INT32))
    991. 

  991.     (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6037 :INT32) N)
    992. 

  992.     (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6039 :INT32) LDA)
    993. 

  993.     (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF6040 :INT32) ILO)
    994. 

  994.     (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF6041 :INT32) IHI)
    995. 

  995.     (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6043 :INT32) INFO)
    996. 

  996.     (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6038 A) (SCALE-REF6042 SCALE))
    997. 

  997.       (%%DGEBAL JOB N-REF6037 A-REF6038 LDA-REF6039 ILO-REF6040 IHI-REF6041
    998. 

  998.        SCALE-REF6042 INFO-REF6043))))
    999. 

  999. 

  1000. (CFFI:DEFCFUN ("dgebd2_" %%DGEBD2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    1001. 

  1001.     :VOID
    1002. 

  1002.   (M :POINTER)
    1003. 

  1003.   (N :POINTER)
    1004. 

  1004.   (A :POINTER)
    1005. 

  1005.   (LDA :POINTER)
    1006. 

  1006.   (D :POINTER)
    1007. 

  1007.   (E :POINTER)
    1008. 

  1008.   (TAUQ :POINTER)
    1009. 

  1009.   (TAUP :POINTER)
    1010. 

  1010.   (WORK :POINTER)
    1011. 

  1011.   (INFO :POINTER))
    1012. 

  1012. 

  1013. (COMMON-LISP:DEFUN %DGEBD2 (M N A LDA D E TAUQ TAUP WORK INFO)
    1014. 

  1014.   (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGEBD2)
    1015. 

  1015.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
    1016. 

  1016.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
    1017. 

  1017.                        (COMMON-LISP:TYPE
    1018. 

  1018.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
    1019. 

  1019.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
    1020. 

  1020.                        (COMMON-LISP:TYPE
    1021. 

  1021.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
    1022. 

  1022.                        (COMMON-LISP:TYPE
    1023. 

  1023.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) E)
    1024. 

  1024.                        (COMMON-LISP:TYPE
    1025. 

  1025.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    1026. 

  1026.                         TAUQ)
    1027. 

  1027.                        (COMMON-LISP:TYPE
    1028. 

  1028.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    1029. 

  1029.                         TAUP)
    1030. 

  1030.                        (COMMON-LISP:TYPE
    1031. 

  1031.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    1032. 

  1032.                         WORK)
    1033. 

  1033.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
    1034. 

  1034.   (CFFI:WITH-FOREIGN-OBJECTS ((M-REF6044 ':INT32) (N-REF6045 ':INT32)
    1035. 

  1035.                               (LDA-REF6047 ':INT32) (INFO-REF6053 ':INT32))
    1036. 

  1036.     (COMMON-LISP:SETF (CFFI:MEM-REF M-REF6044 :INT32) M)
    1037. 

  1037.     (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6045 :INT32) N)
    1038. 

  1038.     (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6047 :INT32) LDA)
    1039. 

  1039.     (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6053 :INT32) INFO)
    1040. 

  1040.     (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6046 A) (D-REF6048 D)
    1041. 

  1041.                                             (E-REF6049 E) (TAUQ-REF6050 TAUQ)
    1042. 

  1042.                                             (TAUP-REF6051 TAUP)
    1043. 

  1043.                                             (WORK-REF6052 WORK))
    1044. 

  1044.       (%%DGEBD2 M-REF6044 N-REF6045 A-REF6046 LDA-REF6047 D-REF6048 E-REF6049
    1045. 

  1045.        TAUQ-REF6050 TAUP-REF6051 WORK-REF6052 INFO-REF6053))))
    1046. 

  1046. 

  1047. (CFFI:DEFCFUN ("dgebrd_" %%DGEBRD :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    1048. 

  1048.     :VOID
    1049. 

  1049.   (M :POINTER)
    1050. 

  1050.   (N :POINTER)
    1051. 

  1051.   (A :POINTER)
    1052. 

  1052.   (LDA :POINTER)
    1053. 

  1053.   (D :POINTER)
    1054. 

  1054.   (E :POINTER)
    1055. 

  1055.   (TAUQ :POINTER)
    1056. 

  1056.   (TAUP :POINTER)
    1057. 

  1057.   (WORK :POINTER)
    1058. 

  1058.   (LWORK :POINTER)
    1059. 

  1059.   (INFO :POINTER))
    1060. 

  1060. 

  1061. (COMMON-LISP:DEFUN %DGEBRD (M N A LDA D E TAUQ TAUP WORK LWORK INFO)
    1062. 

  1062.   (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGEBRD)
    1063. 

  1063.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
    1064. 

  1064.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
    1065. 

  1065.                        (COMMON-LISP:TYPE
    1066. 

  1066.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
    1067. 

  1067.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
    1068. 

  1068.                        (COMMON-LISP:TYPE
    1069. 

  1069.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
    1070. 

  1070.                        (COMMON-LISP:TYPE
    1071. 

  1071.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) E)
    1072. 

  1072.                        (COMMON-LISP:TYPE
    1073. 

  1073.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    1074. 

  1074.                         TAUQ)
    1075. 

  1075.                        (COMMON-LISP:TYPE
    1076. 

  1076.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    1077. 

  1077.                         TAUP)
    1078. 

  1078.                        (COMMON-LISP:TYPE
    1079. 

  1079.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    1080. 

  1080.                         WORK)
    1081. 

  1081.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
    1082. 

  1082.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
    1083. 

  1083.   (CFFI:WITH-FOREIGN-OBJECTS ((M-REF6054 ':INT32) (N-REF6055 ':INT32)
    1084. 

  1084.                               (LDA-REF6057 ':INT32) (LWORK-REF6063 ':INT32)
    1085. 

  1085.                               (INFO-REF6064 ':INT32))
    1086. 

  1086.     (COMMON-LISP:SETF (CFFI:MEM-REF M-REF6054 :INT32) M)
    1087. 

  1087.     (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6055 :INT32) N)
    1088. 

  1088.     (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6057 :INT32) LDA)
    1089. 

  1089.     (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF6063 :INT32) LWORK)
    1090. 

  1090.     (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6064 :INT32) INFO)
    1091. 

  1091.     (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6056 A) (D-REF6058 D)
    1092. 

  1092.                                             (E-REF6059 E) (TAUQ-REF6060 TAUQ)
    1093. 

  1093.                                             (TAUP-REF6061 TAUP)
    1094. 

  1094.                                             (WORK-REF6062 WORK))
    1095. 

  1095.       (%%DGEBRD M-REF6054 N-REF6055 A-REF6056 LDA-REF6057 D-REF6058 E-REF6059
    1096. 

  1096.        TAUQ-REF6060 TAUP-REF6061 WORK-REF6062 LWORK-REF6063 INFO-REF6064))))
    1097. 

  1097. 

  1098. (CFFI:DEFCFUN ("dgecon_" %%DGECON :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    1099. 

  1099.     :VOID
    1100. 

  1100.   (NORM :STRING)
    1101. 

  1101.   (N :POINTER)
    1102. 

  1102.   (A :POINTER)
    1103. 

  1103.   (LDA :POINTER)
    1104. 

  1104.   (ANORM :POINTER)
    1105. 

  1105.   (RCOND :POINTER)
    1106. 

  1106.   (WORK :POINTER)
    1107. 

  1107.   (IWORK :POINTER)
    1108. 

  1108.   (INFO :POINTER))
    1109. 

  1109. 

  1110. (COMMON-LISP:DEFUN %DGECON (NORM N A LDA ANORM RCOND WORK IWORK INFO)
    1111. 

  1111.   (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGECON)
    1112. 

  1112.                        (COMMON-LISP:TYPE COMMON-LISP:STRING NORM)
    1113. 

  1113.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
    1114. 

  1114.                        (COMMON-LISP:TYPE
    1115. 

  1115.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
    1116. 

  1116.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
    1117. 

  1117.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ANORM)
    1118. 

  1118.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RCOND)
    1119. 

  1119.                        (COMMON-LISP:TYPE
    1120. 

  1120.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    1121. 

  1121.                         WORK)
    1122. 

  1122.                        (COMMON-LISP:TYPE
    1123. 

  1123.                         (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
    1124. 

  1124.                          (COMMON-LISP:*))
    1125. 

  1125.                         IWORK)
    1126. 

  1126.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
    1127. 

  1127.   (CFFI:WITH-FOREIGN-OBJECTS ((N-REF6066 ':INT32) (LDA-REF6068 ':INT32)
    1128. 

  1128.                               (ANORM-REF6069 ':DOUBLE) (RCOND-REF6070 ':DOUBLE)
    1129. 

  1129.                               (INFO-REF6073 ':INT32))
    1130. 

  1130.     (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6066 :INT32) N)
    1131. 

  1131.     (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6068 :INT32) LDA)
    1132. 

  1132.     (COMMON-LISP:SETF (CFFI:MEM-REF ANORM-REF6069 :DOUBLE) ANORM)
    1133. 

  1133.     (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF6070 :DOUBLE) RCOND)
    1134. 

  1134.     (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6073 :INT32) INFO)
    1135. 

  1135.     (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6067 A) (WORK-REF6071 WORK)
    1136. 

  1136.                                             (IWORK-REF6072 IWORK))
    1137. 

  1137.       (%%DGECON NORM N-REF6066 A-REF6067 LDA-REF6068 ANORM-REF6069
    1138. 

  1138.        RCOND-REF6070 WORK-REF6071 IWORK-REF6072 INFO-REF6073))))
    1139. 

  1139. 

  1140. (CFFI:DEFCFUN ("dgeequ_" %%DGEEQU :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    1141. 

  1141.     :VOID
    1142. 

  1142.   (M :POINTER)
    1143. 

  1143.   (N :POINTER)
    1144. 

  1144.   (A :POINTER)
    1145. 

  1145.   (LDA :POINTER)
    1146. 

  1146.   (R :POINTER)
    1147. 

  1147.   (C :POINTER)
    1148. 

  1148.   (ROWCND :POINTER)
    1149. 

  1149.   (COLCND :POINTER)
    1150. 

  1150.   (AMAX :POINTER)
    1151. 

  1151.   (INFO :POINTER))
    1152. 

  1152. 

  1153. (COMMON-LISP:DEFUN %DGEEQU (M N A LDA R C ROWCND COLCND AMAX INFO)
    1154. 

  1154.   (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGEEQU)
    1155. 

  1155.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
    1156. 

  1156.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
    1157. 

  1157.                        (COMMON-LISP:TYPE
    1158. 

  1158.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
    1159. 

  1159.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
    1160. 

  1160.                        (COMMON-LISP:TYPE
    1161. 

  1161.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) R)
    1162. 

  1162.                        (COMMON-LISP:TYPE
    1163. 

  1163.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
    1164. 

  1164.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ROWCND)
    1165. 

  1165.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT COLCND)
    1166. 

  1166.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT AMAX)
    1167. 

  1167.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
    1168. 

  1168.   (CFFI:WITH-FOREIGN-OBJECTS ((M-REF6074 ':INT32) (N-REF6075 ':INT32)
    1169. 

  1169.                               (LDA-REF6077 ':INT32) (ROWCND-REF6080 ':DOUBLE)
    1170. 

  1170.                               (COLCND-REF6081 ':DOUBLE) (AMAX-REF6082 ':DOUBLE)
    1171. 

  1171.                               (INFO-REF6083 ':INT32))
    1172. 

  1172.     (COMMON-LISP:SETF (CFFI:MEM-REF M-REF6074 :INT32) M)
    1173. 

  1173.     (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6075 :INT32) N)
    1174. 

  1174.     (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6077 :INT32) LDA)
    1175. 

  1175.     (COMMON-LISP:SETF (CFFI:MEM-REF ROWCND-REF6080 :DOUBLE) ROWCND)
    1176. 

  1176.     (COMMON-LISP:SETF (CFFI:MEM-REF COLCND-REF6081 :DOUBLE) COLCND)
    1177. 

  1177.     (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF6082 :DOUBLE) AMAX)
    1178. 

  1178.     (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6083 :INT32) INFO)
    1179. 

  1179.     (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6076 A) (R-REF6078 R)
    1180. 

  1180.                                             (C-REF6079 C))
    1181. 

  1181.       (%%DGEEQU M-REF6074 N-REF6075 A-REF6076 LDA-REF6077 R-REF6078 C-REF6079
    1182. 

  1182.        ROWCND-REF6080 COLCND-REF6081 AMAX-REF6082 INFO-REF6083))))
    1183. 

  1183. 

  1184. (CFFI:DEFCFUN ("dgeequb_" %%DGEEQUB :LIBRARY
    1185. 

  1185.                MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    1186. 

  1186.     :VOID
    1187. 

  1187.   (M :POINTER)
    1188. 

  1188.   (N :POINTER)
    1189. 

  1189.   (A :POINTER)
    1190. 

  1190.   (LDA :POINTER)
    1191. 

  1191.   (R :POINTER)
    1192. 

  1192.   (C :POINTER)
    1193. 

  1193.   (ROWCND :POINTER)
    1194. 

  1194.   (COLCND :POINTER)
    1195. 

  1195.   (AMAX :POINTER)
    1196. 

  1196.   (INFO :POINTER))
    1197. 

  1197. 

  1198. (COMMON-LISP:DEFUN %DGEEQUB (M N A LDA R C ROWCND COLCND AMAX INFO)
    1199. 

  1199.   (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGEEQUB)
    1200. 

  1200.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
    1201. 

  1201.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
    1202. 

  1202.                        (COMMON-LISP:TYPE
    1203. 

  1203.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
    1204. 

  1204.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
    1205. 

  1205.                        (COMMON-LISP:TYPE
    1206. 

  1206.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) R)
    1207. 

  1207.                        (COMMON-LISP:TYPE
    1208. 

  1208.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
    1209. 

  1209.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ROWCND)
    1210. 

  1210.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT COLCND)
    1211. 

  1211.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT AMAX)
    1212. 

  1212.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
    1213. 

  1213.   (CFFI:WITH-FOREIGN-OBJECTS ((M-REF6084 ':INT32) (N-REF6085 ':INT32)
    1214. 

  1214.                               (LDA-REF6087 ':INT32) (ROWCND-REF6090 ':DOUBLE)
    1215. 

  1215.                               (COLCND-REF6091 ':DOUBLE) (AMAX-REF6092 ':DOUBLE)
    1216. 

  1216.                               (INFO-REF6093 ':INT32))
    1217. 

  1217.     (COMMON-LISP:SETF (CFFI:MEM-REF M-REF6084 :INT32) M)
    1218. 

  1218.     (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6085 :INT32) N)
    1219. 

  1219.     (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6087 :INT32) LDA)
    1220. 

  1220.     (COMMON-LISP:SETF (CFFI:MEM-REF ROWCND-REF6090 :DOUBLE) ROWCND)
    1221. 

  1221.     (COMMON-LISP:SETF (CFFI:MEM-REF COLCND-REF6091 :DOUBLE) COLCND)
    1222. 

  1222.     (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF6092 :DOUBLE) AMAX)
    1223. 

  1223.     (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6093 :INT32) INFO)
    1224. 

  1224.     (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6086 A) (R-REF6088 R)
    1225. 

  1225.                                             (C-REF6089 C))
    1226. 

  1226.       (%%DGEEQUB M-REF6084 N-REF6085 A-REF6086 LDA-REF6087 R-REF6088 C-REF6089
    1227. 

  1227.        ROWCND-REF6090 COLCND-REF6091 AMAX-REF6092 INFO-REF6093))))
    1228. 

  1228. 

  1229. (CFFI:DEFCFUN ("dgees_" %%DGEES :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    1230. 

  1230.     :VOID
    1231. 

  1231.   (JOBVS :STRING)
    1232. 

  1232.   (SORT :STRING)
    1233. 

  1233.   (SELECT :POINTER)
    1234. 

  1234.   (N :POINTER)
    1235. 

  1235.   (A :POINTER)
    1236. 

  1236.   (LDA :POINTER)
    1237. 

  1237.   (SDIM :POINTER)
    1238. 

  1238.   (WR :POINTER)
    1239. 

  1239.   (WI :POINTER)
    1240. 

  1240.   (VS :POINTER)
    1241. 

  1241.   (LDVS :POINTER)
    1242. 

  1242.   (WORK :POINTER)
    1243. 

  1243.   (LWORK :POINTER)
    1244. 

  1244.   (BWORK :POINTER)
    1245. 

  1245.   (INFO :POINTER))
    1246. 

  1246. 

  1247. (COMMON-LISP:DEFUN %DGEES
    1248. 

  1248.                    (JOBVS SORT SELECT N A LDA SDIM WR WI VS LDVS WORK LWORK
    1249. 

  1249.                     BWORK INFO)
    1250. 

  1250.   (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGEES)
    1251. 

  1251.                        (COMMON-LISP:TYPE COMMON-LISP:STRING JOBVS)
    1252. 

  1252.                        (COMMON-LISP:TYPE COMMON-LISP:STRING SORT)
    1253. 

  1253.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) SELECT)
    1254. 

  1254.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
    1255. 

  1255.                        (COMMON-LISP:TYPE
    1256. 

  1256.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
    1257. 

  1257.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
    1258. 

  1258.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) SDIM)
    1259. 

  1259.                        (COMMON-LISP:TYPE
    1260. 

  1260.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WR)
    1261. 

  1261.                        (COMMON-LISP:TYPE
    1262. 

  1262.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WI)
    1263. 

  1263.                        (COMMON-LISP:TYPE
    1264. 

  1264.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) VS)
    1265. 

  1265.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVS)
    1266. 

  1266.                        (COMMON-LISP:TYPE
    1267. 

  1267.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    1268. 

  1268.                         WORK)
    1269. 

  1269.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
    1270. 

  1270.                        (COMMON-LISP:TYPE
    1271. 

  1271.                         (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
    1272. 

  1272.                          (COMMON-LISP:*))
    1273. 

  1273.                         BWORK)
    1274. 

  1274.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
    1275. 

  1275.   (CFFI:WITH-FOREIGN-OBJECTS ((SELECT-REF6096 ':INT32) (N-REF6097 ':INT32)
    1276. 

  1276.                               (LDA-REF6099 ':INT32) (SDIM-REF6100 ':INT32)
    1277. 

  1277.                               (LDVS-REF6104 ':INT32) (LWORK-REF6106 ':INT32)
    1278. 

  1278.                               (INFO-REF6108 ':INT32))
    1279. 

  1279.     (COMMON-LISP:SETF (CFFI:MEM-REF SELECT-REF6096 :INT32) SELECT)
    1280. 

  1280.     (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6097 :INT32) N)
    1281. 

  1281.     (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6099 :INT32) LDA)
    1282. 

  1282.     (COMMON-LISP:SETF (CFFI:MEM-REF SDIM-REF6100 :INT32) SDIM)
    1283. 

  1283.     (COMMON-LISP:SETF (CFFI:MEM-REF LDVS-REF6104 :INT32) LDVS)
    1284. 

  1284.     (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF6106 :INT32) LWORK)
    1285. 

  1285.     (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6108 :INT32) INFO)
    1286. 

  1286.     (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6098 A) (WR-REF6101 WR)
    1287. 

  1287.                                             (WI-REF6102 WI) (VS-REF6103 VS)
    1288. 

  1288.                                             (WORK-REF6105 WORK)
    1289. 

  1289.                                             (BWORK-REF6107 BWORK))
    1290. 

  1290.       (%%DGEES JOBVS SORT SELECT-REF6096 N-REF6097 A-REF6098 LDA-REF6099
    1291. 

  1291.        SDIM-REF6100 WR-REF6101 WI-REF6102 VS-REF6103 LDVS-REF6104 WORK-REF6105
    1292. 

  1292.        LWORK-REF6106 BWORK-REF6107 INFO-REF6108))))
    1293. 

  1293. 

  1294. (CFFI:DEFCFUN ("dgeesx_" %%DGEESX :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    1295. 

  1295.     :VOID
    1296. 

  1296.   (JOBVS :STRING)
    1297. 

  1297.   (SORT :STRING)
    1298. 

  1298.   (SELECT :POINTER)
    1299. 

  1299.   (SENSE :STRING)
    1300. 

  1300.   (N :POINTER)
    1301. 

  1301.   (A :POINTER)
    1302. 

  1302.   (LDA :POINTER)
    1303. 

  1303.   (SDIM :POINTER)
    1304. 

  1304.   (WR :POINTER)
    1305. 

  1305.   (WI :POINTER)
    1306. 

  1306.   (VS :POINTER)
    1307. 

  1307.   (LDVS :POINTER)
    1308. 

  1308.   (RCONDE :POINTER)
    1309. 

  1309.   (RCONDV :POINTER)
    1310. 

  1310.   (WORK :POINTER)
    1311. 

  1311.   (LWORK :POINTER)
    1312. 

  1312.   (IWORK :POINTER)
    1313. 

  1313.   (LIWORK :POINTER)
    1314. 

  1314.   (BWORK :POINTER)
    1315. 

  1315.   (INFO :POINTER))
    1316. 

  1316. 

  1317. (COMMON-LISP:DEFUN %DGEESX
    1318. 

  1318.                    (JOBVS SORT SELECT SENSE N A LDA SDIM WR WI VS LDVS RCONDE
    1319. 

  1319.                     RCONDV WORK LWORK IWORK LIWORK BWORK INFO)
    1320. 

  1320.   (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGEESX)
    1321. 

  1321.                        (COMMON-LISP:TYPE COMMON-LISP:STRING JOBVS)
    1322. 

  1322.                        (COMMON-LISP:TYPE COMMON-LISP:STRING SORT)
    1323. 

  1323.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) SELECT)
    1324. 

  1324.                        (COMMON-LISP:TYPE COMMON-LISP:STRING SENSE)
    1325. 

  1325.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
    1326. 

  1326.                        (COMMON-LISP:TYPE
    1327. 

  1327.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
    1328. 

  1328.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
    1329. 

  1329.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) SDIM)
    1330. 

  1330.                        (COMMON-LISP:TYPE
    1331. 

  1331.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WR)
    1332. 

  1332.                        (COMMON-LISP:TYPE
    1333. 

  1333.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WI)
    1334. 

  1334.                        (COMMON-LISP:TYPE
    1335. 

  1335.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) VS)
    1336. 

  1336.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVS)
    1337. 

  1337.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RCONDE)
    1338. 

  1338.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RCONDV)
    1339. 

  1339.                        (COMMON-LISP:TYPE
    1340. 

  1340.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    1341. 

  1341.                         WORK)
    1342. 

  1342.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
    1343. 

  1343.                        (COMMON-LISP:TYPE
    1344. 

  1344.                         (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
    1345. 

  1345.                          (COMMON-LISP:*))
    1346. 

  1346.                         IWORK)
    1347. 

  1347.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LIWORK)
    1348. 

  1348.                        (COMMON-LISP:TYPE
    1349. 

  1349.                         (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
    1350. 

  1350.                          (COMMON-LISP:*))
    1351. 

  1351.                         BWORK)
    1352. 

  1352.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
    1353. 

  1353.   (CFFI:WITH-FOREIGN-OBJECTS ((SELECT-REF6111 ':INT32) (N-REF6113 ':INT32)
    1354. 

  1354.                               (LDA-REF6115 ':INT32) (SDIM-REF6116 ':INT32)
    1355. 

  1355.                               (LDVS-REF6120 ':INT32) (RCONDE-REF6121 ':DOUBLE)
    1356. 

  1356.                               (RCONDV-REF6122 ':DOUBLE) (LWORK-REF6124 ':INT32)
    1357. 

  1357.                               (LIWORK-REF6126 ':INT32) (INFO-REF6128 ':INT32))
    1358. 

  1358.     (COMMON-LISP:SETF (CFFI:MEM-REF SELECT-REF6111 :INT32) SELECT)
    1359. 

  1359.     (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6113 :INT32) N)
    1360. 

  1360.     (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6115 :INT32) LDA)
    1361. 

  1361.     (COMMON-LISP:SETF (CFFI:MEM-REF SDIM-REF6116 :INT32) SDIM)
    1362. 

  1362.     (COMMON-LISP:SETF (CFFI:MEM-REF LDVS-REF6120 :INT32) LDVS)
    1363. 

  1363.     (COMMON-LISP:SETF (CFFI:MEM-REF RCONDE-REF6121 :DOUBLE) RCONDE)
    1364. 

  1364.     (COMMON-LISP:SETF (CFFI:MEM-REF RCONDV-REF6122 :DOUBLE) RCONDV)
    1365. 

  1365.     (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF6124 :INT32) LWORK)
    1366. 

  1366.     (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF6126 :INT32) LIWORK)
    1367. 

  1367.     (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6128 :INT32) INFO)
    1368. 

  1368.     (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6114 A) (WR-REF6117 WR)
    1369. 

  1369.                                             (WI-REF6118 WI) (VS-REF6119 VS)
    1370. 

  1370.                                             (WORK-REF6123 WORK)
    1371. 

  1371.                                             (IWORK-REF6125 IWORK)
    1372. 

  1372.                                             (BWORK-REF6127 BWORK))
    1373. 

  1373.       (%%DGEESX JOBVS SORT SELECT-REF6111 SENSE N-REF6113 A-REF6114 LDA-REF6115
    1374. 

  1374.        SDIM-REF6116 WR-REF6117 WI-REF6118 VS-REF6119 LDVS-REF6120
    1375. 

  1375.        RCONDE-REF6121 RCONDV-REF6122 WORK-REF6123 LWORK-REF6124 IWORK-REF6125
    1376. 

  1376.        LIWORK-REF6126 BWORK-REF6127 INFO-REF6128))))
    1377. 

  1377. 

  1378. (CFFI:DEFCFUN ("dgeev_" %%DGEEV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    1379. 

  1379.     :VOID
    1380. 

  1380.   (JOBVL :STRING)
    1381. 

  1381.   (JOBVR :STRING)
    1382. 

  1382.   (N :POINTER)
    1383. 

  1383.   (A :POINTER)
    1384. 

  1384.   (LDA :POINTER)
    1385. 

  1385.   (WR :POINTER)
    1386. 

  1386.   (WI :POINTER)
    1387. 

  1387.   (VL :POINTER)
    1388. 

  1388.   (LDVL :POINTER)
    1389. 

  1389.   (VR :POINTER)
    1390. 

  1390.   (LDVR :POINTER)
    1391. 

  1391.   (WORK :POINTER)
    1392. 

  1392.   (LWORK :POINTER)
    1393. 

  1393.   (INFO :POINTER))
    1394. 

  1394. 

  1395. (COMMON-LISP:DEFUN %DGEEV
    1396. 

  1396.                    (JOBVL JOBVR N A LDA WR WI VL LDVL VR LDVR WORK LWORK INFO)
    1397. 

  1397.   (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGEEV)
    1398. 

  1398.                        (COMMON-LISP:TYPE COMMON-LISP:STRING JOBVL)
    1399. 

  1399.                        (COMMON-LISP:TYPE COMMON-LISP:STRING JOBVR)
    1400. 

  1400.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
    1401. 

  1401.                        (COMMON-LISP:TYPE
    1402. 

  1402.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
    1403. 

  1403.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
    1404. 

  1404.                        (COMMON-LISP:TYPE
    1405. 

  1405.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WR)
    1406. 

  1406.                        (COMMON-LISP:TYPE
    1407. 

  1407.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WI)
    1408. 

  1408.                        (COMMON-LISP:TYPE
    1409. 

  1409.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) VL)
    1410. 

  1410.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVL)
    1411. 

  1411.                        (COMMON-LISP:TYPE
    1412. 

  1412.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) VR)
    1413. 

  1413.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVR)
    1414. 

  1414.                        (COMMON-LISP:TYPE
    1415. 

  1415.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    1416. 

  1416.                         WORK)
    1417. 

  1417.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
    1418. 

  1418.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
    1419. 

  1419.   (CFFI:WITH-FOREIGN-OBJECTS ((N-REF6131 ':INT32) (LDA-REF6133 ':INT32)
    1420. 

  1420.                               (LDVL-REF6137 ':INT32) (LDVR-REF6139 ':INT32)
    1421. 

  1421.                               (LWORK-REF6141 ':INT32) (INFO-REF6142 ':INT32))
    1422. 

  1422.     (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6131 :INT32) N)
    1423. 

  1423.     (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6133 :INT32) LDA)
    1424. 

  1424.     (COMMON-LISP:SETF (CFFI:MEM-REF LDVL-REF6137 :INT32) LDVL)
    1425. 

  1425.     (COMMON-LISP:SETF (CFFI:MEM-REF LDVR-REF6139 :INT32) LDVR)
    1426. 

  1426.     (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF6141 :INT32) LWORK)
    1427. 

  1427.     (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6142 :INT32) INFO)
    1428. 

  1428.     (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6132 A) (WR-REF6134 WR)
    1429. 

  1429.                                             (WI-REF6135 WI) (VL-REF6136 VL)
    1430. 

  1430.                                             (VR-REF6138 VR) (WORK-REF6140 WORK))
    1431. 

  1431.       (%%DGEEV JOBVL JOBVR N-REF6131 A-REF6132 LDA-REF6133 WR-REF6134
    1432. 

  1432.        WI-REF6135 VL-REF6136 LDVL-REF6137 VR-REF6138 LDVR-REF6139 WORK-REF6140
    1433. 

  1433.        LWORK-REF6141 INFO-REF6142))))
    1434. 

  1434. 

  1435. (CFFI:DEFCFUN ("dgeevx_" %%DGEEVX :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    1436. 

  1436.     :VOID
    1437. 

  1437.   (BALANC :STRING)
    1438. 

  1438.   (JOBVL :STRING)
    1439. 

  1439.   (JOBVR :STRING)
    1440. 

  1440.   (SENSE :STRING)
    1441. 

  1441.   (N :POINTER)
    1442. 

  1442.   (A :POINTER)
    1443. 

  1443.   (LDA :POINTER)
    1444. 

  1444.   (WR :POINTER)
    1445. 

  1445.   (WI :POINTER)
    1446. 

  1446.   (VL :POINTER)
    1447. 

  1447.   (LDVL :POINTER)
    1448. 

  1448.   (VR :POINTER)
    1449. 

  1449.   (LDVR :POINTER)
    1450. 

  1450.   (ILO :POINTER)
    1451. 

  1451.   (IHI :POINTER)
    1452. 

  1452.   (SCALE :POINTER)
    1453. 

  1453.   (ABNRM :POINTER)
    1454. 

  1454.   (RCONDE :POINTER)
    1455. 

  1455.   (RCONDV :POINTER)
    1456. 

  1456.   (WORK :POINTER)
    1457. 

  1457.   (LWORK :POINTER)
    1458. 

  1458.   (IWORK :POINTER)
    1459. 

  1459.   (INFO :POINTER))
    1460. 

  1460. 

  1461. (COMMON-LISP:DEFUN %DGEEVX
    1462. 

  1462.                    (BALANC JOBVL JOBVR SENSE N A LDA WR WI VL LDVL VR LDVR ILO
    1463. 

  1463.                     IHI SCALE ABNRM RCONDE RCONDV WORK LWORK IWORK INFO)
    1464. 

  1464.   (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGEEVX)
    1465. 

  1465.                        (COMMON-LISP:TYPE COMMON-LISP:STRING BALANC)
    1466. 

  1466.                        (COMMON-LISP:TYPE COMMON-LISP:STRING JOBVL)
    1467. 

  1467.                        (COMMON-LISP:TYPE COMMON-LISP:STRING JOBVR)
    1468. 

  1468.                        (COMMON-LISP:TYPE COMMON-LISP:STRING SENSE)
    1469. 

  1469.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
    1470. 

  1470.                        (COMMON-LISP:TYPE
    1471. 

  1471.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
    1472. 

  1472.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
    1473. 

  1473.                        (COMMON-LISP:TYPE
    1474. 

  1474.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WR)
    1475. 

  1475.                        (COMMON-LISP:TYPE
    1476. 

  1476.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WI)
    1477. 

  1477.                        (COMMON-LISP:TYPE
    1478. 

  1478.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) VL)
    1479. 

  1479.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVL)
    1480. 

  1480.                        (COMMON-LISP:TYPE
    1481. 

  1481.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) VR)
    1482. 

  1482.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVR)
    1483. 

  1483.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILO)
    1484. 

  1484.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IHI)
    1485. 

  1485.                        (COMMON-LISP:TYPE
    1486. 

  1486.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    1487. 

  1487.                         SCALE)
    1488. 

  1488.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ABNRM)
    1489. 

  1489.                        (COMMON-LISP:TYPE
    1490. 

  1490.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    1491. 

  1491.                         RCONDE)
    1492. 

  1492.                        (COMMON-LISP:TYPE
    1493. 

  1493.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    1494. 

  1494.                         RCONDV)
    1495. 

  1495.                        (COMMON-LISP:TYPE
    1496. 

  1496.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    1497. 

  1497.                         WORK)
    1498. 

  1498.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
    1499. 

  1499.                        (COMMON-LISP:TYPE
    1500. 

  1500.                         (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
    1501. 

  1501.                          (COMMON-LISP:*))
    1502. 

  1502.                         IWORK)
    1503. 

  1503.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
    1504. 

  1504.   (CFFI:WITH-FOREIGN-OBJECTS ((N-REF6147 ':INT32) (LDA-REF6149 ':INT32)
    1505. 

  1505.                               (LDVL-REF6153 ':INT32) (LDVR-REF6155 ':INT32)
    1506. 

  1506.                               (ILO-REF6156 ':INT32) (IHI-REF6157 ':INT32)
    1507. 

  1507.                               (ABNRM-REF6159 ':DOUBLE) (LWORK-REF6163 ':INT32)
    1508. 

  1508.                               (INFO-REF6165 ':INT32))
    1509. 

  1509.     (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6147 :INT32) N)
    1510. 

  1510.     (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6149 :INT32) LDA)
    1511. 

  1511.     (COMMON-LISP:SETF (CFFI:MEM-REF LDVL-REF6153 :INT32) LDVL)
    1512. 

  1512.     (COMMON-LISP:SETF (CFFI:MEM-REF LDVR-REF6155 :INT32) LDVR)
    1513. 

  1513.     (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF6156 :INT32) ILO)
    1514. 

  1514.     (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF6157 :INT32) IHI)
    1515. 

  1515.     (COMMON-LISP:SETF (CFFI:MEM-REF ABNRM-REF6159 :DOUBLE) ABNRM)
    1516. 

  1516.     (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF6163 :INT32) LWORK)
    1517. 

  1517.     (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6165 :INT32) INFO)
    1518. 

  1518.     (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6148 A) (WR-REF6150 WR)
    1519. 

  1519.                                             (WI-REF6151 WI) (VL-REF6152 VL)
    1520. 

  1520.                                             (VR-REF6154 VR)
    1521. 

  1521.                                             (SCALE-REF6158 SCALE)
    1522. 

  1522.                                             (RCONDE-REF6160 RCONDE)
    1523. 

  1523.                                             (RCONDV-REF6161 RCONDV)
    1524. 

  1524.                                             (WORK-REF6162 WORK)
    1525. 

  1525.                                             (IWORK-REF6164 IWORK))
    1526. 

  1526.       (%%DGEEVX BALANC JOBVL JOBVR SENSE N-REF6147 A-REF6148 LDA-REF6149
    1527. 

  1527.        WR-REF6150 WI-REF6151 VL-REF6152 LDVL-REF6153 VR-REF6154 LDVR-REF6155
    1528. 

  1528.        ILO-REF6156 IHI-REF6157 SCALE-REF6158 ABNRM-REF6159 RCONDE-REF6160
    1529. 

  1529.        RCONDV-REF6161 WORK-REF6162 LWORK-REF6163 IWORK-REF6164 INFO-REF6165))))
    1530. 

  1530. 

  1531. (CFFI:DEFCFUN ("dgehd2_" %%DGEHD2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    1532. 

  1532.     :VOID
    1533. 

  1533.   (N :POINTER)
    1534. 

  1534.   (ILO :POINTER)
    1535. 

  1535.   (IHI :POINTER)
    1536. 

  1536.   (A :POINTER)
    1537. 

  1537.   (LDA :POINTER)
    1538. 

  1538.   (TAU :POINTER)
    1539. 

  1539.   (WORK :POINTER)
    1540. 

  1540.   (INFO :POINTER))
    1541. 

  1541. 

  1542. (COMMON-LISP:DEFUN %DGEHD2 (N ILO IHI A LDA TAU WORK INFO)
    1543. 

  1543.   (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGEHD2)
    1544. 

  1544.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
    1545. 

  1545.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILO)
    1546. 

  1546.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IHI)
    1547. 

  1547.                        (COMMON-LISP:TYPE
    1548. 

  1548.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
    1549. 

  1549.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
    1550. 

  1550.                        (COMMON-LISP:TYPE
    1551. 

  1551.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    1552. 

  1552.                         TAU)
    1553. 

  1553.                        (COMMON-LISP:TYPE
    1554. 

  1554.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    1555. 

  1555.                         WORK)
    1556. 

  1556.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
    1557. 

  1557.   (CFFI:WITH-FOREIGN-OBJECTS ((N-REF6166 ':INT32) (ILO-REF6167 ':INT32)
    1558. 

  1558.                               (IHI-REF6168 ':INT32) (LDA-REF6170 ':INT32)
    1559. 

  1559.                               (INFO-REF6173 ':INT32))
    1560. 

  1560.     (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6166 :INT32) N)
    1561. 

  1561.     (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF6167 :INT32) ILO)
    1562. 

  1562.     (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF6168 :INT32) IHI)
    1563. 

  1563.     (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6170 :INT32) LDA)
    1564. 

  1564.     (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6173 :INT32) INFO)
    1565. 

  1565.     (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6169 A) (TAU-REF6171 TAU)
    1566. 

  1566.                                             (WORK-REF6172 WORK))
    1567. 

  1567.       (%%DGEHD2 N-REF6166 ILO-REF6167 IHI-REF6168 A-REF6169 LDA-REF6170
    1568. 

  1568.        TAU-REF6171 WORK-REF6172 INFO-REF6173))))
    1569. 

  1569. 

  1570. (CFFI:DEFCFUN ("dgehrd_" %%DGEHRD :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    1571. 

  1571.     :VOID
    1572. 

  1572.   (N :POINTER)
    1573. 

  1573.   (ILO :POINTER)
    1574. 

  1574.   (IHI :POINTER)
    1575. 

  1575.   (A :POINTER)
    1576. 

  1576.   (LDA :POINTER)
    1577. 

  1577.   (TAU :POINTER)
    1578. 

  1578.   (WORK :POINTER)
    1579. 

  1579.   (LWORK :POINTER)
    1580. 

  1580.   (INFO :POINTER))
    1581. 

  1581. 

  1582. (COMMON-LISP:DEFUN %DGEHRD (N ILO IHI A LDA TAU WORK LWORK INFO)
    1583. 

  1583.   (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGEHRD)
    1584. 

  1584.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
    1585. 

  1585.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILO)
    1586. 

  1586.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IHI)
    1587. 

  1587.                        (COMMON-LISP:TYPE
    1588. 

  1588.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
    1589. 

  1589.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
    1590. 

  1590.                        (COMMON-LISP:TYPE
    1591. 

  1591.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    1592. 

  1592.                         TAU)
    1593. 

  1593.                        (COMMON-LISP:TYPE
    1594. 

  1594.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    1595. 

  1595.                         WORK)
    1596. 

  1596.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
    1597. 

  1597.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
    1598. 

  1598.   (CFFI:WITH-FOREIGN-OBJECTS ((N-REF6174 ':INT32) (ILO-REF6175 ':INT32)
    1599. 

  1599.                               (IHI-REF6176 ':INT32) (LDA-REF6178 ':INT32)
    1600. 

  1600.                               (LWORK-REF6181 ':INT32) (INFO-REF6182 ':INT32))
    1601. 

  1601.     (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6174 :INT32) N)
    1602. 

  1602.     (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF6175 :INT32) ILO)
    1603. 

  1603.     (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF6176 :INT32) IHI)
    1604. 

  1604.     (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6178 :INT32) LDA)
    1605. 

  1605.     (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF6181 :INT32) LWORK)
    1606. 

  1606.     (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6182 :INT32) INFO)
    1607. 

  1607.     (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6177 A) (TAU-REF6179 TAU)
    1608. 

  1608.                                             (WORK-REF6180 WORK))
    1609. 

  1609.       (%%DGEHRD N-REF6174 ILO-REF6175 IHI-REF6176 A-REF6177 LDA-REF6178
    1610. 

  1610.        TAU-REF6179 WORK-REF6180 LWORK-REF6181 INFO-REF6182))))
    1611. 

  1611. 

  1612. (CFFI:DEFCFUN ("dgejsv_" %%DGEJSV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    1613. 

  1613.     :VOID
    1614. 

  1614.   (JOBA :STRING)
    1615. 

  1615.   (JOBU :STRING)
    1616. 

  1616.   (JOBV :STRING)
    1617. 

  1617.   (JOBR :STRING)
    1618. 

  1618.   (JOBT :STRING)
    1619. 

  1619.   (JOBP :STRING)
    1620. 

  1620.   (M :POINTER)
    1621. 

  1621.   (N :POINTER)
    1622. 

  1622.   (A :POINTER)
    1623. 

  1623.   (LDA :POINTER)
    1624. 

  1624.   (SVA :POINTER)
    1625. 

  1625.   (U :POINTER)
    1626. 

  1626.   (LDU :POINTER)
    1627. 

  1627.   (V :POINTER)
    1628. 

  1628.   (LDV :POINTER)
    1629. 

  1629.   (WORK :POINTER)
    1630. 

  1630.   (LWORK :POINTER)
    1631. 

  1631.   (IWORK :POINTER)
    1632. 

  1632.   (INFO :POINTER))
    1633. 

  1633. 

  1634. (COMMON-LISP:DEFUN %DGEJSV
    1635. 

  1635.                    (JOBA JOBU JOBV JOBR JOBT JOBP M N A LDA SVA U LDU V LDV
    1636. 

  1636.                     WORK LWORK IWORK INFO)
    1637. 

  1637.   (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGEJSV)
    1638. 

  1638.                        (COMMON-LISP:TYPE COMMON-LISP:STRING JOBA)
    1639. 

  1639.                        (COMMON-LISP:TYPE COMMON-LISP:STRING JOBU)
    1640. 

  1640.                        (COMMON-LISP:TYPE COMMON-LISP:STRING JOBV)
    1641. 

  1641.                        (COMMON-LISP:TYPE COMMON-LISP:STRING JOBR)
    1642. 

  1642.                        (COMMON-LISP:TYPE COMMON-LISP:STRING JOBT)
    1643. 

  1643.                        (COMMON-LISP:TYPE COMMON-LISP:STRING JOBP)
    1644. 

  1644.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
    1645. 

  1645.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
    1646. 

  1646.                        (COMMON-LISP:TYPE
    1647. 

  1647.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
    1648. 

  1648.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
    1649. 

  1649.                        (COMMON-LISP:TYPE
    1650. 

  1650.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    1651. 

  1651.                         SVA)
    1652. 

  1652.                        (COMMON-LISP:TYPE
    1653. 

  1653.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) U)
    1654. 

  1654.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDU)
    1655. 

  1655.                        (COMMON-LISP:TYPE
    1656. 

  1656.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) V)
    1657. 

  1657.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV)
    1658. 

  1658.                        (COMMON-LISP:TYPE
    1659. 

  1659.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    1660. 

  1660.                         WORK)
    1661. 

  1661.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
    1662. 

  1662.                        (COMMON-LISP:TYPE
    1663. 

  1663.                         (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
    1664. 

  1664.                          (COMMON-LISP:*))
    1665. 

  1665.                         IWORK)
    1666. 

  1666.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
    1667. 

  1667.   (CFFI:WITH-FOREIGN-OBJECTS ((M-REF6189 ':INT32) (N-REF6190 ':INT32)
    1668. 

  1668.                               (LDA-REF6192 ':INT32) (LDU-REF6195 ':INT32)
    1669. 

  1669.                               (LDV-REF6197 ':INT32) (LWORK-REF6199 ':INT32)
    1670. 

  1670.                               (INFO-REF6201 ':INT32))
    1671. 

  1671.     (COMMON-LISP:SETF (CFFI:MEM-REF M-REF6189 :INT32) M)
    1672. 

  1672.     (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6190 :INT32) N)
    1673. 

  1673.     (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6192 :INT32) LDA)
    1674. 

  1674.     (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF6195 :INT32) LDU)
    1675. 

  1675.     (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF6197 :INT32) LDV)
    1676. 

  1676.     (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF6199 :INT32) LWORK)
    1677. 

  1677.     (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6201 :INT32) INFO)
    1678. 

  1678.     (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6191 A) (SVA-REF6193 SVA)
    1679. 

  1679.                                             (U-REF6194 U) (V-REF6196 V)
    1680. 

  1680.                                             (WORK-REF6198 WORK)
    1681. 

  1681.                                             (IWORK-REF6200 IWORK))
    1682. 

  1682.       (%%DGEJSV JOBA JOBU JOBV JOBR JOBT JOBP M-REF6189 N-REF6190 A-REF6191
    1683. 

  1683.        LDA-REF6192 SVA-REF6193 U-REF6194 LDU-REF6195 V-REF6196 LDV-REF6197
    1684. 

  1684.        WORK-REF6198 LWORK-REF6199 IWORK-REF6200 INFO-REF6201))))
    1685. 

  1685. 

  1686. (CFFI:DEFCFUN ("dgelq_" %%DGELQ :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    1687. 

  1687.     :VOID
    1688. 

  1688.   (M :POINTER)
    1689. 

  1689.   (N :POINTER)
    1690. 

  1690.   (A :POINTER)
    1691. 

  1691.   (LDA :POINTER)
    1692. 

  1692.   (T :POINTER)
    1693. 

  1693.   (TSIZE :POINTER)
    1694. 

  1694.   (WORK :POINTER)
    1695. 

  1695.   (LWORK :POINTER)
    1696. 

  1696.   (INFO :POINTER))
    1697. 

  1697. 

  1698. (COMMON-LISP:DEFUN %DGELQ (M N A LDA T TSIZE WORK LWORK INFO)
    1699. 

  1699.   (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGELQ)
    1700. 

  1700.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
    1701. 

  1701.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
    1702. 

  1702.                        (COMMON-LISP:TYPE
    1703. 

  1703.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
    1704. 

  1704.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
    1705. 

  1705.                        (COMMON-LISP:TYPE
    1706. 

  1706.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) T)
    1707. 

  1707.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) TSIZE)
    1708. 

  1708.                        (COMMON-LISP:TYPE
    1709. 

  1709.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    1710. 

  1710.                         WORK)
    1711. 

  1711.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
    1712. 

  1712.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
    1713. 

  1713.   (CFFI:WITH-FOREIGN-OBJECTS ((M-REF6202 ':INT32) (N-REF6203 ':INT32)
    1714. 

  1714.                               (LDA-REF6205 ':INT32) (TSIZE-REF6207 ':INT32)
    1715. 

  1715.                               (LWORK-REF6209 ':INT32) (INFO-REF6210 ':INT32))
    1716. 

  1716.     (COMMON-LISP:SETF (CFFI:MEM-REF M-REF6202 :INT32) M)
    1717. 

  1717.     (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6203 :INT32) N)
    1718. 

  1718.     (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6205 :INT32) LDA)
    1719. 

  1719.     (COMMON-LISP:SETF (CFFI:MEM-REF TSIZE-REF6207 :INT32) TSIZE)
    1720. 

  1720.     (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF6209 :INT32) LWORK)
    1721. 

  1721.     (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6210 :INT32) INFO)
    1722. 

  1722.     (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6204 A) (T-REF6206 T)
    1723. 

  1723.                                             (WORK-REF6208 WORK))
    1724. 

  1724.       (%%DGELQ M-REF6202 N-REF6203 A-REF6204 LDA-REF6205 T-REF6206
    1725. 

  1725.        TSIZE-REF6207 WORK-REF6208 LWORK-REF6209 INFO-REF6210))))
    1726. 

  1726. 

  1727. (CFFI:DEFCFUN ("dgelq2_" %%DGELQ2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    1728. 

  1728.     :VOID
    1729. 

  1729.   (M :POINTER)
    1730. 

  1730.   (N :POINTER)
    1731. 

  1731.   (A :POINTER)
    1732. 

  1732.   (LDA :POINTER)
    1733. 

  1733.   (TAU :POINTER)
    1734. 

  1734.   (WORK :POINTER)
    1735. 

  1735.   (INFO :POINTER))
    1736. 

  1736. 

  1737. (COMMON-LISP:DEFUN %DGELQ2 (M N A LDA TAU WORK INFO)
    1738. 

  1738.   (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGELQ2)
    1739. 

  1739.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
    1740. 

  1740.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
    1741. 

  1741.                        (COMMON-LISP:TYPE
    1742. 

  1742.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
    1743. 

  1743.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
    1744. 

  1744.                        (COMMON-LISP:TYPE
    1745. 

  1745.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    1746. 

  1746.                         TAU)
    1747. 

  1747.                        (COMMON-LISP:TYPE
    1748. 

  1748.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    1749. 

  1749.                         WORK)
    1750. 

  1750.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
    1751. 

  1751.   (CFFI:WITH-FOREIGN-OBJECTS ((M-REF6211 ':INT32) (N-REF6212 ':INT32)
    1752. 

  1752.                               (LDA-REF6214 ':INT32) (INFO-REF6217 ':INT32))
    1753. 

  1753.     (COMMON-LISP:SETF (CFFI:MEM-REF M-REF6211 :INT32) M)
    1754. 

  1754.     (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6212 :INT32) N)
    1755. 

  1755.     (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6214 :INT32) LDA)
    1756. 

  1756.     (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6217 :INT32) INFO)
    1757. 

  1757.     (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6213 A) (TAU-REF6215 TAU)
    1758. 

  1758.                                             (WORK-REF6216 WORK))
    1759. 

  1759.       (%%DGELQ2 M-REF6211 N-REF6212 A-REF6213 LDA-REF6214 TAU-REF6215
    1760. 

  1760.        WORK-REF6216 INFO-REF6217))))
    1761. 

  1761. 

  1762. (CFFI:DEFCFUN ("dgelqf_" %%DGELQF :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    1763. 

  1763.     :VOID
    1764. 

  1764.   (M :POINTER)
    1765. 

  1765.   (N :POINTER)
    1766. 

  1766.   (A :POINTER)
    1767. 

  1767.   (LDA :POINTER)
    1768. 

  1768.   (TAU :POINTER)
    1769. 

  1769.   (WORK :POINTER)
    1770. 

  1770.   (LWORK :POINTER)
    1771. 

  1771.   (INFO :POINTER))
    1772. 

  1772. 

  1773. (COMMON-LISP:DEFUN %DGELQF (M N A LDA TAU WORK LWORK INFO)
    1774. 

  1774.   (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGELQF)
    1775. 

  1775.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
    1776. 

  1776.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
    1777. 

  1777.                        (COMMON-LISP:TYPE
    1778. 

  1778.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
    1779. 

  1779.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
    1780. 

  1780.                        (COMMON-LISP:TYPE
    1781. 

  1781.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    1782. 

  1782.                         TAU)
    1783. 

  1783.                        (COMMON-LISP:TYPE
    1784. 

  1784.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    1785. 

  1785.                         WORK)
    1786. 

  1786.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
    1787. 

  1787.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
    1788. 

  1788.   (CFFI:WITH-FOREIGN-OBJECTS ((M-REF6218 ':INT32) (N-REF6219 ':INT32)
    1789. 

  1789.                               (LDA-REF6221 ':INT32) (LWORK-REF6224 ':INT32)
    1790. 

  1790.                               (INFO-REF6225 ':INT32))
    1791. 

  1791.     (COMMON-LISP:SETF (CFFI:MEM-REF M-REF6218 :INT32) M)
    1792. 

  1792.     (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6219 :INT32) N)
    1793. 

  1793.     (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6221 :INT32) LDA)
    1794. 

  1794.     (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF6224 :INT32) LWORK)
    1795. 

  1795.     (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6225 :INT32) INFO)
    1796. 

  1796.     (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6220 A) (TAU-REF6222 TAU)
    1797. 

  1797.                                             (WORK-REF6223 WORK))
    1798. 

  1798.       (%%DGELQF M-REF6218 N-REF6219 A-REF6220 LDA-REF6221 TAU-REF6222
    1799. 

  1799.        WORK-REF6223 LWORK-REF6224 INFO-REF6225))))
    1800. 

  1800. 

  1801. (CFFI:DEFCFUN ("dgelqt_" %%DGELQT :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    1802. 

  1802.     :VOID
    1803. 

  1803.   (M :POINTER)
    1804. 

  1804.   (N :POINTER)
    1805. 

  1805.   (MB :POINTER)
    1806. 

  1806.   (A :POINTER)
    1807. 

  1807.   (LDA :POINTER)
    1808. 

  1808.   (T :POINTER)
    1809. 

  1809.   (LDT :POINTER)
    1810. 

  1810.   (WORK :POINTER)
    1811. 

  1811.   (INFO :POINTER))
    1812. 

  1812. 

  1813. (COMMON-LISP:DEFUN %DGELQT (M N MB A LDA T LDT WORK INFO)
    1814. 

  1814.   (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGELQT)
    1815. 

  1815.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
    1816. 

  1816.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
    1817. 

  1817.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) MB)
    1818. 

  1818.                        (COMMON-LISP:TYPE
    1819. 

  1819.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
    1820. 

  1820.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
    1821. 

  1821.                        (COMMON-LISP:TYPE
    1822. 

  1822.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) T)
    1823. 

  1823.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
    1824. 

  1824.                        (COMMON-LISP:TYPE
    1825. 

  1825.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    1826. 

  1826.                         WORK)
    1827. 

  1827.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
    1828. 

  1828.   (CFFI:WITH-FOREIGN-OBJECTS ((M-REF6226 ':INT32) (N-REF6227 ':INT32)
    1829. 

  1829.                               (MB-REF6228 ':INT32) (LDA-REF6230 ':INT32)
    1830. 

  1830.                               (LDT-REF6232 ':INT32) (INFO-REF6234 ':INT32))
    1831. 

  1831.     (COMMON-LISP:SETF (CFFI:MEM-REF M-REF6226 :INT32) M)
    1832. 

  1832.     (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6227 :INT32) N)
    1833. 

  1833.     (COMMON-LISP:SETF (CFFI:MEM-REF MB-REF6228 :INT32) MB)
    1834. 

  1834.     (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6230 :INT32) LDA)
    1835. 

  1835.     (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF6232 :INT32) LDT)
    1836. 

  1836.     (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6234 :INT32) INFO)
    1837. 

  1837.     (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6229 A) (T-REF6231 T)
    1838. 

  1838.                                             (WORK-REF6233 WORK))
    1839. 

  1839.       (%%DGELQT M-REF6226 N-REF6227 MB-REF6228 A-REF6229 LDA-REF6230 T-REF6231
    1840. 

  1840.        LDT-REF6232 WORK-REF6233 INFO-REF6234))))
    1841. 

  1841. 

  1842. (CFFI:DEFCFUN ("dgelqt3_" %%DGELQT3 :LIBRARY
    1843. 

  1843.                MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    1844. 

  1844.     :VOID
    1845. 

  1845.   (M :POINTER)
    1846. 

  1846.   (N :POINTER)
    1847. 

  1847.   (A :POINTER)
    1848. 

  1848.   (LDA :POINTER)
    1849. 

  1849.   (T :POINTER)
    1850. 

  1850.   (LDT :POINTER)
    1851. 

  1851.   (INFO :POINTER))
    1852. 

  1852. 

  1853. (COMMON-LISP:DEFUN %DGELQT3 (M N A LDA T LDT INFO)
    1854. 

  1854.   (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGELQT3)
    1855. 

  1855.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
    1856. 

  1856.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
    1857. 

  1857.                        (COMMON-LISP:TYPE
    1858. 

  1858.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
    1859. 

  1859.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
    1860. 

  1860.                        (COMMON-LISP:TYPE
    1861. 

  1861.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) T)
    1862. 

  1862.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
    1863. 

  1863.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
    1864. 

  1864.   (CFFI:WITH-FOREIGN-OBJECTS ((M-REF6235 ':INT32) (N-REF6236 ':INT32)
    1865. 

  1865.                               (LDA-REF6238 ':INT32) (LDT-REF6240 ':INT32)
    1866. 

  1866.                               (INFO-REF6241 ':INT32))
    1867. 

  1867.     (COMMON-LISP:SETF (CFFI:MEM-REF M-REF6235 :INT32) M)
    1868. 

  1868.     (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6236 :INT32) N)
    1869. 

  1869.     (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6238 :INT32) LDA)
    1870. 

  1870.     (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF6240 :INT32) LDT)
    1871. 

  1871.     (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6241 :INT32) INFO)
    1872. 

  1872.     (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6237 A) (T-REF6239 T))
    1873. 

  1873.       (%%DGELQT3 M-REF6235 N-REF6236 A-REF6237 LDA-REF6238 T-REF6239
    1874. 

  1874.        LDT-REF6240 INFO-REF6241))))
    1875. 

  1875. 

  1876. (CFFI:DEFCFUN ("dgels_" %%DGELS :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    1877. 

  1877.     :VOID
    1878. 

  1878.   (TRANS :STRING)
    1879. 

  1879.   (M :POINTER)
    1880. 

  1880.   (N :POINTER)
    1881. 

  1881.   (NRHS :POINTER)
    1882. 

  1882.   (A :POINTER)
    1883. 

  1883.   (LDA :POINTER)
    1884. 

  1884.   (B :POINTER)
    1885. 

  1885.   (LDB :POINTER)
    1886. 

  1886.   (WORK :POINTER)
    1887. 

  1887.   (LWORK :POINTER)
    1888. 

  1888.   (INFO :POINTER))
    1889. 

  1889. 

  1890. (COMMON-LISP:DEFUN %DGELS (TRANS M N NRHS A LDA B LDB WORK LWORK INFO)
    1891. 

  1891.   (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGELS)
    1892. 

  1892.                        (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
    1893. 

  1893.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
    1894. 

  1894.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
    1895. 

  1895.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
    1896. 

  1896.                        (COMMON-LISP:TYPE
    1897. 

  1897.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
    1898. 

  1898.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
    1899. 

  1899.                        (COMMON-LISP:TYPE
    1900. 

  1900.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
    1901. 

  1901.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
    1902. 

  1902.                        (COMMON-LISP:TYPE
    1903. 

  1903.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    1904. 

  1904.                         WORK)
    1905. 

  1905.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
    1906. 

  1906.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
    1907. 

  1907.   (CFFI:WITH-FOREIGN-OBJECTS ((M-REF6243 ':INT32) (N-REF6244 ':INT32)
    1908. 

  1908.                               (NRHS-REF6245 ':INT32) (LDA-REF6247 ':INT32)
    1909. 

  1909.                               (LDB-REF6249 ':INT32) (LWORK-REF6251 ':INT32)
    1910. 

  1910.                               (INFO-REF6252 ':INT32))
    1911. 

  1911.     (COMMON-LISP:SETF (CFFI:MEM-REF M-REF6243 :INT32) M)
    1912. 

  1912.     (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6244 :INT32) N)
    1913. 

  1913.     (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF6245 :INT32) NRHS)
    1914. 

  1914.     (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6247 :INT32) LDA)
    1915. 

  1915.     (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF6249 :INT32) LDB)
    1916. 

  1916.     (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF6251 :INT32) LWORK)
    1917. 

  1917.     (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6252 :INT32) INFO)
    1918. 

  1918.     (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6246 A) (B-REF6248 B)
    1919. 

  1919.                                             (WORK-REF6250 WORK))
    1920. 

  1920.       (%%DGELS TRANS M-REF6243 N-REF6244 NRHS-REF6245 A-REF6246 LDA-REF6247
    1921. 

  1921.        B-REF6248 LDB-REF6249 WORK-REF6250 LWORK-REF6251 INFO-REF6252))))
    1922. 

  1922. 

  1923. (CFFI:DEFCFUN ("dgelsd_" %%DGELSD :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    1924. 

  1924.     :VOID
    1925. 

  1925.   (M :POINTER)
    1926. 

  1926.   (N :POINTER)
    1927. 

  1927.   (NRHS :POINTER)
    1928. 

  1928.   (A :POINTER)
    1929. 

  1929.   (LDA :POINTER)
    1930. 

  1930.   (B :POINTER)
    1931. 

  1931.   (LDB :POINTER)
    1932. 

  1932.   (S :POINTER)
    1933. 

  1933.   (RCOND :POINTER)
    1934. 

  1934.   (RANK :POINTER)
    1935. 

  1935.   (WORK :POINTER)
    1936. 

  1936.   (LWORK :POINTER)
    1937. 

  1937.   (IWORK :POINTER)
    1938. 

  1938.   (INFO :POINTER))
    1939. 

  1939. 

  1940. (COMMON-LISP:DEFUN %DGELSD
    1941. 

  1941.                    (M N NRHS A LDA B LDB S RCOND RANK WORK LWORK IWORK INFO)
    1942. 

  1942.   (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGELSD)
    1943. 

  1943.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
    1944. 

  1944.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
    1945. 

  1945.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
    1946. 

  1946.                        (COMMON-LISP:TYPE
    1947. 

  1947.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
    1948. 

  1948.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
    1949. 

  1949.                        (COMMON-LISP:TYPE
    1950. 

  1950.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
    1951. 

  1951.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
    1952. 

  1952.                        (COMMON-LISP:TYPE
    1953. 

  1953.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) S)
    1954. 

  1954.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RCOND)
    1955. 

  1955.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) RANK)
    1956. 

  1956.                        (COMMON-LISP:TYPE
    1957. 

  1957.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    1958. 

  1958.                         WORK)
    1959. 

  1959.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
    1960. 

  1960.                        (COMMON-LISP:TYPE
    1961. 

  1961.                         (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
    1962. 

  1962.                          (COMMON-LISP:*))
    1963. 

  1963.                         IWORK)
    1964. 

  1964.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
    1965. 

  1965.   (CFFI:WITH-FOREIGN-OBJECTS ((M-REF6253 ':INT32) (N-REF6254 ':INT32)
    1966. 

  1966.                               (NRHS-REF6255 ':INT32) (LDA-REF6257 ':INT32)
    1967. 

  1967.                               (LDB-REF6259 ':INT32) (RCOND-REF6261 ':DOUBLE)
    1968. 

  1968.                               (RANK-REF6262 ':INT32) (LWORK-REF6264 ':INT32)
    1969. 

  1969.                               (INFO-REF6266 ':INT32))
    1970. 

  1970.     (COMMON-LISP:SETF (CFFI:MEM-REF M-REF6253 :INT32) M)
    1971. 

  1971.     (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6254 :INT32) N)
    1972. 

  1972.     (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF6255 :INT32) NRHS)
    1973. 

  1973.     (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6257 :INT32) LDA)
    1974. 

  1974.     (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF6259 :INT32) LDB)
    1975. 

  1975.     (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF6261 :DOUBLE) RCOND)
    1976. 

  1976.     (COMMON-LISP:SETF (CFFI:MEM-REF RANK-REF6262 :INT32) RANK)
    1977. 

  1977.     (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF6264 :INT32) LWORK)
    1978. 

  1978.     (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6266 :INT32) INFO)
    1979. 

  1979.     (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6256 A) (B-REF6258 B)
    1980. 

  1980.                                             (S-REF6260 S) (WORK-REF6263 WORK)
    1981. 

  1981.                                             (IWORK-REF6265 IWORK))
    1982. 

  1982.       (%%DGELSD M-REF6253 N-REF6254 NRHS-REF6255 A-REF6256 LDA-REF6257
    1983. 

  1983.        B-REF6258 LDB-REF6259 S-REF6260 RCOND-REF6261 RANK-REF6262 WORK-REF6263
    1984. 

  1984.        LWORK-REF6264 IWORK-REF6265 INFO-REF6266))))
    1985. 

  1985. 

  1986. (CFFI:DEFCFUN ("dgelss_" %%DGELSS :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    1987. 

  1987.     :VOID
    1988. 

  1988.   (M :POINTER)
    1989. 

  1989.   (N :POINTER)
    1990. 

  1990.   (NRHS :POINTER)
    1991. 

  1991.   (A :POINTER)
    1992. 

  1992.   (LDA :POINTER)
    1993. 

  1993.   (B :POINTER)
    1994. 

  1994.   (LDB :POINTER)
    1995. 

  1995.   (S :POINTER)
    1996. 

  1996.   (RCOND :POINTER)
    1997. 

  1997.   (RANK :POINTER)
    1998. 

  1998.   (WORK :POINTER)
    1999. 

  1999.   (LWORK :POINTER)
    2000. 

  2000.   (INFO :POINTER))
    2001. 

  2001. 

  2002. (COMMON-LISP:DEFUN %DGELSS (M N NRHS A LDA B LDB S RCOND RANK WORK LWORK INFO)
    2003. 

  2003.   (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGELSS)
    2004. 

  2004.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
    2005. 

  2005.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
    2006. 

  2006.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
    2007. 

  2007.                        (COMMON-LISP:TYPE
    2008. 

  2008.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
    2009. 

  2009.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
    2010. 

  2010.                        (COMMON-LISP:TYPE
    2011. 

  2011.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
    2012. 

  2012.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
    2013. 

  2013.                        (COMMON-LISP:TYPE
    2014. 

  2014.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) S)
    2015. 

  2015.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RCOND)
    2016. 

  2016.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) RANK)
    2017. 

  2017.                        (COMMON-LISP:TYPE
    2018. 

  2018.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    2019. 

  2019.                         WORK)
    2020. 

  2020.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
    2021. 

  2021.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
    2022. 

  2022.   (CFFI:WITH-FOREIGN-OBJECTS ((M-REF6267 ':INT32) (N-REF6268 ':INT32)
    2023. 

  2023.                               (NRHS-REF6269 ':INT32) (LDA-REF6271 ':INT32)
    2024. 

  2024.                               (LDB-REF6273 ':INT32) (RCOND-REF6275 ':DOUBLE)
    2025. 

  2025.                               (RANK-REF6276 ':INT32) (LWORK-REF6278 ':INT32)
    2026. 

  2026.                               (INFO-REF6279 ':INT32))
    2027. 

  2027.     (COMMON-LISP:SETF (CFFI:MEM-REF M-REF6267 :INT32) M)
    2028. 

  2028.     (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6268 :INT32) N)
    2029. 

  2029.     (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF6269 :INT32) NRHS)
    2030. 

  2030.     (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6271 :INT32) LDA)
    2031. 

  2031.     (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF6273 :INT32) LDB)
    2032. 

  2032.     (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF6275 :DOUBLE) RCOND)
    2033. 

  2033.     (COMMON-LISP:SETF (CFFI:MEM-REF RANK-REF6276 :INT32) RANK)
    2034. 

  2034.     (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF6278 :INT32) LWORK)
    2035. 

  2035.     (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6279 :INT32) INFO)
    2036. 

  2036.     (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6270 A) (B-REF6272 B)
    2037. 

  2037.                                             (S-REF6274 S) (WORK-REF6277 WORK))
    2038. 

  2038.       (%%DGELSS M-REF6267 N-REF6268 NRHS-REF6269 A-REF6270 LDA-REF6271
    2039. 

  2039.        B-REF6272 LDB-REF6273 S-REF6274 RCOND-REF6275 RANK-REF6276 WORK-REF6277
    2040. 

  2040.        LWORK-REF6278 INFO-REF6279))))
    2041. 

  2041. 

  2042. (CFFI:DEFCFUN ("dgelsy_" %%DGELSY :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    2043. 

  2043.     :VOID
    2044. 

  2044.   (M :POINTER)
    2045. 

  2045.   (N :POINTER)
    2046. 

  2046.   (NRHS :POINTER)
    2047. 

  2047.   (A :POINTER)
    2048. 

  2048.   (LDA :POINTER)
    2049. 

  2049.   (B :POINTER)
    2050. 

  2050.   (LDB :POINTER)
    2051. 

  2051.   (JPVT :POINTER)
    2052. 

  2052.   (RCOND :POINTER)
    2053. 

  2053.   (RANK :POINTER)
    2054. 

  2054.   (WORK :POINTER)
    2055. 

  2055.   (LWORK :POINTER)
    2056. 

  2056.   (INFO :POINTER))
    2057. 

  2057. 

  2058. (COMMON-LISP:DEFUN %DGELSY
    2059. 

  2059.                    (M N NRHS A LDA B LDB JPVT RCOND RANK WORK LWORK INFO)
    2060. 

  2060.   (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGELSY)
    2061. 

  2061.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
    2062. 

  2062.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
    2063. 

  2063.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
    2064. 

  2064.                        (COMMON-LISP:TYPE
    2065. 

  2065.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
    2066. 

  2066.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
    2067. 

  2067.                        (COMMON-LISP:TYPE
    2068. 

  2068.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
    2069. 

  2069.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
    2070. 

  2070.                        (COMMON-LISP:TYPE
    2071. 

  2071.                         (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
    2072. 

  2072.                          (COMMON-LISP:*))
    2073. 

  2073.                         JPVT)
    2074. 

  2074.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RCOND)
    2075. 

  2075.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) RANK)
    2076. 

  2076.                        (COMMON-LISP:TYPE
    2077. 

  2077.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    2078. 

  2078.                         WORK)
    2079. 

  2079.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
    2080. 

  2080.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
    2081. 

  2081.   (CFFI:WITH-FOREIGN-OBJECTS ((M-REF6280 ':INT32) (N-REF6281 ':INT32)
    2082. 

  2082.                               (NRHS-REF6282 ':INT32) (LDA-REF6284 ':INT32)
    2083. 

  2083.                               (LDB-REF6286 ':INT32) (RCOND-REF6288 ':DOUBLE)
    2084. 

  2084.                               (RANK-REF6289 ':INT32) (LWORK-REF6291 ':INT32)
    2085. 

  2085.                               (INFO-REF6292 ':INT32))
    2086. 

  2086.     (COMMON-LISP:SETF (CFFI:MEM-REF M-REF6280 :INT32) M)
    2087. 

  2087.     (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6281 :INT32) N)
    2088. 

  2088.     (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF6282 :INT32) NRHS)
    2089. 

  2089.     (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6284 :INT32) LDA)
    2090. 

  2090.     (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF6286 :INT32) LDB)
    2091. 

  2091.     (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF6288 :DOUBLE) RCOND)
    2092. 

  2092.     (COMMON-LISP:SETF (CFFI:MEM-REF RANK-REF6289 :INT32) RANK)
    2093. 

  2093.     (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF6291 :INT32) LWORK)
    2094. 

  2094.     (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6292 :INT32) INFO)
    2095. 

  2095.     (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6283 A) (B-REF6285 B)
    2096. 

  2096.                                             (JPVT-REF6287 JPVT)
    2097. 

  2097.                                             (WORK-REF6290 WORK))
    2098. 

  2098.       (%%DGELSY M-REF6280 N-REF6281 NRHS-REF6282 A-REF6283 LDA-REF6284
    2099. 

  2099.        B-REF6285 LDB-REF6286 JPVT-REF6287 RCOND-REF6288 RANK-REF6289
    2100. 

  2100.        WORK-REF6290 LWORK-REF6291 INFO-REF6292))))
    2101. 

  2101. 

  2102. (CFFI:DEFCFUN ("dgemlq_" %%DGEMLQ :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    2103. 

  2103.     :VOID
    2104. 

  2104.   (SIDE :STRING)
    2105. 

  2105.   (TRANS :STRING)
    2106. 

  2106.   (M :POINTER)
    2107. 

  2107.   (N :POINTER)
    2108. 

  2108.   (K :POINTER)
    2109. 

  2109.   (A :POINTER)
    2110. 

  2110.   (LDA :POINTER)
    2111. 

  2111.   (T :POINTER)
    2112. 

  2112.   (TSIZE :POINTER)
    2113. 

  2113.   (C :POINTER)
    2114. 

  2114.   (LDC :POINTER)
    2115. 

  2115.   (WORK :POINTER)
    2116. 

  2116.   (LWORK :POINTER)
    2117. 

  2117.   (INFO :POINTER))
    2118. 

  2118. 

  2119. (COMMON-LISP:DEFUN %DGEMLQ
    2120. 

  2120.                    (SIDE TRANS M N K A LDA T TSIZE C LDC WORK LWORK INFO)
    2121. 

  2121.   (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGEMLQ)
    2122. 

  2122.                        (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
    2123. 

  2123.                        (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
    2124. 

  2124.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
    2125. 

  2125.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
    2126. 

  2126.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
    2127. 

  2127.                        (COMMON-LISP:TYPE
    2128. 

  2128.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
    2129. 

  2129.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
    2130. 

  2130.                        (COMMON-LISP:TYPE
    2131. 

  2131.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) T)
    2132. 

  2132.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) TSIZE)
    2133. 

  2133.                        (COMMON-LISP:TYPE
    2134. 

  2134.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
    2135. 

  2135.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
    2136. 

  2136.                        (COMMON-LISP:TYPE
    2137. 

  2137.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    2138. 

  2138.                         WORK)
    2139. 

  2139.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
    2140. 

  2140.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
    2141. 

  2141.   (CFFI:WITH-FOREIGN-OBJECTS ((M-REF6295 ':INT32) (N-REF6296 ':INT32)
    2142. 

  2142.                               (K-REF6297 ':INT32) (LDA-REF6299 ':INT32)
    2143. 

  2143.                               (TSIZE-REF6301 ':INT32) (LDC-REF6303 ':INT32)
    2144. 

  2144.                               (LWORK-REF6305 ':INT32) (INFO-REF6306 ':INT32))
    2145. 

  2145.     (COMMON-LISP:SETF (CFFI:MEM-REF M-REF6295 :INT32) M)
    2146. 

  2146.     (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6296 :INT32) N)
    2147. 

  2147.     (COMMON-LISP:SETF (CFFI:MEM-REF K-REF6297 :INT32) K)
    2148. 

  2148.     (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6299 :INT32) LDA)
    2149. 

  2149.     (COMMON-LISP:SETF (CFFI:MEM-REF TSIZE-REF6301 :INT32) TSIZE)
    2150. 

  2150.     (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF6303 :INT32) LDC)
    2151. 

  2151.     (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF6305 :INT32) LWORK)
    2152. 

  2152.     (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6306 :INT32) INFO)
    2153. 

  2153.     (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6298 A) (T-REF6300 T)
    2154. 

  2154.                                             (C-REF6302 C) (WORK-REF6304 WORK))
    2155. 

  2155.       (%%DGEMLQ SIDE TRANS M-REF6295 N-REF6296 K-REF6297 A-REF6298 LDA-REF6299
    2156. 

  2156.        T-REF6300 TSIZE-REF6301 C-REF6302 LDC-REF6303 WORK-REF6304 LWORK-REF6305
    2157. 

  2157.        INFO-REF6306))))
    2158. 

  2158. 

  2159. (CFFI:DEFCFUN ("dgemlqt_" %%DGEMLQT :LIBRARY
    2160. 

  2160.                MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    2161. 

  2161.     :VOID
    2162. 

  2162.   (SIDE :STRING)
    2163. 

  2163.   (TRANS :STRING)
    2164. 

  2164.   (M :POINTER)
    2165. 

  2165.   (N :POINTER)
    2166. 

  2166.   (K :POINTER)
    2167. 

  2167.   (MB :POINTER)
    2168. 

  2168.   (V :POINTER)
    2169. 

  2169.   (LDV :POINTER)
    2170. 

  2170.   (T :POINTER)
    2171. 

  2171.   (LDT :POINTER)
    2172. 

  2172.   (C :POINTER)
    2173. 

  2173.   (LDC :POINTER)
    2174. 

  2174.   (WORK :POINTER)
    2175. 

  2175.   (INFO :POINTER))
    2176. 

  2176. 

  2177. (COMMON-LISP:DEFUN %DGEMLQT (SIDE TRANS M N K MB V LDV T LDT C LDC WORK INFO)
    2178. 

  2178.   (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGEMLQT)
    2179. 

  2179.                        (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
    2180. 

  2180.                        (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
    2181. 

  2181.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
    2182. 

  2182.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
    2183. 

  2183.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
    2184. 

  2184.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) MB)
    2185. 

  2185.                        (COMMON-LISP:TYPE
    2186. 

  2186.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) V)
    2187. 

  2187.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV)
    2188. 

  2188.                        (COMMON-LISP:TYPE
    2189. 

  2189.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) T)
    2190. 

  2190.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
    2191. 

  2191.                        (COMMON-LISP:TYPE
    2192. 

  2192.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
    2193. 

  2193.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
    2194. 

  2194.                        (COMMON-LISP:TYPE
    2195. 

  2195.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    2196. 

  2196.                         WORK)
    2197. 

  2197.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
    2198. 

  2198.   (CFFI:WITH-FOREIGN-OBJECTS ((M-REF6309 ':INT32) (N-REF6310 ':INT32)
    2199. 

  2199.                               (K-REF6311 ':INT32) (MB-REF6312 ':INT32)
    2200. 

  2200.                               (LDV-REF6314 ':INT32) (LDT-REF6316 ':INT32)
    2201. 

  2201.                               (LDC-REF6318 ':INT32) (INFO-REF6320 ':INT32))
    2202. 

  2202.     (COMMON-LISP:SETF (CFFI:MEM-REF M-REF6309 :INT32) M)
    2203. 

  2203.     (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6310 :INT32) N)
    2204. 

  2204.     (COMMON-LISP:SETF (CFFI:MEM-REF K-REF6311 :INT32) K)
    2205. 

  2205.     (COMMON-LISP:SETF (CFFI:MEM-REF MB-REF6312 :INT32) MB)
    2206. 

  2206.     (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF6314 :INT32) LDV)
    2207. 

  2207.     (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF6316 :INT32) LDT)
    2208. 

  2208.     (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF6318 :INT32) LDC)
    2209. 

  2209.     (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6320 :INT32) INFO)
    2210. 

  2210.     (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V-REF6313 V) (T-REF6315 T)
    2211. 

  2211.                                             (C-REF6317 C) (WORK-REF6319 WORK))
    2212. 

  2212.       (%%DGEMLQT SIDE TRANS M-REF6309 N-REF6310 K-REF6311 MB-REF6312 V-REF6313
    2213. 

  2213.        LDV-REF6314 T-REF6315 LDT-REF6316 C-REF6317 LDC-REF6318 WORK-REF6319
    2214. 

  2214.        INFO-REF6320))))
    2215. 

  2215. 

  2216. (CFFI:DEFCFUN ("dgemqr_" %%DGEMQR :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    2217. 

  2217.     :VOID
    2218. 

  2218.   (SIDE :STRING)
    2219. 

  2219.   (TRANS :STRING)
    2220. 

  2220.   (M :POINTER)
    2221. 

  2221.   (N :POINTER)
    2222. 

  2222.   (K :POINTER)
    2223. 

  2223.   (A :POINTER)
    2224. 

  2224.   (LDA :POINTER)
    2225. 

  2225.   (T :POINTER)
    2226. 

  2226.   (TSIZE :POINTER)
    2227. 

  2227.   (C :POINTER)
    2228. 

  2228.   (LDC :POINTER)
    2229. 

  2229.   (WORK :POINTER)
    2230. 

  2230.   (LWORK :POINTER)
    2231. 

  2231.   (INFO :POINTER))
    2232. 

  2232. 

  2233. (COMMON-LISP:DEFUN %DGEMQR
    2234. 

  2234.                    (SIDE TRANS M N K A LDA T TSIZE C LDC WORK LWORK INFO)
    2235. 

  2235.   (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGEMQR)
    2236. 

  2236.                        (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
    2237. 

  2237.                        (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
    2238. 

  2238.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
    2239. 

  2239.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
    2240. 

  2240.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
    2241. 

  2241.                        (COMMON-LISP:TYPE
    2242. 

  2242.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
    2243. 

  2243.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
    2244. 

  2244.                        (COMMON-LISP:TYPE
    2245. 

  2245.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) T)
    2246. 

  2246.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) TSIZE)
    2247. 

  2247.                        (COMMON-LISP:TYPE
    2248. 

  2248.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
    2249. 

  2249.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
    2250. 

  2250.                        (COMMON-LISP:TYPE
    2251. 

  2251.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    2252. 

  2252.                         WORK)
    2253. 

  2253.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
    2254. 

  2254.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
    2255. 

  2255.   (CFFI:WITH-FOREIGN-OBJECTS ((M-REF6323 ':INT32) (N-REF6324 ':INT32)
    2256. 

  2256.                               (K-REF6325 ':INT32) (LDA-REF6327 ':INT32)
    2257. 

  2257.                               (TSIZE-REF6329 ':INT32) (LDC-REF6331 ':INT32)
    2258. 

  2258.                               (LWORK-REF6333 ':INT32) (INFO-REF6334 ':INT32))
    2259. 

  2259.     (COMMON-LISP:SETF (CFFI:MEM-REF M-REF6323 :INT32) M)
    2260. 

  2260.     (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6324 :INT32) N)
    2261. 

  2261.     (COMMON-LISP:SETF (CFFI:MEM-REF K-REF6325 :INT32) K)
    2262. 

  2262.     (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6327 :INT32) LDA)
    2263. 

  2263.     (COMMON-LISP:SETF (CFFI:MEM-REF TSIZE-REF6329 :INT32) TSIZE)
    2264. 

  2264.     (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF6331 :INT32) LDC)
    2265. 

  2265.     (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF6333 :INT32) LWORK)
    2266. 

  2266.     (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6334 :INT32) INFO)
    2267. 

  2267.     (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6326 A) (T-REF6328 T)
    2268. 

  2268.                                             (C-REF6330 C) (WORK-REF6332 WORK))
    2269. 

  2269.       (%%DGEMQR SIDE TRANS M-REF6323 N-REF6324 K-REF6325 A-REF6326 LDA-REF6327
    2270. 

  2270.        T-REF6328 TSIZE-REF6329 C-REF6330 LDC-REF6331 WORK-REF6332 LWORK-REF6333
    2271. 

  2271.        INFO-REF6334))))
    2272. 

  2272. 

  2273. (CFFI:DEFCFUN ("dgemqrt_" %%DGEMQRT :LIBRARY
    2274. 

  2274.                MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    2275. 

  2275.     :VOID
    2276. 

  2276.   (SIDE :STRING)
    2277. 

  2277.   (TRANS :STRING)
    2278. 

  2278.   (M :POINTER)
    2279. 

  2279.   (N :POINTER)
    2280. 

  2280.   (K :POINTER)
    2281. 

  2281.   (NB :POINTER)
    2282. 

  2282.   (V :POINTER)
    2283. 

  2283.   (LDV :POINTER)
    2284. 

  2284.   (T :POINTER)
    2285. 

  2285.   (LDT :POINTER)
    2286. 

  2286.   (C :POINTER)
    2287. 

  2287.   (LDC :POINTER)
    2288. 

  2288.   (WORK :POINTER)
    2289. 

  2289.   (INFO :POINTER))
    2290. 

  2290. 

  2291. (COMMON-LISP:DEFUN %DGEMQRT (SIDE TRANS M N K NB V LDV T LDT C LDC WORK INFO)
    2292. 

  2292.   (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGEMQRT)
    2293. 

  2293.                        (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
    2294. 

  2294.                        (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
    2295. 

  2295.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
    2296. 

  2296.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
    2297. 

  2297.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
    2298. 

  2298.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NB)
    2299. 

  2299.                        (COMMON-LISP:TYPE
    2300. 

  2300.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) V)
    2301. 

  2301.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV)
    2302. 

  2302.                        (COMMON-LISP:TYPE
    2303. 

  2303.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) T)
    2304. 

  2304.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
    2305. 

  2305.                        (COMMON-LISP:TYPE
    2306. 

  2306.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
    2307. 

  2307.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
    2308. 

  2308.                        (COMMON-LISP:TYPE
    2309. 

  2309.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    2310. 

  2310.                         WORK)
    2311. 

  2311.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
    2312. 

  2312.   (CFFI:WITH-FOREIGN-OBJECTS ((M-REF6337 ':INT32) (N-REF6338 ':INT32)
    2313. 

  2313.                               (K-REF6339 ':INT32) (NB-REF6340 ':INT32)
    2314. 

  2314.                               (LDV-REF6342 ':INT32) (LDT-REF6344 ':INT32)
    2315. 

  2315.                               (LDC-REF6346 ':INT32) (INFO-REF6348 ':INT32))
    2316. 

  2316.     (COMMON-LISP:SETF (CFFI:MEM-REF M-REF6337 :INT32) M)
    2317. 

  2317.     (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6338 :INT32) N)
    2318. 

  2318.     (COMMON-LISP:SETF (CFFI:MEM-REF K-REF6339 :INT32) K)
    2319. 

  2319.     (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF6340 :INT32) NB)
    2320. 

  2320.     (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF6342 :INT32) LDV)
    2321. 

  2321.     (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF6344 :INT32) LDT)
    2322. 

  2322.     (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF6346 :INT32) LDC)
    2323. 

  2323.     (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6348 :INT32) INFO)
    2324. 

  2324.     (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V-REF6341 V) (T-REF6343 T)
    2325. 

  2325.                                             (C-REF6345 C) (WORK-REF6347 WORK))
    2326. 

  2326.       (%%DGEMQRT SIDE TRANS M-REF6337 N-REF6338 K-REF6339 NB-REF6340 V-REF6341
    2327. 

  2327.        LDV-REF6342 T-REF6343 LDT-REF6344 C-REF6345 LDC-REF6346 WORK-REF6347
    2328. 

  2328.        INFO-REF6348))))
    2329. 

  2329. 

  2330. (CFFI:DEFCFUN ("dgeql2_" %%DGEQL2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    2331. 

  2331.     :VOID
    2332. 

  2332.   (M :POINTER)
    2333. 

  2333.   (N :POINTER)
    2334. 

  2334.   (A :POINTER)
    2335. 

  2335.   (LDA :POINTER)
    2336. 

  2336.   (TAU :POINTER)
    2337. 

  2337.   (WORK :POINTER)
    2338. 

  2338.   (INFO :POINTER))
    2339. 

  2339. 

  2340. (COMMON-LISP:DEFUN %DGEQL2 (M N A LDA TAU WORK INFO)
    2341. 

  2341.   (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGEQL2)
    2342. 

  2342.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
    2343. 

  2343.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
    2344. 

  2344.                        (COMMON-LISP:TYPE
    2345. 

  2345.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
    2346. 

  2346.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
    2347. 

  2347.                        (COMMON-LISP:TYPE
    2348. 

  2348.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    2349. 

  2349.                         TAU)
    2350. 

  2350.                        (COMMON-LISP:TYPE
    2351. 

  2351.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    2352. 

  2352.                         WORK)
    2353. 

  2353.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
    2354. 

  2354.   (CFFI:WITH-FOREIGN-OBJECTS ((M-REF6349 ':INT32) (N-REF6350 ':INT32)
    2355. 

  2355.                               (LDA-REF6352 ':INT32) (INFO-REF6355 ':INT32))
    2356. 

  2356.     (COMMON-LISP:SETF (CFFI:MEM-REF M-REF6349 :INT32) M)
    2357. 

  2357.     (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6350 :INT32) N)
    2358. 

  2358.     (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6352 :INT32) LDA)
    2359. 

  2359.     (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6355 :INT32) INFO)
    2360. 

  2360.     (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6351 A) (TAU-REF6353 TAU)
    2361. 

  2361.                                             (WORK-REF6354 WORK))
    2362. 

  2362.       (%%DGEQL2 M-REF6349 N-REF6350 A-REF6351 LDA-REF6352 TAU-REF6353
    2363. 

  2363.        WORK-REF6354 INFO-REF6355))))
    2364. 

  2364. 

  2365. (CFFI:DEFCFUN ("dgeqlf_" %%DGEQLF :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    2366. 

  2366.     :VOID
    2367. 

  2367.   (M :POINTER)
    2368. 

  2368.   (N :POINTER)
    2369. 

  2369.   (A :POINTER)
    2370. 

  2370.   (LDA :POINTER)
    2371. 

  2371.   (TAU :POINTER)
    2372. 

  2372.   (WORK :POINTER)
    2373. 

  2373.   (LWORK :POINTER)
    2374. 

  2374.   (INFO :POINTER))
    2375. 

  2375. 

  2376. (COMMON-LISP:DEFUN %DGEQLF (M N A LDA TAU WORK LWORK INFO)
    2377. 

  2377.   (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGEQLF)
    2378. 

  2378.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
    2379. 

  2379.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
    2380. 

  2380.                        (COMMON-LISP:TYPE
    2381. 

  2381.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
    2382. 

  2382.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
    2383. 

  2383.                        (COMMON-LISP:TYPE
    2384. 

  2384.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    2385. 

  2385.                         TAU)
    2386. 

  2386.                        (COMMON-LISP:TYPE
    2387. 

  2387.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    2388. 

  2388.                         WORK)
    2389. 

  2389.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
    2390. 

  2390.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
    2391. 

  2391.   (CFFI:WITH-FOREIGN-OBJECTS ((M-REF6356 ':INT32) (N-REF6357 ':INT32)
    2392. 

  2392.                               (LDA-REF6359 ':INT32) (LWORK-REF6362 ':INT32)
    2393. 

  2393.                               (INFO-REF6363 ':INT32))
    2394. 

  2394.     (COMMON-LISP:SETF (CFFI:MEM-REF M-REF6356 :INT32) M)
    2395. 

  2395.     (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6357 :INT32) N)
    2396. 

  2396.     (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6359 :INT32) LDA)
    2397. 

  2397.     (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF6362 :INT32) LWORK)
    2398. 

  2398.     (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6363 :INT32) INFO)
    2399. 

  2399.     (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6358 A) (TAU-REF6360 TAU)
    2400. 

  2400.                                             (WORK-REF6361 WORK))
    2401. 

  2401.       (%%DGEQLF M-REF6356 N-REF6357 A-REF6358 LDA-REF6359 TAU-REF6360
    2402. 

  2402.        WORK-REF6361 LWORK-REF6362 INFO-REF6363))))
    2403. 

  2403. 

  2404. (CFFI:DEFCFUN ("dgeqp3_" %%DGEQP3 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    2405. 

  2405.     :VOID
    2406. 

  2406.   (M :POINTER)
    2407. 

  2407.   (N :POINTER)
    2408. 

  2408.   (A :POINTER)
    2409. 

  2409.   (LDA :POINTER)
    2410. 

  2410.   (JPVT :POINTER)
    2411. 

  2411.   (TAU :POINTER)
    2412. 

  2412.   (WORK :POINTER)
    2413. 

  2413.   (LWORK :POINTER)
    2414. 

  2414.   (INFO :POINTER))
    2415. 

  2415. 

  2416. (COMMON-LISP:DEFUN %DGEQP3 (M N A LDA JPVT TAU WORK LWORK INFO)
    2417. 

  2417.   (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGEQP3)
    2418. 

  2418.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
    2419. 

  2419.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
    2420. 

  2420.                        (COMMON-LISP:TYPE
    2421. 

  2421.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
    2422. 

  2422.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
    2423. 

  2423.                        (COMMON-LISP:TYPE
    2424. 

  2424.                         (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
    2425. 

  2425.                          (COMMON-LISP:*))
    2426. 

  2426.                         JPVT)
    2427. 

  2427.                        (COMMON-LISP:TYPE
    2428. 

  2428.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    2429. 

  2429.                         TAU)
    2430. 

  2430.                        (COMMON-LISP:TYPE
    2431. 

  2431.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    2432. 

  2432.                         WORK)
    2433. 

  2433.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
    2434. 

  2434.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
    2435. 

  2435.   (CFFI:WITH-FOREIGN-OBJECTS ((M-REF6364 ':INT32) (N-REF6365 ':INT32)
    2436. 

  2436.                               (LDA-REF6367 ':INT32) (LWORK-REF6371 ':INT32)
    2437. 

  2437.                               (INFO-REF6372 ':INT32))
    2438. 

  2438.     (COMMON-LISP:SETF (CFFI:MEM-REF M-REF6364 :INT32) M)
    2439. 

  2439.     (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6365 :INT32) N)
    2440. 

  2440.     (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6367 :INT32) LDA)
    2441. 

  2441.     (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF6371 :INT32) LWORK)
    2442. 

  2442.     (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6372 :INT32) INFO)
    2443. 

  2443.     (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6366 A) (JPVT-REF6368 JPVT)
    2444. 

  2444.                                             (TAU-REF6369 TAU)
    2445. 

  2445.                                             (WORK-REF6370 WORK))
    2446. 

  2446.       (%%DGEQP3 M-REF6364 N-REF6365 A-REF6366 LDA-REF6367 JPVT-REF6368
    2447. 

  2447.        TAU-REF6369 WORK-REF6370 LWORK-REF6371 INFO-REF6372))))
    2448. 

  2448. 

  2449. (CFFI:DEFCFUN ("dgeqr_" %%DGEQR :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    2450. 

  2450.     :VOID
    2451. 

  2451.   (M :POINTER)
    2452. 

  2452.   (N :POINTER)
    2453. 

  2453.   (A :POINTER)
    2454. 

  2454.   (LDA :POINTER)
    2455. 

  2455.   (T :POINTER)
    2456. 

  2456.   (TSIZE :POINTER)
    2457. 

  2457.   (WORK :POINTER)
    2458. 

  2458.   (LWORK :POINTER)
    2459. 

  2459.   (INFO :POINTER))
    2460. 

  2460. 

  2461. (COMMON-LISP:DEFUN %DGEQR (M N A LDA T TSIZE WORK LWORK INFO)
    2462. 

  2462.   (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGEQR)
    2463. 

  2463.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
    2464. 

  2464.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
    2465. 

  2465.                        (COMMON-LISP:TYPE
    2466. 

  2466.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
    2467. 

  2467.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
    2468. 

  2468.                        (COMMON-LISP:TYPE
    2469. 

  2469.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) T)
    2470. 

  2470.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) TSIZE)
    2471. 

  2471.                        (COMMON-LISP:TYPE
    2472. 

  2472.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    2473. 

  2473.                         WORK)
    2474. 

  2474.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
    2475. 

  2475.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
    2476. 

  2476.   (CFFI:WITH-FOREIGN-OBJECTS ((M-REF6373 ':INT32) (N-REF6374 ':INT32)
    2477. 

  2477.                               (LDA-REF6376 ':INT32) (TSIZE-REF6378 ':INT32)
    2478. 

  2478.                               (LWORK-REF6380 ':INT32) (INFO-REF6381 ':INT32))
    2479. 

  2479.     (COMMON-LISP:SETF (CFFI:MEM-REF M-REF6373 :INT32) M)
    2480. 

  2480.     (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6374 :INT32) N)
    2481. 

  2481.     (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6376 :INT32) LDA)
    2482. 

  2482.     (COMMON-LISP:SETF (CFFI:MEM-REF TSIZE-REF6378 :INT32) TSIZE)
    2483. 

  2483.     (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF6380 :INT32) LWORK)
    2484. 

  2484.     (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6381 :INT32) INFO)
    2485. 

  2485.     (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6375 A) (T-REF6377 T)
    2486. 

  2486.                                             (WORK-REF6379 WORK))
    2487. 

  2487.       (%%DGEQR M-REF6373 N-REF6374 A-REF6375 LDA-REF6376 T-REF6377
    2488. 

  2488.        TSIZE-REF6378 WORK-REF6379 LWORK-REF6380 INFO-REF6381))))
    2489. 

  2489. 

  2490. (CFFI:DEFCFUN ("dgeqr2_" %%DGEQR2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    2491. 

  2491.     :VOID
    2492. 

  2492.   (M :POINTER)
    2493. 

  2493.   (N :POINTER)
    2494. 

  2494.   (A :POINTER)
    2495. 

  2495.   (LDA :POINTER)
    2496. 

  2496.   (TAU :POINTER)
    2497. 

  2497.   (WORK :POINTER)
    2498. 

  2498.   (INFO :POINTER))
    2499. 

  2499. 

  2500. (COMMON-LISP:DEFUN %DGEQR2 (M N A LDA TAU WORK INFO)
    2501. 

  2501.   (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGEQR2)
    2502. 

  2502.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
    2503. 

  2503.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
    2504. 

  2504.                        (COMMON-LISP:TYPE
    2505. 

  2505.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
    2506. 

  2506.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
    2507. 

  2507.                        (COMMON-LISP:TYPE
    2508. 

  2508.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    2509. 

  2509.                         TAU)
    2510. 

  2510.                        (COMMON-LISP:TYPE
    2511. 

  2511.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    2512. 

  2512.                         WORK)
    2513. 

  2513.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
    2514. 

  2514.   (CFFI:WITH-FOREIGN-OBJECTS ((M-REF6382 ':INT32) (N-REF6383 ':INT32)
    2515. 

  2515.                               (LDA-REF6385 ':INT32) (INFO-REF6388 ':INT32))
    2516. 

  2516.     (COMMON-LISP:SETF (CFFI:MEM-REF M-REF6382 :INT32) M)
    2517. 

  2517.     (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6383 :INT32) N)
    2518. 

  2518.     (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6385 :INT32) LDA)
    2519. 

  2519.     (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6388 :INT32) INFO)
    2520. 

  2520.     (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6384 A) (TAU-REF6386 TAU)
    2521. 

  2521.                                             (WORK-REF6387 WORK))
    2522. 

  2522.       (%%DGEQR2 M-REF6382 N-REF6383 A-REF6384 LDA-REF6385 TAU-REF6386
    2523. 

  2523.        WORK-REF6387 INFO-REF6388))))
    2524. 

  2524. 

  2525. (CFFI:DEFCFUN ("dgeqr2p_" %%DGEQR2P :LIBRARY
    2526. 

  2526.                MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    2527. 

  2527.     :VOID
    2528. 

  2528.   (M :POINTER)
    2529. 

  2529.   (N :POINTER)
    2530. 

  2530.   (A :POINTER)
    2531. 

  2531.   (LDA :POINTER)
    2532. 

  2532.   (TAU :POINTER)
    2533. 

  2533.   (WORK :POINTER)
    2534. 

  2534.   (INFO :POINTER))
    2535. 

  2535. 

  2536. (COMMON-LISP:DEFUN %DGEQR2P (M N A LDA TAU WORK INFO)
    2537. 

  2537.   (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGEQR2P)
    2538. 

  2538.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
    2539. 

  2539.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
    2540. 

  2540.                        (COMMON-LISP:TYPE
    2541. 

  2541.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
    2542. 

  2542.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
    2543. 

  2543.                        (COMMON-LISP:TYPE
    2544. 

  2544.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    2545. 

  2545.                         TAU)
    2546. 

  2546.                        (COMMON-LISP:TYPE
    2547. 

  2547.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    2548. 

  2548.                         WORK)
    2549. 

  2549.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
    2550. 

  2550.   (CFFI:WITH-FOREIGN-OBJECTS ((M-REF6389 ':INT32) (N-REF6390 ':INT32)
    2551. 

  2551.                               (LDA-REF6392 ':INT32) (INFO-REF6395 ':INT32))
    2552. 

  2552.     (COMMON-LISP:SETF (CFFI:MEM-REF M-REF6389 :INT32) M)
    2553. 

  2553.     (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6390 :INT32) N)
    2554. 

  2554.     (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6392 :INT32) LDA)
    2555. 

  2555.     (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6395 :INT32) INFO)
    2556. 

  2556.     (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6391 A) (TAU-REF6393 TAU)
    2557. 

  2557.                                             (WORK-REF6394 WORK))
    2558. 

  2558.       (%%DGEQR2P M-REF6389 N-REF6390 A-REF6391 LDA-REF6392 TAU-REF6393
    2559. 

  2559.        WORK-REF6394 INFO-REF6395))))
    2560. 

  2560. 

  2561. (CFFI:DEFCFUN ("dgeqrf_" %%DGEQRF :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    2562. 

  2562.     :VOID
    2563. 

  2563.   (M :POINTER)
    2564. 

  2564.   (N :POINTER)
    2565. 

  2565.   (A :POINTER)
    2566. 

  2566.   (LDA :POINTER)
    2567. 

  2567.   (TAU :POINTER)
    2568. 

  2568.   (WORK :POINTER)
    2569. 

  2569.   (LWORK :POINTER)
    2570. 

  2570.   (INFO :POINTER))
    2571. 

  2571. 

  2572. (COMMON-LISP:DEFUN %DGEQRF (M N A LDA TAU WORK LWORK INFO)
    2573. 

  2573.   (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGEQRF)
    2574. 

  2574.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
    2575. 

  2575.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
    2576. 

  2576.                        (COMMON-LISP:TYPE
    2577. 

  2577.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
    2578. 

  2578.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
    2579. 

  2579.                        (COMMON-LISP:TYPE
    2580. 

  2580.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    2581. 

  2581.                         TAU)
    2582. 

  2582.                        (COMMON-LISP:TYPE
    2583. 

  2583.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    2584. 

  2584.                         WORK)
    2585. 

  2585.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
    2586. 

  2586.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
    2587. 

  2587.   (CFFI:WITH-FOREIGN-OBJECTS ((M-REF6396 ':INT32) (N-REF6397 ':INT32)
    2588. 

  2588.                               (LDA-REF6399 ':INT32) (LWORK-REF6402 ':INT32)
    2589. 

  2589.                               (INFO-REF6403 ':INT32))
    2590. 

  2590.     (COMMON-LISP:SETF (CFFI:MEM-REF M-REF6396 :INT32) M)
    2591. 

  2591.     (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6397 :INT32) N)
    2592. 

  2592.     (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6399 :INT32) LDA)
    2593. 

  2593.     (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF6402 :INT32) LWORK)
    2594. 

  2594.     (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6403 :INT32) INFO)
    2595. 

  2595.     (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6398 A) (TAU-REF6400 TAU)
    2596. 

  2596.                                             (WORK-REF6401 WORK))
    2597. 

  2597.       (%%DGEQRF M-REF6396 N-REF6397 A-REF6398 LDA-REF6399 TAU-REF6400
    2598. 

  2598.        WORK-REF6401 LWORK-REF6402 INFO-REF6403))))
    2599. 

  2599. 

  2600. (CFFI:DEFCFUN ("dgeqrfp_" %%DGEQRFP :LIBRARY
    2601. 

  2601.                MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    2602. 

  2602.     :VOID
    2603. 

  2603.   (M :POINTER)
    2604. 

  2604.   (N :POINTER)
    2605. 

  2605.   (A :POINTER)
    2606. 

  2606.   (LDA :POINTER)
    2607. 

  2607.   (TAU :POINTER)
    2608. 

  2608.   (WORK :POINTER)
    2609. 

  2609.   (LWORK :POINTER)
    2610. 

  2610.   (INFO :POINTER))
    2611. 

  2611. 

  2612. (COMMON-LISP:DEFUN %DGEQRFP (M N A LDA TAU WORK LWORK INFO)
    2613. 

  2613.   (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGEQRFP)
    2614. 

  2614.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
    2615. 

  2615.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
    2616. 

  2616.                        (COMMON-LISP:TYPE
    2617. 

  2617.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
    2618. 

  2618.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
    2619. 

  2619.                        (COMMON-LISP:TYPE
    2620. 

  2620.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    2621. 

  2621.                         TAU)
    2622. 

  2622.                        (COMMON-LISP:TYPE
    2623. 

  2623.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    2624. 

  2624.                         WORK)
    2625. 

  2625.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
    2626. 

  2626.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
    2627. 

  2627.   (CFFI:WITH-FOREIGN-OBJECTS ((M-REF6404 ':INT32) (N-REF6405 ':INT32)
    2628. 

  2628.                               (LDA-REF6407 ':INT32) (LWORK-REF6410 ':INT32)
    2629. 

  2629.                               (INFO-REF6411 ':INT32))
    2630. 

  2630.     (COMMON-LISP:SETF (CFFI:MEM-REF M-REF6404 :INT32) M)
    2631. 

  2631.     (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6405 :INT32) N)
    2632. 

  2632.     (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6407 :INT32) LDA)
    2633. 

  2633.     (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF6410 :INT32) LWORK)
    2634. 

  2634.     (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6411 :INT32) INFO)
    2635. 

  2635.     (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6406 A) (TAU-REF6408 TAU)
    2636. 

  2636.                                             (WORK-REF6409 WORK))
    2637. 

  2637.       (%%DGEQRFP M-REF6404 N-REF6405 A-REF6406 LDA-REF6407 TAU-REF6408
    2638. 

  2638.        WORK-REF6409 LWORK-REF6410 INFO-REF6411))))
    2639. 

  2639. 

  2640. (CFFI:DEFCFUN ("dgeqrt_" %%DGEQRT :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    2641. 

  2641.     :VOID
    2642. 

  2642.   (M :POINTER)
    2643. 

  2643.   (N :POINTER)
    2644. 

  2644.   (NB :POINTER)
    2645. 

  2645.   (A :POINTER)
    2646. 

  2646.   (LDA :POINTER)
    2647. 

  2647.   (T :POINTER)
    2648. 

  2648.   (LDT :POINTER)
    2649. 

  2649.   (WORK :POINTER)
    2650. 

  2650.   (INFO :POINTER))
    2651. 

  2651. 

  2652. (COMMON-LISP:DEFUN %DGEQRT (M N NB A LDA T LDT WORK INFO)
    2653. 

  2653.   (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGEQRT)
    2654. 

  2654.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
    2655. 

  2655.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
    2656. 

  2656.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NB)
    2657. 

  2657.                        (COMMON-LISP:TYPE
    2658. 

  2658.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
    2659. 

  2659.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
    2660. 

  2660.                        (COMMON-LISP:TYPE
    2661. 

  2661.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) T)
    2662. 

  2662.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
    2663. 

  2663.                        (COMMON-LISP:TYPE
    2664. 

  2664.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    2665. 

  2665.                         WORK)
    2666. 

  2666.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
    2667. 

  2667.   (CFFI:WITH-FOREIGN-OBJECTS ((M-REF6412 ':INT32) (N-REF6413 ':INT32)
    2668. 

  2668.                               (NB-REF6414 ':INT32) (LDA-REF6416 ':INT32)
    2669. 

  2669.                               (LDT-REF6418 ':INT32) (INFO-REF6420 ':INT32))
    2670. 

  2670.     (COMMON-LISP:SETF (CFFI:MEM-REF M-REF6412 :INT32) M)
    2671. 

  2671.     (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6413 :INT32) N)
    2672. 

  2672.     (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF6414 :INT32) NB)
    2673. 

  2673.     (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6416 :INT32) LDA)
    2674. 

  2674.     (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF6418 :INT32) LDT)
    2675. 

  2675.     (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6420 :INT32) INFO)
    2676. 

  2676.     (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6415 A) (T-REF6417 T)
    2677. 

  2677.                                             (WORK-REF6419 WORK))
    2678. 

  2678.       (%%DGEQRT M-REF6412 N-REF6413 NB-REF6414 A-REF6415 LDA-REF6416 T-REF6417
    2679. 

  2679.        LDT-REF6418 WORK-REF6419 INFO-REF6420))))
    2680. 

  2680. 

  2681. (CFFI:DEFCFUN ("dgeqrt2_" %%DGEQRT2 :LIBRARY
    2682. 

  2682.                MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    2683. 

  2683.     :VOID
    2684. 

  2684.   (M :POINTER)
    2685. 

  2685.   (N :POINTER)
    2686. 

  2686.   (A :POINTER)
    2687. 

  2687.   (LDA :POINTER)
    2688. 

  2688.   (T :POINTER)
    2689. 

  2689.   (LDT :POINTER)
    2690. 

  2690.   (INFO :POINTER))
    2691. 

  2691. 

  2692. (COMMON-LISP:DEFUN %DGEQRT2 (M N A LDA T LDT INFO)
    2693. 

  2693.   (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGEQRT2)
    2694. 

  2694.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
    2695. 

  2695.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
    2696. 

  2696.                        (COMMON-LISP:TYPE
    2697. 

  2697.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
    2698. 

  2698.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
    2699. 

  2699.                        (COMMON-LISP:TYPE
    2700. 

  2700.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) T)
    2701. 

  2701.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
    2702. 

  2702.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
    2703. 

  2703.   (CFFI:WITH-FOREIGN-OBJECTS ((M-REF6421 ':INT32) (N-REF6422 ':INT32)
    2704. 

  2704.                               (LDA-REF6424 ':INT32) (LDT-REF6426 ':INT32)
    2705. 

  2705.                               (INFO-REF6427 ':INT32))
    2706. 

  2706.     (COMMON-LISP:SETF (CFFI:MEM-REF M-REF6421 :INT32) M)
    2707. 

  2707.     (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6422 :INT32) N)
    2708. 

  2708.     (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6424 :INT32) LDA)
    2709. 

  2709.     (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF6426 :INT32) LDT)
    2710. 

  2710.     (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6427 :INT32) INFO)
    2711. 

  2711.     (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6423 A) (T-REF6425 T))
    2712. 

  2712.       (%%DGEQRT2 M-REF6421 N-REF6422 A-REF6423 LDA-REF6424 T-REF6425
    2713. 

  2713.        LDT-REF6426 INFO-REF6427))))
    2714. 

  2714. 

  2715. (CFFI:DEFCFUN ("dgeqrt3_" %%DGEQRT3 :LIBRARY
    2716. 

  2716.                MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    2717. 

  2717.     :VOID
    2718. 

  2718.   (M :POINTER)
    2719. 

  2719.   (N :POINTER)
    2720. 

  2720.   (A :POINTER)
    2721. 

  2721.   (LDA :POINTER)
    2722. 

  2722.   (T :POINTER)
    2723. 

  2723.   (LDT :POINTER)
    2724. 

  2724.   (INFO :POINTER))
    2725. 

  2725. 

  2726. (COMMON-LISP:DEFUN %DGEQRT3 (M N A LDA T LDT INFO)
    2727. 

  2727.   (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGEQRT3)
    2728. 

  2728.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
    2729. 

  2729.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
    2730. 

  2730.                        (COMMON-LISP:TYPE
    2731. 

  2731.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
    2732. 

  2732.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
    2733. 

  2733.                        (COMMON-LISP:TYPE
    2734. 

  2734.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) T)
    2735. 

  2735.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
    2736. 

  2736.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
    2737. 

  2737.   (CFFI:WITH-FOREIGN-OBJECTS ((M-REF6428 ':INT32) (N-REF6429 ':INT32)
    2738. 

  2738.                               (LDA-REF6431 ':INT32) (LDT-REF6433 ':INT32)
    2739. 

  2739.                               (INFO-REF6434 ':INT32))
    2740. 

  2740.     (COMMON-LISP:SETF (CFFI:MEM-REF M-REF6428 :INT32) M)
    2741. 

  2741.     (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6429 :INT32) N)
    2742. 

  2742.     (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6431 :INT32) LDA)
    2743. 

  2743.     (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF6433 :INT32) LDT)
    2744. 

  2744.     (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6434 :INT32) INFO)
    2745. 

  2745.     (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6430 A) (T-REF6432 T))
    2746. 

  2746.       (%%DGEQRT3 M-REF6428 N-REF6429 A-REF6430 LDA-REF6431 T-REF6432
    2747. 

  2747.        LDT-REF6433 INFO-REF6434))))
    2748. 

  2748. 

  2749. (CFFI:DEFCFUN ("dgerfs_" %%DGERFS :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    2750. 

  2750.     :VOID
    2751. 

  2751.   (TRANS :STRING)
    2752. 

  2752.   (N :POINTER)
    2753. 

  2753.   (NRHS :POINTER)
    2754. 

  2754.   (A :POINTER)
    2755. 

  2755.   (LDA :POINTER)
    2756. 

  2756.   (AF :POINTER)
    2757. 

  2757.   (LDAF :POINTER)
    2758. 

  2758.   (IPIV :POINTER)
    2759. 

  2759.   (B :POINTER)
    2760. 

  2760.   (LDB :POINTER)
    2761. 

  2761.   (X :POINTER)
    2762. 

  2762.   (LDX :POINTER)
    2763. 

  2763.   (FERR :POINTER)
    2764. 

  2764.   (BERR :POINTER)
    2765. 

  2765.   (WORK :POINTER)
    2766. 

  2766.   (IWORK :POINTER)
    2767. 

  2767.   (INFO :POINTER))
    2768. 

  2768. 

  2769. (COMMON-LISP:DEFUN %DGERFS
    2770. 

  2770.                    (TRANS N NRHS A LDA AF LDAF IPIV B LDB X LDX FERR BERR WORK
    2771. 

  2771.                     IWORK INFO)
    2772. 

  2772.   (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGERFS)
    2773. 

  2773.                        (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
    2774. 

  2774.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
    2775. 

  2775.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
    2776. 

  2776.                        (COMMON-LISP:TYPE
    2777. 

  2777.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
    2778. 

  2778.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
    2779. 

  2779.                        (COMMON-LISP:TYPE
    2780. 

  2780.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AF)
    2781. 

  2781.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
    2782. 

  2782.                        (COMMON-LISP:TYPE
    2783. 

  2783.                         (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
    2784. 

  2784.                          (COMMON-LISP:*))
    2785. 

  2785.                         IPIV)
    2786. 

  2786.                        (COMMON-LISP:TYPE
    2787. 

  2787.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
    2788. 

  2788.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
    2789. 

  2789.                        (COMMON-LISP:TYPE
    2790. 

  2790.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) X)
    2791. 

  2791.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
    2792. 

  2792.                        (COMMON-LISP:TYPE
    2793. 

  2793.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    2794. 

  2794.                         FERR)
    2795. 

  2795.                        (COMMON-LISP:TYPE
    2796. 

  2796.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    2797. 

  2797.                         BERR)
    2798. 

  2798.                        (COMMON-LISP:TYPE
    2799. 

  2799.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    2800. 

  2800.                         WORK)
    2801. 

  2801.                        (COMMON-LISP:TYPE
    2802. 

  2802.                         (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
    2803. 

  2803.                          (COMMON-LISP:*))
    2804. 

  2804.                         IWORK)
    2805. 

  2805.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
    2806. 

  2806.   (CFFI:WITH-FOREIGN-OBJECTS ((N-REF6436 ':INT32) (NRHS-REF6437 ':INT32)
    2807. 

  2807.                               (LDA-REF6439 ':INT32) (LDAF-REF6441 ':INT32)
    2808. 

  2808.                               (LDB-REF6444 ':INT32) (LDX-REF6446 ':INT32)
    2809. 

  2809.                               (INFO-REF6451 ':INT32))
    2810. 

  2810.     (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6436 :INT32) N)
    2811. 

  2811.     (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF6437 :INT32) NRHS)
    2812. 

  2812.     (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6439 :INT32) LDA)
    2813. 

  2813.     (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF6441 :INT32) LDAF)
    2814. 

  2814.     (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF6444 :INT32) LDB)
    2815. 

  2815.     (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF6446 :INT32) LDX)
    2816. 

  2816.     (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6451 :INT32) INFO)
    2817. 

  2817.     (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6438 A) (AF-REF6440 AF)
    2818. 

  2818.                                             (IPIV-REF6442 IPIV) (B-REF6443 B)
    2819. 

  2819.                                             (X-REF6445 X) (FERR-REF6447 FERR)
    2820. 

  2820.                                             (BERR-REF6448 BERR)
    2821. 

  2821.                                             (WORK-REF6449 WORK)
    2822. 

  2822.                                             (IWORK-REF6450 IWORK))
    2823. 

  2823.       (%%DGERFS TRANS N-REF6436 NRHS-REF6437 A-REF6438 LDA-REF6439 AF-REF6440
    2824. 

  2824.        LDAF-REF6441 IPIV-REF6442 B-REF6443 LDB-REF6444 X-REF6445 LDX-REF6446
    2825. 

  2825.        FERR-REF6447 BERR-REF6448 WORK-REF6449 IWORK-REF6450 INFO-REF6451))))
    2826. 

  2826. 

  2827. (CFFI:DEFCFUN ("dgerfsx_" %%DGERFSX :LIBRARY
    2828. 

  2828.                MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    2829. 

  2829.     :VOID
    2830. 

  2830.   (TRANS :STRING)
    2831. 

  2831.   (EQUED :STRING)
    2832. 

  2832.   (N :POINTER)
    2833. 

  2833.   (NRHS :POINTER)
    2834. 

  2834.   (A :POINTER)
    2835. 

  2835.   (LDA :POINTER)
    2836. 

  2836.   (AF :POINTER)
    2837. 

  2837.   (LDAF :POINTER)
    2838. 

  2838.   (IPIV :POINTER)
    2839. 

  2839.   (R :POINTER)
    2840. 

  2840.   (C :POINTER)
    2841. 

  2841.   (B :POINTER)
    2842. 

  2842.   (LDB :POINTER)
    2843. 

  2843.   (X :POINTER)
    2844. 

  2844.   (LDX :POINTER)
    2845. 

  2845.   (RCOND :POINTER)
    2846. 

  2846.   (BERR :POINTER)
    2847. 

  2847.   (N_ERR_BNDS :POINTER)
    2848. 

  2848.   (ERR_BNDS_NORM :POINTER)
    2849. 

  2849.   (ERR_BNDS_COMP :POINTER)
    2850. 

  2850.   (NPARAMS :POINTER)
    2851. 

  2851.   (PARAMS :POINTER)
    2852. 

  2852.   (WORK :POINTER)
    2853. 

  2853.   (IWORK :POINTER)
    2854. 

  2854.   (INFO :POINTER))
    2855. 

  2855. 

  2856. (COMMON-LISP:DEFUN %DGERFSX
    2857. 

  2857.                    (TRANS EQUED N NRHS A LDA AF LDAF IPIV R C B LDB X LDX RCOND
    2858. 

  2858.                     BERR N_ERR_BNDS ERR_BNDS_NORM ERR_BNDS_COMP NPARAMS PARAMS
    2859. 

  2859.                     WORK IWORK INFO)
    2860. 

  2860.   (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGERFSX)
    2861. 

  2861.                        (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
    2862. 

  2862.                        (COMMON-LISP:TYPE COMMON-LISP:STRING EQUED)
    2863. 

  2863.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
    2864. 

  2864.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
    2865. 

  2865.                        (COMMON-LISP:TYPE
    2866. 

  2866.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
    2867. 

  2867.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
    2868. 

  2868.                        (COMMON-LISP:TYPE
    2869. 

  2869.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AF)
    2870. 

  2870.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
    2871. 

  2871.                        (COMMON-LISP:TYPE
    2872. 

  2872.                         (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
    2873. 

  2873.                          (COMMON-LISP:*))
    2874. 

  2874.                         IPIV)
    2875. 

  2875.                        (COMMON-LISP:TYPE
    2876. 

  2876.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) R)
    2877. 

  2877.                        (COMMON-LISP:TYPE
    2878. 

  2878.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
    2879. 

  2879.                        (COMMON-LISP:TYPE
    2880. 

  2880.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
    2881. 

  2881.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
    2882. 

  2882.                        (COMMON-LISP:TYPE
    2883. 

  2883.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) X)
    2884. 

  2884.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
    2885. 

  2885.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RCOND)
    2886. 

  2886.                        (COMMON-LISP:TYPE
    2887. 

  2887.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    2888. 

  2888.                         BERR)
    2889. 

  2889.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32)
    2890. 

  2890.                         N_ERR_BNDS)
    2891. 

  2891.                        (COMMON-LISP:TYPE
    2892. 

  2892.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    2893. 

  2893.                         ERR_BNDS_NORM)
    2894. 

  2894.                        (COMMON-LISP:TYPE
    2895. 

  2895.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    2896. 

  2896.                         ERR_BNDS_COMP)
    2897. 

  2897.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NPARAMS)
    2898. 

  2898.                        (COMMON-LISP:TYPE
    2899. 

  2899.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    2900. 

  2900.                         PARAMS)
    2901. 

  2901.                        (COMMON-LISP:TYPE
    2902. 

  2902.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    2903. 

  2903.                         WORK)
    2904. 

  2904.                        (COMMON-LISP:TYPE
    2905. 

  2905.                         (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
    2906. 

  2906.                          (COMMON-LISP:*))
    2907. 

  2907.                         IWORK)
    2908. 

  2908.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
    2909. 

  2909.   (CFFI:WITH-FOREIGN-OBJECTS ((N-REF6454 ':INT32) (NRHS-REF6455 ':INT32)
    2910. 

  2910.                               (LDA-REF6457 ':INT32) (LDAF-REF6459 ':INT32)
    2911. 

  2911.                               (LDB-REF6464 ':INT32) (LDX-REF6466 ':INT32)
    2912. 

  2912.                               (RCOND-REF6467 ':DOUBLE)
    2913. 

  2913.                               (N_ERR_BNDS-REF6469 ':INT32)
    2914. 

  2914.                               (NPARAMS-REF6472 ':INT32) (INFO-REF6476 ':INT32))
    2915. 

  2915.     (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6454 :INT32) N)
    2916. 

  2916.     (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF6455 :INT32) NRHS)
    2917. 

  2917.     (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6457 :INT32) LDA)
    2918. 

  2918.     (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF6459 :INT32) LDAF)
    2919. 

  2919.     (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF6464 :INT32) LDB)
    2920. 

  2920.     (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF6466 :INT32) LDX)
    2921. 

  2921.     (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF6467 :DOUBLE) RCOND)
    2922. 

  2922.     (COMMON-LISP:SETF (CFFI:MEM-REF N_ERR_BNDS-REF6469 :INT32) N_ERR_BNDS)
    2923. 

  2923.     (COMMON-LISP:SETF (CFFI:MEM-REF NPARAMS-REF6472 :INT32) NPARAMS)
    2924. 

  2924.     (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6476 :INT32) INFO)
    2925. 

  2925.     (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6456 A) (AF-REF6458 AF)
    2926. 

  2926.                                             (IPIV-REF6460 IPIV) (R-REF6461 R)
    2927. 

  2927.                                             (C-REF6462 C) (B-REF6463 B)
    2928. 

  2928.                                             (X-REF6465 X) (BERR-REF6468 BERR)
    2929. 

  2929.                                             (ERR_BNDS_NORM-REF6470
    2930. 

  2930.                                              ERR_BNDS_NORM)
    2931. 

  2931.                                             (ERR_BNDS_COMP-REF6471
    2932. 

  2932.                                              ERR_BNDS_COMP)
    2933. 

  2933.                                             (PARAMS-REF6473 PARAMS)
    2934. 

  2934.                                             (WORK-REF6474 WORK)
    2935. 

  2935.                                             (IWORK-REF6475 IWORK))
    2936. 

  2936.       (%%DGERFSX TRANS EQUED N-REF6454 NRHS-REF6455 A-REF6456 LDA-REF6457
    2937. 

  2937.        AF-REF6458 LDAF-REF6459 IPIV-REF6460 R-REF6461 C-REF6462 B-REF6463
    2938. 

  2938.        LDB-REF6464 X-REF6465 LDX-REF6466 RCOND-REF6467 BERR-REF6468
    2939. 

  2939.        N_ERR_BNDS-REF6469 ERR_BNDS_NORM-REF6470 ERR_BNDS_COMP-REF6471
    2940. 

  2940.        NPARAMS-REF6472 PARAMS-REF6473 WORK-REF6474 IWORK-REF6475
    2941. 

  2941.        INFO-REF6476))))
    2942. 

  2942. 

  2943. (CFFI:DEFCFUN ("dgerq2_" %%DGERQ2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    2944. 

  2944.     :VOID
    2945. 

  2945.   (M :POINTER)
    2946. 

  2946.   (N :POINTER)
    2947. 

  2947.   (A :POINTER)
    2948. 

  2948.   (LDA :POINTER)
    2949. 

  2949.   (TAU :POINTER)
    2950. 

  2950.   (WORK :POINTER)
    2951. 

  2951.   (INFO :POINTER))
    2952. 

  2952. 

  2953. (COMMON-LISP:DEFUN %DGERQ2 (M N A LDA TAU WORK INFO)
    2954. 

  2954.   (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGERQ2)
    2955. 

  2955.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
    2956. 

  2956.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
    2957. 

  2957.                        (COMMON-LISP:TYPE
    2958. 

  2958.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
    2959. 

  2959.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
    2960. 

  2960.                        (COMMON-LISP:TYPE
    2961. 

  2961.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    2962. 

  2962.                         TAU)
    2963. 

  2963.                        (COMMON-LISP:TYPE
    2964. 

  2964.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    2965. 

  2965.                         WORK)
    2966. 

  2966.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
    2967. 

  2967.   (CFFI:WITH-FOREIGN-OBJECTS ((M-REF6477 ':INT32) (N-REF6478 ':INT32)
    2968. 

  2968.                               (LDA-REF6480 ':INT32) (INFO-REF6483 ':INT32))
    2969. 

  2969.     (COMMON-LISP:SETF (CFFI:MEM-REF M-REF6477 :INT32) M)
    2970. 

  2970.     (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6478 :INT32) N)
    2971. 

  2971.     (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6480 :INT32) LDA)
    2972. 

  2972.     (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6483 :INT32) INFO)
    2973. 

  2973.     (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6479 A) (TAU-REF6481 TAU)
    2974. 

  2974.                                             (WORK-REF6482 WORK))
    2975. 

  2975.       (%%DGERQ2 M-REF6477 N-REF6478 A-REF6479 LDA-REF6480 TAU-REF6481
    2976. 

  2976.        WORK-REF6482 INFO-REF6483))))
    2977. 

  2977. 

  2978. (CFFI:DEFCFUN ("dgerqf_" %%DGERQF :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    2979. 

  2979.     :VOID
    2980. 

  2980.   (M :POINTER)
    2981. 

  2981.   (N :POINTER)
    2982. 

  2982.   (A :POINTER)
    2983. 

  2983.   (LDA :POINTER)
    2984. 

  2984.   (TAU :POINTER)
    2985. 

  2985.   (WORK :POINTER)
    2986. 

  2986.   (LWORK :POINTER)
    2987. 

  2987.   (INFO :POINTER))
    2988. 

  2988. 

  2989. (COMMON-LISP:DEFUN %DGERQF (M N A LDA TAU WORK LWORK INFO)
    2990. 

  2990.   (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGERQF)
    2991. 

  2991.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
    2992. 

  2992.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
    2993. 

  2993.                        (COMMON-LISP:TYPE
    2994. 

  2994.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
    2995. 

  2995.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
    2996. 

  2996.                        (COMMON-LISP:TYPE
    2997. 

  2997.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    2998. 

  2998.                         TAU)
    2999. 

  2999.                        (COMMON-LISP:TYPE
    3000. 

  3000.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    3001. 

  3001.                         WORK)
    3002. 

  3002.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
    3003. 

  3003.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
    3004. 

  3004.   (CFFI:WITH-FOREIGN-OBJECTS ((M-REF6484 ':INT32) (N-REF6485 ':INT32)
    3005. 

  3005.                               (LDA-REF6487 ':INT32) (LWORK-REF6490 ':INT32)
    3006. 

  3006.                               (INFO-REF6491 ':INT32))
    3007. 

  3007.     (COMMON-LISP:SETF (CFFI:MEM-REF M-REF6484 :INT32) M)
    3008. 

  3008.     (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6485 :INT32) N)
    3009. 

  3009.     (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6487 :INT32) LDA)
    3010. 

  3010.     (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF6490 :INT32) LWORK)
    3011. 

  3011.     (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6491 :INT32) INFO)
    3012. 

  3012.     (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6486 A) (TAU-REF6488 TAU)
    3013. 

  3013.                                             (WORK-REF6489 WORK))
    3014. 

  3014.       (%%DGERQF M-REF6484 N-REF6485 A-REF6486 LDA-REF6487 TAU-REF6488
    3015. 

  3015.        WORK-REF6489 LWORK-REF6490 INFO-REF6491))))
    3016. 

  3016. 

  3017. (CFFI:DEFCFUN ("dgesc2_" %%DGESC2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    3018. 

  3018.     :VOID
    3019. 

  3019.   (N :POINTER)
    3020. 

  3020.   (A :POINTER)
    3021. 

  3021.   (LDA :POINTER)
    3022. 

  3022.   (RHS :POINTER)
    3023. 

  3023.   (IPIV :POINTER)
    3024. 

  3024.   (JPIV :POINTER)
    3025. 

  3025.   (SCALE :POINTER))
    3026. 

  3026. 

  3027. (COMMON-LISP:DEFUN %DGESC2 (N A LDA RHS IPIV JPIV SCALE)
    3028. 

  3028.   (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGESC2)
    3029. 

  3029.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
    3030. 

  3030.                        (COMMON-LISP:TYPE
    3031. 

  3031.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
    3032. 

  3032.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
    3033. 

  3033.                        (COMMON-LISP:TYPE
    3034. 

  3034.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    3035. 

  3035.                         RHS)
    3036. 

  3036.                        (COMMON-LISP:TYPE
    3037. 

  3037.                         (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
    3038. 

  3038.                          (COMMON-LISP:*))
    3039. 

  3039.                         IPIV)
    3040. 

  3040.                        (COMMON-LISP:TYPE
    3041. 

  3041.                         (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
    3042. 

  3042.                          (COMMON-LISP:*))
    3043. 

  3043.                         JPIV)
    3044. 

  3044.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SCALE))
    3045. 

  3045.   (CFFI:WITH-FOREIGN-OBJECTS ((N-REF6492 ':INT32) (LDA-REF6494 ':INT32)
    3046. 

  3046.                               (SCALE-REF6498 ':DOUBLE))
    3047. 

  3047.     (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6492 :INT32) N)
    3048. 

  3048.     (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6494 :INT32) LDA)
    3049. 

  3049.     (COMMON-LISP:SETF (CFFI:MEM-REF SCALE-REF6498 :DOUBLE) SCALE)
    3050. 

  3050.     (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6493 A) (RHS-REF6495 RHS)
    3051. 

  3051.                                             (IPIV-REF6496 IPIV)
    3052. 

  3052.                                             (JPIV-REF6497 JPIV))
    3053. 

  3053.       (%%DGESC2 N-REF6492 A-REF6493 LDA-REF6494 RHS-REF6495 IPIV-REF6496
    3054. 

  3054.        JPIV-REF6497 SCALE-REF6498))))
    3055. 

  3055. 

  3056. (CFFI:DEFCFUN ("dgesdd_" %%DGESDD :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    3057. 

  3057.     :VOID
    3058. 

  3058.   (JOBZ :STRING)
    3059. 

  3059.   (M :POINTER)
    3060. 

  3060.   (N :POINTER)
    3061. 

  3061.   (A :POINTER)
    3062. 

  3062.   (LDA :POINTER)
    3063. 

  3063.   (S :POINTER)
    3064. 

  3064.   (U :POINTER)
    3065. 

  3065.   (LDU :POINTER)
    3066. 

  3066.   (VT :POINTER)
    3067. 

  3067.   (LDVT :POINTER)
    3068. 

  3068.   (WORK :POINTER)
    3069. 

  3069.   (LWORK :POINTER)
    3070. 

  3070.   (IWORK :POINTER)
    3071. 

  3071.   (INFO :POINTER))
    3072. 

  3072. 

  3073. (COMMON-LISP:DEFUN %DGESDD
    3074. 

  3074.                    (JOBZ M N A LDA S U LDU VT LDVT WORK LWORK IWORK INFO)
    3075. 

  3075.   (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGESDD)
    3076. 

  3076.                        (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
    3077. 

  3077.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
    3078. 

  3078.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
    3079. 

  3079.                        (COMMON-LISP:TYPE
    3080. 

  3080.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
    3081. 

  3081.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
    3082. 

  3082.                        (COMMON-LISP:TYPE
    3083. 

  3083.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) S)
    3084. 

  3084.                        (COMMON-LISP:TYPE
    3085. 

  3085.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) U)
    3086. 

  3086.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDU)
    3087. 

  3087.                        (COMMON-LISP:TYPE
    3088. 

  3088.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) VT)
    3089. 

  3089.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVT)
    3090. 

  3090.                        (COMMON-LISP:TYPE
    3091. 

  3091.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    3092. 

  3092.                         WORK)
    3093. 

  3093.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
    3094. 

  3094.                        (COMMON-LISP:TYPE
    3095. 

  3095.                         (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
    3096. 

  3096.                          (COMMON-LISP:*))
    3097. 

  3097.                         IWORK)
    3098. 

  3098.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
    3099. 

  3099.   (CFFI:WITH-FOREIGN-OBJECTS ((M-REF6500 ':INT32) (N-REF6501 ':INT32)
    3100. 

  3100.                               (LDA-REF6503 ':INT32) (LDU-REF6506 ':INT32)
    3101. 

  3101.                               (LDVT-REF6508 ':INT32) (LWORK-REF6510 ':INT32)
    3102. 

  3102.                               (INFO-REF6512 ':INT32))
    3103. 

  3103.     (COMMON-LISP:SETF (CFFI:MEM-REF M-REF6500 :INT32) M)
    3104. 

  3104.     (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6501 :INT32) N)
    3105. 

  3105.     (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6503 :INT32) LDA)
    3106. 

  3106.     (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF6506 :INT32) LDU)
    3107. 

  3107.     (COMMON-LISP:SETF (CFFI:MEM-REF LDVT-REF6508 :INT32) LDVT)
    3108. 

  3108.     (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF6510 :INT32) LWORK)
    3109. 

  3109.     (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6512 :INT32) INFO)
    3110. 

  3110.     (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6502 A) (S-REF6504 S)
    3111. 

  3111.                                             (U-REF6505 U) (VT-REF6507 VT)
    3112. 

  3112.                                             (WORK-REF6509 WORK)
    3113. 

  3113.                                             (IWORK-REF6511 IWORK))
    3114. 

  3114.       (%%DGESDD JOBZ M-REF6500 N-REF6501 A-REF6502 LDA-REF6503 S-REF6504
    3115. 

  3115.        U-REF6505 LDU-REF6506 VT-REF6507 LDVT-REF6508 WORK-REF6509 LWORK-REF6510
    3116. 

  3116.        IWORK-REF6511 INFO-REF6512))))
    3117. 

  3117. 

  3118. (CFFI:DEFCFUN ("dgesv_" %%DGESV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    3119. 

  3119.     :VOID
    3120. 

  3120.   (N :POINTER)
    3121. 

  3121.   (NRHS :POINTER)
    3122. 

  3122.   (A :POINTER)
    3123. 

  3123.   (LDA :POINTER)
    3124. 

  3124.   (IPIV :POINTER)
    3125. 

  3125.   (B :POINTER)
    3126. 

  3126.   (LDB :POINTER)
    3127. 

  3127.   (INFO :POINTER))
    3128. 

  3128. 

  3129. (COMMON-LISP:DEFUN %DGESV (N NRHS A LDA IPIV B LDB INFO)
    3130. 

  3130.   (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGESV)
    3131. 

  3131.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
    3132. 

  3132.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
    3133. 

  3133.                        (COMMON-LISP:TYPE
    3134. 

  3134.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
    3135. 

  3135.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
    3136. 

  3136.                        (COMMON-LISP:TYPE
    3137. 

  3137.                         (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
    3138. 

  3138.                          (COMMON-LISP:*))
    3139. 

  3139.                         IPIV)
    3140. 

  3140.                        (COMMON-LISP:TYPE
    3141. 

  3141.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
    3142. 

  3142.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
    3143. 

  3143.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
    3144. 

  3144.   (CFFI:WITH-FOREIGN-OBJECTS ((N-REF6513 ':INT32) (NRHS-REF6514 ':INT32)
    3145. 

  3145.                               (LDA-REF6516 ':INT32) (LDB-REF6519 ':INT32)
    3146. 

  3146.                               (INFO-REF6520 ':INT32))
    3147. 

  3147.     (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6513 :INT32) N)
    3148. 

  3148.     (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF6514 :INT32) NRHS)
    3149. 

  3149.     (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6516 :INT32) LDA)
    3150. 

  3150.     (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF6519 :INT32) LDB)
    3151. 

  3151.     (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6520 :INT32) INFO)
    3152. 

  3152.     (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6515 A) (IPIV-REF6517 IPIV)
    3153. 

  3153.                                             (B-REF6518 B))
    3154. 

  3154.       (%%DGESV N-REF6513 NRHS-REF6514 A-REF6515 LDA-REF6516 IPIV-REF6517
    3155. 

  3155.        B-REF6518 LDB-REF6519 INFO-REF6520))))
    3156. 

  3156. 

  3157. (CFFI:DEFCFUN ("dgesvd_" %%DGESVD :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    3158. 

  3158.     :VOID
    3159. 

  3159.   (JOBU :STRING)
    3160. 

  3160.   (JOBVT :STRING)
    3161. 

  3161.   (M :POINTER)
    3162. 

  3162.   (N :POINTER)
    3163. 

  3163.   (A :POINTER)
    3164. 

  3164.   (LDA :POINTER)
    3165. 

  3165.   (S :POINTER)
    3166. 

  3166.   (U :POINTER)
    3167. 

  3167.   (LDU :POINTER)
    3168. 

  3168.   (VT :POINTER)
    3169. 

  3169.   (LDVT :POINTER)
    3170. 

  3170.   (WORK :POINTER)
    3171. 

  3171.   (LWORK :POINTER)
    3172. 

  3172.   (INFO :POINTER))
    3173. 

  3173. 

  3174. (COMMON-LISP:DEFUN %DGESVD
    3175. 

  3175.                    (JOBU JOBVT M N A LDA S U LDU VT LDVT WORK LWORK INFO)
    3176. 

  3176.   (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGESVD)
    3177. 

  3177.                        (COMMON-LISP:TYPE COMMON-LISP:STRING JOBU)
    3178. 

  3178.                        (COMMON-LISP:TYPE COMMON-LISP:STRING JOBVT)
    3179. 

  3179.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
    3180. 

  3180.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
    3181. 

  3181.                        (COMMON-LISP:TYPE
    3182. 

  3182.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
    3183. 

  3183.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
    3184. 

  3184.                        (COMMON-LISP:TYPE
    3185. 

  3185.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) S)
    3186. 

  3186.                        (COMMON-LISP:TYPE
    3187. 

  3187.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) U)
    3188. 

  3188.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDU)
    3189. 

  3189.                        (COMMON-LISP:TYPE
    3190. 

  3190.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) VT)
    3191. 

  3191.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVT)
    3192. 

  3192.                        (COMMON-LISP:TYPE
    3193. 

  3193.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    3194. 

  3194.                         WORK)
    3195. 

  3195.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
    3196. 

  3196.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
    3197. 

  3197.   (CFFI:WITH-FOREIGN-OBJECTS ((M-REF6523 ':INT32) (N-REF6524 ':INT32)
    3198. 

  3198.                               (LDA-REF6526 ':INT32) (LDU-REF6529 ':INT32)
    3199. 

  3199.                               (LDVT-REF6531 ':INT32) (LWORK-REF6533 ':INT32)
    3200. 

  3200.                               (INFO-REF6534 ':INT32))
    3201. 

  3201.     (COMMON-LISP:SETF (CFFI:MEM-REF M-REF6523 :INT32) M)
    3202. 

  3202.     (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6524 :INT32) N)
    3203. 

  3203.     (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6526 :INT32) LDA)
    3204. 

  3204.     (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF6529 :INT32) LDU)
    3205. 

  3205.     (COMMON-LISP:SETF (CFFI:MEM-REF LDVT-REF6531 :INT32) LDVT)
    3206. 

  3206.     (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF6533 :INT32) LWORK)
    3207. 

  3207.     (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6534 :INT32) INFO)
    3208. 

  3208.     (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6525 A) (S-REF6527 S)
    3209. 

  3209.                                             (U-REF6528 U) (VT-REF6530 VT)
    3210. 

  3210.                                             (WORK-REF6532 WORK))
    3211. 

  3211.       (%%DGESVD JOBU JOBVT M-REF6523 N-REF6524 A-REF6525 LDA-REF6526 S-REF6527
    3212. 

  3212.        U-REF6528 LDU-REF6529 VT-REF6530 LDVT-REF6531 WORK-REF6532 LWORK-REF6533
    3213. 

  3213.        INFO-REF6534))))
    3214. 

  3214. 

  3215. (CFFI:DEFCFUN ("dgesvdq_" %%DGESVDQ :LIBRARY
    3216. 

  3216.                MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    3217. 

  3217.     :VOID
    3218. 

  3218.   (JOBA :STRING)
    3219. 

  3219.   (JOBP :STRING)
    3220. 

  3220.   (JOBR :STRING)
    3221. 

  3221.   (JOBU :STRING)
    3222. 

  3222.   (JOBV :STRING)
    3223. 

  3223.   (M :POINTER)
    3224. 

  3224.   (N :POINTER)
    3225. 

  3225.   (A :POINTER)
    3226. 

  3226.   (LDA :POINTER)
    3227. 

  3227.   (S :POINTER)
    3228. 

  3228.   (U :POINTER)
    3229. 

  3229.   (LDU :POINTER)
    3230. 

  3230.   (V :POINTER)
    3231. 

  3231.   (LDV :POINTER)
    3232. 

  3232.   (NUMRANK :POINTER)
    3233. 

  3233.   (IWORK :POINTER)
    3234. 

  3234.   (LIWORK :POINTER)
    3235. 

  3235.   (WORK :POINTER)
    3236. 

  3236.   (LWORK :POINTER)
    3237. 

  3237.   (RWORK :POINTER)
    3238. 

  3238.   (LRWORK :POINTER)
    3239. 

  3239.   (INFO :POINTER))
    3240. 

  3240. 

  3241. (COMMON-LISP:DEFUN %DGESVDQ
    3242. 

  3242.                    (JOBA JOBP JOBR JOBU JOBV M N A LDA S U LDU V LDV NUMRANK
    3243. 

  3243.                     IWORK LIWORK WORK LWORK RWORK LRWORK INFO)
    3244. 

  3244.   (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGESVDQ)
    3245. 

  3245.                        (COMMON-LISP:TYPE COMMON-LISP:STRING JOBA)
    3246. 

  3246.                        (COMMON-LISP:TYPE COMMON-LISP:STRING JOBP)
    3247. 

  3247.                        (COMMON-LISP:TYPE COMMON-LISP:STRING JOBR)
    3248. 

  3248.                        (COMMON-LISP:TYPE COMMON-LISP:STRING JOBU)
    3249. 

  3249.                        (COMMON-LISP:TYPE COMMON-LISP:STRING JOBV)
    3250. 

  3250.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
    3251. 

  3251.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
    3252. 

  3252.                        (COMMON-LISP:TYPE
    3253. 

  3253.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
    3254. 

  3254.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
    3255. 

  3255.                        (COMMON-LISP:TYPE
    3256. 

  3256.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) S)
    3257. 

  3257.                        (COMMON-LISP:TYPE
    3258. 

  3258.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) U)
    3259. 

  3259.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDU)
    3260. 

  3260.                        (COMMON-LISP:TYPE
    3261. 

  3261.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) V)
    3262. 

  3262.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV)
    3263. 

  3263.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NUMRANK)
    3264. 

  3264.                        (COMMON-LISP:TYPE
    3265. 

  3265.                         (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
    3266. 

  3266.                          (COMMON-LISP:*))
    3267. 

  3267.                         IWORK)
    3268. 

  3268.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LIWORK)
    3269. 

  3269.                        (COMMON-LISP:TYPE
    3270. 

  3270.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    3271. 

  3271.                         WORK)
    3272. 

  3272.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
    3273. 

  3273.                        (COMMON-LISP:TYPE
    3274. 

  3274.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    3275. 

  3275.                         RWORK)
    3276. 

  3276.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LRWORK)
    3277. 

  3277.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
    3278. 

  3278.   (CFFI:WITH-FOREIGN-OBJECTS ((M-REF6540 ':INT32) (N-REF6541 ':INT32)
    3279. 

  3279.                               (LDA-REF6543 ':INT32) (LDU-REF6546 ':INT32)
    3280. 

  3280.                               (LDV-REF6548 ':INT32) (NUMRANK-REF6549 ':INT32)
    3281. 

  3281.                               (LIWORK-REF6551 ':INT32) (LWORK-REF6553 ':INT32)
    3282. 

  3282.                               (LRWORK-REF6555 ':INT32) (INFO-REF6556 ':INT32))
    3283. 

  3283.     (COMMON-LISP:SETF (CFFI:MEM-REF M-REF6540 :INT32) M)
    3284. 

  3284.     (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6541 :INT32) N)
    3285. 

  3285.     (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6543 :INT32) LDA)
    3286. 

  3286.     (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF6546 :INT32) LDU)
    3287. 

  3287.     (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF6548 :INT32) LDV)
    3288. 

  3288.     (COMMON-LISP:SETF (CFFI:MEM-REF NUMRANK-REF6549 :INT32) NUMRANK)
    3289. 

  3289.     (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF6551 :INT32) LIWORK)
    3290. 

  3290.     (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF6553 :INT32) LWORK)
    3291. 

  3291.     (COMMON-LISP:SETF (CFFI:MEM-REF LRWORK-REF6555 :INT32) LRWORK)
    3292. 

  3292.     (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6556 :INT32) INFO)
    3293. 

  3293.     (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6542 A) (S-REF6544 S)
    3294. 

  3294.                                             (U-REF6545 U) (V-REF6547 V)
    3295. 

  3295.                                             (IWORK-REF6550 IWORK)
    3296. 

  3296.                                             (WORK-REF6552 WORK)
    3297. 

  3297.                                             (RWORK-REF6554 RWORK))
    3298. 

  3298.       (%%DGESVDQ JOBA JOBP JOBR JOBU JOBV M-REF6540 N-REF6541 A-REF6542
    3299. 

  3299.        LDA-REF6543 S-REF6544 U-REF6545 LDU-REF6546 V-REF6547 LDV-REF6548
    3300. 

  3300.        NUMRANK-REF6549 IWORK-REF6550 LIWORK-REF6551 WORK-REF6552 LWORK-REF6553
    3301. 

  3301.        RWORK-REF6554 LRWORK-REF6555 INFO-REF6556))))
    3302. 

  3302. 

  3303. (CFFI:DEFCFUN ("dgesvdx_" %%DGESVDX :LIBRARY
    3304. 

  3304.                MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    3305. 

  3305.     :VOID
    3306. 

  3306.   (JOBU :STRING)
    3307. 

  3307.   (JOBVT :STRING)
    3308. 

  3308.   (RANGE :STRING)
    3309. 

  3309.   (M :POINTER)
    3310. 

  3310.   (N :POINTER)
    3311. 

  3311.   (A :POINTER)
    3312. 

  3312.   (LDA :POINTER)
    3313. 

  3313.   (VL :POINTER)
    3314. 

  3314.   (VU :POINTER)
    3315. 

  3315.   (IL :POINTER)
    3316. 

  3316.   (IU :POINTER)
    3317. 

  3317.   (NS :POINTER)
    3318. 

  3318.   (S :POINTER)
    3319. 

  3319.   (U :POINTER)
    3320. 

  3320.   (LDU :POINTER)
    3321. 

  3321.   (VT :POINTER)
    3322. 

  3322.   (LDVT :POINTER)
    3323. 

  3323.   (WORK :POINTER)
    3324. 

  3324.   (LWORK :POINTER)
    3325. 

  3325.   (IWORK :POINTER)
    3326. 

  3326.   (INFO :POINTER))
    3327. 

  3327. 

  3328. (COMMON-LISP:DEFUN %DGESVDX
    3329. 

  3329.                    (JOBU JOBVT RANGE M N A LDA VL VU IL IU NS S U LDU VT LDVT
    3330. 

  3330.                     WORK LWORK IWORK INFO)
    3331. 

  3331.   (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGESVDX)
    3332. 

  3332.                        (COMMON-LISP:TYPE COMMON-LISP:STRING JOBU)
    3333. 

  3333.                        (COMMON-LISP:TYPE COMMON-LISP:STRING JOBVT)
    3334. 

  3334.                        (COMMON-LISP:TYPE COMMON-LISP:STRING RANGE)
    3335. 

  3335.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
    3336. 

  3336.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
    3337. 

  3337.                        (COMMON-LISP:TYPE
    3338. 

  3338.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
    3339. 

  3339.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
    3340. 

  3340.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT VL)
    3341. 

  3341.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT VU)
    3342. 

  3342.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IL)
    3343. 

  3343.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IU)
    3344. 

  3344.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NS)
    3345. 

  3345.                        (COMMON-LISP:TYPE
    3346. 

  3346.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) S)
    3347. 

  3347.                        (COMMON-LISP:TYPE
    3348. 

  3348.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) U)
    3349. 

  3349.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDU)
    3350. 

  3350.                        (COMMON-LISP:TYPE
    3351. 

  3351.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) VT)
    3352. 

  3352.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVT)
    3353. 

  3353.                        (COMMON-LISP:TYPE
    3354. 

  3354.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    3355. 

  3355.                         WORK)
    3356. 

  3356.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
    3357. 

  3357.                        (COMMON-LISP:TYPE
    3358. 

  3358.                         (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
    3359. 

  3359.                          (COMMON-LISP:*))
    3360. 

  3360.                         IWORK)
    3361. 

  3361.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
    3362. 

  3362.   (CFFI:WITH-FOREIGN-OBJECTS ((M-REF6560 ':INT32) (N-REF6561 ':INT32)
    3363. 

  3363.                               (LDA-REF6563 ':INT32) (VL-REF6564 ':DOUBLE)
    3364. 

  3364.                               (VU-REF6565 ':DOUBLE) (IL-REF6566 ':INT32)
    3365. 

  3365.                               (IU-REF6567 ':INT32) (NS-REF6568 ':INT32)
    3366. 

  3366.                               (LDU-REF6571 ':INT32) (LDVT-REF6573 ':INT32)
    3367. 

  3367.                               (LWORK-REF6575 ':INT32) (INFO-REF6577 ':INT32))
    3368. 

  3368.     (COMMON-LISP:SETF (CFFI:MEM-REF M-REF6560 :INT32) M)
    3369. 

  3369.     (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6561 :INT32) N)
    3370. 

  3370.     (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6563 :INT32) LDA)
    3371. 

  3371.     (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF6564 :DOUBLE) VL)
    3372. 

  3372.     (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF6565 :DOUBLE) VU)
    3373. 

  3373.     (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF6566 :INT32) IL)
    3374. 

  3374.     (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF6567 :INT32) IU)
    3375. 

  3375.     (COMMON-LISP:SETF (CFFI:MEM-REF NS-REF6568 :INT32) NS)
    3376. 

  3376.     (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF6571 :INT32) LDU)
    3377. 

  3377.     (COMMON-LISP:SETF (CFFI:MEM-REF LDVT-REF6573 :INT32) LDVT)
    3378. 

  3378.     (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF6575 :INT32) LWORK)
    3379. 

  3379.     (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6577 :INT32) INFO)
    3380. 

  3380.     (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6562 A) (S-REF6569 S)
    3381. 

  3381.                                             (U-REF6570 U) (VT-REF6572 VT)
    3382. 

  3382.                                             (WORK-REF6574 WORK)
    3383. 

  3383.                                             (IWORK-REF6576 IWORK))
    3384. 

  3384.       (%%DGESVDX JOBU JOBVT RANGE M-REF6560 N-REF6561 A-REF6562 LDA-REF6563
    3385. 

  3385.        VL-REF6564 VU-REF6565 IL-REF6566 IU-REF6567 NS-REF6568 S-REF6569
    3386. 

  3386.        U-REF6570 LDU-REF6571 VT-REF6572 LDVT-REF6573 WORK-REF6574 LWORK-REF6575
    3387. 

  3387.        IWORK-REF6576 INFO-REF6577))))
    3388. 

  3388. 

  3389. (CFFI:DEFCFUN ("dgesvj_" %%DGESVJ :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    3390. 

  3390.     :VOID
    3391. 

  3391.   (JOBA :STRING)
    3392. 

  3392.   (JOBU :STRING)
    3393. 

  3393.   (JOBV :STRING)
    3394. 

  3394.   (M :POINTER)
    3395. 

  3395.   (N :POINTER)
    3396. 

  3396.   (A :POINTER)
    3397. 

  3397.   (LDA :POINTER)
    3398. 

  3398.   (SVA :POINTER)
    3399. 

  3399.   (MV :POINTER)
    3400. 

  3400.   (V :POINTER)
    3401. 

  3401.   (LDV :POINTER)
    3402. 

  3402.   (WORK :POINTER)
    3403. 

  3403.   (LWORK :POINTER)
    3404. 

  3404.   (INFO :POINTER))
    3405. 

  3405. 

  3406. (COMMON-LISP:DEFUN %DGESVJ
    3407. 

  3407.                    (JOBA JOBU JOBV M N A LDA SVA MV V LDV WORK LWORK INFO)
    3408. 

  3408.   (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGESVJ)
    3409. 

  3409.                        (COMMON-LISP:TYPE COMMON-LISP:STRING JOBA)
    3410. 

  3410.                        (COMMON-LISP:TYPE COMMON-LISP:STRING JOBU)
    3411. 

  3411.                        (COMMON-LISP:TYPE COMMON-LISP:STRING JOBV)
    3412. 

  3412.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
    3413. 

  3413.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
    3414. 

  3414.                        (COMMON-LISP:TYPE
    3415. 

  3415.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
    3416. 

  3416.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
    3417. 

  3417.                        (COMMON-LISP:TYPE
    3418. 

  3418.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    3419. 

  3419.                         SVA)
    3420. 

  3420.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) MV)
    3421. 

  3421.                        (COMMON-LISP:TYPE
    3422. 

  3422.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) V)
    3423. 

  3423.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV)
    3424. 

  3424.                        (COMMON-LISP:TYPE
    3425. 

  3425.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    3426. 

  3426.                         WORK)
    3427. 

  3427.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
    3428. 

  3428.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
    3429. 

  3429.   (CFFI:WITH-FOREIGN-OBJECTS ((M-REF6581 ':INT32) (N-REF6582 ':INT32)
    3430. 

  3430.                               (LDA-REF6584 ':INT32) (MV-REF6586 ':INT32)
    3431. 

  3431.                               (LDV-REF6588 ':INT32) (LWORK-REF6590 ':INT32)
    3432. 

  3432.                               (INFO-REF6591 ':INT32))
    3433. 

  3433.     (COMMON-LISP:SETF (CFFI:MEM-REF M-REF6581 :INT32) M)
    3434. 

  3434.     (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6582 :INT32) N)
    3435. 

  3435.     (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6584 :INT32) LDA)
    3436. 

  3436.     (COMMON-LISP:SETF (CFFI:MEM-REF MV-REF6586 :INT32) MV)
    3437. 

  3437.     (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF6588 :INT32) LDV)
    3438. 

  3438.     (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF6590 :INT32) LWORK)
    3439. 

  3439.     (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6591 :INT32) INFO)
    3440. 

  3440.     (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6583 A) (SVA-REF6585 SVA)
    3441. 

  3441.                                             (V-REF6587 V) (WORK-REF6589 WORK))
    3442. 

  3442.       (%%DGESVJ JOBA JOBU JOBV M-REF6581 N-REF6582 A-REF6583 LDA-REF6584
    3443. 

  3443.        SVA-REF6585 MV-REF6586 V-REF6587 LDV-REF6588 WORK-REF6589 LWORK-REF6590
    3444. 

  3444.        INFO-REF6591))))
    3445. 

  3445. 

  3446. (CFFI:DEFCFUN ("dgesvx_" %%DGESVX :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    3447. 

  3447.     :VOID
    3448. 

  3448.   (FACT :STRING)
    3449. 

  3449.   (TRANS :STRING)
    3450. 

  3450.   (N :POINTER)
    3451. 

  3451.   (NRHS :POINTER)
    3452. 

  3452.   (A :POINTER)
    3453. 

  3453.   (LDA :POINTER)
    3454. 

  3454.   (AF :POINTER)
    3455. 

  3455.   (LDAF :POINTER)
    3456. 

  3456.   (IPIV :POINTER)
    3457. 

  3457.   (EQUED :STRING)
    3458. 

  3458.   (R :POINTER)
    3459. 

  3459.   (C :POINTER)
    3460. 

  3460.   (B :POINTER)
    3461. 

  3461.   (LDB :POINTER)
    3462. 

  3462.   (X :POINTER)
    3463. 

  3463.   (LDX :POINTER)
    3464. 

  3464.   (RCOND :POINTER)
    3465. 

  3465.   (FERR :POINTER)
    3466. 

  3466.   (BERR :POINTER)
    3467. 

  3467.   (WORK :POINTER)
    3468. 

  3468.   (IWORK :POINTER)
    3469. 

  3469.   (INFO :POINTER))
    3470. 

  3470. 

  3471. (COMMON-LISP:DEFUN %DGESVX
    3472. 

  3472.                    (FACT TRANS N NRHS A LDA AF LDAF IPIV EQUED R C B LDB X LDX
    3473. 

  3473.                     RCOND FERR BERR WORK IWORK INFO)
    3474. 

  3474.   (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGESVX)
    3475. 

  3475.                        (COMMON-LISP:TYPE COMMON-LISP:STRING FACT)
    3476. 

  3476.                        (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
    3477. 

  3477.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
    3478. 

  3478.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
    3479. 

  3479.                        (COMMON-LISP:TYPE
    3480. 

  3480.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
    3481. 

  3481.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
    3482. 

  3482.                        (COMMON-LISP:TYPE
    3483. 

  3483.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AF)
    3484. 

  3484.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
    3485. 

  3485.                        (COMMON-LISP:TYPE
    3486. 

  3486.                         (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
    3487. 

  3487.                          (COMMON-LISP:*))
    3488. 

  3488.                         IPIV)
    3489. 

  3489.                        (COMMON-LISP:TYPE COMMON-LISP:STRING EQUED)
    3490. 

  3490.                        (COMMON-LISP:TYPE
    3491. 

  3491.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) R)
    3492. 

  3492.                        (COMMON-LISP:TYPE
    3493. 

  3493.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
    3494. 

  3494.                        (COMMON-LISP:TYPE
    3495. 

  3495.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
    3496. 

  3496.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
    3497. 

  3497.                        (COMMON-LISP:TYPE
    3498. 

  3498.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) X)
    3499. 

  3499.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
    3500. 

  3500.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RCOND)
    3501. 

  3501.                        (COMMON-LISP:TYPE
    3502. 

  3502.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    3503. 

  3503.                         FERR)
    3504. 

  3504.                        (COMMON-LISP:TYPE
    3505. 

  3505.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    3506. 

  3506.                         BERR)
    3507. 

  3507.                        (COMMON-LISP:TYPE
    3508. 

  3508.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    3509. 

  3509.                         WORK)
    3510. 

  3510.                        (COMMON-LISP:TYPE
    3511. 

  3511.                         (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
    3512. 

  3512.                          (COMMON-LISP:*))
    3513. 

  3513.                         IWORK)
    3514. 

  3514.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
    3515. 

  3515.   (CFFI:WITH-FOREIGN-OBJECTS ((N-REF6594 ':INT32) (NRHS-REF6595 ':INT32)
    3516. 

  3516.                               (LDA-REF6597 ':INT32) (LDAF-REF6599 ':INT32)
    3517. 

  3517.                               (LDB-REF6605 ':INT32) (LDX-REF6607 ':INT32)
    3518. 

  3518.                               (RCOND-REF6608 ':DOUBLE) (INFO-REF6613 ':INT32))
    3519. 

  3519.     (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6594 :INT32) N)
    3520. 

  3520.     (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF6595 :INT32) NRHS)
    3521. 

  3521.     (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6597 :INT32) LDA)
    3522. 

  3522.     (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF6599 :INT32) LDAF)
    3523. 

  3523.     (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF6605 :INT32) LDB)
    3524. 

  3524.     (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF6607 :INT32) LDX)
    3525. 

  3525.     (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF6608 :DOUBLE) RCOND)
    3526. 

  3526.     (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6613 :INT32) INFO)
    3527. 

  3527.     (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6596 A) (AF-REF6598 AF)
    3528. 

  3528.                                             (IPIV-REF6600 IPIV) (R-REF6602 R)
    3529. 

  3529.                                             (C-REF6603 C) (B-REF6604 B)
    3530. 

  3530.                                             (X-REF6606 X) (FERR-REF6609 FERR)
    3531. 

  3531.                                             (BERR-REF6610 BERR)
    3532. 

  3532.                                             (WORK-REF6611 WORK)
    3533. 

  3533.                                             (IWORK-REF6612 IWORK))
    3534. 

  3534.       (%%DGESVX FACT TRANS N-REF6594 NRHS-REF6595 A-REF6596 LDA-REF6597
    3535. 

  3535.        AF-REF6598 LDAF-REF6599 IPIV-REF6600 EQUED R-REF6602 C-REF6603 B-REF6604
    3536. 

  3536.        LDB-REF6605 X-REF6606 LDX-REF6607 RCOND-REF6608 FERR-REF6609
    3537. 

  3537.        BERR-REF6610 WORK-REF6611 IWORK-REF6612 INFO-REF6613))))
    3538. 

  3538. 

  3539. (CFFI:DEFCFUN ("dgesvxx_" %%DGESVXX :LIBRARY
    3540. 

  3540.                MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    3541. 

  3541.     :VOID
    3542. 

  3542.   (FACT :STRING)
    3543. 

  3543.   (TRANS :STRING)
    3544. 

  3544.   (N :POINTER)
    3545. 

  3545.   (NRHS :POINTER)
    3546. 

  3546.   (A :POINTER)
    3547. 

  3547.   (LDA :POINTER)
    3548. 

  3548.   (AF :POINTER)
    3549. 

  3549.   (LDAF :POINTER)
    3550. 

  3550.   (IPIV :POINTER)
    3551. 

  3551.   (EQUED :STRING)
    3552. 

  3552.   (R :POINTER)
    3553. 

  3553.   (C :POINTER)
    3554. 

  3554.   (B :POINTER)
    3555. 

  3555.   (LDB :POINTER)
    3556. 

  3556.   (X :POINTER)
    3557. 

  3557.   (LDX :POINTER)
    3558. 

  3558.   (RCOND :POINTER)
    3559. 

  3559.   (RPVGRW :POINTER)
    3560. 

  3560.   (BERR :POINTER)
    3561. 

  3561.   (N_ERR_BNDS :POINTER)
    3562. 

  3562.   (ERR_BNDS_NORM :POINTER)
    3563. 

  3563.   (ERR_BNDS_COMP :POINTER)
    3564. 

  3564.   (NPARAMS :POINTER)
    3565. 

  3565.   (PARAMS :POINTER)
    3566. 

  3566.   (WORK :POINTER)
    3567. 

  3567.   (IWORK :POINTER)
    3568. 

  3568.   (INFO :POINTER))
    3569. 

  3569. 

  3570. (COMMON-LISP:DEFUN %DGESVXX
    3571. 

  3571.                    (FACT TRANS N NRHS A LDA AF LDAF IPIV EQUED R C B LDB X LDX
    3572. 

  3572.                     RCOND RPVGRW BERR N_ERR_BNDS ERR_BNDS_NORM ERR_BNDS_COMP
    3573. 

  3573.                     NPARAMS PARAMS WORK IWORK INFO)
    3574. 

  3574.   (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGESVXX)
    3575. 

  3575.                        (COMMON-LISP:TYPE COMMON-LISP:STRING FACT)
    3576. 

  3576.                        (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
    3577. 

  3577.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
    3578. 

  3578.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
    3579. 

  3579.                        (COMMON-LISP:TYPE
    3580. 

  3580.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
    3581. 

  3581.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
    3582. 

  3582.                        (COMMON-LISP:TYPE
    3583. 

  3583.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AF)
    3584. 

  3584.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
    3585. 

  3585.                        (COMMON-LISP:TYPE
    3586. 

  3586.                         (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
    3587. 

  3587.                          (COMMON-LISP:*))
    3588. 

  3588.                         IPIV)
    3589. 

  3589.                        (COMMON-LISP:TYPE COMMON-LISP:STRING EQUED)
    3590. 

  3590.                        (COMMON-LISP:TYPE
    3591. 

  3591.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) R)
    3592. 

  3592.                        (COMMON-LISP:TYPE
    3593. 

  3593.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
    3594. 

  3594.                        (COMMON-LISP:TYPE
    3595. 

  3595.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
    3596. 

  3596.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
    3597. 

  3597.                        (COMMON-LISP:TYPE
    3598. 

  3598.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) X)
    3599. 

  3599.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
    3600. 

  3600.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RCOND)
    3601. 

  3601.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RPVGRW)
    3602. 

  3602.                        (COMMON-LISP:TYPE
    3603. 

  3603.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    3604. 

  3604.                         BERR)
    3605. 

  3605.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32)
    3606. 

  3606.                         N_ERR_BNDS)
    3607. 

  3607.                        (COMMON-LISP:TYPE
    3608. 

  3608.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    3609. 

  3609.                         ERR_BNDS_NORM)
    3610. 

  3610.                        (COMMON-LISP:TYPE
    3611. 

  3611.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    3612. 

  3612.                         ERR_BNDS_COMP)
    3613. 

  3613.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NPARAMS)
    3614. 

  3614.                        (COMMON-LISP:TYPE
    3615. 

  3615.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    3616. 

  3616.                         PARAMS)
    3617. 

  3617.                        (COMMON-LISP:TYPE
    3618. 

  3618.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    3619. 

  3619.                         WORK)
    3620. 

  3620.                        (COMMON-LISP:TYPE
    3621. 

  3621.                         (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
    3622. 

  3622.                          (COMMON-LISP:*))
    3623. 

  3623.                         IWORK)
    3624. 

  3624.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
    3625. 

  3625.   (CFFI:WITH-FOREIGN-OBJECTS ((N-REF6616 ':INT32) (NRHS-REF6617 ':INT32)
    3626. 

  3626.                               (LDA-REF6619 ':INT32) (LDAF-REF6621 ':INT32)
    3627. 

  3627.                               (LDB-REF6627 ':INT32) (LDX-REF6629 ':INT32)
    3628. 

  3628.                               (RCOND-REF6630 ':DOUBLE)
    3629. 

  3629.                               (RPVGRW-REF6631 ':DOUBLE)
    3630. 

  3630.                               (N_ERR_BNDS-REF6633 ':INT32)
    3631. 

  3631.                               (NPARAMS-REF6636 ':INT32) (INFO-REF6640 ':INT32))
    3632. 

  3632.     (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6616 :INT32) N)
    3633. 

  3633.     (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF6617 :INT32) NRHS)
    3634. 

  3634.     (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6619 :INT32) LDA)
    3635. 

  3635.     (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF6621 :INT32) LDAF)
    3636. 

  3636.     (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF6627 :INT32) LDB)
    3637. 

  3637.     (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF6629 :INT32) LDX)
    3638. 

  3638.     (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF6630 :DOUBLE) RCOND)
    3639. 

  3639.     (COMMON-LISP:SETF (CFFI:MEM-REF RPVGRW-REF6631 :DOUBLE) RPVGRW)
    3640. 

  3640.     (COMMON-LISP:SETF (CFFI:MEM-REF N_ERR_BNDS-REF6633 :INT32) N_ERR_BNDS)
    3641. 

  3641.     (COMMON-LISP:SETF (CFFI:MEM-REF NPARAMS-REF6636 :INT32) NPARAMS)
    3642. 

  3642.     (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6640 :INT32) INFO)
    3643. 

  3643.     (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6618 A) (AF-REF6620 AF)
    3644. 

  3644.                                             (IPIV-REF6622 IPIV) (R-REF6624 R)
    3645. 

  3645.                                             (C-REF6625 C) (B-REF6626 B)
    3646. 

  3646.                                             (X-REF6628 X) (BERR-REF6632 BERR)
    3647. 

  3647.                                             (ERR_BNDS_NORM-REF6634
    3648. 

  3648.                                              ERR_BNDS_NORM)
    3649. 

  3649.                                             (ERR_BNDS_COMP-REF6635
    3650. 

  3650.                                              ERR_BNDS_COMP)
    3651. 

  3651.                                             (PARAMS-REF6637 PARAMS)
    3652. 

  3652.                                             (WORK-REF6638 WORK)
    3653. 

  3653.                                             (IWORK-REF6639 IWORK))
    3654. 

  3654.       (%%DGESVXX FACT TRANS N-REF6616 NRHS-REF6617 A-REF6618 LDA-REF6619
    3655. 

  3655.        AF-REF6620 LDAF-REF6621 IPIV-REF6622 EQUED R-REF6624 C-REF6625 B-REF6626
    3656. 

  3656.        LDB-REF6627 X-REF6628 LDX-REF6629 RCOND-REF6630 RPVGRW-REF6631
    3657. 

  3657.        BERR-REF6632 N_ERR_BNDS-REF6633 ERR_BNDS_NORM-REF6634
    3658. 

  3658.        ERR_BNDS_COMP-REF6635 NPARAMS-REF6636 PARAMS-REF6637 WORK-REF6638
    3659. 

  3659.        IWORK-REF6639 INFO-REF6640))))
    3660. 

  3660. 

  3661. (CFFI:DEFCFUN ("dgetc2_" %%DGETC2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    3662. 

  3662.     :VOID
    3663. 

  3663.   (N :POINTER)
    3664. 

  3664.   (A :POINTER)
    3665. 

  3665.   (LDA :POINTER)
    3666. 

  3666.   (IPIV :POINTER)
    3667. 

  3667.   (JPIV :POINTER)
    3668. 

  3668.   (INFO :POINTER))
    3669. 

  3669. 

  3670. (COMMON-LISP:DEFUN %DGETC2 (N A LDA IPIV JPIV INFO)
    3671. 

  3671.   (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGETC2)
    3672. 

  3672.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
    3673. 

  3673.                        (COMMON-LISP:TYPE
    3674. 

  3674.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
    3675. 

  3675.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
    3676. 

  3676.                        (COMMON-LISP:TYPE
    3677. 

  3677.                         (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
    3678. 

  3678.                          (COMMON-LISP:*))
    3679. 

  3679.                         IPIV)
    3680. 

  3680.                        (COMMON-LISP:TYPE
    3681. 

  3681.                         (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
    3682. 

  3682.                          (COMMON-LISP:*))
    3683. 

  3683.                         JPIV)
    3684. 

  3684.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
    3685. 

  3685.   (CFFI:WITH-FOREIGN-OBJECTS ((N-REF6641 ':INT32) (LDA-REF6643 ':INT32)
    3686. 

  3686.                               (INFO-REF6646 ':INT32))
    3687. 

  3687.     (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6641 :INT32) N)
    3688. 

  3688.     (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6643 :INT32) LDA)
    3689. 

  3689.     (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6646 :INT32) INFO)
    3690. 

  3690.     (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6642 A) (IPIV-REF6644 IPIV)
    3691. 

  3691.                                             (JPIV-REF6645 JPIV))
    3692. 

  3692.       (%%DGETC2 N-REF6641 A-REF6642 LDA-REF6643 IPIV-REF6644 JPIV-REF6645
    3693. 

  3693.        INFO-REF6646))))
    3694. 

  3694. 

  3695. (CFFI:DEFCFUN ("dgetf2_" %%DGETF2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    3696. 

  3696.     :VOID
    3697. 

  3697.   (M :POINTER)
    3698. 

  3698.   (N :POINTER)
    3699. 

  3699.   (A :POINTER)
    3700. 

  3700.   (LDA :POINTER)
    3701. 

  3701.   (IPIV :POINTER)
    3702. 

  3702.   (INFO :POINTER))
    3703. 

  3703. 

  3704. (COMMON-LISP:DEFUN %DGETF2 (M N A LDA IPIV INFO)
    3705. 

  3705.   (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGETF2)
    3706. 

  3706.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
    3707. 

  3707.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
    3708. 

  3708.                        (COMMON-LISP:TYPE
    3709. 

  3709.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
    3710. 

  3710.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
    3711. 

  3711.                        (COMMON-LISP:TYPE
    3712. 

  3712.                         (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
    3713. 

  3713.                          (COMMON-LISP:*))
    3714. 

  3714.                         IPIV)
    3715. 

  3715.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
    3716. 

  3716.   (CFFI:WITH-FOREIGN-OBJECTS ((M-REF6647 ':INT32) (N-REF6648 ':INT32)
    3717. 

  3717.                               (LDA-REF6650 ':INT32) (INFO-REF6652 ':INT32))
    3718. 

  3718.     (COMMON-LISP:SETF (CFFI:MEM-REF M-REF6647 :INT32) M)
    3719. 

  3719.     (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6648 :INT32) N)
    3720. 

  3720.     (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6650 :INT32) LDA)
    3721. 

  3721.     (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6652 :INT32) INFO)
    3722. 

  3722.     (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6649 A) (IPIV-REF6651 IPIV))
    3723. 

  3723.       (%%DGETF2 M-REF6647 N-REF6648 A-REF6649 LDA-REF6650 IPIV-REF6651
    3724. 

  3724.        INFO-REF6652))))
    3725. 

  3725. 

  3726. (CFFI:DEFCFUN ("dgetrf_" %%DGETRF :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    3727. 

  3727.     :VOID
    3728. 

  3728.   (M :POINTER)
    3729. 

  3729.   (N :POINTER)
    3730. 

  3730.   (A :POINTER)
    3731. 

  3731.   (LDA :POINTER)
    3732. 

  3732.   (IPIV :POINTER)
    3733. 

  3733.   (INFO :POINTER))
    3734. 

  3734. 

  3735. (COMMON-LISP:DEFUN %DGETRF (M N A LDA IPIV INFO)
    3736. 

  3736.   (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGETRF)
    3737. 

  3737.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
    3738. 

  3738.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
    3739. 

  3739.                        (COMMON-LISP:TYPE
    3740. 

  3740.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
    3741. 

  3741.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
    3742. 

  3742.                        (COMMON-LISP:TYPE
    3743. 

  3743.                         (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
    3744. 

  3744.                          (COMMON-LISP:*))
    3745. 

  3745.                         IPIV)
    3746. 

  3746.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
    3747. 

  3747.   (CFFI:WITH-FOREIGN-OBJECTS ((M-REF6653 ':INT32) (N-REF6654 ':INT32)
    3748. 

  3748.                               (LDA-REF6656 ':INT32) (INFO-REF6658 ':INT32))
    3749. 

  3749.     (COMMON-LISP:SETF (CFFI:MEM-REF M-REF6653 :INT32) M)
    3750. 

  3750.     (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6654 :INT32) N)
    3751. 

  3751.     (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6656 :INT32) LDA)
    3752. 

  3752.     (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6658 :INT32) INFO)
    3753. 

  3753.     (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6655 A) (IPIV-REF6657 IPIV))
    3754. 

  3754.       (%%DGETRF M-REF6653 N-REF6654 A-REF6655 LDA-REF6656 IPIV-REF6657
    3755. 

  3755.        INFO-REF6658))))
    3756. 

  3756. 

  3757. (CFFI:DEFCFUN ("dgetrf2_" %%DGETRF2 :LIBRARY
    3758. 

  3758.                MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    3759. 

  3759.     :VOID
    3760. 

  3760.   (M :POINTER)
    3761. 

  3761.   (N :POINTER)
    3762. 

  3762.   (A :POINTER)
    3763. 

  3763.   (LDA :POINTER)
    3764. 

  3764.   (IPIV :POINTER)
    3765. 

  3765.   (INFO :POINTER))
    3766. 

  3766. 

  3767. (COMMON-LISP:DEFUN %DGETRF2 (M N A LDA IPIV INFO)
    3768. 

  3768.   (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGETRF2)
    3769. 

  3769.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
    3770. 

  3770.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
    3771. 

  3771.                        (COMMON-LISP:TYPE
    3772. 

  3772.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
    3773. 

  3773.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
    3774. 

  3774.                        (COMMON-LISP:TYPE
    3775. 

  3775.                         (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
    3776. 

  3776.                          (COMMON-LISP:*))
    3777. 

  3777.                         IPIV)
    3778. 

  3778.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
    3779. 

  3779.   (CFFI:WITH-FOREIGN-OBJECTS ((M-REF6659 ':INT32) (N-REF6660 ':INT32)
    3780. 

  3780.                               (LDA-REF6662 ':INT32) (INFO-REF6664 ':INT32))
    3781. 

  3781.     (COMMON-LISP:SETF (CFFI:MEM-REF M-REF6659 :INT32) M)
    3782. 

  3782.     (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6660 :INT32) N)
    3783. 

  3783.     (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6662 :INT32) LDA)
    3784. 

  3784.     (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6664 :INT32) INFO)
    3785. 

  3785.     (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6661 A) (IPIV-REF6663 IPIV))
    3786. 

  3786.       (%%DGETRF2 M-REF6659 N-REF6660 A-REF6661 LDA-REF6662 IPIV-REF6663
    3787. 

  3787.        INFO-REF6664))))
    3788. 

  3788. 

  3789. (CFFI:DEFCFUN ("dgetri_" %%DGETRI :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    3790. 

  3790.     :VOID
    3791. 

  3791.   (N :POINTER)
    3792. 

  3792.   (A :POINTER)
    3793. 

  3793.   (LDA :POINTER)
    3794. 

  3794.   (IPIV :POINTER)
    3795. 

  3795.   (WORK :POINTER)
    3796. 

  3796.   (LWORK :POINTER)
    3797. 

  3797.   (INFO :POINTER))
    3798. 

  3798. 

  3799. (COMMON-LISP:DEFUN %DGETRI (N A LDA IPIV WORK LWORK INFO)
    3800. 

  3800.   (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGETRI)
    3801. 

  3801.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
    3802. 

  3802.                        (COMMON-LISP:TYPE
    3803. 

  3803.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
    3804. 

  3804.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
    3805. 

  3805.                        (COMMON-LISP:TYPE
    3806. 

  3806.                         (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
    3807. 

  3807.                          (COMMON-LISP:*))
    3808. 

  3808.                         IPIV)
    3809. 

  3809.                        (COMMON-LISP:TYPE
    3810. 

  3810.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    3811. 

  3811.                         WORK)
    3812. 

  3812.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
    3813. 

  3813.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
    3814. 

  3814.   (CFFI:WITH-FOREIGN-OBJECTS ((N-REF6665 ':INT32) (LDA-REF6667 ':INT32)
    3815. 

  3815.                               (LWORK-REF6670 ':INT32) (INFO-REF6671 ':INT32))
    3816. 

  3816.     (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6665 :INT32) N)
    3817. 

  3817.     (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6667 :INT32) LDA)
    3818. 

  3818.     (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF6670 :INT32) LWORK)
    3819. 

  3819.     (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6671 :INT32) INFO)
    3820. 

  3820.     (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6666 A) (IPIV-REF6668 IPIV)
    3821. 

  3821.                                             (WORK-REF6669 WORK))
    3822. 

  3822.       (%%DGETRI N-REF6665 A-REF6666 LDA-REF6667 IPIV-REF6668 WORK-REF6669
    3823. 

  3823.        LWORK-REF6670 INFO-REF6671))))
    3824. 

  3824. 

  3825. (CFFI:DEFCFUN ("dgetrs_" %%DGETRS :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    3826. 

  3826.     :VOID
    3827. 

  3827.   (TRANS :STRING)
    3828. 

  3828.   (N :POINTER)
    3829. 

  3829.   (NRHS :POINTER)
    3830. 

  3830.   (A :POINTER)
    3831. 

  3831.   (LDA :POINTER)
    3832. 

  3832.   (IPIV :POINTER)
    3833. 

  3833.   (B :POINTER)
    3834. 

  3834.   (LDB :POINTER)
    3835. 

  3835.   (INFO :POINTER))
    3836. 

  3836. 

  3837. (COMMON-LISP:DEFUN %DGETRS (TRANS N NRHS A LDA IPIV B LDB INFO)
    3838. 

  3838.   (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGETRS)
    3839. 

  3839.                        (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
    3840. 

  3840.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
    3841. 

  3841.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
    3842. 

  3842.                        (COMMON-LISP:TYPE
    3843. 

  3843.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
    3844. 

  3844.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
    3845. 

  3845.                        (COMMON-LISP:TYPE
    3846. 

  3846.                         (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
    3847. 

  3847.                          (COMMON-LISP:*))
    3848. 

  3848.                         IPIV)
    3849. 

  3849.                        (COMMON-LISP:TYPE
    3850. 

  3850.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
    3851. 

  3851.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
    3852. 

  3852.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
    3853. 

  3853.   (CFFI:WITH-FOREIGN-OBJECTS ((N-REF6673 ':INT32) (NRHS-REF6674 ':INT32)
    3854. 

  3854.                               (LDA-REF6676 ':INT32) (LDB-REF6679 ':INT32)
    3855. 

  3855.                               (INFO-REF6680 ':INT32))
    3856. 

  3856.     (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6673 :INT32) N)
    3857. 

  3857.     (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF6674 :INT32) NRHS)
    3858. 

  3858.     (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6676 :INT32) LDA)
    3859. 

  3859.     (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF6679 :INT32) LDB)
    3860. 

  3860.     (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6680 :INT32) INFO)
    3861. 

  3861.     (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6675 A) (IPIV-REF6677 IPIV)
    3862. 

  3862.                                             (B-REF6678 B))
    3863. 

  3863.       (%%DGETRS TRANS N-REF6673 NRHS-REF6674 A-REF6675 LDA-REF6676 IPIV-REF6677
    3864. 

  3864.        B-REF6678 LDB-REF6679 INFO-REF6680))))
    3865. 

  3865. 

  3866. (CFFI:DEFCFUN ("dgetsls_" %%DGETSLS :LIBRARY
    3867. 

  3867.                MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    3868. 

  3868.     :VOID
    3869. 

  3869.   (TRANS :STRING)
    3870. 

  3870.   (M :POINTER)
    3871. 

  3871.   (N :POINTER)
    3872. 

  3872.   (NRHS :POINTER)
    3873. 

  3873.   (A :POINTER)
    3874. 

  3874.   (LDA :POINTER)
    3875. 

  3875.   (B :POINTER)
    3876. 

  3876.   (LDB :POINTER)
    3877. 

  3877.   (WORK :POINTER)
    3878. 

  3878.   (LWORK :POINTER)
    3879. 

  3879.   (INFO :POINTER))
    3880. 

  3880. 

  3881. (COMMON-LISP:DEFUN %DGETSLS (TRANS M N NRHS A LDA B LDB WORK LWORK INFO)
    3882. 

  3882.   (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGETSLS)
    3883. 

  3883.                        (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
    3884. 

  3884.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
    3885. 

  3885.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
    3886. 

  3886.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
    3887. 

  3887.                        (COMMON-LISP:TYPE
    3888. 

  3888.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
    3889. 

  3889.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
    3890. 

  3890.                        (COMMON-LISP:TYPE
    3891. 

  3891.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
    3892. 

  3892.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
    3893. 

  3893.                        (COMMON-LISP:TYPE
    3894. 

  3894.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    3895. 

  3895.                         WORK)
    3896. 

  3896.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
    3897. 

  3897.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
    3898. 

  3898.   (CFFI:WITH-FOREIGN-OBJECTS ((M-REF6682 ':INT32) (N-REF6683 ':INT32)
    3899. 

  3899.                               (NRHS-REF6684 ':INT32) (LDA-REF6686 ':INT32)
    3900. 

  3900.                               (LDB-REF6688 ':INT32) (LWORK-REF6690 ':INT32)
    3901. 

  3901.                               (INFO-REF6691 ':INT32))
    3902. 

  3902.     (COMMON-LISP:SETF (CFFI:MEM-REF M-REF6682 :INT32) M)
    3903. 

  3903.     (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6683 :INT32) N)
    3904. 

  3904.     (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF6684 :INT32) NRHS)
    3905. 

  3905.     (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6686 :INT32) LDA)
    3906. 

  3906.     (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF6688 :INT32) LDB)
    3907. 

  3907.     (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF6690 :INT32) LWORK)
    3908. 

  3908.     (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6691 :INT32) INFO)
    3909. 

  3909.     (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6685 A) (B-REF6687 B)
    3910. 

  3910.                                             (WORK-REF6689 WORK))
    3911. 

  3911.       (%%DGETSLS TRANS M-REF6682 N-REF6683 NRHS-REF6684 A-REF6685 LDA-REF6686
    3912. 

  3912.        B-REF6687 LDB-REF6688 WORK-REF6689 LWORK-REF6690 INFO-REF6691))))
    3913. 

  3913. 

  3914. (CFFI:DEFCFUN ("dggbak_" %%DGGBAK :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    3915. 

  3915.     :VOID
    3916. 

  3916.   (JOB :STRING)
    3917. 

  3917.   (SIDE :STRING)
    3918. 

  3918.   (N :POINTER)
    3919. 

  3919.   (ILO :POINTER)
    3920. 

  3920.   (IHI :POINTER)
    3921. 

  3921.   (LSCALE :POINTER)
    3922. 

  3922.   (RSCALE :POINTER)
    3923. 

  3923.   (M :POINTER)
    3924. 

  3924.   (V :POINTER)
    3925. 

  3925.   (LDV :POINTER)
    3926. 

  3926.   (INFO :POINTER))
    3927. 

  3927. 

  3928. (COMMON-LISP:DEFUN %DGGBAK (JOB SIDE N ILO IHI LSCALE RSCALE M V LDV INFO)
    3929. 

  3929.   (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGGBAK)
    3930. 

  3930.                        (COMMON-LISP:TYPE COMMON-LISP:STRING JOB)
    3931. 

  3931.                        (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
    3932. 

  3932.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
    3933. 

  3933.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILO)
    3934. 

  3934.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IHI)
    3935. 

  3935.                        (COMMON-LISP:TYPE
    3936. 

  3936.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    3937. 

  3937.                         LSCALE)
    3938. 

  3938.                        (COMMON-LISP:TYPE
    3939. 

  3939.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    3940. 

  3940.                         RSCALE)
    3941. 

  3941.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
    3942. 

  3942.                        (COMMON-LISP:TYPE
    3943. 

  3943.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) V)
    3944. 

  3944.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV)
    3945. 

  3945.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
    3946. 

  3946.   (CFFI:WITH-FOREIGN-OBJECTS ((N-REF6694 ':INT32) (ILO-REF6695 ':INT32)
    3947. 

  3947.                               (IHI-REF6696 ':INT32) (M-REF6699 ':INT32)
    3948. 

  3948.                               (LDV-REF6701 ':INT32) (INFO-REF6702 ':INT32))
    3949. 

  3949.     (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6694 :INT32) N)
    3950. 

  3950.     (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF6695 :INT32) ILO)
    3951. 

  3951.     (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF6696 :INT32) IHI)
    3952. 

  3952.     (COMMON-LISP:SETF (CFFI:MEM-REF M-REF6699 :INT32) M)
    3953. 

  3953.     (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF6701 :INT32) LDV)
    3954. 

  3954.     (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6702 :INT32) INFO)
    3955. 

  3955.     (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((LSCALE-REF6697 LSCALE)
    3956. 

  3956.                                             (RSCALE-REF6698 RSCALE)
    3957. 

  3957.                                             (V-REF6700 V))
    3958. 

  3958.       (%%DGGBAK JOB SIDE N-REF6694 ILO-REF6695 IHI-REF6696 LSCALE-REF6697
    3959. 

  3959.        RSCALE-REF6698 M-REF6699 V-REF6700 LDV-REF6701 INFO-REF6702))))
    3960. 

  3960. 

  3961. (CFFI:DEFCFUN ("dggbal_" %%DGGBAL :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    3962. 

  3962.     :VOID
    3963. 

  3963.   (JOB :STRING)
    3964. 

  3964.   (N :POINTER)
    3965. 

  3965.   (A :POINTER)
    3966. 

  3966.   (LDA :POINTER)
    3967. 

  3967.   (B :POINTER)
    3968. 

  3968.   (LDB :POINTER)
    3969. 

  3969.   (ILO :POINTER)
    3970. 

  3970.   (IHI :POINTER)
    3971. 

  3971.   (LSCALE :POINTER)
    3972. 

  3972.   (RSCALE :POINTER)
    3973. 

  3973.   (WORK :POINTER)
    3974. 

  3974.   (INFO :POINTER))
    3975. 

  3975. 

  3976. (COMMON-LISP:DEFUN %DGGBAL (JOB N A LDA B LDB ILO IHI LSCALE RSCALE WORK INFO)
    3977. 

  3977.   (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGGBAL)
    3978. 

  3978.                        (COMMON-LISP:TYPE COMMON-LISP:STRING JOB)
    3979. 

  3979.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
    3980. 

  3980.                        (COMMON-LISP:TYPE
    3981. 

  3981.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
    3982. 

  3982.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
    3983. 

  3983.                        (COMMON-LISP:TYPE
    3984. 

  3984.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
    3985. 

  3985.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
    3986. 

  3986.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILO)
    3987. 

  3987.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IHI)
    3988. 

  3988.                        (COMMON-LISP:TYPE
    3989. 

  3989.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    3990. 

  3990.                         LSCALE)
    3991. 

  3991.                        (COMMON-LISP:TYPE
    3992. 

  3992.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    3993. 

  3993.                         RSCALE)
    3994. 

  3994.                        (COMMON-LISP:TYPE
    3995. 

  3995.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    3996. 

  3996.                         WORK)
    3997. 

  3997.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
    3998. 

  3998.   (CFFI:WITH-FOREIGN-OBJECTS ((N-REF6704 ':INT32) (LDA-REF6706 ':INT32)
    3999. 

  3999.                               (LDB-REF6708 ':INT32) (ILO-REF6709 ':INT32)
    4000. 

  4000.                               (IHI-REF6710 ':INT32) (INFO-REF6714 ':INT32))
    4001. 

  4001.     (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6704 :INT32) N)
    4002. 

  4002.     (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6706 :INT32) LDA)
    4003. 

  4003.     (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF6708 :INT32) LDB)
    4004. 

  4004.     (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF6709 :INT32) ILO)
    4005. 

  4005.     (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF6710 :INT32) IHI)
    4006. 

  4006.     (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6714 :INT32) INFO)
    4007. 

  4007.     (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6705 A) (B-REF6707 B)
    4008. 

  4008.                                             (LSCALE-REF6711 LSCALE)
    4009. 

  4009.                                             (RSCALE-REF6712 RSCALE)
    4010. 

  4010.                                             (WORK-REF6713 WORK))
    4011. 

  4011.       (%%DGGBAL JOB N-REF6704 A-REF6705 LDA-REF6706 B-REF6707 LDB-REF6708
    4012. 

  4012.        ILO-REF6709 IHI-REF6710 LSCALE-REF6711 RSCALE-REF6712 WORK-REF6713
    4013. 

  4013.        INFO-REF6714))))
    4014. 

  4014. 

  4015. (CFFI:DEFCFUN ("dgges_" %%DGGES :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    4016. 

  4016.     :VOID
    4017. 

  4017.   (JOBVSL :STRING)
    4018. 

  4018.   (JOBVSR :STRING)
    4019. 

  4019.   (SORT :STRING)
    4020. 

  4020.   (SELCTG :POINTER)
    4021. 

  4021.   (N :POINTER)
    4022. 

  4022.   (A :POINTER)
    4023. 

  4023.   (LDA :POINTER)
    4024. 

  4024.   (B :POINTER)
    4025. 

  4025.   (LDB :POINTER)
    4026. 

  4026.   (SDIM :POINTER)
    4027. 

  4027.   (ALPHAR :POINTER)
    4028. 

  4028.   (ALPHAI :POINTER)
    4029. 

  4029.   (BETA :POINTER)
    4030. 

  4030.   (VSL :POINTER)
    4031. 

  4031.   (LDVSL :POINTER)
    4032. 

  4032.   (VSR :POINTER)
    4033. 

  4033.   (LDVSR :POINTER)
    4034. 

  4034.   (WORK :POINTER)
    4035. 

  4035.   (LWORK :POINTER)
    4036. 

  4036.   (BWORK :POINTER)
    4037. 

  4037.   (INFO :POINTER))
    4038. 

  4038. 

  4039. (COMMON-LISP:DEFUN %DGGES
    4040. 

  4040.                    (JOBVSL JOBVSR SORT SELCTG N A LDA B LDB SDIM ALPHAR ALPHAI
    4041. 

  4041.                     BETA VSL LDVSL VSR LDVSR WORK LWORK BWORK INFO)
    4042. 

  4042.   (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGGES)
    4043. 

  4043.                        (COMMON-LISP:TYPE COMMON-LISP:STRING JOBVSL)
    4044. 

  4044.                        (COMMON-LISP:TYPE COMMON-LISP:STRING JOBVSR)
    4045. 

  4045.                        (COMMON-LISP:TYPE COMMON-LISP:STRING SORT)
    4046. 

  4046.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) SELCTG)
    4047. 

  4047.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
    4048. 

  4048.                        (COMMON-LISP:TYPE
    4049. 

  4049.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
    4050. 

  4050.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
    4051. 

  4051.                        (COMMON-LISP:TYPE
    4052. 

  4052.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
    4053. 

  4053.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
    4054. 

  4054.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) SDIM)
    4055. 

  4055.                        (COMMON-LISP:TYPE
    4056. 

  4056.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    4057. 

  4057.                         ALPHAR)
    4058. 

  4058.                        (COMMON-LISP:TYPE
    4059. 

  4059.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    4060. 

  4060.                         ALPHAI)
    4061. 

  4061.                        (COMMON-LISP:TYPE
    4062. 

  4062.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    4063. 

  4063.                         BETA)
    4064. 

  4064.                        (COMMON-LISP:TYPE
    4065. 

  4065.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    4066. 

  4066.                         VSL)
    4067. 

  4067.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVSL)
    4068. 

  4068.                        (COMMON-LISP:TYPE
    4069. 

  4069.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    4070. 

  4070.                         VSR)
    4071. 

  4071.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVSR)
    4072. 

  4072.                        (COMMON-LISP:TYPE
    4073. 

  4073.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    4074. 

  4074.                         WORK)
    4075. 

  4075.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
    4076. 

  4076.                        (COMMON-LISP:TYPE
    4077. 

  4077.                         (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
    4078. 

  4078.                          (COMMON-LISP:*))
    4079. 

  4079.                         BWORK)
    4080. 

  4080.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
    4081. 

  4081.   (CFFI:WITH-FOREIGN-OBJECTS ((SELCTG-REF6718 ':INT32) (N-REF6719 ':INT32)
    4082. 

  4082.                               (LDA-REF6721 ':INT32) (LDB-REF6723 ':INT32)
    4083. 

  4083.                               (SDIM-REF6724 ':INT32) (LDVSL-REF6729 ':INT32)
    4084. 

  4084.                               (LDVSR-REF6731 ':INT32) (LWORK-REF6733 ':INT32)
    4085. 

  4085.                               (INFO-REF6735 ':INT32))
    4086. 

  4086.     (COMMON-LISP:SETF (CFFI:MEM-REF SELCTG-REF6718 :INT32) SELCTG)
    4087. 

  4087.     (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6719 :INT32) N)
    4088. 

  4088.     (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6721 :INT32) LDA)
    4089. 

  4089.     (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF6723 :INT32) LDB)
    4090. 

  4090.     (COMMON-LISP:SETF (CFFI:MEM-REF SDIM-REF6724 :INT32) SDIM)
    4091. 

  4091.     (COMMON-LISP:SETF (CFFI:MEM-REF LDVSL-REF6729 :INT32) LDVSL)
    4092. 

  4092.     (COMMON-LISP:SETF (CFFI:MEM-REF LDVSR-REF6731 :INT32) LDVSR)
    4093. 

  4093.     (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF6733 :INT32) LWORK)
    4094. 

  4094.     (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6735 :INT32) INFO)
    4095. 

  4095.     (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6720 A) (B-REF6722 B)
    4096. 

  4096.                                             (ALPHAR-REF6725 ALPHAR)
    4097. 

  4097.                                             (ALPHAI-REF6726 ALPHAI)
    4098. 

  4098.                                             (BETA-REF6727 BETA)
    4099. 

  4099.                                             (VSL-REF6728 VSL) (VSR-REF6730 VSR)
    4100. 

  4100.                                             (WORK-REF6732 WORK)
    4101. 

  4101.                                             (BWORK-REF6734 BWORK))
    4102. 

  4102.       (%%DGGES JOBVSL JOBVSR SORT SELCTG-REF6718 N-REF6719 A-REF6720
    4103. 

  4103.        LDA-REF6721 B-REF6722 LDB-REF6723 SDIM-REF6724 ALPHAR-REF6725
    4104. 

  4104.        ALPHAI-REF6726 BETA-REF6727 VSL-REF6728 LDVSL-REF6729 VSR-REF6730
    4105. 

  4105.        LDVSR-REF6731 WORK-REF6732 LWORK-REF6733 BWORK-REF6734 INFO-REF6735))))
    4106. 

  4106. 

  4107. (CFFI:DEFCFUN ("dgges3_" %%DGGES3 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    4108. 

  4108.     :VOID
    4109. 

  4109.   (JOBVSL :STRING)
    4110. 

  4110.   (JOBVSR :STRING)
    4111. 

  4111.   (SORT :STRING)
    4112. 

  4112.   (SELCTG :POINTER)
    4113. 

  4113.   (N :POINTER)
    4114. 

  4114.   (A :POINTER)
    4115. 

  4115.   (LDA :POINTER)
    4116. 

  4116.   (B :POINTER)
    4117. 

  4117.   (LDB :POINTER)
    4118. 

  4118.   (SDIM :POINTER)
    4119. 

  4119.   (ALPHAR :POINTER)
    4120. 

  4120.   (ALPHAI :POINTER)
    4121. 

  4121.   (BETA :POINTER)
    4122. 

  4122.   (VSL :POINTER)
    4123. 

  4123.   (LDVSL :POINTER)
    4124. 

  4124.   (VSR :POINTER)
    4125. 

  4125.   (LDVSR :POINTER)
    4126. 

  4126.   (WORK :POINTER)
    4127. 

  4127.   (LWORK :POINTER)
    4128. 

  4128.   (BWORK :POINTER)
    4129. 

  4129.   (INFO :POINTER))
    4130. 

  4130. 

  4131. (COMMON-LISP:DEFUN %DGGES3
    4132. 

  4132.                    (JOBVSL JOBVSR SORT SELCTG N A LDA B LDB SDIM ALPHAR ALPHAI
    4133. 

  4133.                     BETA VSL LDVSL VSR LDVSR WORK LWORK BWORK INFO)
    4134. 

  4134.   (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGGES3)
    4135. 

  4135.                        (COMMON-LISP:TYPE COMMON-LISP:STRING JOBVSL)
    4136. 

  4136.                        (COMMON-LISP:TYPE COMMON-LISP:STRING JOBVSR)
    4137. 

  4137.                        (COMMON-LISP:TYPE COMMON-LISP:STRING SORT)
    4138. 

  4138.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) SELCTG)
    4139. 

  4139.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
    4140. 

  4140.                        (COMMON-LISP:TYPE
    4141. 

  4141.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
    4142. 

  4142.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
    4143. 

  4143.                        (COMMON-LISP:TYPE
    4144. 

  4144.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
    4145. 

  4145.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
    4146. 

  4146.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) SDIM)
    4147. 

  4147.                        (COMMON-LISP:TYPE
    4148. 

  4148.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    4149. 

  4149.                         ALPHAR)
    4150. 

  4150.                        (COMMON-LISP:TYPE
    4151. 

  4151.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    4152. 

  4152.                         ALPHAI)
    4153. 

  4153.                        (COMMON-LISP:TYPE
    4154. 

  4154.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    4155. 

  4155.                         BETA)
    4156. 

  4156.                        (COMMON-LISP:TYPE
    4157. 

  4157.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    4158. 

  4158.                         VSL)
    4159. 

  4159.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVSL)
    4160. 

  4160.                        (COMMON-LISP:TYPE
    4161. 

  4161.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    4162. 

  4162.                         VSR)
    4163. 

  4163.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVSR)
    4164. 

  4164.                        (COMMON-LISP:TYPE
    4165. 

  4165.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    4166. 

  4166.                         WORK)
    4167. 

  4167.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
    4168. 

  4168.                        (COMMON-LISP:TYPE
    4169. 

  4169.                         (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
    4170. 

  4170.                          (COMMON-LISP:*))
    4171. 

  4171.                         BWORK)
    4172. 

  4172.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
    4173. 

  4173.   (CFFI:WITH-FOREIGN-OBJECTS ((SELCTG-REF6739 ':INT32) (N-REF6740 ':INT32)
    4174. 

  4174.                               (LDA-REF6742 ':INT32) (LDB-REF6744 ':INT32)
    4175. 

  4175.                               (SDIM-REF6745 ':INT32) (LDVSL-REF6750 ':INT32)
    4176. 

  4176.                               (LDVSR-REF6752 ':INT32) (LWORK-REF6754 ':INT32)
    4177. 

  4177.                               (INFO-REF6756 ':INT32))
    4178. 

  4178.     (COMMON-LISP:SETF (CFFI:MEM-REF SELCTG-REF6739 :INT32) SELCTG)
    4179. 

  4179.     (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6740 :INT32) N)
    4180. 

  4180.     (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6742 :INT32) LDA)
    4181. 

  4181.     (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF6744 :INT32) LDB)
    4182. 

  4182.     (COMMON-LISP:SETF (CFFI:MEM-REF SDIM-REF6745 :INT32) SDIM)
    4183. 

  4183.     (COMMON-LISP:SETF (CFFI:MEM-REF LDVSL-REF6750 :INT32) LDVSL)
    4184. 

  4184.     (COMMON-LISP:SETF (CFFI:MEM-REF LDVSR-REF6752 :INT32) LDVSR)
    4185. 

  4185.     (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF6754 :INT32) LWORK)
    4186. 

  4186.     (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6756 :INT32) INFO)
    4187. 

  4187.     (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6741 A) (B-REF6743 B)
    4188. 

  4188.                                             (ALPHAR-REF6746 ALPHAR)
    4189. 

  4189.                                             (ALPHAI-REF6747 ALPHAI)
    4190. 

  4190.                                             (BETA-REF6748 BETA)
    4191. 

  4191.                                             (VSL-REF6749 VSL) (VSR-REF6751 VSR)
    4192. 

  4192.                                             (WORK-REF6753 WORK)
    4193. 

  4193.                                             (BWORK-REF6755 BWORK))
    4194. 

  4194.       (%%DGGES3 JOBVSL JOBVSR SORT SELCTG-REF6739 N-REF6740 A-REF6741
    4195. 

  4195.        LDA-REF6742 B-REF6743 LDB-REF6744 SDIM-REF6745 ALPHAR-REF6746
    4196. 

  4196.        ALPHAI-REF6747 BETA-REF6748 VSL-REF6749 LDVSL-REF6750 VSR-REF6751
    4197. 

  4197.        LDVSR-REF6752 WORK-REF6753 LWORK-REF6754 BWORK-REF6755 INFO-REF6756))))
    4198. 

  4198. 

  4199. (CFFI:DEFCFUN ("dggesx_" %%DGGESX :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    4200. 

  4200.     :VOID
    4201. 

  4201.   (JOBVSL :STRING)
    4202. 

  4202.   (JOBVSR :STRING)
    4203. 

  4203.   (SORT :STRING)
    4204. 

  4204.   (SELCTG :POINTER)
    4205. 

  4205.   (SENSE :STRING)
    4206. 

  4206.   (N :POINTER)
    4207. 

  4207.   (A :POINTER)
    4208. 

  4208.   (LDA :POINTER)
    4209. 

  4209.   (B :POINTER)
    4210. 

  4210.   (LDB :POINTER)
    4211. 

  4211.   (SDIM :POINTER)
    4212. 

  4212.   (ALPHAR :POINTER)
    4213. 

  4213.   (ALPHAI :POINTER)
    4214. 

  4214.   (BETA :POINTER)
    4215. 

  4215.   (VSL :POINTER)
    4216. 

  4216.   (LDVSL :POINTER)
    4217. 

  4217.   (VSR :POINTER)
    4218. 

  4218.   (LDVSR :POINTER)
    4219. 

  4219.   (RCONDE :POINTER)
    4220. 

  4220.   (RCONDV :POINTER)
    4221. 

  4221.   (WORK :POINTER)
    4222. 

  4222.   (LWORK :POINTER)
    4223. 

  4223.   (IWORK :POINTER)
    4224. 

  4224.   (LIWORK :POINTER)
    4225. 

  4225.   (BWORK :POINTER)
    4226. 

  4226.   (INFO :POINTER))
    4227. 

  4227. 

  4228. (COMMON-LISP:DEFUN %DGGESX
    4229. 

  4229.                    (JOBVSL JOBVSR SORT SELCTG SENSE N A LDA B LDB SDIM ALPHAR
    4230. 

  4230.                     ALPHAI BETA VSL LDVSL VSR LDVSR RCONDE RCONDV WORK LWORK
    4231. 

  4231.                     IWORK LIWORK BWORK INFO)
    4232. 

  4232.   (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGGESX)
    4233. 

  4233.                        (COMMON-LISP:TYPE COMMON-LISP:STRING JOBVSL)
    4234. 

  4234.                        (COMMON-LISP:TYPE COMMON-LISP:STRING JOBVSR)
    4235. 

  4235.                        (COMMON-LISP:TYPE COMMON-LISP:STRING SORT)
    4236. 

  4236.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) SELCTG)
    4237. 

  4237.                        (COMMON-LISP:TYPE COMMON-LISP:STRING SENSE)
    4238. 

  4238.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
    4239. 

  4239.                        (COMMON-LISP:TYPE
    4240. 

  4240.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
    4241. 

  4241.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
    4242. 

  4242.                        (COMMON-LISP:TYPE
    4243. 

  4243.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
    4244. 

  4244.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
    4245. 

  4245.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) SDIM)
    4246. 

  4246.                        (COMMON-LISP:TYPE
    4247. 

  4247.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    4248. 

  4248.                         ALPHAR)
    4249. 

  4249.                        (COMMON-LISP:TYPE
    4250. 

  4250.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    4251. 

  4251.                         ALPHAI)
    4252. 

  4252.                        (COMMON-LISP:TYPE
    4253. 

  4253.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    4254. 

  4254.                         BETA)
    4255. 

  4255.                        (COMMON-LISP:TYPE
    4256. 

  4256.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    4257. 

  4257.                         VSL)
    4258. 

  4258.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVSL)
    4259. 

  4259.                        (COMMON-LISP:TYPE
    4260. 

  4260.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    4261. 

  4261.                         VSR)
    4262. 

  4262.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVSR)
    4263. 

  4263.                        (COMMON-LISP:TYPE
    4264. 

  4264.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    4265. 

  4265.                         RCONDE)
    4266. 

  4266.                        (COMMON-LISP:TYPE
    4267. 

  4267.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    4268. 

  4268.                         RCONDV)
    4269. 

  4269.                        (COMMON-LISP:TYPE
    4270. 

  4270.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    4271. 

  4271.                         WORK)
    4272. 

  4272.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
    4273. 

  4273.                        (COMMON-LISP:TYPE
    4274. 

  4274.                         (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
    4275. 

  4275.                          (COMMON-LISP:*))
    4276. 

  4276.                         IWORK)
    4277. 

  4277.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LIWORK)
    4278. 

  4278.                        (COMMON-LISP:TYPE
    4279. 

  4279.                         (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
    4280. 

  4280.                          (COMMON-LISP:*))
    4281. 

  4281.                         BWORK)
    4282. 

  4282.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
    4283. 

  4283.   (CFFI:WITH-FOREIGN-OBJECTS ((SELCTG-REF6760 ':INT32) (N-REF6762 ':INT32)
    4284. 

  4284.                               (LDA-REF6764 ':INT32) (LDB-REF6766 ':INT32)
    4285. 

  4285.                               (SDIM-REF6767 ':INT32) (LDVSL-REF6772 ':INT32)
    4286. 

  4286.                               (LDVSR-REF6774 ':INT32) (LWORK-REF6778 ':INT32)
    4287. 

  4287.                               (LIWORK-REF6780 ':INT32) (INFO-REF6782 ':INT32))
    4288. 

  4288.     (COMMON-LISP:SETF (CFFI:MEM-REF SELCTG-REF6760 :INT32) SELCTG)
    4289. 

  4289.     (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6762 :INT32) N)
    4290. 

  4290.     (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6764 :INT32) LDA)
    4291. 

  4291.     (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF6766 :INT32) LDB)
    4292. 

  4292.     (COMMON-LISP:SETF (CFFI:MEM-REF SDIM-REF6767 :INT32) SDIM)
    4293. 

  4293.     (COMMON-LISP:SETF (CFFI:MEM-REF LDVSL-REF6772 :INT32) LDVSL)
    4294. 

  4294.     (COMMON-LISP:SETF (CFFI:MEM-REF LDVSR-REF6774 :INT32) LDVSR)
    4295. 

  4295.     (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF6778 :INT32) LWORK)
    4296. 

  4296.     (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF6780 :INT32) LIWORK)
    4297. 

  4297.     (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6782 :INT32) INFO)
    4298. 

  4298.     (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6763 A) (B-REF6765 B)
    4299. 

  4299.                                             (ALPHAR-REF6768 ALPHAR)
    4300. 

  4300.                                             (ALPHAI-REF6769 ALPHAI)
    4301. 

  4301.                                             (BETA-REF6770 BETA)
    4302. 

  4302.                                             (VSL-REF6771 VSL) (VSR-REF6773 VSR)
    4303. 

  4303.                                             (RCONDE-REF6775 RCONDE)
    4304. 

  4304.                                             (RCONDV-REF6776 RCONDV)
    4305. 

  4305.                                             (WORK-REF6777 WORK)
    4306. 

  4306.                                             (IWORK-REF6779 IWORK)
    4307. 

  4307.                                             (BWORK-REF6781 BWORK))
    4308. 

  4308.       (%%DGGESX JOBVSL JOBVSR SORT SELCTG-REF6760 SENSE N-REF6762 A-REF6763
    4309. 

  4309.        LDA-REF6764 B-REF6765 LDB-REF6766 SDIM-REF6767 ALPHAR-REF6768
    4310. 

  4310.        ALPHAI-REF6769 BETA-REF6770 VSL-REF6771 LDVSL-REF6772 VSR-REF6773
    4311. 

  4311.        LDVSR-REF6774 RCONDE-REF6775 RCONDV-REF6776 WORK-REF6777 LWORK-REF6778
    4312. 

  4312.        IWORK-REF6779 LIWORK-REF6780 BWORK-REF6781 INFO-REF6782))))
    4313. 

  4313. 

  4314. (CFFI:DEFCFUN ("dggev_" %%DGGEV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    4315. 

  4315.     :VOID
    4316. 

  4316.   (JOBVL :STRING)
    4317. 

  4317.   (JOBVR :STRING)
    4318. 

  4318.   (N :POINTER)
    4319. 

  4319.   (A :POINTER)
    4320. 

  4320.   (LDA :POINTER)
    4321. 

  4321.   (B :POINTER)
    4322. 

  4322.   (LDB :POINTER)
    4323. 

  4323.   (ALPHAR :POINTER)
    4324. 

  4324.   (ALPHAI :POINTER)
    4325. 

  4325.   (BETA :POINTER)
    4326. 

  4326.   (VL :POINTER)
    4327. 

  4327.   (LDVL :POINTER)
    4328. 

  4328.   (VR :POINTER)
    4329. 

  4329.   (LDVR :POINTER)
    4330. 

  4330.   (WORK :POINTER)
    4331. 

  4331.   (LWORK :POINTER)
    4332. 

  4332.   (INFO :POINTER))
    4333. 

  4333. 

  4334. (COMMON-LISP:DEFUN %DGGEV
    4335. 

  4335.                    (JOBVL JOBVR N A LDA B LDB ALPHAR ALPHAI BETA VL LDVL VR
    4336. 

  4336.                     LDVR WORK LWORK INFO)
    4337. 

  4337.   (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGGEV)
    4338. 

  4338.                        (COMMON-LISP:TYPE COMMON-LISP:STRING JOBVL)
    4339. 

  4339.                        (COMMON-LISP:TYPE COMMON-LISP:STRING JOBVR)
    4340. 

  4340.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
    4341. 

  4341.                        (COMMON-LISP:TYPE
    4342. 

  4342.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
    4343. 

  4343.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
    4344. 

  4344.                        (COMMON-LISP:TYPE
    4345. 

  4345.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
    4346. 

  4346.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
    4347. 

  4347.                        (COMMON-LISP:TYPE
    4348. 

  4348.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    4349. 

  4349.                         ALPHAR)
    4350. 

  4350.                        (COMMON-LISP:TYPE
    4351. 

  4351.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    4352. 

  4352.                         ALPHAI)
    4353. 

  4353.                        (COMMON-LISP:TYPE
    4354. 

  4354.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    4355. 

  4355.                         BETA)
    4356. 

  4356.                        (COMMON-LISP:TYPE
    4357. 

  4357.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) VL)
    4358. 

  4358.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVL)
    4359. 

  4359.                        (COMMON-LISP:TYPE
    4360. 

  4360.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) VR)
    4361. 

  4361.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVR)
    4362. 

  4362.                        (COMMON-LISP:TYPE
    4363. 

  4363.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    4364. 

  4364.                         WORK)
    4365. 

  4365.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
    4366. 

  4366.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
    4367. 

  4367.   (CFFI:WITH-FOREIGN-OBJECTS ((N-REF6785 ':INT32) (LDA-REF6787 ':INT32)
    4368. 

  4368.                               (LDB-REF6789 ':INT32) (LDVL-REF6794 ':INT32)
    4369. 

  4369.                               (LDVR-REF6796 ':INT32) (LWORK-REF6798 ':INT32)
    4370. 

  4370.                               (INFO-REF6799 ':INT32))
    4371. 

  4371.     (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6785 :INT32) N)
    4372. 

  4372.     (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6787 :INT32) LDA)
    4373. 

  4373.     (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF6789 :INT32) LDB)
    4374. 

  4374.     (COMMON-LISP:SETF (CFFI:MEM-REF LDVL-REF6794 :INT32) LDVL)
    4375. 

  4375.     (COMMON-LISP:SETF (CFFI:MEM-REF LDVR-REF6796 :INT32) LDVR)
    4376. 

  4376.     (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF6798 :INT32) LWORK)
    4377. 

  4377.     (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6799 :INT32) INFO)
    4378. 

  4378.     (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6786 A) (B-REF6788 B)
    4379. 

  4379.                                             (ALPHAR-REF6790 ALPHAR)
    4380. 

  4380.                                             (ALPHAI-REF6791 ALPHAI)
    4381. 

  4381.                                             (BETA-REF6792 BETA) (VL-REF6793 VL)
    4382. 

  4382.                                             (VR-REF6795 VR) (WORK-REF6797 WORK))
    4383. 

  4383.       (%%DGGEV JOBVL JOBVR N-REF6785 A-REF6786 LDA-REF6787 B-REF6788
    4384. 

  4384.        LDB-REF6789 ALPHAR-REF6790 ALPHAI-REF6791 BETA-REF6792 VL-REF6793
    4385. 

  4385.        LDVL-REF6794 VR-REF6795 LDVR-REF6796 WORK-REF6797 LWORK-REF6798
    4386. 

  4386.        INFO-REF6799))))
    4387. 

  4387. 

  4388. (CFFI:DEFCFUN ("dggev3_" %%DGGEV3 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    4389. 

  4389.     :VOID
    4390. 

  4390.   (JOBVL :STRING)
    4391. 

  4391.   (JOBVR :STRING)
    4392. 

  4392.   (N :POINTER)
    4393. 

  4393.   (A :POINTER)
    4394. 

  4394.   (LDA :POINTER)
    4395. 

  4395.   (B :POINTER)
    4396. 

  4396.   (LDB :POINTER)
    4397. 

  4397.   (ALPHAR :POINTER)
    4398. 

  4398.   (ALPHAI :POINTER)
    4399. 

  4399.   (BETA :POINTER)
    4400. 

  4400.   (VL :POINTER)
    4401. 

  4401.   (LDVL :POINTER)
    4402. 

  4402.   (VR :POINTER)
    4403. 

  4403.   (LDVR :POINTER)
    4404. 

  4404.   (WORK :POINTER)
    4405. 

  4405.   (LWORK :POINTER)
    4406. 

  4406.   (INFO :POINTER))
    4407. 

  4407. 

  4408. (COMMON-LISP:DEFUN %DGGEV3
    4409. 

  4409.                    (JOBVL JOBVR N A LDA B LDB ALPHAR ALPHAI BETA VL LDVL VR
    4410. 

  4410.                     LDVR WORK LWORK INFO)
    4411. 

  4411.   (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGGEV3)
    4412. 

  4412.                        (COMMON-LISP:TYPE COMMON-LISP:STRING JOBVL)
    4413. 

  4413.                        (COMMON-LISP:TYPE COMMON-LISP:STRING JOBVR)
    4414. 

  4414.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
    4415. 

  4415.                        (COMMON-LISP:TYPE
    4416. 

  4416.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
    4417. 

  4417.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
    4418. 

  4418.                        (COMMON-LISP:TYPE
    4419. 

  4419.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
    4420. 

  4420.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
    4421. 

  4421.                        (COMMON-LISP:TYPE
    4422. 

  4422.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    4423. 

  4423.                         ALPHAR)
    4424. 

  4424.                        (COMMON-LISP:TYPE
    4425. 

  4425.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    4426. 

  4426.                         ALPHAI)
    4427. 

  4427.                        (COMMON-LISP:TYPE
    4428. 

  4428.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    4429. 

  4429.                         BETA)
    4430. 

  4430.                        (COMMON-LISP:TYPE
    4431. 

  4431.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) VL)
    4432. 

  4432.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVL)
    4433. 

  4433.                        (COMMON-LISP:TYPE
    4434. 

  4434.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) VR)
    4435. 

  4435.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVR)
    4436. 

  4436.                        (COMMON-LISP:TYPE
    4437. 

  4437.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    4438. 

  4438.                         WORK)
    4439. 

  4439.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
    4440. 

  4440.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
    4441. 

  4441.   (CFFI:WITH-FOREIGN-OBJECTS ((N-REF6802 ':INT32) (LDA-REF6804 ':INT32)
    4442. 

  4442.                               (LDB-REF6806 ':INT32) (LDVL-REF6811 ':INT32)
    4443. 

  4443.                               (LDVR-REF6813 ':INT32) (LWORK-REF6815 ':INT32)
    4444. 

  4444.                               (INFO-REF6816 ':INT32))
    4445. 

  4445.     (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6802 :INT32) N)
    4446. 

  4446.     (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6804 :INT32) LDA)
    4447. 

  4447.     (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF6806 :INT32) LDB)
    4448. 

  4448.     (COMMON-LISP:SETF (CFFI:MEM-REF LDVL-REF6811 :INT32) LDVL)
    4449. 

  4449.     (COMMON-LISP:SETF (CFFI:MEM-REF LDVR-REF6813 :INT32) LDVR)
    4450. 

  4450.     (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF6815 :INT32) LWORK)
    4451. 

  4451.     (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6816 :INT32) INFO)
    4452. 

  4452.     (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6803 A) (B-REF6805 B)
    4453. 

  4453.                                             (ALPHAR-REF6807 ALPHAR)
    4454. 

  4454.                                             (ALPHAI-REF6808 ALPHAI)
    4455. 

  4455.                                             (BETA-REF6809 BETA) (VL-REF6810 VL)
    4456. 

  4456.                                             (VR-REF6812 VR) (WORK-REF6814 WORK))
    4457. 

  4457.       (%%DGGEV3 JOBVL JOBVR N-REF6802 A-REF6803 LDA-REF6804 B-REF6805
    4458. 

  4458.        LDB-REF6806 ALPHAR-REF6807 ALPHAI-REF6808 BETA-REF6809 VL-REF6810
    4459. 

  4459.        LDVL-REF6811 VR-REF6812 LDVR-REF6813 WORK-REF6814 LWORK-REF6815
    4460. 

  4460.        INFO-REF6816))))
    4461. 

  4461. 

  4462. (CFFI:DEFCFUN ("dggevx_" %%DGGEVX :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    4463. 

  4463.     :VOID
    4464. 

  4464.   (BALANC :STRING)
    4465. 

  4465.   (JOBVL :STRING)
    4466. 

  4466.   (JOBVR :STRING)
    4467. 

  4467.   (SENSE :STRING)
    4468. 

  4468.   (N :POINTER)
    4469. 

  4469.   (A :POINTER)
    4470. 

  4470.   (LDA :POINTER)
    4471. 

  4471.   (B :POINTER)
    4472. 

  4472.   (LDB :POINTER)
    4473. 

  4473.   (ALPHAR :POINTER)
    4474. 

  4474.   (ALPHAI :POINTER)
    4475. 

  4475.   (BETA :POINTER)
    4476. 

  4476.   (VL :POINTER)
    4477. 

  4477.   (LDVL :POINTER)
    4478. 

  4478.   (VR :POINTER)
    4479. 

  4479.   (LDVR :POINTER)
    4480. 

  4480.   (ILO :POINTER)
    4481. 

  4481.   (IHI :POINTER)
    4482. 

  4482.   (LSCALE :POINTER)
    4483. 

  4483.   (RSCALE :POINTER)
    4484. 

  4484.   (ABNRM :POINTER)
    4485. 

  4485.   (BBNRM :POINTER)
    4486. 

  4486.   (RCONDE :POINTER)
    4487. 

  4487.   (RCONDV :POINTER)
    4488. 

  4488.   (WORK :POINTER)
    4489. 

  4489.   (LWORK :POINTER)
    4490. 

  4490.   (IWORK :POINTER)
    4491. 

  4491.   (BWORK :POINTER)
    4492. 

  4492.   (INFO :POINTER))
    4493. 

  4493. 

  4494. (COMMON-LISP:DEFUN %DGGEVX
    4495. 

  4495.                    (BALANC JOBVL JOBVR SENSE N A LDA B LDB ALPHAR ALPHAI BETA
    4496. 

  4496.                     VL LDVL VR LDVR ILO IHI LSCALE RSCALE ABNRM BBNRM RCONDE
    4497. 

  4497.                     RCONDV WORK LWORK IWORK BWORK INFO)
    4498. 

  4498.   (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGGEVX)
    4499. 

  4499.                        (COMMON-LISP:TYPE COMMON-LISP:STRING BALANC)
    4500. 

  4500.                        (COMMON-LISP:TYPE COMMON-LISP:STRING JOBVL)
    4501. 

  4501.                        (COMMON-LISP:TYPE COMMON-LISP:STRING JOBVR)
    4502. 

  4502.                        (COMMON-LISP:TYPE COMMON-LISP:STRING SENSE)
    4503. 

  4503.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
    4504. 

  4504.                        (COMMON-LISP:TYPE
    4505. 

  4505.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
    4506. 

  4506.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
    4507. 

  4507.                        (COMMON-LISP:TYPE
    4508. 

  4508.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
    4509. 

  4509.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
    4510. 

  4510.                        (COMMON-LISP:TYPE
    4511. 

  4511.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    4512. 

  4512.                         ALPHAR)
    4513. 

  4513.                        (COMMON-LISP:TYPE
    4514. 

  4514.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    4515. 

  4515.                         ALPHAI)
    4516. 

  4516.                        (COMMON-LISP:TYPE
    4517. 

  4517.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    4518. 

  4518.                         BETA)
    4519. 

  4519.                        (COMMON-LISP:TYPE
    4520. 

  4520.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) VL)
    4521. 

  4521.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVL)
    4522. 

  4522.                        (COMMON-LISP:TYPE
    4523. 

  4523.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) VR)
    4524. 

  4524.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVR)
    4525. 

  4525.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILO)
    4526. 

  4526.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IHI)
    4527. 

  4527.                        (COMMON-LISP:TYPE
    4528. 

  4528.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    4529. 

  4529.                         LSCALE)
    4530. 

  4530.                        (COMMON-LISP:TYPE
    4531. 

  4531.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    4532. 

  4532.                         RSCALE)
    4533. 

  4533.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ABNRM)
    4534. 

  4534.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT BBNRM)
    4535. 

  4535.                        (COMMON-LISP:TYPE
    4536. 

  4536.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    4537. 

  4537.                         RCONDE)
    4538. 

  4538.                        (COMMON-LISP:TYPE
    4539. 

  4539.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    4540. 

  4540.                         RCONDV)
    4541. 

  4541.                        (COMMON-LISP:TYPE
    4542. 

  4542.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    4543. 

  4543.                         WORK)
    4544. 

  4544.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
    4545. 

  4545.                        (COMMON-LISP:TYPE
    4546. 

  4546.                         (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
    4547. 

  4547.                          (COMMON-LISP:*))
    4548. 

  4548.                         IWORK)
    4549. 

  4549.                        (COMMON-LISP:TYPE
    4550. 

  4550.                         (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
    4551. 

  4551.                          (COMMON-LISP:*))
    4552. 

  4552.                         BWORK)
    4553. 

  4553.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
    4554. 

  4554.   (CFFI:WITH-FOREIGN-OBJECTS ((N-REF6821 ':INT32) (LDA-REF6823 ':INT32)
    4555. 

  4555.                               (LDB-REF6825 ':INT32) (LDVL-REF6830 ':INT32)
    4556. 

  4556.                               (LDVR-REF6832 ':INT32) (ILO-REF6833 ':INT32)
    4557. 

  4557.                               (IHI-REF6834 ':INT32) (ABNRM-REF6837 ':DOUBLE)
    4558. 

  4558.                               (BBNRM-REF6838 ':DOUBLE) (LWORK-REF6842 ':INT32)
    4559. 

  4559.                               (INFO-REF6845 ':INT32))
    4560. 

  4560.     (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6821 :INT32) N)
    4561. 

  4561.     (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6823 :INT32) LDA)
    4562. 

  4562.     (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF6825 :INT32) LDB)
    4563. 

  4563.     (COMMON-LISP:SETF (CFFI:MEM-REF LDVL-REF6830 :INT32) LDVL)
    4564. 

  4564.     (COMMON-LISP:SETF (CFFI:MEM-REF LDVR-REF6832 :INT32) LDVR)
    4565. 

  4565.     (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF6833 :INT32) ILO)
    4566. 

  4566.     (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF6834 :INT32) IHI)
    4567. 

  4567.     (COMMON-LISP:SETF (CFFI:MEM-REF ABNRM-REF6837 :DOUBLE) ABNRM)
    4568. 

  4568.     (COMMON-LISP:SETF (CFFI:MEM-REF BBNRM-REF6838 :DOUBLE) BBNRM)
    4569. 

  4569.     (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF6842 :INT32) LWORK)
    4570. 

  4570.     (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6845 :INT32) INFO)
    4571. 

  4571.     (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6822 A) (B-REF6824 B)
    4572. 

  4572.                                             (ALPHAR-REF6826 ALPHAR)
    4573. 

  4573.                                             (ALPHAI-REF6827 ALPHAI)
    4574. 

  4574.                                             (BETA-REF6828 BETA) (VL-REF6829 VL)
    4575. 

  4575.                                             (VR-REF6831 VR)
    4576. 

  4576.                                             (LSCALE-REF6835 LSCALE)
    4577. 

  4577.                                             (RSCALE-REF6836 RSCALE)
    4578. 

  4578.                                             (RCONDE-REF6839 RCONDE)
    4579. 

  4579.                                             (RCONDV-REF6840 RCONDV)
    4580. 

  4580.                                             (WORK-REF6841 WORK)
    4581. 

  4581.                                             (IWORK-REF6843 IWORK)
    4582. 

  4582.                                             (BWORK-REF6844 BWORK))
    4583. 

  4583.       (%%DGGEVX BALANC JOBVL JOBVR SENSE N-REF6821 A-REF6822 LDA-REF6823
    4584. 

  4584.        B-REF6824 LDB-REF6825 ALPHAR-REF6826 ALPHAI-REF6827 BETA-REF6828
    4585. 

  4585.        VL-REF6829 LDVL-REF6830 VR-REF6831 LDVR-REF6832 ILO-REF6833 IHI-REF6834
    4586. 

  4586.        LSCALE-REF6835 RSCALE-REF6836 ABNRM-REF6837 BBNRM-REF6838 RCONDE-REF6839
    4587. 

  4587.        RCONDV-REF6840 WORK-REF6841 LWORK-REF6842 IWORK-REF6843 BWORK-REF6844
    4588. 

  4588.        INFO-REF6845))))
    4589. 

  4589. 

  4590. (CFFI:DEFCFUN ("dggglm_" %%DGGGLM :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    4591. 

  4591.     :VOID
    4592. 

  4592.   (N :POINTER)
    4593. 

  4593.   (M :POINTER)
    4594. 

  4594.   (P :POINTER)
    4595. 

  4595.   (A :POINTER)
    4596. 

  4596.   (LDA :POINTER)
    4597. 

  4597.   (B :POINTER)
    4598. 

  4598.   (LDB :POINTER)
    4599. 

  4599.   (D :POINTER)
    4600. 

  4600.   (X :POINTER)
    4601. 

  4601.   (Y :POINTER)
    4602. 

  4602.   (WORK :POINTER)
    4603. 

  4603.   (LWORK :POINTER)
    4604. 

  4604.   (INFO :POINTER))
    4605. 

  4605. 

  4606. (COMMON-LISP:DEFUN %DGGGLM (N M P A LDA B LDB D X Y WORK LWORK INFO)
    4607. 

  4607.   (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGGGLM)
    4608. 

  4608.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
    4609. 

  4609.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
    4610. 

  4610.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) P)
    4611. 

  4611.                        (COMMON-LISP:TYPE
    4612. 

  4612.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
    4613. 

  4613.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
    4614. 

  4614.                        (COMMON-LISP:TYPE
    4615. 

  4615.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
    4616. 

  4616.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
    4617. 

  4617.                        (COMMON-LISP:TYPE
    4618. 

  4618.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
    4619. 

  4619.                        (COMMON-LISP:TYPE
    4620. 

  4620.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) X)
    4621. 

  4621.                        (COMMON-LISP:TYPE
    4622. 

  4622.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Y)
    4623. 

  4623.                        (COMMON-LISP:TYPE
    4624. 

  4624.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    4625. 

  4625.                         WORK)
    4626. 

  4626.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
    4627. 

  4627.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
    4628. 

  4628.   (CFFI:WITH-FOREIGN-OBJECTS ((N-REF6846 ':INT32) (M-REF6847 ':INT32)
    4629. 

  4629.                               (P-REF6848 ':INT32) (LDA-REF6850 ':INT32)
    4630. 

  4630.                               (LDB-REF6852 ':INT32) (LWORK-REF6857 ':INT32)
    4631. 

  4631.                               (INFO-REF6858 ':INT32))
    4632. 

  4632.     (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6846 :INT32) N)
    4633. 

  4633.     (COMMON-LISP:SETF (CFFI:MEM-REF M-REF6847 :INT32) M)
    4634. 

  4634.     (COMMON-LISP:SETF (CFFI:MEM-REF P-REF6848 :INT32) P)
    4635. 

  4635.     (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6850 :INT32) LDA)
    4636. 

  4636.     (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF6852 :INT32) LDB)
    4637. 

  4637.     (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF6857 :INT32) LWORK)
    4638. 

  4638.     (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6858 :INT32) INFO)
    4639. 

  4639.     (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6849 A) (B-REF6851 B)
    4640. 

  4640.                                             (D-REF6853 D) (X-REF6854 X)
    4641. 

  4641.                                             (Y-REF6855 Y) (WORK-REF6856 WORK))
    4642. 

  4642.       (%%DGGGLM N-REF6846 M-REF6847 P-REF6848 A-REF6849 LDA-REF6850 B-REF6851
    4643. 

  4643.        LDB-REF6852 D-REF6853 X-REF6854 Y-REF6855 WORK-REF6856 LWORK-REF6857
    4644. 

  4644.        INFO-REF6858))))
    4645. 

  4645. 

  4646. (CFFI:DEFCFUN ("dgghd3_" %%DGGHD3 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    4647. 

  4647.     :VOID
    4648. 

  4648.   (COMPQ :STRING)
    4649. 

  4649.   (COMPZ :STRING)
    4650. 

  4650.   (N :POINTER)
    4651. 

  4651.   (ILO :POINTER)
    4652. 

  4652.   (IHI :POINTER)
    4653. 

  4653.   (A :POINTER)
    4654. 

  4654.   (LDA :POINTER)
    4655. 

  4655.   (B :POINTER)
    4656. 

  4656.   (LDB :POINTER)
    4657. 

  4657.   (Q :POINTER)
    4658. 

  4658.   (LDQ :POINTER)
    4659. 

  4659.   (Z :POINTER)
    4660. 

  4660.   (LDZ :POINTER)
    4661. 

  4661.   (WORK :POINTER)
    4662. 

  4662.   (LWORK :POINTER)
    4663. 

  4663.   (INFO :POINTER))
    4664. 

  4664. 

  4665. (COMMON-LISP:DEFUN %DGGHD3
    4666. 

  4666.                    (COMPQ COMPZ N ILO IHI A LDA B LDB Q LDQ Z LDZ WORK LWORK
    4667. 

  4667.                     INFO)
    4668. 

  4668.   (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGGHD3)
    4669. 

  4669.                        (COMMON-LISP:TYPE COMMON-LISP:STRING COMPQ)
    4670. 

  4670.                        (COMMON-LISP:TYPE COMMON-LISP:STRING COMPZ)
    4671. 

  4671.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
    4672. 

  4672.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILO)
    4673. 

  4673.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IHI)
    4674. 

  4674.                        (COMMON-LISP:TYPE
    4675. 

  4675.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
    4676. 

  4676.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
    4677. 

  4677.                        (COMMON-LISP:TYPE
    4678. 

  4678.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
    4679. 

  4679.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
    4680. 

  4680.                        (COMMON-LISP:TYPE
    4681. 

  4681.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Q)
    4682. 

  4682.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ)
    4683. 

  4683.                        (COMMON-LISP:TYPE
    4684. 

  4684.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Z)
    4685. 

  4685.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
    4686. 

  4686.                        (COMMON-LISP:TYPE
    4687. 

  4687.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    4688. 

  4688.                         WORK)
    4689. 

  4689.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
    4690. 

  4690.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
    4691. 

  4691.   (CFFI:WITH-FOREIGN-OBJECTS ((N-REF6861 ':INT32) (ILO-REF6862 ':INT32)
    4692. 

  4692.                               (IHI-REF6863 ':INT32) (LDA-REF6865 ':INT32)
    4693. 

  4693.                               (LDB-REF6867 ':INT32) (LDQ-REF6869 ':INT32)
    4694. 

  4694.                               (LDZ-REF6871 ':INT32) (LWORK-REF6873 ':INT32)
    4695. 

  4695.                               (INFO-REF6874 ':INT32))
    4696. 

  4696.     (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6861 :INT32) N)
    4697. 

  4697.     (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF6862 :INT32) ILO)
    4698. 

  4698.     (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF6863 :INT32) IHI)
    4699. 

  4699.     (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6865 :INT32) LDA)
    4700. 

  4700.     (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF6867 :INT32) LDB)
    4701. 

  4701.     (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF6869 :INT32) LDQ)
    4702. 

  4702.     (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF6871 :INT32) LDZ)
    4703. 

  4703.     (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF6873 :INT32) LWORK)
    4704. 

  4704.     (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6874 :INT32) INFO)
    4705. 

  4705.     (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6864 A) (B-REF6866 B)
    4706. 

  4706.                                             (Q-REF6868 Q) (Z-REF6870 Z)
    4707. 

  4707.                                             (WORK-REF6872 WORK))
    4708. 

  4708.       (%%DGGHD3 COMPQ COMPZ N-REF6861 ILO-REF6862 IHI-REF6863 A-REF6864
    4709. 

  4709.        LDA-REF6865 B-REF6866 LDB-REF6867 Q-REF6868 LDQ-REF6869 Z-REF6870
    4710. 

  4710.        LDZ-REF6871 WORK-REF6872 LWORK-REF6873 INFO-REF6874))))
    4711. 

  4711. 

  4712. (CFFI:DEFCFUN ("dgghrd_" %%DGGHRD :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    4713. 

  4713.     :VOID
    4714. 

  4714.   (COMPQ :STRING)
    4715. 

  4715.   (COMPZ :STRING)
    4716. 

  4716.   (N :POINTER)
    4717. 

  4717.   (ILO :POINTER)
    4718. 

  4718.   (IHI :POINTER)
    4719. 

  4719.   (A :POINTER)
    4720. 

  4720.   (LDA :POINTER)
    4721. 

  4721.   (B :POINTER)
    4722. 

  4722.   (LDB :POINTER)
    4723. 

  4723.   (Q :POINTER)
    4724. 

  4724.   (LDQ :POINTER)
    4725. 

  4725.   (Z :POINTER)
    4726. 

  4726.   (LDZ :POINTER)
    4727. 

  4727.   (INFO :POINTER))
    4728. 

  4728. 

  4729. (COMMON-LISP:DEFUN %DGGHRD (COMPQ COMPZ N ILO IHI A LDA B LDB Q LDQ Z LDZ INFO)
    4730. 

  4730.   (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGGHRD)
    4731. 

  4731.                        (COMMON-LISP:TYPE COMMON-LISP:STRING COMPQ)
    4732. 

  4732.                        (COMMON-LISP:TYPE COMMON-LISP:STRING COMPZ)
    4733. 

  4733.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
    4734. 

  4734.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILO)
    4735. 

  4735.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IHI)
    4736. 

  4736.                        (COMMON-LISP:TYPE
    4737. 

  4737.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
    4738. 

  4738.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
    4739. 

  4739.                        (COMMON-LISP:TYPE
    4740. 

  4740.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
    4741. 

  4741.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
    4742. 

  4742.                        (COMMON-LISP:TYPE
    4743. 

  4743.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Q)
    4744. 

  4744.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ)
    4745. 

  4745.                        (COMMON-LISP:TYPE
    4746. 

  4746.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Z)
    4747. 

  4747.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
    4748. 

  4748.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
    4749. 

  4749.   (CFFI:WITH-FOREIGN-OBJECTS ((N-REF6877 ':INT32) (ILO-REF6878 ':INT32)
    4750. 

  4750.                               (IHI-REF6879 ':INT32) (LDA-REF6881 ':INT32)
    4751. 

  4751.                               (LDB-REF6883 ':INT32) (LDQ-REF6885 ':INT32)
    4752. 

  4752.                               (LDZ-REF6887 ':INT32) (INFO-REF6888 ':INT32))
    4753. 

  4753.     (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6877 :INT32) N)
    4754. 

  4754.     (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF6878 :INT32) ILO)
    4755. 

  4755.     (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF6879 :INT32) IHI)
    4756. 

  4756.     (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6881 :INT32) LDA)
    4757. 

  4757.     (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF6883 :INT32) LDB)
    4758. 

  4758.     (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF6885 :INT32) LDQ)
    4759. 

  4759.     (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF6887 :INT32) LDZ)
    4760. 

  4760.     (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6888 :INT32) INFO)
    4761. 

  4761.     (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6880 A) (B-REF6882 B)
    4762. 

  4762.                                             (Q-REF6884 Q) (Z-REF6886 Z))
    4763. 

  4763.       (%%DGGHRD COMPQ COMPZ N-REF6877 ILO-REF6878 IHI-REF6879 A-REF6880
    4764. 

  4764.        LDA-REF6881 B-REF6882 LDB-REF6883 Q-REF6884 LDQ-REF6885 Z-REF6886
    4765. 

  4765.        LDZ-REF6887 INFO-REF6888))))
    4766. 

  4766. 

  4767. (CFFI:DEFCFUN ("dgglse_" %%DGGLSE :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    4768. 

  4768.     :VOID
    4769. 

  4769.   (M :POINTER)
    4770. 

  4770.   (N :POINTER)
    4771. 

  4771.   (P :POINTER)
    4772. 

  4772.   (A :POINTER)
    4773. 

  4773.   (LDA :POINTER)
    4774. 

  4774.   (B :POINTER)
    4775. 

  4775.   (LDB :POINTER)
    4776. 

  4776.   (C :POINTER)
    4777. 

  4777.   (D :POINTER)
    4778. 

  4778.   (X :POINTER)
    4779. 

  4779.   (WORK :POINTER)
    4780. 

  4780.   (LWORK :POINTER)
    4781. 

  4781.   (INFO :POINTER))
    4782. 

  4782. 

  4783. (COMMON-LISP:DEFUN %DGGLSE (M N P A LDA B LDB C D X WORK LWORK INFO)
    4784. 

  4784.   (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGGLSE)
    4785. 

  4785.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
    4786. 

  4786.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
    4787. 

  4787.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) P)
    4788. 

  4788.                        (COMMON-LISP:TYPE
    4789. 

  4789.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
    4790. 

  4790.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
    4791. 

  4791.                        (COMMON-LISP:TYPE
    4792. 

  4792.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
    4793. 

  4793.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
    4794. 

  4794.                        (COMMON-LISP:TYPE
    4795. 

  4795.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
    4796. 

  4796.                        (COMMON-LISP:TYPE
    4797. 

  4797.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
    4798. 

  4798.                        (COMMON-LISP:TYPE
    4799. 

  4799.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) X)
    4800. 

  4800.                        (COMMON-LISP:TYPE
    4801. 

  4801.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    4802. 

  4802.                         WORK)
    4803. 

  4803.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
    4804. 

  4804.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
    4805. 

  4805.   (CFFI:WITH-FOREIGN-OBJECTS ((M-REF6889 ':INT32) (N-REF6890 ':INT32)
    4806. 

  4806.                               (P-REF6891 ':INT32) (LDA-REF6893 ':INT32)
    4807. 

  4807.                               (LDB-REF6895 ':INT32) (LWORK-REF6900 ':INT32)
    4808. 

  4808.                               (INFO-REF6901 ':INT32))
    4809. 

  4809.     (COMMON-LISP:SETF (CFFI:MEM-REF M-REF6889 :INT32) M)
    4810. 

  4810.     (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6890 :INT32) N)
    4811. 

  4811.     (COMMON-LISP:SETF (CFFI:MEM-REF P-REF6891 :INT32) P)
    4812. 

  4812.     (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6893 :INT32) LDA)
    4813. 

  4813.     (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF6895 :INT32) LDB)
    4814. 

  4814.     (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF6900 :INT32) LWORK)
    4815. 

  4815.     (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6901 :INT32) INFO)
    4816. 

  4816.     (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6892 A) (B-REF6894 B)
    4817. 

  4817.                                             (C-REF6896 C) (D-REF6897 D)
    4818. 

  4818.                                             (X-REF6898 X) (WORK-REF6899 WORK))
    4819. 

  4819.       (%%DGGLSE M-REF6889 N-REF6890 P-REF6891 A-REF6892 LDA-REF6893 B-REF6894
    4820. 

  4820.        LDB-REF6895 C-REF6896 D-REF6897 X-REF6898 WORK-REF6899 LWORK-REF6900
    4821. 

  4821.        INFO-REF6901))))
    4822. 

  4822. 

  4823. (CFFI:DEFCFUN ("dggqrf_" %%DGGQRF :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    4824. 

  4824.     :VOID
    4825. 

  4825.   (N :POINTER)
    4826. 

  4826.   (M :POINTER)
    4827. 

  4827.   (P :POINTER)
    4828. 

  4828.   (A :POINTER)
    4829. 

  4829.   (LDA :POINTER)
    4830. 

  4830.   (TAUA :POINTER)
    4831. 

  4831.   (B :POINTER)
    4832. 

  4832.   (LDB :POINTER)
    4833. 

  4833.   (TAUB :POINTER)
    4834. 

  4834.   (WORK :POINTER)
    4835. 

  4835.   (LWORK :POINTER)
    4836. 

  4836.   (INFO :POINTER))
    4837. 

  4837. 

  4838. (COMMON-LISP:DEFUN %DGGQRF (N M P A LDA TAUA B LDB TAUB WORK LWORK INFO)
    4839. 

  4839.   (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGGQRF)
    4840. 

  4840.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
    4841. 

  4841.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
    4842. 

  4842.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) P)
    4843. 

  4843.                        (COMMON-LISP:TYPE
    4844. 

  4844.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
    4845. 

  4845.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
    4846. 

  4846.                        (COMMON-LISP:TYPE
    4847. 

  4847.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    4848. 

  4848.                         TAUA)
    4849. 

  4849.                        (COMMON-LISP:TYPE
    4850. 

  4850.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
    4851. 

  4851.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
    4852. 

  4852.                        (COMMON-LISP:TYPE
    4853. 

  4853.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    4854. 

  4854.                         TAUB)
    4855. 

  4855.                        (COMMON-LISP:TYPE
    4856. 

  4856.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    4857. 

  4857.                         WORK)
    4858. 

  4858.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
    4859. 

  4859.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
    4860. 

  4860.   (CFFI:WITH-FOREIGN-OBJECTS ((N-REF6902 ':INT32) (M-REF6903 ':INT32)
    4861. 

  4861.                               (P-REF6904 ':INT32) (LDA-REF6906 ':INT32)
    4862. 

  4862.                               (LDB-REF6909 ':INT32) (LWORK-REF6912 ':INT32)
    4863. 

  4863.                               (INFO-REF6913 ':INT32))
    4864. 

  4864.     (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6902 :INT32) N)
    4865. 

  4865.     (COMMON-LISP:SETF (CFFI:MEM-REF M-REF6903 :INT32) M)
    4866. 

  4866.     (COMMON-LISP:SETF (CFFI:MEM-REF P-REF6904 :INT32) P)
    4867. 

  4867.     (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6906 :INT32) LDA)
    4868. 

  4868.     (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF6909 :INT32) LDB)
    4869. 

  4869.     (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF6912 :INT32) LWORK)
    4870. 

  4870.     (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6913 :INT32) INFO)
    4871. 

  4871.     (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6905 A) (TAUA-REF6907 TAUA)
    4872. 

  4872.                                             (B-REF6908 B) (TAUB-REF6910 TAUB)
    4873. 

  4873.                                             (WORK-REF6911 WORK))
    4874. 

  4874.       (%%DGGQRF N-REF6902 M-REF6903 P-REF6904 A-REF6905 LDA-REF6906
    4875. 

  4875.        TAUA-REF6907 B-REF6908 LDB-REF6909 TAUB-REF6910 WORK-REF6911
    4876. 

  4876.        LWORK-REF6912 INFO-REF6913))))
    4877. 

  4877. 

  4878. (CFFI:DEFCFUN ("dggrqf_" %%DGGRQF :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    4879. 

  4879.     :VOID
    4880. 

  4880.   (M :POINTER)
    4881. 

  4881.   (P :POINTER)
    4882. 

  4882.   (N :POINTER)
    4883. 

  4883.   (A :POINTER)
    4884. 

  4884.   (LDA :POINTER)
    4885. 

  4885.   (TAUA :POINTER)
    4886. 

  4886.   (B :POINTER)
    4887. 

  4887.   (LDB :POINTER)
    4888. 

  4888.   (TAUB :POINTER)
    4889. 

  4889.   (WORK :POINTER)
    4890. 

  4890.   (LWORK :POINTER)
    4891. 

  4891.   (INFO :POINTER))
    4892. 

  4892. 

  4893. (COMMON-LISP:DEFUN %DGGRQF (M P N A LDA TAUA B LDB TAUB WORK LWORK INFO)
    4894. 

  4894.   (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGGRQF)
    4895. 

  4895.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
    4896. 

  4896.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) P)
    4897. 

  4897.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
    4898. 

  4898.                        (COMMON-LISP:TYPE
    4899. 

  4899.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
    4900. 

  4900.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
    4901. 

  4901.                        (COMMON-LISP:TYPE
    4902. 

  4902.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    4903. 

  4903.                         TAUA)
    4904. 

  4904.                        (COMMON-LISP:TYPE
    4905. 

  4905.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
    4906. 

  4906.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
    4907. 

  4907.                        (COMMON-LISP:TYPE
    4908. 

  4908.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    4909. 

  4909.                         TAUB)
    4910. 

  4910.                        (COMMON-LISP:TYPE
    4911. 

  4911.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    4912. 

  4912.                         WORK)
    4913. 

  4913.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
    4914. 

  4914.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
    4915. 

  4915.   (CFFI:WITH-FOREIGN-OBJECTS ((M-REF6914 ':INT32) (P-REF6915 ':INT32)
    4916. 

  4916.                               (N-REF6916 ':INT32) (LDA-REF6918 ':INT32)
    4917. 

  4917.                               (LDB-REF6921 ':INT32) (LWORK-REF6924 ':INT32)
    4918. 

  4918.                               (INFO-REF6925 ':INT32))
    4919. 

  4919.     (COMMON-LISP:SETF (CFFI:MEM-REF M-REF6914 :INT32) M)
    4920. 

  4920.     (COMMON-LISP:SETF (CFFI:MEM-REF P-REF6915 :INT32) P)
    4921. 

  4921.     (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6916 :INT32) N)
    4922. 

  4922.     (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6918 :INT32) LDA)
    4923. 

  4923.     (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF6921 :INT32) LDB)
    4924. 

  4924.     (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF6924 :INT32) LWORK)
    4925. 

  4925.     (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6925 :INT32) INFO)
    4926. 

  4926.     (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6917 A) (TAUA-REF6919 TAUA)
    4927. 

  4927.                                             (B-REF6920 B) (TAUB-REF6922 TAUB)
    4928. 

  4928.                                             (WORK-REF6923 WORK))
    4929. 

  4929.       (%%DGGRQF M-REF6914 P-REF6915 N-REF6916 A-REF6917 LDA-REF6918
    4930. 

  4930.        TAUA-REF6919 B-REF6920 LDB-REF6921 TAUB-REF6922 WORK-REF6923
    4931. 

  4931.        LWORK-REF6924 INFO-REF6925))))
    4932. 

  4932. 

  4933. (CFFI:DEFCFUN ("dggsvd3_" %%DGGSVD3 :LIBRARY
    4934. 

  4934.                MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    4935. 

  4935.     :VOID
    4936. 

  4936.   (JOBU :STRING)
    4937. 

  4937.   (JOBV :STRING)
    4938. 

  4938.   (JOBQ :STRING)
    4939. 

  4939.   (M :POINTER)
    4940. 

  4940.   (N :POINTER)
    4941. 

  4941.   (P :POINTER)
    4942. 

  4942.   (K :POINTER)
    4943. 

  4943.   (L :POINTER)
    4944. 

  4944.   (A :POINTER)
    4945. 

  4945.   (LDA :POINTER)
    4946. 

  4946.   (B :POINTER)
    4947. 

  4947.   (LDB :POINTER)
    4948. 

  4948.   (ALPHA :POINTER)
    4949. 

  4949.   (BETA :POINTER)
    4950. 

  4950.   (U :POINTER)
    4951. 

  4951.   (LDU :POINTER)
    4952. 

  4952.   (V :POINTER)
    4953. 

  4953.   (LDV :POINTER)
    4954. 

  4954.   (Q :POINTER)
    4955. 

  4955.   (LDQ :POINTER)
    4956. 

  4956.   (WORK :POINTER)
    4957. 

  4957.   (LWORK :POINTER)
    4958. 

  4958.   (IWORK :POINTER)
    4959. 

  4959.   (INFO :POINTER))
    4960. 

  4960. 

  4961. (COMMON-LISP:DEFUN %DGGSVD3
    4962. 

  4962.                    (JOBU JOBV JOBQ M N P K L A LDA B LDB ALPHA BETA U LDU V LDV
    4963. 

  4963.                     Q LDQ WORK LWORK IWORK INFO)
    4964. 

  4964.   (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGGSVD3)
    4965. 

  4965.                        (COMMON-LISP:TYPE COMMON-LISP:STRING JOBU)
    4966. 

  4966.                        (COMMON-LISP:TYPE COMMON-LISP:STRING JOBV)
    4967. 

  4967.                        (COMMON-LISP:TYPE COMMON-LISP:STRING JOBQ)
    4968. 

  4968.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
    4969. 

  4969.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
    4970. 

  4970.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) P)
    4971. 

  4971.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
    4972. 

  4972.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) L)
    4973. 

  4973.                        (COMMON-LISP:TYPE
    4974. 

  4974.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
    4975. 

  4975.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
    4976. 

  4976.                        (COMMON-LISP:TYPE
    4977. 

  4977.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
    4978. 

  4978.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
    4979. 

  4979.                        (COMMON-LISP:TYPE
    4980. 

  4980.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    4981. 

  4981.                         ALPHA)
    4982. 

  4982.                        (COMMON-LISP:TYPE
    4983. 

  4983.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    4984. 

  4984.                         BETA)
    4985. 

  4985.                        (COMMON-LISP:TYPE
    4986. 

  4986.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) U)
    4987. 

  4987.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDU)
    4988. 

  4988.                        (COMMON-LISP:TYPE
    4989. 

  4989.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) V)
    4990. 

  4990.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV)
    4991. 

  4991.                        (COMMON-LISP:TYPE
    4992. 

  4992.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Q)
    4993. 

  4993.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ)
    4994. 

  4994.                        (COMMON-LISP:TYPE
    4995. 

  4995.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    4996. 

  4996.                         WORK)
    4997. 

  4997.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
    4998. 

  4998.                        (COMMON-LISP:TYPE
    4999. 

  4999.                         (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
    5000. 

  5000.                          (COMMON-LISP:*))
    5001. 

  5001.                         IWORK)
    5002. 

  5002.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
    5003. 

  5003.   (CFFI:WITH-FOREIGN-OBJECTS ((M-REF6929 ':INT32) (N-REF6930 ':INT32)
    5004. 

  5004.                               (P-REF6931 ':INT32) (K-REF6932 ':INT32)
    5005. 

  5005.                               (L-REF6933 ':INT32) (LDA-REF6935 ':INT32)
    5006. 

  5006.                               (LDB-REF6937 ':INT32) (LDU-REF6941 ':INT32)
    5007. 

  5007.                               (LDV-REF6943 ':INT32) (LDQ-REF6945 ':INT32)
    5008. 

  5008.                               (LWORK-REF6947 ':INT32) (INFO-REF6949 ':INT32))
    5009. 

  5009.     (COMMON-LISP:SETF (CFFI:MEM-REF M-REF6929 :INT32) M)
    5010. 

  5010.     (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6930 :INT32) N)
    5011. 

  5011.     (COMMON-LISP:SETF (CFFI:MEM-REF P-REF6931 :INT32) P)
    5012. 

  5012.     (COMMON-LISP:SETF (CFFI:MEM-REF K-REF6932 :INT32) K)
    5013. 

  5013.     (COMMON-LISP:SETF (CFFI:MEM-REF L-REF6933 :INT32) L)
    5014. 

  5014.     (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6935 :INT32) LDA)
    5015. 

  5015.     (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF6937 :INT32) LDB)
    5016. 

  5016.     (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF6941 :INT32) LDU)
    5017. 

  5017.     (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF6943 :INT32) LDV)
    5018. 

  5018.     (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF6945 :INT32) LDQ)
    5019. 

  5019.     (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF6947 :INT32) LWORK)
    5020. 

  5020.     (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6949 :INT32) INFO)
    5021. 

  5021.     (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6934 A) (B-REF6936 B)
    5022. 

  5022.                                             (ALPHA-REF6938 ALPHA)
    5023. 

  5023.                                             (BETA-REF6939 BETA) (U-REF6940 U)
    5024. 

  5024.                                             (V-REF6942 V) (Q-REF6944 Q)
    5025. 

  5025.                                             (WORK-REF6946 WORK)
    5026. 

  5026.                                             (IWORK-REF6948 IWORK))
    5027. 

  5027.       (%%DGGSVD3 JOBU JOBV JOBQ M-REF6929 N-REF6930 P-REF6931 K-REF6932
    5028. 

  5028.        L-REF6933 A-REF6934 LDA-REF6935 B-REF6936 LDB-REF6937 ALPHA-REF6938
    5029. 

  5029.        BETA-REF6939 U-REF6940 LDU-REF6941 V-REF6942 LDV-REF6943 Q-REF6944
    5030. 

  5030.        LDQ-REF6945 WORK-REF6946 LWORK-REF6947 IWORK-REF6948 INFO-REF6949))))
    5031. 

  5031. 

  5032. (CFFI:DEFCFUN ("dggsvp3_" %%DGGSVP3 :LIBRARY
    5033. 

  5033.                MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    5034. 

  5034.     :VOID
    5035. 

  5035.   (JOBU :STRING)
    5036. 

  5036.   (JOBV :STRING)
    5037. 

  5037.   (JOBQ :STRING)
    5038. 

  5038.   (M :POINTER)
    5039. 

  5039.   (P :POINTER)
    5040. 

  5040.   (N :POINTER)
    5041. 

  5041.   (A :POINTER)
    5042. 

  5042.   (LDA :POINTER)
    5043. 

  5043.   (B :POINTER)
    5044. 

  5044.   (LDB :POINTER)
    5045. 

  5045.   (TOLA :POINTER)
    5046. 

  5046.   (TOLB :POINTER)
    5047. 

  5047.   (K :POINTER)
    5048. 

  5048.   (L :POINTER)
    5049. 

  5049.   (U :POINTER)
    5050. 

  5050.   (LDU :POINTER)
    5051. 

  5051.   (V :POINTER)
    5052. 

  5052.   (LDV :POINTER)
    5053. 

  5053.   (Q :POINTER)
    5054. 

  5054.   (LDQ :POINTER)
    5055. 

  5055.   (IWORK :POINTER)
    5056. 

  5056.   (TAU :POINTER)
    5057. 

  5057.   (WORK :POINTER)
    5058. 

  5058.   (LWORK :POINTER)
    5059. 

  5059.   (INFO :POINTER))
    5060. 

  5060. 

  5061. (COMMON-LISP:DEFUN %DGGSVP3
    5062. 

  5062.                    (JOBU JOBV JOBQ M P N A LDA B LDB TOLA TOLB K L U LDU V LDV
    5063. 

  5063.                     Q LDQ IWORK TAU WORK LWORK INFO)
    5064. 

  5064.   (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGGSVP3)
    5065. 

  5065.                        (COMMON-LISP:TYPE COMMON-LISP:STRING JOBU)
    5066. 

  5066.                        (COMMON-LISP:TYPE COMMON-LISP:STRING JOBV)
    5067. 

  5067.                        (COMMON-LISP:TYPE COMMON-LISP:STRING JOBQ)
    5068. 

  5068.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
    5069. 

  5069.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) P)
    5070. 

  5070.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
    5071. 

  5071.                        (COMMON-LISP:TYPE
    5072. 

  5072.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
    5073. 

  5073.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
    5074. 

  5074.                        (COMMON-LISP:TYPE
    5075. 

  5075.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
    5076. 

  5076.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
    5077. 

  5077.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT TOLA)
    5078. 

  5078.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT TOLB)
    5079. 

  5079.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
    5080. 

  5080.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) L)
    5081. 

  5081.                        (COMMON-LISP:TYPE
    5082. 

  5082.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) U)
    5083. 

  5083.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDU)
    5084. 

  5084.                        (COMMON-LISP:TYPE
    5085. 

  5085.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) V)
    5086. 

  5086.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV)
    5087. 

  5087.                        (COMMON-LISP:TYPE
    5088. 

  5088.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Q)
    5089. 

  5089.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ)
    5090. 

  5090.                        (COMMON-LISP:TYPE
    5091. 

  5091.                         (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
    5092. 

  5092.                          (COMMON-LISP:*))
    5093. 

  5093.                         IWORK)
    5094. 

  5094.                        (COMMON-LISP:TYPE
    5095. 

  5095.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    5096. 

  5096.                         TAU)
    5097. 

  5097.                        (COMMON-LISP:TYPE
    5098. 

  5098.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    5099. 

  5099.                         WORK)
    5100. 

  5100.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
    5101. 

  5101.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
    5102. 

  5102.   (CFFI:WITH-FOREIGN-OBJECTS ((M-REF6953 ':INT32) (P-REF6954 ':INT32)
    5103. 

  5103.                               (N-REF6955 ':INT32) (LDA-REF6957 ':INT32)
    5104. 

  5104.                               (LDB-REF6959 ':INT32) (TOLA-REF6960 ':DOUBLE)
    5105. 

  5105.                               (TOLB-REF6961 ':DOUBLE) (K-REF6962 ':INT32)
    5106. 

  5106.                               (L-REF6963 ':INT32) (LDU-REF6965 ':INT32)
    5107. 

  5107.                               (LDV-REF6967 ':INT32) (LDQ-REF6969 ':INT32)
    5108. 

  5108.                               (LWORK-REF6973 ':INT32) (INFO-REF6974 ':INT32))
    5109. 

  5109.     (COMMON-LISP:SETF (CFFI:MEM-REF M-REF6953 :INT32) M)
    5110. 

  5110.     (COMMON-LISP:SETF (CFFI:MEM-REF P-REF6954 :INT32) P)
    5111. 

  5111.     (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6955 :INT32) N)
    5112. 

  5112.     (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6957 :INT32) LDA)
    5113. 

  5113.     (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF6959 :INT32) LDB)
    5114. 

  5114.     (COMMON-LISP:SETF (CFFI:MEM-REF TOLA-REF6960 :DOUBLE) TOLA)
    5115. 

  5115.     (COMMON-LISP:SETF (CFFI:MEM-REF TOLB-REF6961 :DOUBLE) TOLB)
    5116. 

  5116.     (COMMON-LISP:SETF (CFFI:MEM-REF K-REF6962 :INT32) K)
    5117. 

  5117.     (COMMON-LISP:SETF (CFFI:MEM-REF L-REF6963 :INT32) L)
    5118. 

  5118.     (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF6965 :INT32) LDU)
    5119. 

  5119.     (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF6967 :INT32) LDV)
    5120. 

  5120.     (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF6969 :INT32) LDQ)
    5121. 

  5121.     (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF6973 :INT32) LWORK)
    5122. 

  5122.     (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6974 :INT32) INFO)
    5123. 

  5123.     (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6956 A) (B-REF6958 B)
    5124. 

  5124.                                             (U-REF6964 U) (V-REF6966 V)
    5125. 

  5125.                                             (Q-REF6968 Q) (IWORK-REF6970 IWORK)
    5126. 

  5126.                                             (TAU-REF6971 TAU)
    5127. 

  5127.                                             (WORK-REF6972 WORK))
    5128. 

  5128.       (%%DGGSVP3 JOBU JOBV JOBQ M-REF6953 P-REF6954 N-REF6955 A-REF6956
    5129. 

  5129.        LDA-REF6957 B-REF6958 LDB-REF6959 TOLA-REF6960 TOLB-REF6961 K-REF6962
    5130. 

  5130.        L-REF6963 U-REF6964 LDU-REF6965 V-REF6966 LDV-REF6967 Q-REF6968
    5131. 

  5131.        LDQ-REF6969 IWORK-REF6970 TAU-REF6971 WORK-REF6972 LWORK-REF6973
    5132. 

  5132.        INFO-REF6974))))
    5133. 

  5133. 

  5134. (CFFI:DEFCFUN ("dgsvj0_" %%DGSVJ0 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    5135. 

  5135.     :VOID
    5136. 

  5136.   (JOBV :STRING)
    5137. 

  5137.   (M :POINTER)
    5138. 

  5138.   (N :POINTER)
    5139. 

  5139.   (A :POINTER)
    5140. 

  5140.   (LDA :POINTER)
    5141. 

  5141.   (D :POINTER)
    5142. 

  5142.   (SVA :POINTER)
    5143. 

  5143.   (MV :POINTER)
    5144. 

  5144.   (V :POINTER)
    5145. 

  5145.   (LDV :POINTER)
    5146. 

  5146.   (EPS :POINTER)
    5147. 

  5147.   (SFMIN :POINTER)
    5148. 

  5148.   (TOL :POINTER)
    5149. 

  5149.   (NSWEEP :POINTER)
    5150. 

  5150.   (WORK :POINTER)
    5151. 

  5151.   (LWORK :POINTER)
    5152. 

  5152.   (INFO :POINTER))
    5153. 

  5153. 

  5154. (COMMON-LISP:DEFUN %DGSVJ0
    5155. 

  5155.                    (JOBV M N A LDA D SVA MV V LDV EPS SFMIN TOL NSWEEP WORK
    5156. 

  5156.                     LWORK INFO)
    5157. 

  5157.   (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGSVJ0)
    5158. 

  5158.                        (COMMON-LISP:TYPE COMMON-LISP:STRING JOBV)
    5159. 

  5159.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
    5160. 

  5160.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
    5161. 

  5161.                        (COMMON-LISP:TYPE
    5162. 

  5162.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
    5163. 

  5163.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
    5164. 

  5164.                        (COMMON-LISP:TYPE
    5165. 

  5165.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
    5166. 

  5166.                        (COMMON-LISP:TYPE
    5167. 

  5167.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    5168. 

  5168.                         SVA)
    5169. 

  5169.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) MV)
    5170. 

  5170.                        (COMMON-LISP:TYPE
    5171. 

  5171.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) V)
    5172. 

  5172.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV)
    5173. 

  5173.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT EPS)
    5174. 

  5174.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SFMIN)
    5175. 

  5175.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT TOL)
    5176. 

  5176.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NSWEEP)
    5177. 

  5177.                        (COMMON-LISP:TYPE
    5178. 

  5178.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    5179. 

  5179.                         WORK)
    5180. 

  5180.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
    5181. 

  5181.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
    5182. 

  5182.   (CFFI:WITH-FOREIGN-OBJECTS ((M-REF6976 ':INT32) (N-REF6977 ':INT32)
    5183. 

  5183.                               (LDA-REF6979 ':INT32) (MV-REF6982 ':INT32)
    5184. 

  5184.                               (LDV-REF6984 ':INT32) (EPS-REF6985 ':DOUBLE)
    5185. 

  5185.                               (SFMIN-REF6986 ':DOUBLE) (TOL-REF6987 ':DOUBLE)
    5186. 

  5186.                               (NSWEEP-REF6988 ':INT32) (LWORK-REF6990 ':INT32)
    5187. 

  5187.                               (INFO-REF6991 ':INT32))
    5188. 

  5188.     (COMMON-LISP:SETF (CFFI:MEM-REF M-REF6976 :INT32) M)
    5189. 

  5189.     (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6977 :INT32) N)
    5190. 

  5190.     (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6979 :INT32) LDA)
    5191. 

  5191.     (COMMON-LISP:SETF (CFFI:MEM-REF MV-REF6982 :INT32) MV)
    5192. 

  5192.     (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF6984 :INT32) LDV)
    5193. 

  5193.     (COMMON-LISP:SETF (CFFI:MEM-REF EPS-REF6985 :DOUBLE) EPS)
    5194. 

  5194.     (COMMON-LISP:SETF (CFFI:MEM-REF SFMIN-REF6986 :DOUBLE) SFMIN)
    5195. 

  5195.     (COMMON-LISP:SETF (CFFI:MEM-REF TOL-REF6987 :DOUBLE) TOL)
    5196. 

  5196.     (COMMON-LISP:SETF (CFFI:MEM-REF NSWEEP-REF6988 :INT32) NSWEEP)
    5197. 

  5197.     (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF6990 :INT32) LWORK)
    5198. 

  5198.     (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6991 :INT32) INFO)
    5199. 

  5199.     (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6978 A) (D-REF6980 D)
    5200. 

  5200.                                             (SVA-REF6981 SVA) (V-REF6983 V)
    5201. 

  5201.                                             (WORK-REF6989 WORK))
    5202. 

  5202.       (%%DGSVJ0 JOBV M-REF6976 N-REF6977 A-REF6978 LDA-REF6979 D-REF6980
    5203. 

  5203.        SVA-REF6981 MV-REF6982 V-REF6983 LDV-REF6984 EPS-REF6985 SFMIN-REF6986
    5204. 

  5204.        TOL-REF6987 NSWEEP-REF6988 WORK-REF6989 LWORK-REF6990 INFO-REF6991))))
    5205. 

  5205. 

  5206. (CFFI:DEFCFUN ("dgsvj1_" %%DGSVJ1 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    5207. 

  5207.     :VOID
    5208. 

  5208.   (JOBV :STRING)
    5209. 

  5209.   (M :POINTER)
    5210. 

  5210.   (N :POINTER)
    5211. 

  5211.   (N1 :POINTER)
    5212. 

  5212.   (A :POINTER)
    5213. 

  5213.   (LDA :POINTER)
    5214. 

  5214.   (D :POINTER)
    5215. 

  5215.   (SVA :POINTER)
    5216. 

  5216.   (MV :POINTER)
    5217. 

  5217.   (V :POINTER)
    5218. 

  5218.   (LDV :POINTER)
    5219. 

  5219.   (EPS :POINTER)
    5220. 

  5220.   (SFMIN :POINTER)
    5221. 

  5221.   (TOL :POINTER)
    5222. 

  5222.   (NSWEEP :POINTER)
    5223. 

  5223.   (WORK :POINTER)
    5224. 

  5224.   (LWORK :POINTER)
    5225. 

  5225.   (INFO :POINTER))
    5226. 

  5226. 

  5227. (COMMON-LISP:DEFUN %DGSVJ1
    5228. 

  5228.                    (JOBV M N N1 A LDA D SVA MV V LDV EPS SFMIN TOL NSWEEP WORK
    5229. 

  5229.                     LWORK INFO)
    5230. 

  5230.   (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGSVJ1)
    5231. 

  5231.                        (COMMON-LISP:TYPE COMMON-LISP:STRING JOBV)
    5232. 

  5232.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
    5233. 

  5233.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
    5234. 

  5234.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N1)
    5235. 

  5235.                        (COMMON-LISP:TYPE
    5236. 

  5236.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
    5237. 

  5237.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
    5238. 

  5238.                        (COMMON-LISP:TYPE
    5239. 

  5239.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
    5240. 

  5240.                        (COMMON-LISP:TYPE
    5241. 

  5241.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    5242. 

  5242.                         SVA)
    5243. 

  5243.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) MV)
    5244. 

  5244.                        (COMMON-LISP:TYPE
    5245. 

  5245.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) V)
    5246. 

  5246.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV)
    5247. 

  5247.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT EPS)
    5248. 

  5248.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SFMIN)
    5249. 

  5249.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT TOL)
    5250. 

  5250.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NSWEEP)
    5251. 

  5251.                        (COMMON-LISP:TYPE
    5252. 

  5252.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    5253. 

  5253.                         WORK)
    5254. 

  5254.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
    5255. 

  5255.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
    5256. 

  5256.   (CFFI:WITH-FOREIGN-OBJECTS ((M-REF6993 ':INT32) (N-REF6994 ':INT32)
    5257. 

  5257.                               (N1-REF6995 ':INT32) (LDA-REF6997 ':INT32)
    5258. 

  5258.                               (MV-REF7000 ':INT32) (LDV-REF7002 ':INT32)
    5259. 

  5259.                               (EPS-REF7003 ':DOUBLE) (SFMIN-REF7004 ':DOUBLE)
    5260. 

  5260.                               (TOL-REF7005 ':DOUBLE) (NSWEEP-REF7006 ':INT32)
    5261. 

  5261.                               (LWORK-REF7008 ':INT32) (INFO-REF7009 ':INT32))
    5262. 

  5262.     (COMMON-LISP:SETF (CFFI:MEM-REF M-REF6993 :INT32) M)
    5263. 

  5263.     (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6994 :INT32) N)
    5264. 

  5264.     (COMMON-LISP:SETF (CFFI:MEM-REF N1-REF6995 :INT32) N1)
    5265. 

  5265.     (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6997 :INT32) LDA)
    5266. 

  5266.     (COMMON-LISP:SETF (CFFI:MEM-REF MV-REF7000 :INT32) MV)
    5267. 

  5267.     (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF7002 :INT32) LDV)
    5268. 

  5268.     (COMMON-LISP:SETF (CFFI:MEM-REF EPS-REF7003 :DOUBLE) EPS)
    5269. 

  5269.     (COMMON-LISP:SETF (CFFI:MEM-REF SFMIN-REF7004 :DOUBLE) SFMIN)
    5270. 

  5270.     (COMMON-LISP:SETF (CFFI:MEM-REF TOL-REF7005 :DOUBLE) TOL)
    5271. 

  5271.     (COMMON-LISP:SETF (CFFI:MEM-REF NSWEEP-REF7006 :INT32) NSWEEP)
    5272. 

  5272.     (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF7008 :INT32) LWORK)
    5273. 

  5273.     (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF7009 :INT32) INFO)
    5274. 

  5274.     (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6996 A) (D-REF6998 D)
    5275. 

  5275.                                             (SVA-REF6999 SVA) (V-REF7001 V)
    5276. 

  5276.                                             (WORK-REF7007 WORK))
    5277. 

  5277.       (%%DGSVJ1 JOBV M-REF6993 N-REF6994 N1-REF6995 A-REF6996 LDA-REF6997
    5278. 

  5278.        D-REF6998 SVA-REF6999 MV-REF7000 V-REF7001 LDV-REF7002 EPS-REF7003
    5279. 

  5279.        SFMIN-REF7004 TOL-REF7005 NSWEEP-REF7006 WORK-REF7007 LWORK-REF7008
    5280. 

  5280.        INFO-REF7009))))
    5281. 

  5281. 

  5282. (CFFI:DEFCFUN ("dgtcon_" %%DGTCON :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    5283. 

  5283.     :VOID
    5284. 

  5284.   (NORM :STRING)
    5285. 

  5285.   (N :POINTER)
    5286. 

  5286.   (DL :POINTER)
    5287. 

  5287.   (D :POINTER)
    5288. 

  5288.   (DU :POINTER)
    5289. 

  5289.   (DU2 :POINTER)
    5290. 

  5290.   (IPIV :POINTER)
    5291. 

  5291.   (ANORM :POINTER)
    5292. 

  5292.   (RCOND :POINTER)
    5293. 

  5293.   (WORK :POINTER)
    5294. 

  5294.   (IWORK :POINTER)
    5295. 

  5295.   (INFO :POINTER))
    5296. 

  5296. 

  5297. (COMMON-LISP:DEFUN %DGTCON
    5298. 

  5298.                    (NORM N DL D DU DU2 IPIV ANORM RCOND WORK IWORK INFO)
    5299. 

  5299.   (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGTCON)
    5300. 

  5300.                        (COMMON-LISP:TYPE COMMON-LISP:STRING NORM)
    5301. 

  5301.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
    5302. 

  5302.                        (COMMON-LISP:TYPE
    5303. 

  5303.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) DL)
    5304. 

  5304.                        (COMMON-LISP:TYPE
    5305. 

  5305.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
    5306. 

  5306.                        (COMMON-LISP:TYPE
    5307. 

  5307.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) DU)
    5308. 

  5308.                        (COMMON-LISP:TYPE
    5309. 

  5309.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    5310. 

  5310.                         DU2)
    5311. 

  5311.                        (COMMON-LISP:TYPE
    5312. 

  5312.                         (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
    5313. 

  5313.                          (COMMON-LISP:*))
    5314. 

  5314.                         IPIV)
    5315. 

  5315.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ANORM)
    5316. 

  5316.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RCOND)
    5317. 

  5317.                        (COMMON-LISP:TYPE
    5318. 

  5318.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    5319. 

  5319.                         WORK)
    5320. 

  5320.                        (COMMON-LISP:TYPE
    5321. 

  5321.                         (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
    5322. 

  5322.                          (COMMON-LISP:*))
    5323. 

  5323.                         IWORK)
    5324. 

  5324.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
    5325. 

  5325.   (CFFI:WITH-FOREIGN-OBJECTS ((N-REF7011 ':INT32) (ANORM-REF7017 ':DOUBLE)
    5326. 

  5326.                               (RCOND-REF7018 ':DOUBLE) (INFO-REF7021 ':INT32))
    5327. 

  5327.     (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7011 :INT32) N)
    5328. 

  5328.     (COMMON-LISP:SETF (CFFI:MEM-REF ANORM-REF7017 :DOUBLE) ANORM)
    5329. 

  5329.     (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF7018 :DOUBLE) RCOND)
    5330. 

  5330.     (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF7021 :INT32) INFO)
    5331. 

  5331.     (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((DL-REF7012 DL) (D-REF7013 D)
    5332. 

  5332.                                             (DU-REF7014 DU) (DU2-REF7015 DU2)
    5333. 

  5333.                                             (IPIV-REF7016 IPIV)
    5334. 

  5334.                                             (WORK-REF7019 WORK)
    5335. 

  5335.                                             (IWORK-REF7020 IWORK))
    5336. 

  5336.       (%%DGTCON NORM N-REF7011 DL-REF7012 D-REF7013 DU-REF7014 DU2-REF7015
    5337. 

  5337.        IPIV-REF7016 ANORM-REF7017 RCOND-REF7018 WORK-REF7019 IWORK-REF7020
    5338. 

  5338.        INFO-REF7021))))
    5339. 

  5339. 

  5340. (CFFI:DEFCFUN ("dgtrfs_" %%DGTRFS :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    5341. 

  5341.     :VOID
    5342. 

  5342.   (TRANS :STRING)
    5343. 

  5343.   (N :POINTER)
    5344. 

  5344.   (NRHS :POINTER)
    5345. 

  5345.   (DL :POINTER)
    5346. 

  5346.   (D :POINTER)
    5347. 

  5347.   (DU :POINTER)
    5348. 

  5348.   (DLF :POINTER)
    5349. 

  5349.   (DF :POINTER)
    5350. 

  5350.   (DUF :POINTER)
    5351. 

  5351.   (DU2 :POINTER)
    5352. 

  5352.   (IPIV :POINTER)
    5353. 

  5353.   (B :POINTER)
    5354. 

  5354.   (LDB :POINTER)
    5355. 

  5355.   (X :POINTER)
    5356. 

  5356.   (LDX :POINTER)
    5357. 

  5357.   (FERR :POINTER)
    5358. 

  5358.   (BERR :POINTER)
    5359. 

  5359.   (WORK :POINTER)
    5360. 

  5360.   (IWORK :POINTER)
    5361. 

  5361.   (INFO :POINTER))
    5362. 

  5362. 

  5363. (COMMON-LISP:DEFUN %DGTRFS
    5364. 

  5364.                    (TRANS N NRHS DL D DU DLF DF DUF DU2 IPIV B LDB X LDX FERR
    5365. 

  5365.                     BERR WORK IWORK INFO)
    5366. 

  5366.   (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGTRFS)
    5367. 

  5367.                        (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
    5368. 

  5368.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
    5369. 

  5369.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
    5370. 

  5370.                        (COMMON-LISP:TYPE
    5371. 

  5371.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) DL)
    5372. 

  5372.                        (COMMON-LISP:TYPE
    5373. 

  5373.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
    5374. 

  5374.                        (COMMON-LISP:TYPE
    5375. 

  5375.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) DU)
    5376. 

  5376.                        (COMMON-LISP:TYPE
    5377. 

  5377.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    5378. 

  5378.                         DLF)
    5379. 

  5379.                        (COMMON-LISP:TYPE
    5380. 

  5380.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) DF)
    5381. 

  5381.                        (COMMON-LISP:TYPE
    5382. 

  5382.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    5383. 

  5383.                         DUF)
    5384. 

  5384.                        (COMMON-LISP:TYPE
    5385. 

  5385.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    5386. 

  5386.                         DU2)
    5387. 

  5387.                        (COMMON-LISP:TYPE
    5388. 

  5388.                         (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
    5389. 

  5389.                          (COMMON-LISP:*))
    5390. 

  5390.                         IPIV)
    5391. 

  5391.                        (COMMON-LISP:TYPE
    5392. 

  5392.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
    5393. 

  5393.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
    5394. 

  5394.                        (COMMON-LISP:TYPE
    5395. 

  5395.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) X)
    5396. 

  5396.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
    5397. 

  5397.                        (COMMON-LISP:TYPE
    5398. 

  5398.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    5399. 

  5399.                         FERR)
    5400. 

  5400.                        (COMMON-LISP:TYPE
    5401. 

  5401.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    5402. 

  5402.                         BERR)
    5403. 

  5403.                        (COMMON-LISP:TYPE
    5404. 

  5404.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    5405. 

  5405.                         WORK)
    5406. 

  5406.                        (COMMON-LISP:TYPE
    5407. 

  5407.                         (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
    5408. 

  5408.                          (COMMON-LISP:*))
    5409. 

  5409.                         IWORK)
    5410. 

  5410.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
    5411. 

  5411.   (CFFI:WITH-FOREIGN-OBJECTS ((N-REF7023 ':INT32) (NRHS-REF7024 ':INT32)
    5412. 

  5412.                               (LDB-REF7034 ':INT32) (LDX-REF7036 ':INT32)
    5413. 

  5413.                               (INFO-REF7041 ':INT32))
    5414. 

  5414.     (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7023 :INT32) N)
    5415. 

  5415.     (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF7024 :INT32) NRHS)
    5416. 

  5416.     (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF7034 :INT32) LDB)
    5417. 

  5417.     (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF7036 :INT32) LDX)
    5418. 

  5418.     (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF7041 :INT32) INFO)
    5419. 

  5419.     (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((DL-REF7025 DL) (D-REF7026 D)
    5420. 

  5420.                                             (DU-REF7027 DU) (DLF-REF7028 DLF)
    5421. 

  5421.                                             (DF-REF7029 DF) (DUF-REF7030 DUF)
    5422. 

  5422.                                             (DU2-REF7031 DU2)
    5423. 

  5423.                                             (IPIV-REF7032 IPIV) (B-REF7033 B)
    5424. 

  5424.                                             (X-REF7035 X) (FERR-REF7037 FERR)
    5425. 

  5425.                                             (BERR-REF7038 BERR)
    5426. 

  5426.                                             (WORK-REF7039 WORK)
    5427. 

  5427.                                             (IWORK-REF7040 IWORK))
    5428. 

  5428.       (%%DGTRFS TRANS N-REF7023 NRHS-REF7024 DL-REF7025 D-REF7026 DU-REF7027
    5429. 

  5429.        DLF-REF7028 DF-REF7029 DUF-REF7030 DU2-REF7031 IPIV-REF7032 B-REF7033
    5430. 

  5430.        LDB-REF7034 X-REF7035 LDX-REF7036 FERR-REF7037 BERR-REF7038 WORK-REF7039
    5431. 

  5431.        IWORK-REF7040 INFO-REF7041))))
    5432. 

  5432. 

  5433. (CFFI:DEFCFUN ("dgtsv_" %%DGTSV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    5434. 

  5434.     :VOID
    5435. 

  5435.   (N :POINTER)
    5436. 

  5436.   (NRHS :POINTER)
    5437. 

  5437.   (DL :POINTER)
    5438. 

  5438.   (D :POINTER)
    5439. 

  5439.   (DU :POINTER)
    5440. 

  5440.   (B :POINTER)
    5441. 

  5441.   (LDB :POINTER)
    5442. 

  5442.   (INFO :POINTER))
    5443. 

  5443. 

  5444. (COMMON-LISP:DEFUN %DGTSV (N NRHS DL D DU B LDB INFO)
    5445. 

  5445.   (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGTSV)
    5446. 

  5446.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
    5447. 

  5447.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
    5448. 

  5448.                        (COMMON-LISP:TYPE
    5449. 

  5449.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) DL)
    5450. 

  5450.                        (COMMON-LISP:TYPE
    5451. 

  5451.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
    5452. 

  5452.                        (COMMON-LISP:TYPE
    5453. 

  5453.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) DU)
    5454. 

  5454.                        (COMMON-LISP:TYPE
    5455. 

  5455.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
    5456. 

  5456.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
    5457. 

  5457.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
    5458. 

  5458.   (CFFI:WITH-FOREIGN-OBJECTS ((N-REF7042 ':INT32) (NRHS-REF7043 ':INT32)
    5459. 

  5459.                               (LDB-REF7048 ':INT32) (INFO-REF7049 ':INT32))
    5460. 

  5460.     (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7042 :INT32) N)
    5461. 

  5461.     (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF7043 :INT32) NRHS)
    5462. 

  5462.     (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF7048 :INT32) LDB)
    5463. 

  5463.     (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF7049 :INT32) INFO)
    5464. 

  5464.     (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((DL-REF7044 DL) (D-REF7045 D)
    5465. 

  5465.                                             (DU-REF7046 DU) (B-REF7047 B))
    5466. 

  5466.       (%%DGTSV N-REF7042 NRHS-REF7043 DL-REF7044 D-REF7045 DU-REF7046 B-REF7047
    5467. 

  5467.        LDB-REF7048 INFO-REF7049))))
    5468. 

  5468. 

  5469. (CFFI:DEFCFUN ("dgtsvx_" %%DGTSVX :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    5470. 

  5470.     :VOID
    5471. 

  5471.   (FACT :STRING)
    5472. 

  5472.   (TRANS :STRING)
    5473. 

  5473.   (N :POINTER)
    5474. 

  5474.   (NRHS :POINTER)
    5475. 

  5475.   (DL :POINTER)
    5476. 

  5476.   (D :POINTER)
    5477. 

  5477.   (DU :POINTER)
    5478. 

  5478.   (DLF :POINTER)
    5479. 

  5479.   (DF :POINTER)
    5480. 

  5480.   (DUF :POINTER)
    5481. 

  5481.   (DU2 :POINTER)
    5482. 

  5482.   (IPIV :POINTER)
    5483. 

  5483.   (B :POINTER)
    5484. 

  5484.   (LDB :POINTER)
    5485. 

  5485.   (X :POINTER)
    5486. 

  5486.   (LDX :POINTER)
    5487. 

  5487.   (RCOND :POINTER)
    5488. 

  5488.   (FERR :POINTER)
    5489. 

  5489.   (BERR :POINTER)
    5490. 

  5490.   (WORK :POINTER)
    5491. 

  5491.   (IWORK :POINTER)
    5492. 

  5492.   (INFO :POINTER))
    5493. 

  5493. 

  5494. (COMMON-LISP:DEFUN %DGTSVX
    5495. 

  5495.                    (FACT TRANS N NRHS DL D DU DLF DF DUF DU2 IPIV B LDB X LDX
    5496. 

  5496.                     RCOND FERR BERR WORK IWORK INFO)
    5497. 

  5497.   (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGTSVX)
    5498. 

  5498.                        (COMMON-LISP:TYPE COMMON-LISP:STRING FACT)
    5499. 

  5499.                        (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
    5500. 

  5500.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
    5501. 

  5501.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
    5502. 

  5502.                        (COMMON-LISP:TYPE
    5503. 

  5503.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) DL)
    5504. 

  5504.                        (COMMON-LISP:TYPE
    5505. 

  5505.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
    5506. 

  5506.                        (COMMON-LISP:TYPE
    5507. 

  5507.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) DU)
    5508. 

  5508.                        (COMMON-LISP:TYPE
    5509. 

  5509.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    5510. 

  5510.                         DLF)
    5511. 

  5511.                        (COMMON-LISP:TYPE
    5512. 

  5512.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) DF)
    5513. 

  5513.                        (COMMON-LISP:TYPE
    5514. 

  5514.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    5515. 

  5515.                         DUF)
    5516. 

  5516.                        (COMMON-LISP:TYPE
    5517. 

  5517.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    5518. 

  5518.                         DU2)
    5519. 

  5519.                        (COMMON-LISP:TYPE
    5520. 

  5520.                         (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
    5521. 

  5521.                          (COMMON-LISP:*))
    5522. 

  5522.                         IPIV)
    5523. 

  5523.                        (COMMON-LISP:TYPE
    5524. 

  5524.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
    5525. 

  5525.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
    5526. 

  5526.                        (COMMON-LISP:TYPE
    5527. 

  5527.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) X)
    5528. 

  5528.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
    5529. 

  5529.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RCOND)
    5530. 

  5530.                        (COMMON-LISP:TYPE
    5531. 

  5531.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    5532. 

  5532.                         FERR)
    5533. 

  5533.                        (COMMON-LISP:TYPE
    5534. 

  5534.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    5535. 

  5535.                         BERR)
    5536. 

  5536.                        (COMMON-LISP:TYPE
    5537. 

  5537.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    5538. 

  5538.                         WORK)
    5539. 

  5539.                        (COMMON-LISP:TYPE
    5540. 

  5540.                         (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
    5541. 

  5541.                          (COMMON-LISP:*))
    5542. 

  5542.                         IWORK)
    5543. 

  5543.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
    5544. 

  5544.   (CFFI:WITH-FOREIGN-OBJECTS ((N-REF7052 ':INT32) (NRHS-REF7053 ':INT32)
    5545. 

  5545.                               (LDB-REF7063 ':INT32) (LDX-REF7065 ':INT32)
    5546. 

  5546.                               (RCOND-REF7066 ':DOUBLE) (INFO-REF7071 ':INT32))
    5547. 

  5547.     (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7052 :INT32) N)
    5548. 

  5548.     (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF7053 :INT32) NRHS)
    5549. 

  5549.     (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF7063 :INT32) LDB)
    5550. 

  5550.     (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF7065 :INT32) LDX)
    5551. 

  5551.     (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF7066 :DOUBLE) RCOND)
    5552. 

  5552.     (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF7071 :INT32) INFO)
    5553. 

  5553.     (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((DL-REF7054 DL) (D-REF7055 D)
    5554. 

  5554.                                             (DU-REF7056 DU) (DLF-REF7057 DLF)
    5555. 

  5555.                                             (DF-REF7058 DF) (DUF-REF7059 DUF)
    5556. 

  5556.                                             (DU2-REF7060 DU2)
    5557. 

  5557.                                             (IPIV-REF7061 IPIV) (B-REF7062 B)
    5558. 

  5558.                                             (X-REF7064 X) (FERR-REF7067 FERR)
    5559. 

  5559.                                             (BERR-REF7068 BERR)
    5560. 

  5560.                                             (WORK-REF7069 WORK)
    5561. 

  5561.                                             (IWORK-REF7070 IWORK))
    5562. 

  5562.       (%%DGTSVX FACT TRANS N-REF7052 NRHS-REF7053 DL-REF7054 D-REF7055
    5563. 

  5563.        DU-REF7056 DLF-REF7057 DF-REF7058 DUF-REF7059 DU2-REF7060 IPIV-REF7061
    5564. 

  5564.        B-REF7062 LDB-REF7063 X-REF7064 LDX-REF7065 RCOND-REF7066 FERR-REF7067
    5565. 

  5565.        BERR-REF7068 WORK-REF7069 IWORK-REF7070 INFO-REF7071))))
    5566. 

  5566. 

  5567. (CFFI:DEFCFUN ("dgttrf_" %%DGTTRF :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    5568. 

  5568.     :VOID
    5569. 

  5569.   (N :POINTER)
    5570. 

  5570.   (DL :POINTER)
    5571. 

  5571.   (D :POINTER)
    5572. 

  5572.   (DU :POINTER)
    5573. 

  5573.   (DU2 :POINTER)
    5574. 

  5574.   (IPIV :POINTER)
    5575. 

  5575.   (INFO :POINTER))
    5576. 

  5576. 

  5577. (COMMON-LISP:DEFUN %DGTTRF (N DL D DU DU2 IPIV INFO)
    5578. 

  5578.   (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGTTRF)
    5579. 

  5579.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
    5580. 

  5580.                        (COMMON-LISP:TYPE
    5581. 

  5581.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) DL)
    5582. 

  5582.                        (COMMON-LISP:TYPE
    5583. 

  5583.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
    5584. 

  5584.                        (COMMON-LISP:TYPE
    5585. 

  5585.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) DU)
    5586. 

  5586.                        (COMMON-LISP:TYPE
    5587. 

  5587.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    5588. 

  5588.                         DU2)
    5589. 

  5589.                        (COMMON-LISP:TYPE
    5590. 

  5590.                         (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
    5591. 

  5591.                          (COMMON-LISP:*))
    5592. 

  5592.                         IPIV)
    5593. 

  5593.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
    5594. 

  5594.   (CFFI:WITH-FOREIGN-OBJECTS ((N-REF7072 ':INT32) (INFO-REF7078 ':INT32))
    5595. 

  5595.     (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7072 :INT32) N)
    5596. 

  5596.     (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF7078 :INT32) INFO)
    5597. 

  5597.     (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((DL-REF7073 DL) (D-REF7074 D)
    5598. 

  5598.                                             (DU-REF7075 DU) (DU2-REF7076 DU2)
    5599. 

  5599.                                             (IPIV-REF7077 IPIV))
    5600. 

  5600.       (%%DGTTRF N-REF7072 DL-REF7073 D-REF7074 DU-REF7075 DU2-REF7076
    5601. 

  5601.        IPIV-REF7077 INFO-REF7078))))
    5602. 

  5602. 

  5603. (CFFI:DEFCFUN ("dgttrs_" %%DGTTRS :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    5604. 

  5604.     :VOID
    5605. 

  5605.   (TRANS :STRING)
    5606. 

  5606.   (N :POINTER)
    5607. 

  5607.   (NRHS :POINTER)
    5608. 

  5608.   (DL :POINTER)
    5609. 

  5609.   (D :POINTER)
    5610. 

  5610.   (DU :POINTER)
    5611. 

  5611.   (DU2 :POINTER)
    5612. 

  5612.   (IPIV :POINTER)
    5613. 

  5613.   (B :POINTER)
    5614. 

  5614.   (LDB :POINTER)
    5615. 

  5615.   (INFO :POINTER))
    5616. 

  5616. 

  5617. (COMMON-LISP:DEFUN %DGTTRS (TRANS N NRHS DL D DU DU2 IPIV B LDB INFO)
    5618. 

  5618.   (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGTTRS)
    5619. 

  5619.                        (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
    5620. 

  5620.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
    5621. 

  5621.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
    5622. 

  5622.                        (COMMON-LISP:TYPE
    5623. 

  5623.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) DL)
    5624. 

  5624.                        (COMMON-LISP:TYPE
    5625. 

  5625.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
    5626. 

  5626.                        (COMMON-LISP:TYPE
    5627. 

  5627.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) DU)
    5628. 

  5628.                        (COMMON-LISP:TYPE
    5629. 

  5629.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    5630. 

  5630.                         DU2)
    5631. 

  5631.                        (COMMON-LISP:TYPE
    5632. 

  5632.                         (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
    5633. 

  5633.                          (COMMON-LISP:*))
    5634. 

  5634.                         IPIV)
    5635. 

  5635.                        (COMMON-LISP:TYPE
    5636. 

  5636.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
    5637. 

  5637.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
    5638. 

  5638.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
    5639. 

  5639.   (CFFI:WITH-FOREIGN-OBJECTS ((N-REF7080 ':INT32) (NRHS-REF7081 ':INT32)
    5640. 

  5640.                               (LDB-REF7088 ':INT32) (INFO-REF7089 ':INT32))
    5641. 

  5641.     (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7080 :INT32) N)
    5642. 

  5642.     (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF7081 :INT32) NRHS)
    5643. 

  5643.     (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF7088 :INT32) LDB)
    5644. 

  5644.     (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF7089 :INT32) INFO)
    5645. 

  5645.     (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((DL-REF7082 DL) (D-REF7083 D)
    5646. 

  5646.                                             (DU-REF7084 DU) (DU2-REF7085 DU2)
    5647. 

  5647.                                             (IPIV-REF7086 IPIV) (B-REF7087 B))
    5648. 

  5648.       (%%DGTTRS TRANS N-REF7080 NRHS-REF7081 DL-REF7082 D-REF7083 DU-REF7084
    5649. 

  5649.        DU2-REF7085 IPIV-REF7086 B-REF7087 LDB-REF7088 INFO-REF7089))))
    5650. 

  5650. 

  5651. (CFFI:DEFCFUN ("dgtts2_" %%DGTTS2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    5652. 

  5652.     :VOID
    5653. 

  5653.   (ITRANS :POINTER)
    5654. 

  5654.   (N :POINTER)
    5655. 

  5655.   (NRHS :POINTER)
    5656. 

  5656.   (DL :POINTER)
    5657. 

  5657.   (D :POINTER)
    5658. 

  5658.   (DU :POINTER)
    5659. 

  5659.   (DU2 :POINTER)
    5660. 

  5660.   (IPIV :POINTER)
    5661. 

  5661.   (B :POINTER)
    5662. 

  5662.   (LDB :POINTER))
    5663. 

  5663. 

  5664. (COMMON-LISP:DEFUN %DGTTS2 (ITRANS N NRHS DL D DU DU2 IPIV B LDB)
    5665. 

  5665.   (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGTTS2)
    5666. 

  5666.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ITRANS)
    5667. 

  5667.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
    5668. 

  5668.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
    5669. 

  5669.                        (COMMON-LISP:TYPE
    5670. 

  5670.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) DL)
    5671. 

  5671.                        (COMMON-LISP:TYPE
    5672. 

  5672.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
    5673. 

  5673.                        (COMMON-LISP:TYPE
    5674. 

  5674.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) DU)
    5675. 

  5675.                        (COMMON-LISP:TYPE
    5676. 

  5676.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    5677. 

  5677.                         DU2)
    5678. 

  5678.                        (COMMON-LISP:TYPE
    5679. 

  5679.                         (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
    5680. 

  5680.                          (COMMON-LISP:*))
    5681. 

  5681.                         IPIV)
    5682. 

  5682.                        (COMMON-LISP:TYPE
    5683. 

  5683.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
    5684. 

  5684.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB))
    5685. 

  5685.   (CFFI:WITH-FOREIGN-OBJECTS ((ITRANS-REF7090 ':INT32) (N-REF7091 ':INT32)
    5686. 

  5686.                               (NRHS-REF7092 ':INT32) (LDB-REF7099 ':INT32))
    5687. 

  5687.     (COMMON-LISP:SETF (CFFI:MEM-REF ITRANS-REF7090 :INT32) ITRANS)
    5688. 

  5688.     (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7091 :INT32) N)
    5689. 

  5689.     (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF7092 :INT32) NRHS)
    5690. 

  5690.     (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF7099 :INT32) LDB)
    5691. 

  5691.     (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((DL-REF7093 DL) (D-REF7094 D)
    5692. 

  5692.                                             (DU-REF7095 DU) (DU2-REF7096 DU2)
    5693. 

  5693.                                             (IPIV-REF7097 IPIV) (B-REF7098 B))
    5694. 

  5694.       (%%DGTTS2 ITRANS-REF7090 N-REF7091 NRHS-REF7092 DL-REF7093 D-REF7094
    5695. 

  5695.        DU-REF7095 DU2-REF7096 IPIV-REF7097 B-REF7098 LDB-REF7099))))
    5696. 

  5696. 

  5697. (CFFI:DEFCFUN ("dhgeqz_" %%DHGEQZ :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    5698. 

  5698.     :VOID
    5699. 

  5699.   (JOB :STRING)
    5700. 

  5700.   (COMPQ :STRING)
    5701. 

  5701.   (COMPZ :STRING)
    5702. 

  5702.   (N :POINTER)
    5703. 

  5703.   (ILO :POINTER)
    5704. 

  5704.   (IHI :POINTER)
    5705. 

  5705.   (H :POINTER)
    5706. 

  5706.   (LDH :POINTER)
    5707. 

  5707.   (T :POINTER)
    5708. 

  5708.   (LDT :POINTER)
    5709. 

  5709.   (ALPHAR :POINTER)
    5710. 

  5710.   (ALPHAI :POINTER)
    5711. 

  5711.   (BETA :POINTER)
    5712. 

  5712.   (Q :POINTER)
    5713. 

  5713.   (LDQ :POINTER)
    5714. 

  5714.   (Z :POINTER)
    5715. 

  5715.   (LDZ :POINTER)
    5716. 

  5716.   (WORK :POINTER)
    5717. 

  5717.   (LWORK :POINTER)
    5718. 

  5718.   (INFO :POINTER))
    5719. 

  5719. 

  5720. (COMMON-LISP:DEFUN %DHGEQZ
    5721. 

  5721.                    (JOB COMPQ COMPZ N ILO IHI H LDH T LDT ALPHAR ALPHAI BETA Q
    5722. 

  5722.                     LDQ Z LDZ WORK LWORK INFO)
    5723. 

  5723.   (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DHGEQZ)
    5724. 

  5724.                        (COMMON-LISP:TYPE COMMON-LISP:STRING JOB)
    5725. 

  5725.                        (COMMON-LISP:TYPE COMMON-LISP:STRING COMPQ)
    5726. 

  5726.                        (COMMON-LISP:TYPE COMMON-LISP:STRING COMPZ)
    5727. 

  5727.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
    5728. 

  5728.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILO)
    5729. 

  5729.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IHI)
    5730. 

  5730.                        (COMMON-LISP:TYPE
    5731. 

  5731.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) H)
    5732. 

  5732.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDH)
    5733. 

  5733.                        (COMMON-LISP:TYPE
    5734. 

  5734.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) T)
    5735. 

  5735.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
    5736. 

  5736.                        (COMMON-LISP:TYPE
    5737. 

  5737.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    5738. 

  5738.                         ALPHAR)
    5739. 

  5739.                        (COMMON-LISP:TYPE
    5740. 

  5740.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    5741. 

  5741.                         ALPHAI)
    5742. 

  5742.                        (COMMON-LISP:TYPE
    5743. 

  5743.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    5744. 

  5744.                         BETA)
    5745. 

  5745.                        (COMMON-LISP:TYPE
    5746. 

  5746.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Q)
    5747. 

  5747.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ)
    5748. 

  5748.                        (COMMON-LISP:TYPE
    5749. 

  5749.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Z)
    5750. 

  5750.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
    5751. 

  5751.                        (COMMON-LISP:TYPE
    5752. 

  5752.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    5753. 

  5753.                         WORK)
    5754. 

  5754.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
    5755. 

  5755.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
    5756. 

  5756.   (CFFI:WITH-FOREIGN-OBJECTS ((N-REF7103 ':INT32) (ILO-REF7104 ':INT32)
    5757. 

  5757.                               (IHI-REF7105 ':INT32) (LDH-REF7107 ':INT32)
    5758. 

  5758.                               (LDT-REF7109 ':INT32) (LDQ-REF7114 ':INT32)
    5759. 

  5759.                               (LDZ-REF7116 ':INT32) (LWORK-REF7118 ':INT32)
    5760. 

  5760.                               (INFO-REF7119 ':INT32))
    5761. 

  5761.     (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7103 :INT32) N)
    5762. 

  5762.     (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF7104 :INT32) ILO)
    5763. 

  5763.     (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF7105 :INT32) IHI)
    5764. 

  5764.     (COMMON-LISP:SETF (CFFI:MEM-REF LDH-REF7107 :INT32) LDH)
    5765. 

  5765.     (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF7109 :INT32) LDT)
    5766. 

  5766.     (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF7114 :INT32) LDQ)
    5767. 

  5767.     (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF7116 :INT32) LDZ)
    5768. 

  5768.     (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF7118 :INT32) LWORK)
    5769. 

  5769.     (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF7119 :INT32) INFO)
    5770. 

  5770.     (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((H-REF7106 H) (T-REF7108 T)
    5771. 

  5771.                                             (ALPHAR-REF7110 ALPHAR)
    5772. 

  5772.                                             (ALPHAI-REF7111 ALPHAI)
    5773. 

  5773.                                             (BETA-REF7112 BETA) (Q-REF7113 Q)
    5774. 

  5774.                                             (Z-REF7115 Z) (WORK-REF7117 WORK))
    5775. 

  5775.       (%%DHGEQZ JOB COMPQ COMPZ N-REF7103 ILO-REF7104 IHI-REF7105 H-REF7106
    5776. 

  5776.        LDH-REF7107 T-REF7108 LDT-REF7109 ALPHAR-REF7110 ALPHAI-REF7111
    5777. 

  5777.        BETA-REF7112 Q-REF7113 LDQ-REF7114 Z-REF7115 LDZ-REF7116 WORK-REF7117
    5778. 

  5778.        LWORK-REF7118 INFO-REF7119))))
    5779. 

  5779. 

  5780. (CFFI:DEFCFUN ("dhsein_" %%DHSEIN :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    5781. 

  5781.     :VOID
    5782. 

  5782.   (SIDE :STRING)
    5783. 

  5783.   (EIGSRC :STRING)
    5784. 

  5784.   (INITV :STRING)
    5785. 

  5785.   (SELECT :POINTER)
    5786. 

  5786.   (N :POINTER)
    5787. 

  5787.   (H :POINTER)
    5788. 

  5788.   (LDH :POINTER)
    5789. 

  5789.   (WR :POINTER)
    5790. 

  5790.   (WI :POINTER)
    5791. 

  5791.   (VL :POINTER)
    5792. 

  5792.   (LDVL :POINTER)
    5793. 

  5793.   (VR :POINTER)
    5794. 

  5794.   (LDVR :POINTER)
    5795. 

  5795.   (MM :POINTER)
    5796. 

  5796.   (M :POINTER)
    5797. 

  5797.   (WORK :POINTER)
    5798. 

  5798.   (IFAILL :POINTER)
    5799. 

  5799.   (IFAILR :POINTER)
    5800. 

  5800.   (INFO :POINTER))
    5801. 

  5801. 

  5802. (COMMON-LISP:DEFUN %DHSEIN
    5803. 

  5803.                    (SIDE EIGSRC INITV SELECT N H LDH WR WI VL LDVL VR LDVR MM M
    5804. 

  5804.                     WORK IFAILL IFAILR INFO)
    5805. 

  5805.   (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DHSEIN)
    5806. 

  5806.                        (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
    5807. 

  5807.                        (COMMON-LISP:TYPE COMMON-LISP:STRING EIGSRC)
    5808. 

  5808.                        (COMMON-LISP:TYPE COMMON-LISP:STRING INITV)
    5809. 

  5809.                        (COMMON-LISP:TYPE
    5810. 

  5810.                         (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
    5811. 

  5811.                          (COMMON-LISP:*))
    5812. 

  5812.                         SELECT)
    5813. 

  5813.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
    5814. 

  5814.                        (COMMON-LISP:TYPE
    5815. 

  5815.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) H)
    5816. 

  5816.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDH)
    5817. 

  5817.                        (COMMON-LISP:TYPE
    5818. 

  5818.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WR)
    5819. 

  5819.                        (COMMON-LISP:TYPE
    5820. 

  5820.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WI)
    5821. 

  5821.                        (COMMON-LISP:TYPE
    5822. 

  5822.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) VL)
    5823. 

  5823.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVL)
    5824. 

  5824.                        (COMMON-LISP:TYPE
    5825. 

  5825.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) VR)
    5826. 

  5826.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVR)
    5827. 

  5827.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) MM)
    5828. 

  5828.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
    5829. 

  5829.                        (COMMON-LISP:TYPE
    5830. 

  5830.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    5831. 

  5831.                         WORK)
    5832. 

  5832.                        (COMMON-LISP:TYPE
    5833. 

  5833.                         (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
    5834. 

  5834.                          (COMMON-LISP:*))
    5835. 

  5835.                         IFAILL)
    5836. 

  5836.                        (COMMON-LISP:TYPE
    5837. 

  5837.                         (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
    5838. 

  5838.                          (COMMON-LISP:*))
    5839. 

  5839.                         IFAILR)
    5840. 

  5840.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
    5841. 

  5841.   (CFFI:WITH-FOREIGN-OBJECTS ((N-REF7124 ':INT32) (LDH-REF7126 ':INT32)
    5842. 

  5842.                               (LDVL-REF7130 ':INT32) (LDVR-REF7132 ':INT32)
    5843. 

  5843.                               (MM-REF7133 ':INT32) (M-REF7134 ':INT32)
    5844. 

  5844.                               (INFO-REF7138 ':INT32))
    5845. 

  5845.     (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7124 :INT32) N)
    5846. 

  5846.     (COMMON-LISP:SETF (CFFI:MEM-REF LDH-REF7126 :INT32) LDH)
    5847. 

  5847.     (COMMON-LISP:SETF (CFFI:MEM-REF LDVL-REF7130 :INT32) LDVL)
    5848. 

  5848.     (COMMON-LISP:SETF (CFFI:MEM-REF LDVR-REF7132 :INT32) LDVR)
    5849. 

  5849.     (COMMON-LISP:SETF (CFFI:MEM-REF MM-REF7133 :INT32) MM)
    5850. 

  5850.     (COMMON-LISP:SETF (CFFI:MEM-REF M-REF7134 :INT32) M)
    5851. 

  5851.     (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF7138 :INT32) INFO)
    5852. 

  5852.     (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((SELECT-REF7123 SELECT)
    5853. 

  5853.                                             (H-REF7125 H) (WR-REF7127 WR)
    5854. 

  5854.                                             (WI-REF7128 WI) (VL-REF7129 VL)
    5855. 

  5855.                                             (VR-REF7131 VR) (WORK-REF7135 WORK)
    5856. 

  5856.                                             (IFAILL-REF7136 IFAILL)
    5857. 

  5857.                                             (IFAILR-REF7137 IFAILR))
    5858. 

  5858.       (%%DHSEIN SIDE EIGSRC INITV SELECT-REF7123 N-REF7124 H-REF7125
    5859. 

  5859.        LDH-REF7126 WR-REF7127 WI-REF7128 VL-REF7129 LDVL-REF7130 VR-REF7131
    5860. 

  5860.        LDVR-REF7132 MM-REF7133 M-REF7134 WORK-REF7135 IFAILL-REF7136
    5861. 

  5861.        IFAILR-REF7137 INFO-REF7138))))
    5862. 

  5862. 

  5863. (CFFI:DEFCFUN ("dhseqr_" %%DHSEQR :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    5864. 

  5864.     :VOID
    5865. 

  5865.   (JOB :STRING)
    5866. 

  5866.   (COMPZ :STRING)
    5867. 

  5867.   (N :POINTER)
    5868. 

  5868.   (ILO :POINTER)
    5869. 

  5869.   (IHI :POINTER)
    5870. 

  5870.   (H :POINTER)
    5871. 

  5871.   (LDH :POINTER)
    5872. 

  5872.   (WR :POINTER)
    5873. 

  5873.   (WI :POINTER)
    5874. 

  5874.   (Z :POINTER)
    5875. 

  5875.   (LDZ :POINTER)
    5876. 

  5876.   (WORK :POINTER)
    5877. 

  5877.   (LWORK :POINTER)
    5878. 

  5878.   (INFO :POINTER))
    5879. 

  5879. 

  5880. (COMMON-LISP:DEFUN %DHSEQR
    5881. 

  5881.                    (JOB COMPZ N ILO IHI H LDH WR WI Z LDZ WORK LWORK INFO)
    5882. 

  5882.   (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DHSEQR)
    5883. 

  5883.                        (COMMON-LISP:TYPE COMMON-LISP:STRING JOB)
    5884. 

  5884.                        (COMMON-LISP:TYPE COMMON-LISP:STRING COMPZ)
    5885. 

  5885.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
    5886. 

  5886.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILO)
    5887. 

  5887.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IHI)
    5888. 

  5888.                        (COMMON-LISP:TYPE
    5889. 

  5889.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) H)
    5890. 

  5890.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDH)
    5891. 

  5891.                        (COMMON-LISP:TYPE
    5892. 

  5892.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WR)
    5893. 

  5893.                        (COMMON-LISP:TYPE
    5894. 

  5894.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WI)
    5895. 

  5895.                        (COMMON-LISP:TYPE
    5896. 

  5896.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Z)
    5897. 

  5897.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
    5898. 

  5898.                        (COMMON-LISP:TYPE
    5899. 

  5899.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    5900. 

  5900.                         WORK)
    5901. 

  5901.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
    5902. 

  5902.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
    5903. 

  5903.   (CFFI:WITH-FOREIGN-OBJECTS ((N-REF7141 ':INT32) (ILO-REF7142 ':INT32)
    5904. 

  5904.                               (IHI-REF7143 ':INT32) (LDH-REF7145 ':INT32)
    5905. 

  5905.                               (LDZ-REF7149 ':INT32) (LWORK-REF7151 ':INT32)
    5906. 

  5906.                               (INFO-REF7152 ':INT32))
    5907. 

  5907.     (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7141 :INT32) N)
    5908. 

  5908.     (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF7142 :INT32) ILO)
    5909. 

  5909.     (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF7143 :INT32) IHI)
    5910. 

  5910.     (COMMON-LISP:SETF (CFFI:MEM-REF LDH-REF7145 :INT32) LDH)
    5911. 

  5911.     (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF7149 :INT32) LDZ)
    5912. 

  5912.     (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF7151 :INT32) LWORK)
    5913. 

  5913.     (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF7152 :INT32) INFO)
    5914. 

  5914.     (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((H-REF7144 H) (WR-REF7146 WR)
    5915. 

  5915.                                             (WI-REF7147 WI) (Z-REF7148 Z)
    5916. 

  5916.                                             (WORK-REF7150 WORK))
    5917. 

  5917.       (%%DHSEQR JOB COMPZ N-REF7141 ILO-REF7142 IHI-REF7143 H-REF7144
    5918. 

  5918.        LDH-REF7145 WR-REF7146 WI-REF7147 Z-REF7148 LDZ-REF7149 WORK-REF7150
    5919. 

  5919.        LWORK-REF7151 INFO-REF7152))))
    5920. 

  5920. 

  5921. (CFFI:DEFCFUN ("disnan_" %%DISNAN :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    5922. 

  5922.     :INT32
    5923. 

  5923.   (DIN :POINTER))
    5924. 

  5924. 

  5925. (COMMON-LISP:DEFUN %DISNAN (DIN)
    5926. 

  5926.   (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DISNAN)
    5927. 

  5927.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT DIN))
    5928. 

  5928.   (CFFI:WITH-FOREIGN-OBJECTS ((DIN-REF7153 ':DOUBLE))
    5929. 

  5929.     (COMMON-LISP:SETF (CFFI:MEM-REF DIN-REF7153 :DOUBLE) DIN)
    5930. 

  5930.     (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS COMMON-LISP:NIL
    5931. 

  5931.       (%%DISNAN DIN-REF7153))))
    5932. 

  5932. 

  5933. (CFFI:DEFCFUN ("dla_gbamv_" %%DLA_GBAMV :LIBRARY
    5934. 

  5934.                MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    5935. 

  5935.     :VOID
    5936. 

  5936.   (TRANS :POINTER)
    5937. 

  5937.   (M :POINTER)
    5938. 

  5938.   (N :POINTER)
    5939. 

  5939.   (KL :POINTER)
    5940. 

  5940.   (KU :POINTER)
    5941. 

  5941.   (ALPHA :POINTER)
    5942. 

  5942.   (AB :POINTER)
    5943. 

  5943.   (LDAB :POINTER)
    5944. 

  5944.   (X :POINTER)
    5945. 

  5945.   (INCX :POINTER)
    5946. 

  5946.   (BETA :POINTER)
    5947. 

  5947.   (Y :POINTER)
    5948. 

  5948.   (INCY :POINTER))
    5949. 

  5949. 

  5950. (COMMON-LISP:DEFUN %DLA_GBAMV
    5951. 

  5951.                    (TRANS M N KL KU ALPHA AB LDAB X INCX BETA Y INCY)
    5952. 

  5952.   (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLA_GBAMV)
    5953. 

  5953.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) TRANS)
    5954. 

  5954.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
    5955. 

  5955.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
    5956. 

  5956.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KL)
    5957. 

  5957.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KU)
    5958. 

  5958.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ALPHA)
    5959. 

  5959.                        (COMMON-LISP:TYPE
    5960. 

  5960.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AB)
    5961. 

  5961.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
    5962. 

  5962.                        (COMMON-LISP:TYPE
    5963. 

  5963.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) X)
    5964. 

  5964.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)
    5965. 

  5965.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT BETA)
    5966. 

  5966.                        (COMMON-LISP:TYPE
    5967. 

  5967.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Y)
    5968. 

  5968.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCY))
    5969. 

  5969.   (CFFI:WITH-FOREIGN-OBJECTS ((TRANS-REF7154 ':INT32) (M-REF7155 ':INT32)
    5970. 

  5970.                               (N-REF7156 ':INT32) (KL-REF7157 ':INT32)
    5971. 

  5971.                               (KU-REF7158 ':INT32) (ALPHA-REF7159 ':DOUBLE)
    5972. 

  5972.                               (LDAB-REF7161 ':INT32) (INCX-REF7163 ':INT32)
    5973. 

  5973.                               (BETA-REF7164 ':DOUBLE) (INCY-REF7166 ':INT32))
    5974. 

  5974.     (COMMON-LISP:SETF (CFFI:MEM-REF TRANS-REF7154 :INT32) TRANS)
    5975. 

  5975.     (COMMON-LISP:SETF (CFFI:MEM-REF M-REF7155 :INT32) M)
    5976. 

  5976.     (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7156 :INT32) N)
    5977. 

  5977.     (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF7157 :INT32) KL)
    5978. 

  5978.     (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF7158 :INT32) KU)
    5979. 

  5979.     (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF7159 :DOUBLE) ALPHA)
    5980. 

  5980.     (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF7161 :INT32) LDAB)
    5981. 

  5981.     (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF7163 :INT32) INCX)
    5982. 

  5982.     (COMMON-LISP:SETF (CFFI:MEM-REF BETA-REF7164 :DOUBLE) BETA)
    5983. 

  5983.     (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF7166 :INT32) INCY)
    5984. 

  5984.     (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF7160 AB) (X-REF7162 X)
    5985. 

  5985.                                             (Y-REF7165 Y))
    5986. 

  5986.       (%%DLA_GBAMV TRANS-REF7154 M-REF7155 N-REF7156 KL-REF7157 KU-REF7158
    5987. 

  5987.        ALPHA-REF7159 AB-REF7160 LDAB-REF7161 X-REF7162 INCX-REF7163
    5988. 

  5988.        BETA-REF7164 Y-REF7165 INCY-REF7166))))
    5989. 

  5989. 

  5990. (CFFI:DEFCFUN ("dla_gbrcond_" %%DLA_GBRCOND :LIBRARY
    5991. 

  5991.                MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    5992. 

  5992.     :DOUBLE
    5993. 

  5993.   (TRANS :STRING)
    5994. 

  5994.   (N :POINTER)
    5995. 

  5995.   (KL :POINTER)
    5996. 

  5996.   (KU :POINTER)
    5997. 

  5997.   (AB :POINTER)
    5998. 

  5998.   (LDAB :POINTER)
    5999. 

  5999.   (AFB :POINTER)
    6000. 

  6000.   (LDAFB :POINTER)
    6001. 

  6001.   (IPIV :POINTER)
    6002. 

  6002.   (CMODE :POINTER)
    6003. 

  6003.   (C :POINTER)
    6004. 

  6004.   (INFO :POINTER)
    6005. 

  6005.   (WORK :POINTER)
    6006. 

  6006.   (IWORK :POINTER))
    6007. 

  6007. 

  6008. (COMMON-LISP:DEFUN %DLA_GBRCOND
    6009. 

  6009.                    (TRANS N KL KU AB LDAB AFB LDAFB IPIV CMODE C INFO WORK
    6010. 

  6010.                     IWORK)
    6011. 

  6011.   (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLA_GBRCOND)
    6012. 

  6012.                        (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
    6013. 

  6013.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
    6014. 

  6014.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KL)
    6015. 

  6015.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KU)
    6016. 

  6016.                        (COMMON-LISP:TYPE
    6017. 

  6017.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AB)
    6018. 

  6018.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
    6019. 

  6019.                        (COMMON-LISP:TYPE
    6020. 

  6020.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    6021. 

  6021.                         AFB)
    6022. 

  6022.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAFB)
    6023. 

  6023.                        (COMMON-LISP:TYPE
    6024. 

  6024.                         (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
    6025. 

  6025.                          (COMMON-LISP:*))
    6026. 

  6026.                         IPIV)
    6027. 

  6027.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) CMODE)
    6028. 

  6028.                        (COMMON-LISP:TYPE
    6029. 

  6029.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
    6030. 

  6030.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)
    6031. 

  6031.                        (COMMON-LISP:TYPE
    6032. 

  6032.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    6033. 

  6033.                         WORK)
    6034. 

  6034.                        (COMMON-LISP:TYPE
    6035. 

  6035.                         (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
    6036. 

  6036.                          (COMMON-LISP:*))
    6037. 

  6037.                         IWORK))
    6038. 

  6038.   (CFFI:WITH-FOREIGN-OBJECTS ((N-REF7168 ':INT32) (KL-REF7169 ':INT32)
    6039. 

  6039.                               (KU-REF7170 ':INT32) (LDAB-REF7172 ':INT32)
    6040. 

  6040.                               (LDAFB-REF7174 ':INT32) (CMODE-REF7176 ':INT32)
    6041. 

  6041.                               (INFO-REF7178 ':INT32))
    6042. 

  6042.     (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7168 :INT32) N)
    6043. 

  6043.     (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF7169 :INT32) KL)
    6044. 

  6044.     (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF7170 :INT32) KU)
    6045. 

  6045.     (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF7172 :INT32) LDAB)
    6046. 

  6046.     (COMMON-LISP:SETF (CFFI:MEM-REF LDAFB-REF7174 :INT32) LDAFB)
    6047. 

  6047.     (COMMON-LISP:SETF (CFFI:MEM-REF CMODE-REF7176 :INT32) CMODE)
    6048. 

  6048.     (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF7178 :INT32) INFO)
    6049. 

  6049.     (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF7171 AB) (AFB-REF7173 AFB)
    6050. 

  6050.                                             (IPIV-REF7175 IPIV) (C-REF7177 C)
    6051. 

  6051.                                             (WORK-REF7179 WORK)
    6052. 

  6052.                                             (IWORK-REF7180 IWORK))
    6053. 

  6053.       (%%DLA_GBRCOND TRANS N-REF7168 KL-REF7169 KU-REF7170 AB-REF7171
    6054. 

  6054.        LDAB-REF7172 AFB-REF7173 LDAFB-REF7174 IPIV-REF7175 CMODE-REF7176
    6055. 

  6055.        C-REF7177 INFO-REF7178 WORK-REF7179 IWORK-REF7180))))
    6056. 

  6056. 

  6057. (CFFI:DEFCFUN ("dla_gbrfsx_extended_" %%DLA_GBRFSX_EXTENDED :LIBRARY
    6058. 

  6058.                MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    6059. 

  6059.     :VOID
    6060. 

  6060.   (PREC_TYPE :POINTER)
    6061. 

  6061.   (TRANS_TYPE :POINTER)
    6062. 

  6062.   (N :POINTER)
    6063. 

  6063.   (KL :POINTER)
    6064. 

  6064.   (KU :POINTER)
    6065. 

  6065.   (NRHS :POINTER)
    6066. 

  6066.   (AB :POINTER)
    6067. 

  6067.   (LDAB :POINTER)
    6068. 

  6068.   (AFB :POINTER)
    6069. 

  6069.   (LDAFB :POINTER)
    6070. 

  6070.   (IPIV :POINTER)
    6071. 

  6071.   (COLEQU :POINTER)
    6072. 

  6072.   (C :POINTER)
    6073. 

  6073.   (B :POINTER)
    6074. 

  6074.   (LDB :POINTER)
    6075. 

  6075.   (Y :POINTER)
    6076. 

  6076.   (LDY :POINTER)
    6077. 

  6077.   (BERR_OUT :POINTER)
    6078. 

  6078.   (N_NORMS :POINTER)
    6079. 

  6079.   (ERR_BNDS_NORM :POINTER)
    6080. 

  6080.   (ERR_BNDS_COMP :POINTER)
    6081. 

  6081.   (RES :POINTER)
    6082. 

  6082.   (AYB :POINTER)
    6083. 

  6083.   (DY :POINTER)
    6084. 

  6084.   (Y_TAIL :POINTER)
    6085. 

  6085.   (RCOND :POINTER)
    6086. 

  6086.   (ITHRESH :POINTER)
    6087. 

  6087.   (RTHRESH :POINTER)
    6088. 

  6088.   (DZ_UB :POINTER)
    6089. 

  6089.   (IGNORE_CWISE :POINTER)
    6090. 

  6090.   (INFO :POINTER))
    6091. 

  6091. 

  6092. (COMMON-LISP:DEFUN %DLA_GBRFSX_EXTENDED
    6093. 

  6093.                    (PREC_TYPE TRANS_TYPE N KL KU NRHS AB LDAB AFB LDAFB IPIV
    6094. 

  6094.                     COLEQU C B LDB Y LDY BERR_OUT N_NORMS ERR_BNDS_NORM
    6095. 

  6095.                     ERR_BNDS_COMP RES AYB DY Y_TAIL RCOND ITHRESH RTHRESH DZ_UB
    6096. 

  6096.                     IGNORE_CWISE INFO)
    6097. 

  6097.   (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLA_GBRFSX_EXTENDED)
    6098. 

  6098.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32)
    6099. 

  6099.                         PREC_TYPE)
    6100. 

  6100.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32)
    6101. 

  6101.                         TRANS_TYPE)
    6102. 

  6102.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
    6103. 

  6103.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KL)
    6104. 

  6104.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KU)
    6105. 

  6105.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
    6106. 

  6106.                        (COMMON-LISP:TYPE
    6107. 

  6107.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AB)
    6108. 

  6108.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
    6109. 

  6109.                        (COMMON-LISP:TYPE
    6110. 

  6110.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    6111. 

  6111.                         AFB)
    6112. 

  6112.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAFB)
    6113. 

  6113.                        (COMMON-LISP:TYPE
    6114. 

  6114.                         (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
    6115. 

  6115.                          (COMMON-LISP:*))
    6116. 

  6116.                         IPIV)
    6117. 

  6117.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) COLEQU)
    6118. 

  6118.                        (COMMON-LISP:TYPE
    6119. 

  6119.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
    6120. 

  6120.                        (COMMON-LISP:TYPE
    6121. 

  6121.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
    6122. 

  6122.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
    6123. 

  6123.                        (COMMON-LISP:TYPE
    6124. 

  6124.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Y)
    6125. 

  6125.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDY)
    6126. 

  6126.                        (COMMON-LISP:TYPE
    6127. 

  6127.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    6128. 

  6128.                         BERR_OUT)
    6129. 

  6129.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N_NORMS)
    6130. 

  6130.                        (COMMON-LISP:TYPE
    6131. 

  6131.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    6132. 

  6132.                         ERR_BNDS_NORM)
    6133. 

  6133.                        (COMMON-LISP:TYPE
    6134. 

  6134.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    6135. 

  6135.                         ERR_BNDS_COMP)
    6136. 

  6136.                        (COMMON-LISP:TYPE
    6137. 

  6137.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    6138. 

  6138.                         RES)
    6139. 

  6139.                        (COMMON-LISP:TYPE
    6140. 

  6140.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    6141. 

  6141.                         AYB)
    6142. 

  6142.                        (COMMON-LISP:TYPE
    6143. 

  6143.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) DY)
    6144. 

  6144.                        (COMMON-LISP:TYPE
    6145. 

  6145.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    6146. 

  6146.                         Y_TAIL)
    6147. 

  6147.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RCOND)
    6148. 

  6148.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ITHRESH)
    6149. 

  6149.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RTHRESH)
    6150. 

  6150.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT DZ_UB)
    6151. 

  6151.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32)
    6152. 

  6152.                         IGNORE_CWISE)
    6153. 

  6153.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
    6154. 

  6154.   (CFFI:WITH-FOREIGN-OBJECTS ((PREC_TYPE-REF7181 ':INT32)
    6155. 

  6155.                               (TRANS_TYPE-REF7182 ':INT32) (N-REF7183 ':INT32)
    6156. 

  6156.                               (KL-REF7184 ':INT32) (KU-REF7185 ':INT32)
    6157. 

  6157.                               (NRHS-REF7186 ':INT32) (LDAB-REF7188 ':INT32)
    6158. 

  6158.                               (LDAFB-REF7190 ':INT32) (COLEQU-REF7192 ':INT32)
    6159. 

  6159.                               (LDB-REF7195 ':INT32) (LDY-REF7197 ':INT32)
    6160. 

  6160.                               (N_NORMS-REF7199 ':INT32)
    6161. 

  6161.                               (RCOND-REF7206 ':DOUBLE)
    6162. 

  6162.                               (ITHRESH-REF7207 ':INT32)
    6163. 

  6163.                               (RTHRESH-REF7208 ':DOUBLE)
    6164. 

  6164.                               (DZ_UB-REF7209 ':DOUBLE)
    6165. 

  6165.                               (IGNORE_CWISE-REF7210 ':INT32)
    6166. 

  6166.                               (INFO-REF7211 ':INT32))
    6167. 

  6167.     (COMMON-LISP:SETF (CFFI:MEM-REF PREC_TYPE-REF7181 :INT32) PREC_TYPE)
    6168. 

  6168.     (COMMON-LISP:SETF (CFFI:MEM-REF TRANS_TYPE-REF7182 :INT32) TRANS_TYPE)
    6169. 

  6169.     (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7183 :INT32) N)
    6170. 

  6170.     (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF7184 :INT32) KL)
    6171. 

  6171.     (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF7185 :INT32) KU)
    6172. 

  6172.     (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF7186 :INT32) NRHS)
    6173. 

  6173.     (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF7188 :INT32) LDAB)
    6174. 

  6174.     (COMMON-LISP:SETF (CFFI:MEM-REF LDAFB-REF7190 :INT32) LDAFB)
    6175. 

  6175.     (COMMON-LISP:SETF (CFFI:MEM-REF COLEQU-REF7192 :INT32) COLEQU)
    6176. 

  6176.     (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF7195 :INT32) LDB)
    6177. 

  6177.     (COMMON-LISP:SETF (CFFI:MEM-REF LDY-REF7197 :INT32) LDY)
    6178. 

  6178.     (COMMON-LISP:SETF (CFFI:MEM-REF N_NORMS-REF7199 :INT32) N_NORMS)
    6179. 

  6179.     (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF7206 :DOUBLE) RCOND)
    6180. 

  6180.     (COMMON-LISP:SETF (CFFI:MEM-REF ITHRESH-REF7207 :INT32) ITHRESH)
    6181. 

  6181.     (COMMON-LISP:SETF (CFFI:MEM-REF RTHRESH-REF7208 :DOUBLE) RTHRESH)
    6182. 

  6182.     (COMMON-LISP:SETF (CFFI:MEM-REF DZ_UB-REF7209 :DOUBLE) DZ_UB)
    6183. 

  6183.     (COMMON-LISP:SETF (CFFI:MEM-REF IGNORE_CWISE-REF7210 :INT32) IGNORE_CWISE)
    6184. 

  6184.     (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF7211 :INT32) INFO)
    6185. 

  6185.     (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF7187 AB) (AFB-REF7189 AFB)
    6186. 

  6186.                                             (IPIV-REF7191 IPIV) (C-REF7193 C)
    6187. 

  6187.                                             (B-REF7194 B) (Y-REF7196 Y)
    6188. 

  6188.                                             (BERR_OUT-REF7198 BERR_OUT)
    6189. 

  6189.                                             (ERR_BNDS_NORM-REF7200
    6190. 

  6190.                                              ERR_BNDS_NORM)
    6191. 

  6191.                                             (ERR_BNDS_COMP-REF7201
    6192. 

  6192.                                              ERR_BNDS_COMP)
    6193. 

  6193.                                             (RES-REF7202 RES) (AYB-REF7203 AYB)
    6194. 

  6194.                                             (DY-REF7204 DY)
    6195. 

  6195.                                             (Y_TAIL-REF7205 Y_TAIL))
    6196. 

  6196.       (%%DLA_GBRFSX_EXTENDED PREC_TYPE-REF7181 TRANS_TYPE-REF7182 N-REF7183
    6197. 

  6197.        KL-REF7184 KU-REF7185 NRHS-REF7186 AB-REF7187 LDAB-REF7188 AFB-REF7189
    6198. 

  6198.        LDAFB-REF7190 IPIV-REF7191 COLEQU-REF7192 C-REF7193 B-REF7194
    6199. 

  6199.        LDB-REF7195 Y-REF7196 LDY-REF7197 BERR_OUT-REF7198 N_NORMS-REF7199
    6200. 

  6200.        ERR_BNDS_NORM-REF7200 ERR_BNDS_COMP-REF7201 RES-REF7202 AYB-REF7203
    6201. 

  6201.        DY-REF7204 Y_TAIL-REF7205 RCOND-REF7206 ITHRESH-REF7207 RTHRESH-REF7208
    6202. 

  6202.        DZ_UB-REF7209 IGNORE_CWISE-REF7210 INFO-REF7211))))
    6203. 

  6203. 

  6204. (CFFI:DEFCFUN ("dla_gbrpvgrw_" %%DLA_GBRPVGRW :LIBRARY
    6205. 

  6205.                MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    6206. 

  6206.     :DOUBLE
    6207. 

  6207.   (N :POINTER)
    6208. 

  6208.   (KL :POINTER)
    6209. 

  6209.   (KU :POINTER)
    6210. 

  6210.   (NCOLS :POINTER)
    6211. 

  6211.   (AB :POINTER)
    6212. 

  6212.   (LDAB :POINTER)
    6213. 

  6213.   (AFB :POINTER)
    6214. 

  6214.   (LDAFB :POINTER))
    6215. 

  6215. 

  6216. (COMMON-LISP:DEFUN %DLA_GBRPVGRW (N KL KU NCOLS AB LDAB AFB LDAFB)
    6217. 

  6217.   (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLA_GBRPVGRW)
    6218. 

  6218.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
    6219. 

  6219.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KL)
    6220. 

  6220.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KU)
    6221. 

  6221.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NCOLS)
    6222. 

  6222.                        (COMMON-LISP:TYPE
    6223. 

  6223.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AB)
    6224. 

  6224.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
    6225. 

  6225.                        (COMMON-LISP:TYPE
    6226. 

  6226.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    6227. 

  6227.                         AFB)
    6228. 

  6228.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAFB))
    6229. 

  6229.   (CFFI:WITH-FOREIGN-OBJECTS ((N-REF7212 ':INT32) (KL-REF7213 ':INT32)
    6230. 

  6230.                               (KU-REF7214 ':INT32) (NCOLS-REF7215 ':INT32)
    6231. 

  6231.                               (LDAB-REF7217 ':INT32) (LDAFB-REF7219 ':INT32))
    6232. 

  6232.     (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7212 :INT32) N)
    6233. 

  6233.     (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF7213 :INT32) KL)
    6234. 

  6234.     (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF7214 :INT32) KU)
    6235. 

  6235.     (COMMON-LISP:SETF (CFFI:MEM-REF NCOLS-REF7215 :INT32) NCOLS)
    6236. 

  6236.     (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF7217 :INT32) LDAB)
    6237. 

  6237.     (COMMON-LISP:SETF (CFFI:MEM-REF LDAFB-REF7219 :INT32) LDAFB)
    6238. 

  6238.     (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF7216 AB) (AFB-REF7218 AFB))
    6239. 

  6239.       (%%DLA_GBRPVGRW N-REF7212 KL-REF7213 KU-REF7214 NCOLS-REF7215 AB-REF7216
    6240. 

  6240.        LDAB-REF7217 AFB-REF7218 LDAFB-REF7219))))
    6241. 

  6241. 

  6242. (CFFI:DEFCFUN ("dla_geamv_" %%DLA_GEAMV :LIBRARY
    6243. 

  6243.                MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    6244. 

  6244.     :VOID
    6245. 

  6245.   (TRANS :POINTER)
    6246. 

  6246.   (M :POINTER)
    6247. 

  6247.   (N :POINTER)
    6248. 

  6248.   (ALPHA :POINTER)
    6249. 

  6249.   (A :POINTER)
    6250. 

  6250.   (LDA :POINTER)
    6251. 

  6251.   (X :POINTER)
    6252. 

  6252.   (INCX :POINTER)
    6253. 

  6253.   (BETA :POINTER)
    6254. 

  6254.   (Y :POINTER)
    6255. 

  6255.   (INCY :POINTER))
    6256. 

  6256. 

  6257. (COMMON-LISP:DEFUN %DLA_GEAMV (TRANS M N ALPHA A LDA X INCX BETA Y INCY)
    6258. 

  6258.   (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLA_GEAMV)
    6259. 

  6259.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) TRANS)
    6260. 

  6260.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
    6261. 

  6261.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
    6262. 

  6262.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ALPHA)
    6263. 

  6263.                        (COMMON-LISP:TYPE
    6264. 

  6264.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
    6265. 

  6265.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
    6266. 

  6266.                        (COMMON-LISP:TYPE
    6267. 

  6267.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) X)
    6268. 

  6268.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)
    6269. 

  6269.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT BETA)
    6270. 

  6270.                        (COMMON-LISP:TYPE
    6271. 

  6271.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Y)
    6272. 

  6272.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCY))
    6273. 

  6273.   (CFFI:WITH-FOREIGN-OBJECTS ((TRANS-REF7220 ':INT32) (M-REF7221 ':INT32)
    6274. 

  6274.                               (N-REF7222 ':INT32) (ALPHA-REF7223 ':DOUBLE)
    6275. 

  6275.                               (LDA-REF7225 ':INT32) (INCX-REF7227 ':INT32)
    6276. 

  6276.                               (BETA-REF7228 ':DOUBLE) (INCY-REF7230 ':INT32))
    6277. 

  6277.     (COMMON-LISP:SETF (CFFI:MEM-REF TRANS-REF7220 :INT32) TRANS)
    6278. 

  6278.     (COMMON-LISP:SETF (CFFI:MEM-REF M-REF7221 :INT32) M)
    6279. 

  6279.     (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7222 :INT32) N)
    6280. 

  6280.     (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF7223 :DOUBLE) ALPHA)
    6281. 

  6281.     (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF7225 :INT32) LDA)
    6282. 

  6282.     (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF7227 :INT32) INCX)
    6283. 

  6283.     (COMMON-LISP:SETF (CFFI:MEM-REF BETA-REF7228 :DOUBLE) BETA)
    6284. 

  6284.     (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF7230 :INT32) INCY)
    6285. 

  6285.     (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF7224 A) (X-REF7226 X)
    6286. 

  6286.                                             (Y-REF7229 Y))
    6287. 

  6287.       (%%DLA_GEAMV TRANS-REF7220 M-REF7221 N-REF7222 ALPHA-REF7223 A-REF7224
    6288. 

  6288.        LDA-REF7225 X-REF7226 INCX-REF7227 BETA-REF7228 Y-REF7229
    6289. 

  6289.        INCY-REF7230))))
    6290. 

  6290. 

  6291. (CFFI:DEFCFUN ("dla_gercond_" %%DLA_GERCOND :LIBRARY
    6292. 

  6292.                MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    6293. 

  6293.     :DOUBLE
    6294. 

  6294.   (TRANS :STRING)
    6295. 

  6295.   (N :POINTER)
    6296. 

  6296.   (A :POINTER)
    6297. 

  6297.   (LDA :POINTER)
    6298. 

  6298.   (AF :POINTER)
    6299. 

  6299.   (LDAF :POINTER)
    6300. 

  6300.   (IPIV :POINTER)
    6301. 

  6301.   (CMODE :POINTER)
    6302. 

  6302.   (C :POINTER)
    6303. 

  6303.   (INFO :POINTER)
    6304. 

  6304.   (WORK :POINTER)
    6305. 

  6305.   (IWORK :POINTER))
    6306. 

  6306. 

  6307. (COMMON-LISP:DEFUN %DLA_GERCOND
    6308. 

  6308.                    (TRANS N A LDA AF LDAF IPIV CMODE C INFO WORK IWORK)
    6309. 

  6309.   (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLA_GERCOND)
    6310. 

  6310.                        (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
    6311. 

  6311.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
    6312. 

  6312.                        (COMMON-LISP:TYPE
    6313. 

  6313.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
    6314. 

  6314.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
    6315. 

  6315.                        (COMMON-LISP:TYPE
    6316. 

  6316.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AF)
    6317. 

  6317.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
    6318. 

  6318.                        (COMMON-LISP:TYPE
    6319. 

  6319.                         (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
    6320. 

  6320.                          (COMMON-LISP:*))
    6321. 

  6321.                         IPIV)
    6322. 

  6322.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) CMODE)
    6323. 

  6323.                        (COMMON-LISP:TYPE
    6324. 

  6324.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
    6325. 

  6325.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)
    6326. 

  6326.                        (COMMON-LISP:TYPE
    6327. 

  6327.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    6328. 

  6328.                         WORK)
    6329. 

  6329.                        (COMMON-LISP:TYPE
    6330. 

  6330.                         (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
    6331. 

  6331.                          (COMMON-LISP:*))
    6332. 

  6332.                         IWORK))
    6333. 

  6333.   (CFFI:WITH-FOREIGN-OBJECTS ((N-REF7232 ':INT32) (LDA-REF7234 ':INT32)
    6334. 

  6334.                               (LDAF-REF7236 ':INT32) (CMODE-REF7238 ':INT32)
    6335. 

  6335.                               (INFO-REF7240 ':INT32))
    6336. 

  6336.     (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7232 :INT32) N)
    6337. 

  6337.     (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF7234 :INT32) LDA)
    6338. 

  6338.     (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF7236 :INT32) LDAF)
    6339. 

  6339.     (COMMON-LISP:SETF (CFFI:MEM-REF CMODE-REF7238 :INT32) CMODE)
    6340. 

  6340.     (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF7240 :INT32) INFO)
    6341. 

  6341.     (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF7233 A) (AF-REF7235 AF)
    6342. 

  6342.                                             (IPIV-REF7237 IPIV) (C-REF7239 C)
    6343. 

  6343.                                             (WORK-REF7241 WORK)
    6344. 

  6344.                                             (IWORK-REF7242 IWORK))
    6345. 

  6345.       (%%DLA_GERCOND TRANS N-REF7232 A-REF7233 LDA-REF7234 AF-REF7235
    6346. 

  6346.        LDAF-REF7236 IPIV-REF7237 CMODE-REF7238 C-REF7239 INFO-REF7240
    6347. 

  6347.        WORK-REF7241 IWORK-REF7242))))
    6348. 

  6348. 

  6349. (CFFI:DEFCFUN ("dla_gerfsx_extended_" %%DLA_GERFSX_EXTENDED :LIBRARY
    6350. 

  6350.                MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    6351. 

  6351.     :VOID
    6352. 

  6352.   (PREC_TYPE :POINTER)
    6353. 

  6353.   (TRANS_TYPE :POINTER)
    6354. 

  6354.   (N :POINTER)
    6355. 

  6355.   (NRHS :POINTER)
    6356. 

  6356.   (A :POINTER)
    6357. 

  6357.   (LDA :POINTER)
    6358. 

  6358.   (AF :POINTER)
    6359. 

  6359.   (LDAF :POINTER)
    6360. 

  6360.   (IPIV :POINTER)
    6361. 

  6361.   (COLEQU :POINTER)
    6362. 

  6362.   (C :POINTER)
    6363. 

  6363.   (B :POINTER)
    6364. 

  6364.   (LDB :POINTER)
    6365. 

  6365.   (Y :POINTER)
    6366. 

  6366.   (LDY :POINTER)
    6367. 

  6367.   (BERR_OUT :POINTER)
    6368. 

  6368.   (N_NORMS :POINTER)
    6369. 

  6369.   (ERRS_N :POINTER)
    6370. 

  6370.   (ERRS_C :POINTER)
    6371. 

  6371.   (RES :POINTER)
    6372. 

  6372.   (AYB :POINTER)
    6373. 

  6373.   (DY :POINTER)
    6374. 

  6374.   (Y_TAIL :POINTER)
    6375. 

  6375.   (RCOND :POINTER)
    6376. 

  6376.   (ITHRESH :POINTER)
    6377. 

  6377.   (RTHRESH :POINTER)
    6378. 

  6378.   (DZ_UB :POINTER)
    6379. 

  6379.   (IGNORE_CWISE :POINTER)
    6380. 

  6380.   (INFO :POINTER))
    6381. 

  6381. 

  6382. (COMMON-LISP:DEFUN %DLA_GERFSX_EXTENDED
    6383. 

  6383.                    (PREC_TYPE TRANS_TYPE N NRHS A LDA AF LDAF IPIV COLEQU C B
    6384. 

  6384.                     LDB Y LDY BERR_OUT N_NORMS ERRS_N ERRS_C RES AYB DY Y_TAIL
    6385. 

  6385.                     RCOND ITHRESH RTHRESH DZ_UB IGNORE_CWISE INFO)
    6386. 

  6386.   (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLA_GERFSX_EXTENDED)
    6387. 

  6387.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32)
    6388. 

  6388.                         PREC_TYPE)
    6389. 

  6389.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32)
    6390. 

  6390.                         TRANS_TYPE)
    6391. 

  6391.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
    6392. 

  6392.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
    6393. 

  6393.                        (COMMON-LISP:TYPE
    6394. 

  6394.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
    6395. 

  6395.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
    6396. 

  6396.                        (COMMON-LISP:TYPE
    6397. 

  6397.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AF)
    6398. 

  6398.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
    6399. 

  6399.                        (COMMON-LISP:TYPE
    6400. 

  6400.                         (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
    6401. 

  6401.                          (COMMON-LISP:*))
    6402. 

  6402.                         IPIV)
    6403. 

  6403.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) COLEQU)
    6404. 

  6404.                        (COMMON-LISP:TYPE
    6405. 

  6405.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
    6406. 

  6406.                        (COMMON-LISP:TYPE
    6407. 

  6407.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
    6408. 

  6408.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
    6409. 

  6409.                        (COMMON-LISP:TYPE
    6410. 

  6410.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Y)
    6411. 

  6411.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDY)
    6412. 

  6412.                        (COMMON-LISP:TYPE
    6413. 

  6413.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    6414. 

  6414.                         BERR_OUT)
    6415. 

  6415.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N_NORMS)
    6416. 

  6416.                        (COMMON-LISP:TYPE
    6417. 

  6417.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    6418. 

  6418.                         ERRS_N)
    6419. 

  6419.                        (COMMON-LISP:TYPE
    6420. 

  6420.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    6421. 

  6421.                         ERRS_C)
    6422. 

  6422.                        (COMMON-LISP:TYPE
    6423. 

  6423.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    6424. 

  6424.                         RES)
    6425. 

  6425.                        (COMMON-LISP:TYPE
    6426. 

  6426.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    6427. 

  6427.                         AYB)
    6428. 

  6428.                        (COMMON-LISP:TYPE
    6429. 

  6429.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) DY)
    6430. 

  6430.                        (COMMON-LISP:TYPE
    6431. 

  6431.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    6432. 

  6432.                         Y_TAIL)
    6433. 

  6433.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RCOND)
    6434. 

  6434.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ITHRESH)
    6435. 

  6435.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RTHRESH)
    6436. 

  6436.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT DZ_UB)
    6437. 

  6437.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32)
    6438. 

  6438.                         IGNORE_CWISE)
    6439. 

  6439.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
    6440. 

  6440.   (CFFI:WITH-FOREIGN-OBJECTS ((PREC_TYPE-REF7243 ':INT32)
    6441. 

  6441.                               (TRANS_TYPE-REF7244 ':INT32) (N-REF7245 ':INT32)
    6442. 

  6442.                               (NRHS-REF7246 ':INT32) (LDA-REF7248 ':INT32)
    6443. 

  6443.                               (LDAF-REF7250 ':INT32) (COLEQU-REF7252 ':INT32)
    6444. 

  6444.                               (LDB-REF7255 ':INT32) (LDY-REF7257 ':INT32)
    6445. 

  6445.                               (N_NORMS-REF7259 ':INT32)
    6446. 

  6446.                               (RCOND-REF7266 ':DOUBLE)
    6447. 

  6447.                               (ITHRESH-REF7267 ':INT32)
    6448. 

  6448.                               (RTHRESH-REF7268 ':DOUBLE)
    6449. 

  6449.                               (DZ_UB-REF7269 ':DOUBLE)
    6450. 

  6450.                               (IGNORE_CWISE-REF7270 ':INT32)
    6451. 

  6451.                               (INFO-REF7271 ':INT32))
    6452. 

  6452.     (COMMON-LISP:SETF (CFFI:MEM-REF PREC_TYPE-REF7243 :INT32) PREC_TYPE)
    6453. 

  6453.     (COMMON-LISP:SETF (CFFI:MEM-REF TRANS_TYPE-REF7244 :INT32) TRANS_TYPE)
    6454. 

  6454.     (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7245 :INT32) N)
    6455. 

  6455.     (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF7246 :INT32) NRHS)
    6456. 

  6456.     (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF7248 :INT32) LDA)
    6457. 

  6457.     (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF7250 :INT32) LDAF)
    6458. 

  6458.     (COMMON-LISP:SETF (CFFI:MEM-REF COLEQU-REF7252 :INT32) COLEQU)
    6459. 

  6459.     (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF7255 :INT32) LDB)
    6460. 

  6460.     (COMMON-LISP:SETF (CFFI:MEM-REF LDY-REF7257 :INT32) LDY)
    6461. 

  6461.     (COMMON-LISP:SETF (CFFI:MEM-REF N_NORMS-REF7259 :INT32) N_NORMS)
    6462. 

  6462.     (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF7266 :DOUBLE) RCOND)
    6463. 

  6463.     (COMMON-LISP:SETF (CFFI:MEM-REF ITHRESH-REF7267 :INT32) ITHRESH)
    6464. 

  6464.     (COMMON-LISP:SETF (CFFI:MEM-REF RTHRESH-REF7268 :DOUBLE) RTHRESH)
    6465. 

  6465.     (COMMON-LISP:SETF (CFFI:MEM-REF DZ_UB-REF7269 :DOUBLE) DZ_UB)
    6466. 

  6466.     (COMMON-LISP:SETF (CFFI:MEM-REF IGNORE_CWISE-REF7270 :INT32) IGNORE_CWISE)
    6467. 

  6467.     (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF7271 :INT32) INFO)
    6468. 

  6468.     (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF7247 A) (AF-REF7249 AF)
    6469. 

  6469.                                             (IPIV-REF7251 IPIV) (C-REF7253 C)
    6470. 

  6470.                                             (B-REF7254 B) (Y-REF7256 Y)
    6471. 

  6471.                                             (BERR_OUT-REF7258 BERR_OUT)
    6472. 

  6472.                                             (ERRS_N-REF7260 ERRS_N)
    6473. 

  6473.                                             (ERRS_C-REF7261 ERRS_C)
    6474. 

  6474.                                             (RES-REF7262 RES) (AYB-REF7263 AYB)
    6475. 

  6475.                                             (DY-REF7264 DY)
    6476. 

  6476.                                             (Y_TAIL-REF7265 Y_TAIL))
    6477. 

  6477.       (%%DLA_GERFSX_EXTENDED PREC_TYPE-REF7243 TRANS_TYPE-REF7244 N-REF7245
    6478. 

  6478.        NRHS-REF7246 A-REF7247 LDA-REF7248 AF-REF7249 LDAF-REF7250 IPIV-REF7251
    6479. 

  6479.        COLEQU-REF7252 C-REF7253 B-REF7254 LDB-REF7255 Y-REF7256 LDY-REF7257
    6480. 

  6480.        BERR_OUT-REF7258 N_NORMS-REF7259 ERRS_N-REF7260 ERRS_C-REF7261
    6481. 

  6481.        RES-REF7262 AYB-REF7263 DY-REF7264 Y_TAIL-REF7265 RCOND-REF7266
    6482. 

  6482.        ITHRESH-REF7267 RTHRESH-REF7268 DZ_UB-REF7269 IGNORE_CWISE-REF7270
    6483. 

  6483.        INFO-REF7271))))
    6484. 

  6484. 

  6485. (CFFI:DEFCFUN ("dla_gerpvgrw_" %%DLA_GERPVGRW :LIBRARY
    6486. 

  6486.                MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    6487. 

  6487.     :DOUBLE
    6488. 

  6488.   (N :POINTER)
    6489. 

  6489.   (NCOLS :POINTER)
    6490. 

  6490.   (A :POINTER)
    6491. 

  6491.   (LDA :POINTER)
    6492. 

  6492.   (AF :POINTER)
    6493. 

  6493.   (LDAF :POINTER))
    6494. 

  6494. 

  6495. (COMMON-LISP:DEFUN %DLA_GERPVGRW (N NCOLS A LDA AF LDAF)
    6496. 

  6496.   (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLA_GERPVGRW)
    6497. 

  6497.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
    6498. 

  6498.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NCOLS)
    6499. 

  6499.                        (COMMON-LISP:TYPE
    6500. 

  6500.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
    6501. 

  6501.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
    6502. 

  6502.                        (COMMON-LISP:TYPE
    6503. 

  6503.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AF)
    6504. 

  6504.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF))
    6505. 

  6505.   (CFFI:WITH-FOREIGN-OBJECTS ((N-REF7272 ':INT32) (NCOLS-REF7273 ':INT32)
    6506. 

  6506.                               (LDA-REF7275 ':INT32) (LDAF-REF7277 ':INT32))
    6507. 

  6507.     (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7272 :INT32) N)
    6508. 

  6508.     (COMMON-LISP:SETF (CFFI:MEM-REF NCOLS-REF7273 :INT32) NCOLS)
    6509. 

  6509.     (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF7275 :INT32) LDA)
    6510. 

  6510.     (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF7277 :INT32) LDAF)
    6511. 

  6511.     (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF7274 A) (AF-REF7276 AF))
    6512. 

  6512.       (%%DLA_GERPVGRW N-REF7272 NCOLS-REF7273 A-REF7274 LDA-REF7275 AF-REF7276
    6513. 

  6513.        LDAF-REF7277))))
    6514. 

  6514. 

  6515. (CFFI:DEFCFUN ("dla_lin_berr_" %%DLA_LIN_BERR :LIBRARY
    6516. 

  6516.                MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    6517. 

  6517.     :VOID
    6518. 

  6518.   (N :POINTER)
    6519. 

  6519.   (NZ :POINTER)
    6520. 

  6520.   (NRHS :POINTER)
    6521. 

  6521.   (RES :POINTER)
    6522. 

  6522.   (AYB :POINTER)
    6523. 

  6523.   (BERR :POINTER))
    6524. 

  6524. 

  6525. (COMMON-LISP:DEFUN %DLA_LIN_BERR (N NZ NRHS RES AYB BERR)
    6526. 

  6526.   (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLA_LIN_BERR)
    6527. 

  6527.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
    6528. 

  6528.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NZ)
    6529. 

  6529.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
    6530. 

  6530.                        (COMMON-LISP:TYPE
    6531. 

  6531.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    6532. 

  6532.                         RES)
    6533. 

  6533.                        (COMMON-LISP:TYPE
    6534. 

  6534.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    6535. 

  6535.                         AYB)
    6536. 

  6536.                        (COMMON-LISP:TYPE
    6537. 

  6537.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    6538. 

  6538.                         BERR))
    6539. 

  6539.   (CFFI:WITH-FOREIGN-OBJECTS ((N-REF7278 ':INT32) (NZ-REF7279 ':INT32)
    6540. 

  6540.                               (NRHS-REF7280 ':INT32))
    6541. 

  6541.     (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7278 :INT32) N)
    6542. 

  6542.     (COMMON-LISP:SETF (CFFI:MEM-REF NZ-REF7279 :INT32) NZ)
    6543. 

  6543.     (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF7280 :INT32) NRHS)
    6544. 

  6544.     (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((RES-REF7281 RES) (AYB-REF7282 AYB)
    6545. 

  6545.                                             (BERR-REF7283 BERR))
    6546. 

  6546.       (%%DLA_LIN_BERR N-REF7278 NZ-REF7279 NRHS-REF7280 RES-REF7281 AYB-REF7282
    6547. 

  6547.        BERR-REF7283))))
    6548. 

  6548. 

  6549. (CFFI:DEFCFUN ("dla_porcond_" %%DLA_PORCOND :LIBRARY
    6550. 

  6550.                MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    6551. 

  6551.     :DOUBLE
    6552. 

  6552.   (UPLO :STRING)
    6553. 

  6553.   (N :POINTER)
    6554. 

  6554.   (A :POINTER)
    6555. 

  6555.   (LDA :POINTER)
    6556. 

  6556.   (AF :POINTER)
    6557. 

  6557.   (LDAF :POINTER)
    6558. 

  6558.   (CMODE :POINTER)
    6559. 

  6559.   (C :POINTER)
    6560. 

  6560.   (INFO :POINTER)
    6561. 

  6561.   (WORK :POINTER)
    6562. 

  6562.   (IWORK :POINTER))
    6563. 

  6563. 

  6564. (COMMON-LISP:DEFUN %DLA_PORCOND (UPLO N A LDA AF LDAF CMODE C INFO WORK IWORK)
    6565. 

  6565.   (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLA_PORCOND)
    6566. 

  6566.                        (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
    6567. 

  6567.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
    6568. 

  6568.                        (COMMON-LISP:TYPE
    6569. 

  6569.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
    6570. 

  6570.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
    6571. 

  6571.                        (COMMON-LISP:TYPE
    6572. 

  6572.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AF)
    6573. 

  6573.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
    6574. 

  6574.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) CMODE)
    6575. 

  6575.                        (COMMON-LISP:TYPE
    6576. 

  6576.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
    6577. 

  6577.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)
    6578. 

  6578.                        (COMMON-LISP:TYPE
    6579. 

  6579.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    6580. 

  6580.                         WORK)
    6581. 

  6581.                        (COMMON-LISP:TYPE
    6582. 

  6582.                         (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
    6583. 

  6583.                          (COMMON-LISP:*))
    6584. 

  6584.                         IWORK))
    6585. 

  6585.   (CFFI:WITH-FOREIGN-OBJECTS ((N-REF7285 ':INT32) (LDA-REF7287 ':INT32)
    6586. 

  6586.                               (LDAF-REF7289 ':INT32) (CMODE-REF7290 ':INT32)
    6587. 

  6587.                               (INFO-REF7292 ':INT32))
    6588. 

  6588.     (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7285 :INT32) N)
    6589. 

  6589.     (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF7287 :INT32) LDA)
    6590. 

  6590.     (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF7289 :INT32) LDAF)
    6591. 

  6591.     (COMMON-LISP:SETF (CFFI:MEM-REF CMODE-REF7290 :INT32) CMODE)
    6592. 

  6592.     (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF7292 :INT32) INFO)
    6593. 

  6593.     (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF7286 A) (AF-REF7288 AF)
    6594. 

  6594.                                             (C-REF7291 C) (WORK-REF7293 WORK)
    6595. 

  6595.                                             (IWORK-REF7294 IWORK))
    6596. 

  6596.       (%%DLA_PORCOND UPLO N-REF7285 A-REF7286 LDA-REF7287 AF-REF7288
    6597. 

  6597.        LDAF-REF7289 CMODE-REF7290 C-REF7291 INFO-REF7292 WORK-REF7293
    6598. 

  6598.        IWORK-REF7294))))
    6599. 

  6599. 

  6600. (CFFI:DEFCFUN ("dla_porfsx_extended_" %%DLA_PORFSX_EXTENDED :LIBRARY
    6601. 

  6601.                MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    6602. 

  6602.     :VOID
    6603. 

  6603.   (PREC_TYPE :POINTER)
    6604. 

  6604.   (UPLO :STRING)
    6605. 

  6605.   (N :POINTER)
    6606. 

  6606.   (NRHS :POINTER)
    6607. 

  6607.   (A :POINTER)
    6608. 

  6608.   (LDA :POINTER)
    6609. 

  6609.   (AF :POINTER)
    6610. 

  6610.   (LDAF :POINTER)
    6611. 

  6611.   (COLEQU :POINTER)
    6612. 

  6612.   (C :POINTER)
    6613. 

  6613.   (B :POINTER)
    6614. 

  6614.   (LDB :POINTER)
    6615. 

  6615.   (Y :POINTER)
    6616. 

  6616.   (LDY :POINTER)
    6617. 

  6617.   (BERR_OUT :POINTER)
    6618. 

  6618.   (N_NORMS :POINTER)
    6619. 

  6619.   (ERR_BNDS_NORM :POINTER)
    6620. 

  6620.   (ERR_BNDS_COMP :POINTER)
    6621. 

  6621.   (RES :POINTER)
    6622. 

  6622.   (AYB :POINTER)
    6623. 

  6623.   (DY :POINTER)
    6624. 

  6624.   (Y_TAIL :POINTER)
    6625. 

  6625.   (RCOND :POINTER)
    6626. 

  6626.   (ITHRESH :POINTER)
    6627. 

  6627.   (RTHRESH :POINTER)
    6628. 

  6628.   (DZ_UB :POINTER)
    6629. 

  6629.   (IGNORE_CWISE :POINTER)
    6630. 

  6630.   (INFO :POINTER))
    6631. 

  6631. 

  6632. (COMMON-LISP:DEFUN %DLA_PORFSX_EXTENDED
    6633. 

  6633.                    (PREC_TYPE UPLO N NRHS A LDA AF LDAF COLEQU C B LDB Y LDY
    6634. 

  6634.                     BERR_OUT N_NORMS ERR_BNDS_NORM ERR_BNDS_COMP RES AYB DY
    6635. 

  6635.                     Y_TAIL RCOND ITHRESH RTHRESH DZ_UB IGNORE_CWISE INFO)
    6636. 

  6636.   (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLA_PORFSX_EXTENDED)
    6637. 

  6637.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32)
    6638. 

  6638.                         PREC_TYPE)
    6639. 

  6639.                        (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
    6640. 

  6640.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
    6641. 

  6641.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
    6642. 

  6642.                        (COMMON-LISP:TYPE
    6643. 

  6643.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
    6644. 

  6644.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
    6645. 

  6645.                        (COMMON-LISP:TYPE
    6646. 

  6646.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AF)
    6647. 

  6647.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
    6648. 

  6648.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) COLEQU)
    6649. 

  6649.                        (COMMON-LISP:TYPE
    6650. 

  6650.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
    6651. 

  6651.                        (COMMON-LISP:TYPE
    6652. 

  6652.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
    6653. 

  6653.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
    6654. 

  6654.                        (COMMON-LISP:TYPE
    6655. 

  6655.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Y)
    6656. 

  6656.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDY)
    6657. 

  6657.                        (COMMON-LISP:TYPE
    6658. 

  6658.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    6659. 

  6659.                         BERR_OUT)
    6660. 

  6660.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N_NORMS)
    6661. 

  6661.                        (COMMON-LISP:TYPE
    6662. 

  6662.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    6663. 

  6663.                         ERR_BNDS_NORM)
    6664. 

  6664.                        (COMMON-LISP:TYPE
    6665. 

  6665.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    6666. 

  6666.                         ERR_BNDS_COMP)
    6667. 

  6667.                        (COMMON-LISP:TYPE
    6668. 

  6668.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    6669. 

  6669.                         RES)
    6670. 

  6670.                        (COMMON-LISP:TYPE
    6671. 

  6671.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    6672. 

  6672.                         AYB)
    6673. 

  6673.                        (COMMON-LISP:TYPE
    6674. 

  6674.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) DY)
    6675. 

  6675.                        (COMMON-LISP:TYPE
    6676. 

  6676.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    6677. 

  6677.                         Y_TAIL)
    6678. 

  6678.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RCOND)
    6679. 

  6679.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ITHRESH)
    6680. 

  6680.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RTHRESH)
    6681. 

  6681.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT DZ_UB)
    6682. 

  6682.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32)
    6683. 

  6683.                         IGNORE_CWISE)
    6684. 

  6684.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
    6685. 

  6685.   (CFFI:WITH-FOREIGN-OBJECTS ((PREC_TYPE-REF7295 ':INT32) (N-REF7297 ':INT32)
    6686. 

  6686.                               (NRHS-REF7298 ':INT32) (LDA-REF7300 ':INT32)
    6687. 

  6687.                               (LDAF-REF7302 ':INT32) (COLEQU-REF7303 ':INT32)
    6688. 

  6688.                               (LDB-REF7306 ':INT32) (LDY-REF7308 ':INT32)
    6689. 

  6689.                               (N_NORMS-REF7310 ':INT32)
    6690. 

  6690.                               (RCOND-REF7317 ':DOUBLE)
    6691. 

  6691.                               (ITHRESH-REF7318 ':INT32)
    6692. 

  6692.                               (RTHRESH-REF7319 ':DOUBLE)
    6693. 

  6693.                               (DZ_UB-REF7320 ':DOUBLE)
    6694. 

  6694.                               (IGNORE_CWISE-REF7321 ':INT32)
    6695. 

  6695.                               (INFO-REF7322 ':INT32))
    6696. 

  6696.     (COMMON-LISP:SETF (CFFI:MEM-REF PREC_TYPE-REF7295 :INT32) PREC_TYPE)
    6697. 

  6697.     (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7297 :INT32) N)
    6698. 

  6698.     (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF7298 :INT32) NRHS)
    6699. 

  6699.     (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF7300 :INT32) LDA)
    6700. 

  6700.     (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF7302 :INT32) LDAF)
    6701. 

  6701.     (COMMON-LISP:SETF (CFFI:MEM-REF COLEQU-REF7303 :INT32) COLEQU)
    6702. 

  6702.     (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF7306 :INT32) LDB)
    6703. 

  6703.     (COMMON-LISP:SETF (CFFI:MEM-REF LDY-REF7308 :INT32) LDY)
    6704. 

  6704.     (COMMON-LISP:SETF (CFFI:MEM-REF N_NORMS-REF7310 :INT32) N_NORMS)
    6705. 

  6705.     (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF7317 :DOUBLE) RCOND)
    6706. 

  6706.     (COMMON-LISP:SETF (CFFI:MEM-REF ITHRESH-REF7318 :INT32) ITHRESH)
    6707. 

  6707.     (COMMON-LISP:SETF (CFFI:MEM-REF RTHRESH-REF7319 :DOUBLE) RTHRESH)
    6708. 

  6708.     (COMMON-LISP:SETF (CFFI:MEM-REF DZ_UB-REF7320 :DOUBLE) DZ_UB)
    6709. 

  6709.     (COMMON-LISP:SETF (CFFI:MEM-REF IGNORE_CWISE-REF7321 :INT32) IGNORE_CWISE)
    6710. 

  6710.     (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF7322 :INT32) INFO)
    6711. 

  6711.     (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF7299 A) (AF-REF7301 AF)
    6712. 

  6712.                                             (C-REF7304 C) (B-REF7305 B)
    6713. 

  6713.                                             (Y-REF7307 Y)
    6714. 

  6714.                                             (BERR_OUT-REF7309 BERR_OUT)
    6715. 

  6715.                                             (ERR_BNDS_NORM-REF7311
    6716. 

  6716.                                              ERR_BNDS_NORM)
    6717. 

  6717.                                             (ERR_BNDS_COMP-REF7312
    6718. 

  6718.                                              ERR_BNDS_COMP)
    6719. 

  6719.                                             (RES-REF7313 RES) (AYB-REF7314 AYB)
    6720. 

  6720.                                             (DY-REF7315 DY)
    6721. 

  6721.                                             (Y_TAIL-REF7316 Y_TAIL))
    6722. 

  6722.       (%%DLA_PORFSX_EXTENDED PREC_TYPE-REF7295 UPLO N-REF7297 NRHS-REF7298
    6723. 

  6723.        A-REF7299 LDA-REF7300 AF-REF7301 LDAF-REF7302 COLEQU-REF7303 C-REF7304
    6724. 

  6724.        B-REF7305 LDB-REF7306 Y-REF7307 LDY-REF7308 BERR_OUT-REF7309
    6725. 

  6725.        N_NORMS-REF7310 ERR_BNDS_NORM-REF7311 ERR_BNDS_COMP-REF7312 RES-REF7313
    6726. 

  6726.        AYB-REF7314 DY-REF7315 Y_TAIL-REF7316 RCOND-REF7317 ITHRESH-REF7318
    6727. 

  6727.        RTHRESH-REF7319 DZ_UB-REF7320 IGNORE_CWISE-REF7321 INFO-REF7322))))
    6728. 

  6728. 

  6729. (CFFI:DEFCFUN ("dla_porpvgrw_" %%DLA_PORPVGRW :LIBRARY
    6730. 

  6730.                MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    6731. 

  6731.     :DOUBLE
    6732. 

  6732.   (UPLO :STRING)
    6733. 

  6733.   (NCOLS :POINTER)
    6734. 

  6734.   (A :POINTER)
    6735. 

  6735.   (LDA :POINTER)
    6736. 

  6736.   (AF :POINTER)
    6737. 

  6737.   (LDAF :POINTER)
    6738. 

  6738.   (WORK :POINTER))
    6739. 

  6739. 

  6740. (COMMON-LISP:DEFUN %DLA_PORPVGRW (UPLO NCOLS A LDA AF LDAF WORK)
    6741. 

  6741.   (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLA_PORPVGRW)
    6742. 

  6742.                        (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
    6743. 

  6743.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NCOLS)
    6744. 

  6744.                        (COMMON-LISP:TYPE
    6745. 

  6745.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
    6746. 

  6746.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
    6747. 

  6747.                        (COMMON-LISP:TYPE
    6748. 

  6748.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AF)
    6749. 

  6749.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
    6750. 

  6750.                        (COMMON-LISP:TYPE
    6751. 

  6751.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    6752. 

  6752.                         WORK))
    6753. 

  6753.   (CFFI:WITH-FOREIGN-OBJECTS ((NCOLS-REF7324 ':INT32) (LDA-REF7326 ':INT32)
    6754. 

  6754.                               (LDAF-REF7328 ':INT32))
    6755. 

  6755.     (COMMON-LISP:SETF (CFFI:MEM-REF NCOLS-REF7324 :INT32) NCOLS)
    6756. 

  6756.     (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF7326 :INT32) LDA)
    6757. 

  6757.     (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF7328 :INT32) LDAF)
    6758. 

  6758.     (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF7325 A) (AF-REF7327 AF)
    6759. 

  6759.                                             (WORK-REF7329 WORK))
    6760. 

  6760.       (%%DLA_PORPVGRW UPLO NCOLS-REF7324 A-REF7325 LDA-REF7326 AF-REF7327
    6761. 

  6761.        LDAF-REF7328 WORK-REF7329))))
    6762. 

  6762. 

  6763. (CFFI:DEFCFUN ("dla_syamv_" %%DLA_SYAMV :LIBRARY
    6764. 

  6764.                MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    6765. 

  6765.     :VOID
    6766. 

  6766.   (UPLO :POINTER)
    6767. 

  6767.   (N :POINTER)
    6768. 

  6768.   (ALPHA :POINTER)
    6769. 

  6769.   (A :POINTER)
    6770. 

  6770.   (LDA :POINTER)
    6771. 

  6771.   (X :POINTER)
    6772. 

  6772.   (INCX :POINTER)
    6773. 

  6773.   (BETA :POINTER)
    6774. 

  6774.   (Y :POINTER)
    6775. 

  6775.   (INCY :POINTER))
    6776. 

  6776. 

  6777. (COMMON-LISP:DEFUN %DLA_SYAMV (UPLO N ALPHA A LDA X INCX BETA Y INCY)
    6778. 

  6778.   (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLA_SYAMV)
    6779. 

  6779.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) UPLO)
    6780. 

  6780.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
    6781. 

  6781.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ALPHA)
    6782. 

  6782.                        (COMMON-LISP:TYPE
    6783. 

  6783.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
    6784. 

  6784.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
    6785. 

  6785.                        (COMMON-LISP:TYPE
    6786. 

  6786.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) X)
    6787. 

  6787.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)
    6788. 

  6788.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT BETA)
    6789. 

  6789.                        (COMMON-LISP:TYPE
    6790. 

  6790.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Y)
    6791. 

  6791.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCY))
    6792. 

  6792.   (CFFI:WITH-FOREIGN-OBJECTS ((UPLO-REF7330 ':INT32) (N-REF7331 ':INT32)
    6793. 

  6793.                               (ALPHA-REF7332 ':DOUBLE) (LDA-REF7334 ':INT32)
    6794. 

  6794.                               (INCX-REF7336 ':INT32) (BETA-REF7337 ':DOUBLE)
    6795. 

  6795.                               (INCY-REF7339 ':INT32))
    6796. 

  6796.     (COMMON-LISP:SETF (CFFI:MEM-REF UPLO-REF7330 :INT32) UPLO)
    6797. 

  6797.     (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7331 :INT32) N)
    6798. 

  6798.     (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF7332 :DOUBLE) ALPHA)
    6799. 

  6799.     (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF7334 :INT32) LDA)
    6800. 

  6800.     (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF7336 :INT32) INCX)
    6801. 

  6801.     (COMMON-LISP:SETF (CFFI:MEM-REF BETA-REF7337 :DOUBLE) BETA)
    6802. 

  6802.     (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF7339 :INT32) INCY)
    6803. 

  6803.     (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF7333 A) (X-REF7335 X)
    6804. 

  6804.                                             (Y-REF7338 Y))
    6805. 

  6805.       (%%DLA_SYAMV UPLO-REF7330 N-REF7331 ALPHA-REF7332 A-REF7333 LDA-REF7334
    6806. 

  6806.        X-REF7335 INCX-REF7336 BETA-REF7337 Y-REF7338 INCY-REF7339))))
    6807. 

  6807. 

  6808. (CFFI:DEFCFUN ("dla_syrcond_" %%DLA_SYRCOND :LIBRARY
    6809. 

  6809.                MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    6810. 

  6810.     :DOUBLE
    6811. 

  6811.   (UPLO :STRING)
    6812. 

  6812.   (N :POINTER)
    6813. 

  6813.   (A :POINTER)
    6814. 

  6814.   (LDA :POINTER)
    6815. 

  6815.   (AF :POINTER)
    6816. 

  6816.   (LDAF :POINTER)
    6817. 

  6817.   (IPIV :POINTER)
    6818. 

  6818.   (CMODE :POINTER)
    6819. 

  6819.   (C :POINTER)
    6820. 

  6820.   (INFO :POINTER)
    6821. 

  6821.   (WORK :POINTER)
    6822. 

  6822.   (IWORK :POINTER))
    6823. 

  6823. 

  6824. (COMMON-LISP:DEFUN %DLA_SYRCOND
    6825. 

  6825.                    (UPLO N A LDA AF LDAF IPIV CMODE C INFO WORK IWORK)
    6826. 

  6826.   (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLA_SYRCOND)
    6827. 

  6827.                        (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
    6828. 

  6828.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
    6829. 

  6829.                        (COMMON-LISP:TYPE
    6830. 

  6830.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
    6831. 

  6831.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
    6832. 

  6832.                        (COMMON-LISP:TYPE
    6833. 

  6833.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AF)
    6834. 

  6834.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
    6835. 

  6835.                        (COMMON-LISP:TYPE
    6836. 

  6836.                         (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
    6837. 

  6837.                          (COMMON-LISP:*))
    6838. 

  6838.                         IPIV)
    6839. 

  6839.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) CMODE)
    6840. 

  6840.                        (COMMON-LISP:TYPE
    6841. 

  6841.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
    6842. 

  6842.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)
    6843. 

  6843.                        (COMMON-LISP:TYPE
    6844. 

  6844.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    6845. 

  6845.                         WORK)
    6846. 

  6846.                        (COMMON-LISP:TYPE
    6847. 

  6847.                         (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
    6848. 

  6848.                          (COMMON-LISP:*))
    6849. 

  6849.                         IWORK))
    6850. 

  6850.   (CFFI:WITH-FOREIGN-OBJECTS ((N-REF7341 ':INT32) (LDA-REF7343 ':INT32)
    6851. 

  6851.                               (LDAF-REF7345 ':INT32) (CMODE-REF7347 ':INT32)
    6852. 

  6852.                               (INFO-REF7349 ':INT32))
    6853. 

  6853.     (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7341 :INT32) N)
    6854. 

  6854.     (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF7343 :INT32) LDA)
    6855. 

  6855.     (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF7345 :INT32) LDAF)
    6856. 

  6856.     (COMMON-LISP:SETF (CFFI:MEM-REF CMODE-REF7347 :INT32) CMODE)
    6857. 

  6857.     (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF7349 :INT32) INFO)
    6858. 

  6858.     (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF7342 A) (AF-REF7344 AF)
    6859. 

  6859.                                             (IPIV-REF7346 IPIV) (C-REF7348 C)
    6860. 

  6860.                                             (WORK-REF7350 WORK)
    6861. 

  6861.                                             (IWORK-REF7351 IWORK))
    6862. 

  6862.       (%%DLA_SYRCOND UPLO N-REF7341 A-REF7342 LDA-REF7343 AF-REF7344
    6863. 

  6863.        LDAF-REF7345 IPIV-REF7346 CMODE-REF7347 C-REF7348 INFO-REF7349
    6864. 

  6864.        WORK-REF7350 IWORK-REF7351))))
    6865. 

  6865. 

  6866. (CFFI:DEFCFUN ("dla_syrfsx_extended_" %%DLA_SYRFSX_EXTENDED :LIBRARY
    6867. 

  6867.                MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    6868. 

  6868.     :VOID
    6869. 

  6869.   (PREC_TYPE :POINTER)
    6870. 

  6870.   (UPLO :STRING)
    6871. 

  6871.   (N :POINTER)
    6872. 

  6872.   (NRHS :POINTER)
    6873. 

  6873.   (A :POINTER)
    6874. 

  6874.   (LDA :POINTER)
    6875. 

  6875.   (AF :POINTER)
    6876. 

  6876.   (LDAF :POINTER)
    6877. 

  6877.   (IPIV :POINTER)
    6878. 

  6878.   (COLEQU :POINTER)
    6879. 

  6879.   (C :POINTER)
    6880. 

  6880.   (B :POINTER)
    6881. 

  6881.   (LDB :POINTER)
    6882. 

  6882.   (Y :POINTER)
    6883. 

  6883.   (LDY :POINTER)
    6884. 

  6884.   (BERR_OUT :POINTER)
    6885. 

  6885.   (N_NORMS :POINTER)
    6886. 

  6886.   (ERR_BNDS_NORM :POINTER)
    6887. 

  6887.   (ERR_BNDS_COMP :POINTER)
    6888. 

  6888.   (RES :POINTER)
    6889. 

  6889.   (AYB :POINTER)
    6890. 

  6890.   (DY :POINTER)
    6891. 

  6891.   (Y_TAIL :POINTER)
    6892. 

  6892.   (RCOND :POINTER)
    6893. 

  6893.   (ITHRESH :POINTER)
    6894. 

  6894.   (RTHRESH :POINTER)
    6895. 

  6895.   (DZ_UB :POINTER)
    6896. 

  6896.   (IGNORE_CWISE :POINTER)
    6897. 

  6897.   (INFO :POINTER))
    6898. 

  6898. 

  6899. (COMMON-LISP:DEFUN %DLA_SYRFSX_EXTENDED
    6900. 

  6900.                    (PREC_TYPE UPLO N NRHS A LDA AF LDAF IPIV COLEQU C B LDB Y
    6901. 

  6901.                     LDY BERR_OUT N_NORMS ERR_BNDS_NORM ERR_BNDS_COMP RES AYB DY
    6902. 

  6902.                     Y_TAIL RCOND ITHRESH RTHRESH DZ_UB IGNORE_CWISE INFO)
    6903. 

  6903.   (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLA_SYRFSX_EXTENDED)
    6904. 

  6904.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32)
    6905. 

  6905.                         PREC_TYPE)
    6906. 

  6906.                        (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
    6907. 

  6907.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
    6908. 

  6908.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
    6909. 

  6909.                        (COMMON-LISP:TYPE
    6910. 

  6910.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
    6911. 

  6911.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
    6912. 

  6912.                        (COMMON-LISP:TYPE
    6913. 

  6913.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AF)
    6914. 

  6914.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
    6915. 

  6915.                        (COMMON-LISP:TYPE
    6916. 

  6916.                         (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
    6917. 

  6917.                          (COMMON-LISP:*))
    6918. 

  6918.                         IPIV)
    6919. 

  6919.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) COLEQU)
    6920. 

  6920.                        (COMMON-LISP:TYPE
    6921. 

  6921.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
    6922. 

  6922.                        (COMMON-LISP:TYPE
    6923. 

  6923.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
    6924. 

  6924.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
    6925. 

  6925.                        (COMMON-LISP:TYPE
    6926. 

  6926.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Y)
    6927. 

  6927.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDY)
    6928. 

  6928.                        (COMMON-LISP:TYPE
    6929. 

  6929.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    6930. 

  6930.                         BERR_OUT)
    6931. 

  6931.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N_NORMS)
    6932. 

  6932.                        (COMMON-LISP:TYPE
    6933. 

  6933.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    6934. 

  6934.                         ERR_BNDS_NORM)
    6935. 

  6935.                        (COMMON-LISP:TYPE
    6936. 

  6936.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    6937. 

  6937.                         ERR_BNDS_COMP)
    6938. 

  6938.                        (COMMON-LISP:TYPE
    6939. 

  6939.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    6940. 

  6940.                         RES)
    6941. 

  6941.                        (COMMON-LISP:TYPE
    6942. 

  6942.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    6943. 

  6943.                         AYB)
    6944. 

  6944.                        (COMMON-LISP:TYPE
    6945. 

  6945.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) DY)
    6946. 

  6946.                        (COMMON-LISP:TYPE
    6947. 

  6947.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    6948. 

  6948.                         Y_TAIL)
    6949. 

  6949.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RCOND)
    6950. 

  6950.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ITHRESH)
    6951. 

  6951.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RTHRESH)
    6952. 

  6952.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT DZ_UB)
    6953. 

  6953.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32)
    6954. 

  6954.                         IGNORE_CWISE)
    6955. 

  6955.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
    6956. 

  6956.   (CFFI:WITH-FOREIGN-OBJECTS ((PREC_TYPE-REF7352 ':INT32) (N-REF7354 ':INT32)
    6957. 

  6957.                               (NRHS-REF7355 ':INT32) (LDA-REF7357 ':INT32)
    6958. 

  6958.                               (LDAF-REF7359 ':INT32) (COLEQU-REF7361 ':INT32)
    6959. 

  6959.                               (LDB-REF7364 ':INT32) (LDY-REF7366 ':INT32)
    6960. 

  6960.                               (N_NORMS-REF7368 ':INT32)
    6961. 

  6961.                               (RCOND-REF7375 ':DOUBLE)
    6962. 

  6962.                               (ITHRESH-REF7376 ':INT32)
    6963. 

  6963.                               (RTHRESH-REF7377 ':DOUBLE)
    6964. 

  6964.                               (DZ_UB-REF7378 ':DOUBLE)
    6965. 

  6965.                               (IGNORE_CWISE-REF7379 ':INT32)
    6966. 

  6966.                               (INFO-REF7380 ':INT32))
    6967. 

  6967.     (COMMON-LISP:SETF (CFFI:MEM-REF PREC_TYPE-REF7352 :INT32) PREC_TYPE)
    6968. 

  6968.     (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7354 :INT32) N)
    6969. 

  6969.     (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF7355 :INT32) NRHS)
    6970. 

  6970.     (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF7357 :INT32) LDA)
    6971. 

  6971.     (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF7359 :INT32) LDAF)
    6972. 

  6972.     (COMMON-LISP:SETF (CFFI:MEM-REF COLEQU-REF7361 :INT32) COLEQU)
    6973. 

  6973.     (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF7364 :INT32) LDB)
    6974. 

  6974.     (COMMON-LISP:SETF (CFFI:MEM-REF LDY-REF7366 :INT32) LDY)
    6975. 

  6975.     (COMMON-LISP:SETF (CFFI:MEM-REF N_NORMS-REF7368 :INT32) N_NORMS)
    6976. 

  6976.     (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF7375 :DOUBLE) RCOND)
    6977. 

  6977.     (COMMON-LISP:SETF (CFFI:MEM-REF ITHRESH-REF7376 :INT32) ITHRESH)
    6978. 

  6978.     (COMMON-LISP:SETF (CFFI:MEM-REF RTHRESH-REF7377 :DOUBLE) RTHRESH)
    6979. 

  6979.     (COMMON-LISP:SETF (CFFI:MEM-REF DZ_UB-REF7378 :DOUBLE) DZ_UB)
    6980. 

  6980.     (COMMON-LISP:SETF (CFFI:MEM-REF IGNORE_CWISE-REF7379 :INT32) IGNORE_CWISE)
    6981. 

  6981.     (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF7380 :INT32) INFO)
    6982. 

  6982.     (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF7356 A) (AF-REF7358 AF)
    6983. 

  6983.                                             (IPIV-REF7360 IPIV) (C-REF7362 C)
    6984. 

  6984.                                             (B-REF7363 B) (Y-REF7365 Y)
    6985. 

  6985.                                             (BERR_OUT-REF7367 BERR_OUT)
    6986. 

  6986.                                             (ERR_BNDS_NORM-REF7369
    6987. 

  6987.                                              ERR_BNDS_NORM)
    6988. 

  6988.                                             (ERR_BNDS_COMP-REF7370
    6989. 

  6989.                                              ERR_BNDS_COMP)
    6990. 

  6990.                                             (RES-REF7371 RES) (AYB-REF7372 AYB)
    6991. 

  6991.                                             (DY-REF7373 DY)
    6992. 

  6992.                                             (Y_TAIL-REF7374 Y_TAIL))
    6993. 

  6993.       (%%DLA_SYRFSX_EXTENDED PREC_TYPE-REF7352 UPLO N-REF7354 NRHS-REF7355
    6994. 

  6994.        A-REF7356 LDA-REF7357 AF-REF7358 LDAF-REF7359 IPIV-REF7360
    6995. 

  6995.        COLEQU-REF7361 C-REF7362 B-REF7363 LDB-REF7364 Y-REF7365 LDY-REF7366
    6996. 

  6996.        BERR_OUT-REF7367 N_NORMS-REF7368 ERR_BNDS_NORM-REF7369
    6997. 

  6997.        ERR_BNDS_COMP-REF7370 RES-REF7371 AYB-REF7372 DY-REF7373 Y_TAIL-REF7374
    6998. 

  6998.        RCOND-REF7375 ITHRESH-REF7376 RTHRESH-REF7377 DZ_UB-REF7378
    6999. 

  6999.        IGNORE_CWISE-REF7379 INFO-REF7380))))
    7000. 

  7000. 

  7001. (CFFI:DEFCFUN ("dla_syrpvgrw_" %%DLA_SYRPVGRW :LIBRARY
    7002. 

  7002.                MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    7003. 

  7003.     :DOUBLE
    7004. 

  7004.   (UPLO :STRING)
    7005. 

  7005.   (N :POINTER)
    7006. 

  7006.   (INFO :POINTER)
    7007. 

  7007.   (A :POINTER)
    7008. 

  7008.   (LDA :POINTER)
    7009. 

  7009.   (AF :POINTER)
    7010. 

  7010.   (LDAF :POINTER)
    7011. 

  7011.   (IPIV :POINTER)
    7012. 

  7012.   (WORK :POINTER))
    7013. 

  7013. 

  7014. (COMMON-LISP:DEFUN %DLA_SYRPVGRW (UPLO N INFO A LDA AF LDAF IPIV WORK)
    7015. 

  7015.   (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLA_SYRPVGRW)
    7016. 

  7016.                        (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
    7017. 

  7017.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
    7018. 

  7018.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)
    7019. 

  7019.                        (COMMON-LISP:TYPE
    7020. 

  7020.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
    7021. 

  7021.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
    7022. 

  7022.                        (COMMON-LISP:TYPE
    7023. 

  7023.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AF)
    7024. 

  7024.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
    7025. 

  7025.                        (COMMON-LISP:TYPE
    7026. 

  7026.                         (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
    7027. 

  7027.                          (COMMON-LISP:*))
    7028. 

  7028.                         IPIV)
    7029. 

  7029.                        (COMMON-LISP:TYPE
    7030. 

  7030.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    7031. 

  7031.                         WORK))
    7032. 

  7032.   (CFFI:WITH-FOREIGN-OBJECTS ((N-REF7382 ':INT32) (INFO-REF7383 ':INT32)
    7033. 

  7033.                               (LDA-REF7385 ':INT32) (LDAF-REF7387 ':INT32))
    7034. 

  7034.     (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7382 :INT32) N)
    7035. 

  7035.     (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF7383 :INT32) INFO)
    7036. 

  7036.     (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF7385 :INT32) LDA)
    7037. 

  7037.     (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF7387 :INT32) LDAF)
    7038. 

  7038.     (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF7384 A) (AF-REF7386 AF)
    7039. 

  7039.                                             (IPIV-REF7388 IPIV)
    7040. 

  7040.                                             (WORK-REF7389 WORK))
    7041. 

  7041.       (%%DLA_SYRPVGRW UPLO N-REF7382 INFO-REF7383 A-REF7384 LDA-REF7385
    7042. 

  7042.        AF-REF7386 LDAF-REF7387 IPIV-REF7388 WORK-REF7389))))
    7043. 

  7043. 

  7044. (CFFI:DEFCFUN ("dla_wwaddw_" %%DLA_WWADDW :LIBRARY
    7045. 

  7045.                MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    7046. 

  7046.     :VOID
    7047. 

  7047.   (N :POINTER)
    7048. 

  7048.   (X :POINTER)
    7049. 

  7049.   (Y :POINTER)
    7050. 

  7050.   (W :POINTER))
    7051. 

  7051. 

  7052. (COMMON-LISP:DEFUN %DLA_WWADDW (N X Y W)
    7053. 

  7053.   (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLA_WWADDW)
    7054. 

  7054.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
    7055. 

  7055.                        (COMMON-LISP:TYPE
    7056. 

  7056.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) X)
    7057. 

  7057.                        (COMMON-LISP:TYPE
    7058. 

  7058.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Y)
    7059. 

  7059.                        (COMMON-LISP:TYPE
    7060. 

  7060.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) W))
    7061. 

  7061.   (CFFI:WITH-FOREIGN-OBJECTS ((N-REF7390 ':INT32))
    7062. 

  7062.     (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7390 :INT32) N)
    7063. 

  7063.     (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF7391 X) (Y-REF7392 Y)
    7064. 

  7064.                                             (W-REF7393 W))
    7065. 

  7065.       (%%DLA_WWADDW N-REF7390 X-REF7391 Y-REF7392 W-REF7393))))
    7066. 

  7066. 

  7067. (CFFI:DEFCFUN ("dlabad_" %%DLABAD :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    7068. 

  7068.     :VOID
    7069. 

  7069.   (SMALL :POINTER)
    7070. 

  7070.   (LARGE :POINTER))
    7071. 

  7071. 

  7072. (COMMON-LISP:DEFUN %DLABAD (SMALL LARGE)
    7073. 

  7073.   (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLABAD)
    7074. 

  7074.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SMALL)
    7075. 

  7075.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT LARGE))
    7076. 

  7076.   (CFFI:WITH-FOREIGN-OBJECTS ((SMALL-REF7394 ':DOUBLE) (LARGE-REF7395 ':DOUBLE))
    7077. 

  7077.     (COMMON-LISP:SETF (CFFI:MEM-REF SMALL-REF7394 :DOUBLE) SMALL)
    7078. 

  7078.     (COMMON-LISP:SETF (CFFI:MEM-REF LARGE-REF7395 :DOUBLE) LARGE)
    7079. 

  7079.     (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS COMMON-LISP:NIL
    7080. 

  7080.       (%%DLABAD SMALL-REF7394 LARGE-REF7395))))
    7081. 

  7081. 

  7082. (CFFI:DEFCFUN ("dlabrd_" %%DLABRD :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    7083. 

  7083.     :VOID
    7084. 

  7084.   (M :POINTER)
    7085. 

  7085.   (N :POINTER)
    7086. 

  7086.   (NB :POINTER)
    7087. 

  7087.   (A :POINTER)
    7088. 

  7088.   (LDA :POINTER)
    7089. 

  7089.   (D :POINTER)
    7090. 

  7090.   (E :POINTER)
    7091. 

  7091.   (TAUQ :POINTER)
    7092. 

  7092.   (TAUP :POINTER)
    7093. 

  7093.   (X :POINTER)
    7094. 

  7094.   (LDX :POINTER)
    7095. 

  7095.   (Y :POINTER)
    7096. 

  7096.   (LDY :POINTER))
    7097. 

  7097. 

  7098. (COMMON-LISP:DEFUN %DLABRD (M N NB A LDA D E TAUQ TAUP X LDX Y LDY)
    7099. 

  7099.   (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLABRD)
    7100. 

  7100.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
    7101. 

  7101.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
    7102. 

  7102.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NB)
    7103. 

  7103.                        (COMMON-LISP:TYPE
    7104. 

  7104.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
    7105. 

  7105.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
    7106. 

  7106.                        (COMMON-LISP:TYPE
    7107. 

  7107.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
    7108. 

  7108.                        (COMMON-LISP:TYPE
    7109. 

  7109.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) E)
    7110. 

  7110.                        (COMMON-LISP:TYPE
    7111. 

  7111.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    7112. 

  7112.                         TAUQ)
    7113. 

  7113.                        (COMMON-LISP:TYPE
    7114. 

  7114.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    7115. 

  7115.                         TAUP)
    7116. 

  7116.                        (COMMON-LISP:TYPE
    7117. 

  7117.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) X)
    7118. 

  7118.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
    7119. 

  7119.                        (COMMON-LISP:TYPE
    7120. 

  7120.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Y)
    7121. 

  7121.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDY))
    7122. 

  7122.   (CFFI:WITH-FOREIGN-OBJECTS ((M-REF7396 ':INT32) (N-REF7397 ':INT32)
    7123. 

  7123.                               (NB-REF7398 ':INT32) (LDA-REF7400 ':INT32)
    7124. 

  7124.                               (LDX-REF7406 ':INT32) (LDY-REF7408 ':INT32))
    7125. 

  7125.     (COMMON-LISP:SETF (CFFI:MEM-REF M-REF7396 :INT32) M)
    7126. 

  7126.     (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7397 :INT32) N)
    7127. 

  7127.     (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF7398 :INT32) NB)
    7128. 

  7128.     (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF7400 :INT32) LDA)
    7129. 

  7129.     (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF7406 :INT32) LDX)
    7130. 

  7130.     (COMMON-LISP:SETF (CFFI:MEM-REF LDY-REF7408 :INT32) LDY)
    7131. 

  7131.     (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF7399 A) (D-REF7401 D)
    7132. 

  7132.                                             (E-REF7402 E) (TAUQ-REF7403 TAUQ)
    7133. 

  7133.                                             (TAUP-REF7404 TAUP) (X-REF7405 X)
    7134. 

  7134.                                             (Y-REF7407 Y))
    7135. 

  7135.       (%%DLABRD M-REF7396 N-REF7397 NB-REF7398 A-REF7399 LDA-REF7400 D-REF7401
    7136. 

  7136.        E-REF7402 TAUQ-REF7403 TAUP-REF7404 X-REF7405 LDX-REF7406 Y-REF7407
    7137. 

  7137.        LDY-REF7408))))
    7138. 

  7138. 

  7139. (CFFI:DEFCFUN ("dlacn2_" %%DLACN2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    7140. 

  7140.     :VOID
    7141. 

  7141.   (N :POINTER)
    7142. 

  7142.   (V :POINTER)
    7143. 

  7143.   (X :POINTER)
    7144. 

  7144.   (ISGN :POINTER)
    7145. 

  7145.   (EST :POINTER)
    7146. 

  7146.   (KASE :POINTER)
    7147. 

  7147.   (ISAVE :POINTER))
    7148. 

  7148. 

  7149. (COMMON-LISP:DEFUN %DLACN2 (N V X ISGN EST KASE ISAVE)
    7150. 

  7150.   (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLACN2)
    7151. 

  7151.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
    7152. 

  7152.                        (COMMON-LISP:TYPE
    7153. 

  7153.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) V)
    7154. 

  7154.                        (COMMON-LISP:TYPE
    7155. 

  7155.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) X)
    7156. 

  7156.                        (COMMON-LISP:TYPE
    7157. 

  7157.                         (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
    7158. 

  7158.                          (COMMON-LISP:*))
    7159. 

  7159.                         ISGN)
    7160. 

  7160.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT EST)
    7161. 

  7161.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KASE)
    7162. 

  7162.                        (COMMON-LISP:TYPE
    7163. 

  7163.                         (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
    7164. 

  7164.                          (COMMON-LISP:*))
    7165. 

  7165.                         ISAVE))
    7166. 

  7166.   (CFFI:WITH-FOREIGN-OBJECTS ((N-REF7409 ':INT32) (EST-REF7413 ':DOUBLE)
    7167. 

  7167.                               (KASE-REF7414 ':INT32))
    7168. 

  7168.     (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7409 :INT32) N)
    7169. 

  7169.     (COMMON-LISP:SETF (CFFI:MEM-REF EST-REF7413 :DOUBLE) EST)
    7170. 

  7170.     (COMMON-LISP:SETF (CFFI:MEM-REF KASE-REF7414 :INT32) KASE)
    7171. 

  7171.     (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V-REF7410 V) (X-REF7411 X)
    7172. 

  7172.                                             (ISGN-REF7412 ISGN)
    7173. 

  7173.                                             (ISAVE-REF7415 ISAVE))
    7174. 

  7174.       (%%DLACN2 N-REF7409 V-REF7410 X-REF7411 ISGN-REF7412 EST-REF7413
    7175. 

  7175.        KASE-REF7414 ISAVE-REF7415))))
    7176. 

  7176. 

  7177. (CFFI:DEFCFUN ("dlacon_" %%DLACON :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    7178. 

  7178.     :VOID
    7179. 

  7179.   (N :POINTER)
    7180. 

  7180.   (V :POINTER)
    7181. 

  7181.   (X :POINTER)
    7182. 

  7182.   (ISGN :POINTER)
    7183. 

  7183.   (EST :POINTER)
    7184. 

  7184.   (KASE :POINTER))
    7185. 

  7185. 

  7186. (COMMON-LISP:DEFUN %DLACON (N V X ISGN EST KASE)
    7187. 

  7187.   (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLACON)
    7188. 

  7188.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
    7189. 

  7189.                        (COMMON-LISP:TYPE
    7190. 

  7190.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) V)
    7191. 

  7191.                        (COMMON-LISP:TYPE
    7192. 

  7192.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) X)
    7193. 

  7193.                        (COMMON-LISP:TYPE
    7194. 

  7194.                         (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
    7195. 

  7195.                          (COMMON-LISP:*))
    7196. 

  7196.                         ISGN)
    7197. 

  7197.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT EST)
    7198. 

  7198.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KASE))
    7199. 

  7199.   (CFFI:WITH-FOREIGN-OBJECTS ((N-REF7416 ':INT32) (EST-REF7420 ':DOUBLE)
    7200. 

  7200.                               (KASE-REF7421 ':INT32))
    7201. 

  7201.     (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7416 :INT32) N)
    7202. 

  7202.     (COMMON-LISP:SETF (CFFI:MEM-REF EST-REF7420 :DOUBLE) EST)
    7203. 

  7203.     (COMMON-LISP:SETF (CFFI:MEM-REF KASE-REF7421 :INT32) KASE)
    7204. 

  7204.     (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V-REF7417 V) (X-REF7418 X)
    7205. 

  7205.                                             (ISGN-REF7419 ISGN))
    7206. 

  7206.       (%%DLACON N-REF7416 V-REF7417 X-REF7418 ISGN-REF7419 EST-REF7420
    7207. 

  7207.        KASE-REF7421))))
    7208. 

  7208. 

  7209. (CFFI:DEFCFUN ("dlacpy_" %%DLACPY :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    7210. 

  7210.     :VOID
    7211. 

  7211.   (UPLO :STRING)
    7212. 

  7212.   (M :POINTER)
    7213. 

  7213.   (N :POINTER)
    7214. 

  7214.   (A :POINTER)
    7215. 

  7215.   (LDA :POINTER)
    7216. 

  7216.   (B :POINTER)
    7217. 

  7217.   (LDB :POINTER))
    7218. 

  7218. 

  7219. (COMMON-LISP:DEFUN %DLACPY (UPLO M N A LDA B LDB)
    7220. 

  7220.   (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLACPY)
    7221. 

  7221.                        (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
    7222. 

  7222.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
    7223. 

  7223.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
    7224. 

  7224.                        (COMMON-LISP:TYPE
    7225. 

  7225.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
    7226. 

  7226.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
    7227. 

  7227.                        (COMMON-LISP:TYPE
    7228. 

  7228.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
    7229. 

  7229.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB))
    7230. 

  7230.   (CFFI:WITH-FOREIGN-OBJECTS ((M-REF7423 ':INT32) (N-REF7424 ':INT32)
    7231. 

  7231.                               (LDA-REF7426 ':INT32) (LDB-REF7428 ':INT32))
    7232. 

  7232.     (COMMON-LISP:SETF (CFFI:MEM-REF M-REF7423 :INT32) M)
    7233. 

  7233.     (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7424 :INT32) N)
    7234. 

  7234.     (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF7426 :INT32) LDA)
    7235. 

  7235.     (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF7428 :INT32) LDB)
    7236. 

  7236.     (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF7425 A) (B-REF7427 B))
    7237. 

  7237.       (%%DLACPY UPLO M-REF7423 N-REF7424 A-REF7425 LDA-REF7426 B-REF7427
    7238. 

  7238.        LDB-REF7428))))
    7239. 

  7239. 

  7240. (CFFI:DEFCFUN ("dladiv_" %%DLADIV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    7241. 

  7241.     :VOID
    7242. 

  7242.   (A :POINTER)
    7243. 

  7243.   (B :POINTER)
    7244. 

  7244.   (C :POINTER)
    7245. 

  7245.   (D :POINTER)
    7246. 

  7246.   (P :POINTER)
    7247. 

  7247.   (Q :POINTER))
    7248. 

  7248. 

  7249. (COMMON-LISP:DEFUN %DLADIV (A B C D P Q)
    7250. 

  7250.   (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLADIV)
    7251. 

  7251.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT A)
    7252. 

  7252.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT B)
    7253. 

  7253.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT C)
    7254. 

  7254.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT D)
    7255. 

  7255.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT P)
    7256. 

  7256.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT Q))
    7257. 

  7257.   (CFFI:WITH-FOREIGN-OBJECTS ((A-REF7429 ':DOUBLE) (B-REF7430 ':DOUBLE)
    7258. 

  7258.                               (C-REF7431 ':DOUBLE) (D-REF7432 ':DOUBLE)
    7259. 

  7259.                               (P-REF7433 ':DOUBLE) (Q-REF7434 ':DOUBLE))
    7260. 

  7260.     (COMMON-LISP:SETF (CFFI:MEM-REF A-REF7429 :DOUBLE) A)
    7261. 

  7261.     (COMMON-LISP:SETF (CFFI:MEM-REF B-REF7430 :DOUBLE) B)
    7262. 

  7262.     (COMMON-LISP:SETF (CFFI:MEM-REF C-REF7431 :DOUBLE) C)
    7263. 

  7263.     (COMMON-LISP:SETF (CFFI:MEM-REF D-REF7432 :DOUBLE) D)
    7264. 

  7264.     (COMMON-LISP:SETF (CFFI:MEM-REF P-REF7433 :DOUBLE) P)
    7265. 

  7265.     (COMMON-LISP:SETF (CFFI:MEM-REF Q-REF7434 :DOUBLE) Q)
    7266. 

  7266.     (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS COMMON-LISP:NIL
    7267. 

  7267.       (%%DLADIV A-REF7429 B-REF7430 C-REF7431 D-REF7432 P-REF7433 Q-REF7434))))
    7268. 

  7268. 

  7269. (CFFI:DEFCFUN ("dlae2_" %%DLAE2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    7270. 

  7270.     :VOID
    7271. 

  7271.   (A :POINTER)
    7272. 

  7272.   (B :POINTER)
    7273. 

  7273.   (C :POINTER)
    7274. 

  7274.   (RT1 :POINTER)
    7275. 

  7275.   (RT2 :POINTER))
    7276. 

  7276. 

  7277. (COMMON-LISP:DEFUN %DLAE2 (A B C RT1 RT2)
    7278. 

  7278.   (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLAE2)
    7279. 

  7279.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT A)
    7280. 

  7280.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT B)
    7281. 

  7281.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT C)
    7282. 

  7282.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RT1)
    7283. 

  7283.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RT2))
    7284. 

  7284.   (CFFI:WITH-FOREIGN-OBJECTS ((A-REF7435 ':DOUBLE) (B-REF7436 ':DOUBLE)
    7285. 

  7285.                               (C-REF7437 ':DOUBLE) (RT1-REF7438 ':DOUBLE)
    7286. 

  7286.                               (RT2-REF7439 ':DOUBLE))
    7287. 

  7287.     (COMMON-LISP:SETF (CFFI:MEM-REF A-REF7435 :DOUBLE) A)
    7288. 

  7288.     (COMMON-LISP:SETF (CFFI:MEM-REF B-REF7436 :DOUBLE) B)
    7289. 

  7289.     (COMMON-LISP:SETF (CFFI:MEM-REF C-REF7437 :DOUBLE) C)
    7290. 

  7290.     (COMMON-LISP:SETF (CFFI:MEM-REF RT1-REF7438 :DOUBLE) RT1)
    7291. 

  7291.     (COMMON-LISP:SETF (CFFI:MEM-REF RT2-REF7439 :DOUBLE) RT2)
    7292. 

  7292.     (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS COMMON-LISP:NIL
    7293. 

  7293.       (%%DLAE2 A-REF7435 B-REF7436 C-REF7437 RT1-REF7438 RT2-REF7439))))
    7294. 

  7294. 

  7295. (CFFI:DEFCFUN ("dlaebz_" %%DLAEBZ :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    7296. 

  7296.     :VOID
    7297. 

  7297.   (IJOB :POINTER)
    7298. 

  7298.   (NITMAX :POINTER)
    7299. 

  7299.   (N :POINTER)
    7300. 

  7300.   (MMAX :POINTER)
    7301. 

  7301.   (MINP :POINTER)
    7302. 

  7302.   (NBMIN :POINTER)
    7303. 

  7303.   (ABSTOL :POINTER)
    7304. 

  7304.   (RELTOL :POINTER)
    7305. 

  7305.   (PIVMIN :POINTER)
    7306. 

  7306.   (D :POINTER)
    7307. 

  7307.   (E :POINTER)
    7308. 

  7308.   (E2 :POINTER)
    7309. 

  7309.   (NVAL :POINTER)
    7310. 

  7310.   (AB :POINTER)
    7311. 

  7311.   (C :POINTER)
    7312. 

  7312.   (MOUT :POINTER)
    7313. 

  7313.   (NAB :POINTER)
    7314. 

  7314.   (WORK :POINTER)
    7315. 

  7315.   (IWORK :POINTER)
    7316. 

  7316.   (INFO :POINTER))
    7317. 

  7317. 

  7318. (COMMON-LISP:DEFUN %DLAEBZ
    7319. 

  7319.                    (IJOB NITMAX N MMAX MINP NBMIN ABSTOL RELTOL PIVMIN D E E2
    7320. 

  7320.                     NVAL AB C MOUT NAB WORK IWORK INFO)
    7321. 

  7321.   (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLAEBZ)
    7322. 

  7322.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IJOB)
    7323. 

  7323.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NITMAX)
    7324. 

  7324.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
    7325. 

  7325.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) MMAX)
    7326. 

  7326.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) MINP)
    7327. 

  7327.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NBMIN)
    7328. 

  7328.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ABSTOL)
    7329. 

  7329.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RELTOL)
    7330. 

  7330.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT PIVMIN)
    7331. 

  7331.                        (COMMON-LISP:TYPE
    7332. 

  7332.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
    7333. 

  7333.                        (COMMON-LISP:TYPE
    7334. 

  7334.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) E)
    7335. 

  7335.                        (COMMON-LISP:TYPE
    7336. 

  7336.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) E2)
    7337. 

  7337.                        (COMMON-LISP:TYPE
    7338. 

  7338.                         (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
    7339. 

  7339.                          (COMMON-LISP:*))
    7340. 

  7340.                         NVAL)
    7341. 

  7341.                        (COMMON-LISP:TYPE
    7342. 

  7342.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AB)
    7343. 

  7343.                        (COMMON-LISP:TYPE
    7344. 

  7344.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
    7345. 

  7345.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) MOUT)
    7346. 

  7346.                        (COMMON-LISP:TYPE
    7347. 

  7347.                         (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
    7348. 

  7348.                          (COMMON-LISP:*))
    7349. 

  7349.                         NAB)
    7350. 

  7350.                        (COMMON-LISP:TYPE
    7351. 

  7351.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    7352. 

  7352.                         WORK)
    7353. 

  7353.                        (COMMON-LISP:TYPE
    7354. 

  7354.                         (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
    7355. 

  7355.                          (COMMON-LISP:*))
    7356. 

  7356.                         IWORK)
    7357. 

  7357.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
    7358. 

  7358.   (CFFI:WITH-FOREIGN-OBJECTS ((IJOB-REF7440 ':INT32) (NITMAX-REF7441 ':INT32)
    7359. 

  7359.                               (N-REF7442 ':INT32) (MMAX-REF7443 ':INT32)
    7360. 

  7360.                               (MINP-REF7444 ':INT32) (NBMIN-REF7445 ':INT32)
    7361. 

  7361.                               (ABSTOL-REF7446 ':DOUBLE)
    7362. 

  7362.                               (RELTOL-REF7447 ':DOUBLE)
    7363. 

  7363.                               (PIVMIN-REF7448 ':DOUBLE) (MOUT-REF7455 ':INT32)
    7364. 

  7364.                               (INFO-REF7459 ':INT32))
    7365. 

  7365.     (COMMON-LISP:SETF (CFFI:MEM-REF IJOB-REF7440 :INT32) IJOB)
    7366. 

  7366.     (COMMON-LISP:SETF (CFFI:MEM-REF NITMAX-REF7441 :INT32) NITMAX)
    7367. 

  7367.     (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7442 :INT32) N)
    7368. 

  7368.     (COMMON-LISP:SETF (CFFI:MEM-REF MMAX-REF7443 :INT32) MMAX)
    7369. 

  7369.     (COMMON-LISP:SETF (CFFI:MEM-REF MINP-REF7444 :INT32) MINP)
    7370. 

  7370.     (COMMON-LISP:SETF (CFFI:MEM-REF NBMIN-REF7445 :INT32) NBMIN)
    7371. 

  7371.     (COMMON-LISP:SETF (CFFI:MEM-REF ABSTOL-REF7446 :DOUBLE) ABSTOL)
    7372. 

  7372.     (COMMON-LISP:SETF (CFFI:MEM-REF RELTOL-REF7447 :DOUBLE) RELTOL)
    7373. 

  7373.     (COMMON-LISP:SETF (CFFI:MEM-REF PIVMIN-REF7448 :DOUBLE) PIVMIN)
    7374. 

  7374.     (COMMON-LISP:SETF (CFFI:MEM-REF MOUT-REF7455 :INT32) MOUT)
    7375. 

  7375.     (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF7459 :INT32) INFO)
    7376. 

  7376.     (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF7449 D) (E-REF7450 E)
    7377. 

  7377.                                             (E2-REF7451 E2) (NVAL-REF7452 NVAL)
    7378. 

  7378.                                             (AB-REF7453 AB) (C-REF7454 C)
    7379. 

  7379.                                             (NAB-REF7456 NAB)
    7380. 

  7380.                                             (WORK-REF7457 WORK)
    7381. 

  7381.                                             (IWORK-REF7458 IWORK))
    7382. 

  7382.       (%%DLAEBZ IJOB-REF7440 NITMAX-REF7441 N-REF7442 MMAX-REF7443 MINP-REF7444
    7383. 

  7383.        NBMIN-REF7445 ABSTOL-REF7446 RELTOL-REF7447 PIVMIN-REF7448 D-REF7449
    7384. 

  7384.        E-REF7450 E2-REF7451 NVAL-REF7452 AB-REF7453 C-REF7454 MOUT-REF7455
    7385. 

  7385.        NAB-REF7456 WORK-REF7457 IWORK-REF7458 INFO-REF7459))))
    7386. 

  7386. 

  7387. (CFFI:DEFCFUN ("dlaed0_" %%DLAED0 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    7388. 

  7388.     :VOID
    7389. 

  7389.   (ICOMPQ :POINTER)
    7390. 

  7390.   (QSIZ :POINTER)
    7391. 

  7391.   (N :POINTER)
    7392. 

  7392.   (D :POINTER)
    7393. 

  7393.   (E :POINTER)
    7394. 

  7394.   (Q :POINTER)
    7395. 

  7395.   (LDQ :POINTER)
    7396. 

  7396.   (QSTORE :POINTER)
    7397. 

  7397.   (LDQS :POINTER)
    7398. 

  7398.   (WORK :POINTER)
    7399. 

  7399.   (IWORK :POINTER)
    7400. 

  7400.   (INFO :POINTER))
    7401. 

  7401. 

  7402. (COMMON-LISP:DEFUN %DLAED0
    7403. 

  7403.                    (ICOMPQ QSIZ N D E Q LDQ QSTORE LDQS WORK IWORK INFO)
    7404. 

  7404.   (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLAED0)
    7405. 

  7405.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ICOMPQ)
    7406. 

  7406.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) QSIZ)
    7407. 

  7407.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
    7408. 

  7408.                        (COMMON-LISP:TYPE
    7409. 

  7409.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
    7410. 

  7410.                        (COMMON-LISP:TYPE
    7411. 

  7411.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) E)
    7412. 

  7412.                        (COMMON-LISP:TYPE
    7413. 

  7413.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Q)
    7414. 

  7414.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ)
    7415. 

  7415.                        (COMMON-LISP:TYPE
    7416. 

  7416.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    7417. 

  7417.                         QSTORE)
    7418. 

  7418.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQS)
    7419. 

  7419.                        (COMMON-LISP:TYPE
    7420. 

  7420.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    7421. 

  7421.                         WORK)
    7422. 

  7422.                        (COMMON-LISP:TYPE
    7423. 

  7423.                         (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
    7424. 

  7424.                          (COMMON-LISP:*))
    7425. 

  7425.                         IWORK)
    7426. 

  7426.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
    7427. 

  7427.   (CFFI:WITH-FOREIGN-OBJECTS ((ICOMPQ-REF7460 ':INT32) (QSIZ-REF7461 ':INT32)
    7428. 

  7428.                               (N-REF7462 ':INT32) (LDQ-REF7466 ':INT32)
    7429. 

  7429.                               (LDQS-REF7468 ':INT32) (INFO-REF7471 ':INT32))
    7430. 

  7430.     (COMMON-LISP:SETF (CFFI:MEM-REF ICOMPQ-REF7460 :INT32) ICOMPQ)
    7431. 

  7431.     (COMMON-LISP:SETF (CFFI:MEM-REF QSIZ-REF7461 :INT32) QSIZ)
    7432. 

  7432.     (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7462 :INT32) N)
    7433. 

  7433.     (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF7466 :INT32) LDQ)
    7434. 

  7434.     (COMMON-LISP:SETF (CFFI:MEM-REF LDQS-REF7468 :INT32) LDQS)
    7435. 

  7435.     (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF7471 :INT32) INFO)
    7436. 

  7436.     (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF7463 D) (E-REF7464 E)
    7437. 

  7437.                                             (Q-REF7465 Q)
    7438. 

  7438.                                             (QSTORE-REF7467 QSTORE)
    7439. 

  7439.                                             (WORK-REF7469 WORK)
    7440. 

  7440.                                             (IWORK-REF7470 IWORK))
    7441. 

  7441.       (%%DLAED0 ICOMPQ-REF7460 QSIZ-REF7461 N-REF7462 D-REF7463 E-REF7464
    7442. 

  7442.        Q-REF7465 LDQ-REF7466 QSTORE-REF7467 LDQS-REF7468 WORK-REF7469
    7443. 

  7443.        IWORK-REF7470 INFO-REF7471))))
    7444. 

  7444. 

  7445. (CFFI:DEFCFUN ("dlaed1_" %%DLAED1 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    7446. 

  7446.     :VOID
    7447. 

  7447.   (N :POINTER)
    7448. 

  7448.   (D :POINTER)
    7449. 

  7449.   (Q :POINTER)
    7450. 

  7450.   (LDQ :POINTER)
    7451. 

  7451.   (INDXQ :POINTER)
    7452. 

  7452.   (RHO :POINTER)
    7453. 

  7453.   (CUTPNT :POINTER)
    7454. 

  7454.   (WORK :POINTER)
    7455. 

  7455.   (IWORK :POINTER)
    7456. 

  7456.   (INFO :POINTER))
    7457. 

  7457. 

  7458. (COMMON-LISP:DEFUN %DLAED1 (N D Q LDQ INDXQ RHO CUTPNT WORK IWORK INFO)
    7459. 

  7459.   (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLAED1)
    7460. 

  7460.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
    7461. 

  7461.                        (COMMON-LISP:TYPE
    7462. 

  7462.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
    7463. 

  7463.                        (COMMON-LISP:TYPE
    7464. 

  7464.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Q)
    7465. 

  7465.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ)
    7466. 

  7466.                        (COMMON-LISP:TYPE
    7467. 

  7467.                         (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
    7468. 

  7468.                          (COMMON-LISP:*))
    7469. 

  7469.                         INDXQ)
    7470. 

  7470.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RHO)
    7471. 

  7471.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) CUTPNT)
    7472. 

  7472.                        (COMMON-LISP:TYPE
    7473. 

  7473.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    7474. 

  7474.                         WORK)
    7475. 

  7475.                        (COMMON-LISP:TYPE
    7476. 

  7476.                         (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
    7477. 

  7477.                          (COMMON-LISP:*))
    7478. 

  7478.                         IWORK)
    7479. 

  7479.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
    7480. 

  7480.   (CFFI:WITH-FOREIGN-OBJECTS ((N-REF7472 ':INT32) (LDQ-REF7475 ':INT32)
    7481. 

  7481.                               (RHO-REF7477 ':DOUBLE) (CUTPNT-REF7478 ':INT32)
    7482. 

  7482.                               (INFO-REF7481 ':INT32))
    7483. 

  7483.     (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7472 :INT32) N)
    7484. 

  7484.     (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF7475 :INT32) LDQ)
    7485. 

  7485.     (COMMON-LISP:SETF (CFFI:MEM-REF RHO-REF7477 :DOUBLE) RHO)
    7486. 

  7486.     (COMMON-LISP:SETF (CFFI:MEM-REF CUTPNT-REF7478 :INT32) CUTPNT)
    7487. 

  7487.     (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF7481 :INT32) INFO)
    7488. 

  7488.     (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF7473 D) (Q-REF7474 Q)
    7489. 

  7489.                                             (INDXQ-REF7476 INDXQ)
    7490. 

  7490.                                             (WORK-REF7479 WORK)
    7491. 

  7491.                                             (IWORK-REF7480 IWORK))
    7492. 

  7492.       (%%DLAED1 N-REF7472 D-REF7473 Q-REF7474 LDQ-REF7475 INDXQ-REF7476
    7493. 

  7493.        RHO-REF7477 CUTPNT-REF7478 WORK-REF7479 IWORK-REF7480 INFO-REF7481))))
    7494. 

  7494. 

  7495. (CFFI:DEFCFUN ("dlaed2_" %%DLAED2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    7496. 

  7496.     :VOID
    7497. 

  7497.   (K :POINTER)
    7498. 

  7498.   (N :POINTER)
    7499. 

  7499.   (N1 :POINTER)
    7500. 

  7500.   (D :POINTER)
    7501. 

  7501.   (Q :POINTER)
    7502. 

  7502.   (LDQ :POINTER)
    7503. 

  7503.   (INDXQ :POINTER)
    7504. 

  7504.   (RHO :POINTER)
    7505. 

  7505.   (Z :POINTER)
    7506. 

  7506.   (DLAMDA :POINTER)
    7507. 

  7507.   (W :POINTER)
    7508. 

  7508.   (Q2 :POINTER)
    7509. 

  7509.   (INDX :POINTER)
    7510. 

  7510.   (INDXC :POINTER)
    7511. 

  7511.   (INDXP :POINTER)
    7512. 

  7512.   (COLTYP :POINTER)
    7513. 

  7513.   (INFO :POINTER))
    7514. 

  7514. 

  7515. (COMMON-LISP:DEFUN %DLAED2
    7516. 

  7516.                    (K N N1 D Q LDQ INDXQ RHO Z DLAMDA W Q2 INDX INDXC INDXP
    7517. 

  7517.                     COLTYP INFO)
    7518. 

  7518.   (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLAED2)
    7519. 

  7519.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
    7520. 

  7520.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
    7521. 

  7521.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N1)
    7522. 

  7522.                        (COMMON-LISP:TYPE
    7523. 

  7523.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
    7524. 

  7524.                        (COMMON-LISP:TYPE
    7525. 

  7525.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Q)
    7526. 

  7526.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ)
    7527. 

  7527.                        (COMMON-LISP:TYPE
    7528. 

  7528.                         (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
    7529. 

  7529.                          (COMMON-LISP:*))
    7530. 

  7530.                         INDXQ)
    7531. 

  7531.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RHO)
    7532. 

  7532.                        (COMMON-LISP:TYPE
    7533. 

  7533.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Z)
    7534. 

  7534.                        (COMMON-LISP:TYPE
    7535. 

  7535.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    7536. 

  7536.                         DLAMDA)
    7537. 

  7537.                        (COMMON-LISP:TYPE
    7538. 

  7538.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) W)
    7539. 

  7539.                        (COMMON-LISP:TYPE
    7540. 

  7540.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Q2)
    7541. 

  7541.                        (COMMON-LISP:TYPE
    7542. 

  7542.                         (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
    7543. 

  7543.                          (COMMON-LISP:*))
    7544. 

  7544.                         INDX)
    7545. 

  7545.                        (COMMON-LISP:TYPE
    7546. 

  7546.                         (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
    7547. 

  7547.                          (COMMON-LISP:*))
    7548. 

  7548.                         INDXC)
    7549. 

  7549.                        (COMMON-LISP:TYPE
    7550. 

  7550.                         (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
    7551. 

  7551.                          (COMMON-LISP:*))
    7552. 

  7552.                         INDXP)
    7553. 

  7553.                        (COMMON-LISP:TYPE
    7554. 

  7554.                         (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
    7555. 

  7555.                          (COMMON-LISP:*))
    7556. 

  7556.                         COLTYP)
    7557. 

  7557.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
    7558. 

  7558.   (CFFI:WITH-FOREIGN-OBJECTS ((K-REF7482 ':INT32) (N-REF7483 ':INT32)
    7559. 

  7559.                               (N1-REF7484 ':INT32) (LDQ-REF7487 ':INT32)
    7560. 

  7560.                               (RHO-REF7489 ':DOUBLE) (INFO-REF7498 ':INT32))
    7561. 

  7561.     (COMMON-LISP:SETF (CFFI:MEM-REF K-REF7482 :INT32) K)
    7562. 

  7562.     (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7483 :INT32) N)
    7563. 

  7563.     (COMMON-LISP:SETF (CFFI:MEM-REF N1-REF7484 :INT32) N1)
    7564. 

  7564.     (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF7487 :INT32) LDQ)
    7565. 

  7565.     (COMMON-LISP:SETF (CFFI:MEM-REF RHO-REF7489 :DOUBLE) RHO)
    7566. 

  7566.     (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF7498 :INT32) INFO)
    7567. 

  7567.     (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF7485 D) (Q-REF7486 Q)
    7568. 

  7568.                                             (INDXQ-REF7488 INDXQ) (Z-REF7490 Z)
    7569. 

  7569.                                             (DLAMDA-REF7491 DLAMDA)
    7570. 

  7570.                                             (W-REF7492 W) (Q2-REF7493 Q2)
    7571. 

  7571.                                             (INDX-REF7494 INDX)
    7572. 

  7572.                                             (INDXC-REF7495 INDXC)
    7573. 

  7573.                                             (INDXP-REF7496 INDXP)
    7574. 

  7574.                                             (COLTYP-REF7497 COLTYP))
    7575. 

  7575.       (%%DLAED2 K-REF7482 N-REF7483 N1-REF7484 D-REF7485 Q-REF7486 LDQ-REF7487
    7576. 

  7576.        INDXQ-REF7488 RHO-REF7489 Z-REF7490 DLAMDA-REF7491 W-REF7492 Q2-REF7493
    7577. 

  7577.        INDX-REF7494 INDXC-REF7495 INDXP-REF7496 COLTYP-REF7497 INFO-REF7498))))
    7578. 

  7578. 

  7579. (CFFI:DEFCFUN ("dlaed3_" %%DLAED3 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    7580. 

  7580.     :VOID
    7581. 

  7581.   (K :POINTER)
    7582. 

  7582.   (N :POINTER)
    7583. 

  7583.   (N1 :POINTER)
    7584. 

  7584.   (D :POINTER)
    7585. 

  7585.   (Q :POINTER)
    7586. 

  7586.   (LDQ :POINTER)
    7587. 

  7587.   (RHO :POINTER)
    7588. 

  7588.   (DLAMDA :POINTER)
    7589. 

  7589.   (Q2 :POINTER)
    7590. 

  7590.   (INDX :POINTER)
    7591. 

  7591.   (CTOT :POINTER)
    7592. 

  7592.   (W :POINTER)
    7593. 

  7593.   (S :POINTER)
    7594. 

  7594.   (INFO :POINTER))
    7595. 

  7595. 

  7596. (COMMON-LISP:DEFUN %DLAED3 (K N N1 D Q LDQ RHO DLAMDA Q2 INDX CTOT W S INFO)
    7597. 

  7597.   (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLAED3)
    7598. 

  7598.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
    7599. 

  7599.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
    7600. 

  7600.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N1)
    7601. 

  7601.                        (COMMON-LISP:TYPE
    7602. 

  7602.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
    7603. 

  7603.                        (COMMON-LISP:TYPE
    7604. 

  7604.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Q)
    7605. 

  7605.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ)
    7606. 

  7606.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RHO)
    7607. 

  7607.                        (COMMON-LISP:TYPE
    7608. 

  7608.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    7609. 

  7609.                         DLAMDA)
    7610. 

  7610.                        (COMMON-LISP:TYPE
    7611. 

  7611.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Q2)
    7612. 

  7612.                        (COMMON-LISP:TYPE
    7613. 

  7613.                         (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
    7614. 

  7614.                          (COMMON-LISP:*))
    7615. 

  7615.                         INDX)
    7616. 

  7616.                        (COMMON-LISP:TYPE
    7617. 

  7617.                         (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
    7618. 

  7618.                          (COMMON-LISP:*))
    7619. 

  7619.                         CTOT)
    7620. 

  7620.                        (COMMON-LISP:TYPE
    7621. 

  7621.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) W)
    7622. 

  7622.                        (COMMON-LISP:TYPE
    7623. 

  7623.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) S)
    7624. 

  7624.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
    7625. 

  7625.   (CFFI:WITH-FOREIGN-OBJECTS ((K-REF7499 ':INT32) (N-REF7500 ':INT32)
    7626. 

  7626.                               (N1-REF7501 ':INT32) (LDQ-REF7504 ':INT32)
    7627. 

  7627.                               (RHO-REF7505 ':DOUBLE) (INFO-REF7512 ':INT32))
    7628. 

  7628.     (COMMON-LISP:SETF (CFFI:MEM-REF K-REF7499 :INT32) K)
    7629. 

  7629.     (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7500 :INT32) N)
    7630. 

  7630.     (COMMON-LISP:SETF (CFFI:MEM-REF N1-REF7501 :INT32) N1)
    7631. 

  7631.     (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF7504 :INT32) LDQ)
    7632. 

  7632.     (COMMON-LISP:SETF (CFFI:MEM-REF RHO-REF7505 :DOUBLE) RHO)
    7633. 

  7633.     (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF7512 :INT32) INFO)
    7634. 

  7634.     (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF7502 D) (Q-REF7503 Q)
    7635. 

  7635.                                             (DLAMDA-REF7506 DLAMDA)
    7636. 

  7636.                                             (Q2-REF7507 Q2) (INDX-REF7508 INDX)
    7637. 

  7637.                                             (CTOT-REF7509 CTOT) (W-REF7510 W)
    7638. 

  7638.                                             (S-REF7511 S))
    7639. 

  7639.       (%%DLAED3 K-REF7499 N-REF7500 N1-REF7501 D-REF7502 Q-REF7503 LDQ-REF7504
    7640. 

  7640.        RHO-REF7505 DLAMDA-REF7506 Q2-REF7507 INDX-REF7508 CTOT-REF7509
    7641. 

  7641.        W-REF7510 S-REF7511 INFO-REF7512))))
    7642. 

  7642. 

  7643. (CFFI:DEFCFUN ("dlaed4_" %%DLAED4 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    7644. 

  7644.     :VOID
    7645. 

  7645.   (N :POINTER)
    7646. 

  7646.   (I :POINTER)
    7647. 

  7647.   (D :POINTER)
    7648. 

  7648.   (Z :POINTER)
    7649. 

  7649.   (DELTA :POINTER)
    7650. 

  7650.   (RHO :POINTER)
    7651. 

  7651.   (DLAM :POINTER)
    7652. 

  7652.   (INFO :POINTER))
    7653. 

  7653. 

  7654. (COMMON-LISP:DEFUN %DLAED4 (N I D Z DELTA RHO DLAM INFO)
    7655. 

  7655.   (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLAED4)
    7656. 

  7656.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
    7657. 

  7657.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) I)
    7658. 

  7658.                        (COMMON-LISP:TYPE
    7659. 

  7659.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
    7660. 

  7660.                        (COMMON-LISP:TYPE
    7661. 

  7661.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Z)
    7662. 

  7662.                        (COMMON-LISP:TYPE
    7663. 

  7663.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    7664. 

  7664.                         DELTA)
    7665. 

  7665.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RHO)
    7666. 

  7666.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT DLAM)
    7667. 

  7667.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
    7668. 

  7668.   (CFFI:WITH-FOREIGN-OBJECTS ((N-REF7513 ':INT32) (I-REF7514 ':INT32)
    7669. 

  7669.                               (RHO-REF7518 ':DOUBLE) (DLAM-REF7519 ':DOUBLE)
    7670. 

  7670.                               (INFO-REF7520 ':INT32))
    7671. 

  7671.     (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7513 :INT32) N)
    7672. 

  7672.     (COMMON-LISP:SETF (CFFI:MEM-REF I-REF7514 :INT32) I)
    7673. 

  7673.     (COMMON-LISP:SETF (CFFI:MEM-REF RHO-REF7518 :DOUBLE) RHO)
    7674. 

  7674.     (COMMON-LISP:SETF (CFFI:MEM-REF DLAM-REF7519 :DOUBLE) DLAM)
    7675. 

  7675.     (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF7520 :INT32) INFO)
    7676. 

  7676.     (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF7515 D) (Z-REF7516 Z)
    7677. 

  7677.                                             (DELTA-REF7517 DELTA))
    7678. 

  7678.       (%%DLAED4 N-REF7513 I-REF7514 D-REF7515 Z-REF7516 DELTA-REF7517
    7679. 

  7679.        RHO-REF7518 DLAM-REF7519 INFO-REF7520))))
    7680. 

  7680. 

  7681. (CFFI:DEFCFUN ("dlaed5_" %%DLAED5 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    7682. 

  7682.     :VOID
    7683. 

  7683.   (I :POINTER)
    7684. 

  7684.   (D :POINTER)
    7685. 

  7685.   (Z :POINTER)
    7686. 

  7686.   (DELTA :POINTER)
    7687. 

  7687.   (RHO :POINTER)
    7688. 

  7688.   (DLAM :POINTER))
    7689. 

  7689. 

  7690. (COMMON-LISP:DEFUN %DLAED5 (I D Z DELTA RHO DLAM)
    7691. 

  7691.   (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLAED5)
    7692. 

  7692.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) I)
    7693. 

  7693.                        (COMMON-LISP:TYPE
    7694. 

  7694.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
    7695. 

  7695.                        (COMMON-LISP:TYPE
    7696. 

  7696.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Z)
    7697. 

  7697.                        (COMMON-LISP:TYPE
    7698. 

  7698.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    7699. 

  7699.                         DELTA)
    7700. 

  7700.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RHO)
    7701. 

  7701.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT DLAM))
    7702. 

  7702.   (CFFI:WITH-FOREIGN-OBJECTS ((I-REF7521 ':INT32) (RHO-REF7525 ':DOUBLE)
    7703. 

  7703.                               (DLAM-REF7526 ':DOUBLE))
    7704. 

  7704.     (COMMON-LISP:SETF (CFFI:MEM-REF I-REF7521 :INT32) I)
    7705. 

  7705.     (COMMON-LISP:SETF (CFFI:MEM-REF RHO-REF7525 :DOUBLE) RHO)
    7706. 

  7706.     (COMMON-LISP:SETF (CFFI:MEM-REF DLAM-REF7526 :DOUBLE) DLAM)
    7707. 

  7707.     (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF7522 D) (Z-REF7523 Z)
    7708. 

  7708.                                             (DELTA-REF7524 DELTA))
    7709. 

  7709.       (%%DLAED5 I-REF7521 D-REF7522 Z-REF7523 DELTA-REF7524 RHO-REF7525
    7710. 

  7710.        DLAM-REF7526))))
    7711. 

  7711. 

  7712. (CFFI:DEFCFUN ("dlaed6_" %%DLAED6 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    7713. 

  7713.     :VOID
    7714. 

  7714.   (KNITER :POINTER)
    7715. 

  7715.   (ORGATI :POINTER)
    7716. 

  7716.   (RHO :POINTER)
    7717. 

  7717.   (D :POINTER)
    7718. 

  7718.   (Z :POINTER)
    7719. 

  7719.   (FINIT :POINTER)
    7720. 

  7720.   (TAU :POINTER)
    7721. 

  7721.   (INFO :POINTER))
    7722. 

  7722. 

  7723. (COMMON-LISP:DEFUN %DLAED6 (KNITER ORGATI RHO D Z FINIT TAU INFO)
    7724. 

  7724.   (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLAED6)
    7725. 

  7725.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KNITER)
    7726. 

  7726.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ORGATI)
    7727. 

  7727.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RHO)
    7728. 

  7728.                        (COMMON-LISP:TYPE
    7729. 

  7729.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
    7730. 

  7730.                        (COMMON-LISP:TYPE
    7731. 

  7731.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Z)
    7732. 

  7732.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT FINIT)
    7733. 

  7733.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT TAU)
    7734. 

  7734.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
    7735. 

  7735.   (CFFI:WITH-FOREIGN-OBJECTS ((KNITER-REF7527 ':INT32) (ORGATI-REF7528 ':INT32)
    7736. 

  7736.                               (RHO-REF7529 ':DOUBLE) (FINIT-REF7532 ':DOUBLE)
    7737. 

  7737.                               (TAU-REF7533 ':DOUBLE) (INFO-REF7534 ':INT32))
    7738. 

  7738.     (COMMON-LISP:SETF (CFFI:MEM-REF KNITER-REF7527 :INT32) KNITER)
    7739. 

  7739.     (COMMON-LISP:SETF (CFFI:MEM-REF ORGATI-REF7528 :INT32) ORGATI)
    7740. 

  7740.     (COMMON-LISP:SETF (CFFI:MEM-REF RHO-REF7529 :DOUBLE) RHO)
    7741. 

  7741.     (COMMON-LISP:SETF (CFFI:MEM-REF FINIT-REF7532 :DOUBLE) FINIT)
    7742. 

  7742.     (COMMON-LISP:SETF (CFFI:MEM-REF TAU-REF7533 :DOUBLE) TAU)
    7743. 

  7743.     (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF7534 :INT32) INFO)
    7744. 

  7744.     (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF7530 D) (Z-REF7531 Z))
    7745. 

  7745.       (%%DLAED6 KNITER-REF7527 ORGATI-REF7528 RHO-REF7529 D-REF7530 Z-REF7531
    7746. 

  7746.        FINIT-REF7532 TAU-REF7533 INFO-REF7534))))
    7747. 

  7747. 

  7748. (CFFI:DEFCFUN ("dlaed7_" %%DLAED7 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    7749. 

  7749.     :VOID
    7750. 

  7750.   (ICOMPQ :POINTER)
    7751. 

  7751.   (N :POINTER)
    7752. 

  7752.   (QSIZ :POINTER)
    7753. 

  7753.   (TLVLS :POINTER)
    7754. 

  7754.   (CURLVL :POINTER)
    7755. 

  7755.   (CURPBM :POINTER)
    7756. 

  7756.   (D :POINTER)
    7757. 

  7757.   (Q :POINTER)
    7758. 

  7758.   (LDQ :POINTER)
    7759. 

  7759.   (INDXQ :POINTER)
    7760. 

  7760.   (RHO :POINTER)
    7761. 

  7761.   (CUTPNT :POINTER)
    7762. 

  7762.   (QSTORE :POINTER)
    7763. 

  7763.   (QPTR :POINTER)
    7764. 

  7764.   (PRMPTR :POINTER)
    7765. 

  7765.   (PERM :POINTER)
    7766. 

  7766.   (GIVPTR :POINTER)
    7767. 

  7767.   (GIVCOL :POINTER)
    7768. 

  7768.   (GIVNUM :POINTER)
    7769. 

  7769.   (WORK :POINTER)
    7770. 

  7770.   (IWORK :POINTER)
    7771. 

  7771.   (INFO :POINTER))
    7772. 

  7772. 

  7773. (COMMON-LISP:DEFUN %DLAED7
    7774. 

  7774.                    (ICOMPQ N QSIZ TLVLS CURLVL CURPBM D Q LDQ INDXQ RHO CUTPNT
    7775. 

  7775.                     QSTORE QPTR PRMPTR PERM GIVPTR GIVCOL GIVNUM WORK IWORK
    7776. 

  7776.                     INFO)
    7777. 

  7777.   (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLAED7)
    7778. 

  7778.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ICOMPQ)
    7779. 

  7779.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
    7780. 

  7780.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) QSIZ)
    7781. 

  7781.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) TLVLS)
    7782. 

  7782.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) CURLVL)
    7783. 

  7783.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) CURPBM)
    7784. 

  7784.                        (COMMON-LISP:TYPE
    7785. 

  7785.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
    7786. 

  7786.                        (COMMON-LISP:TYPE
    7787. 

  7787.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Q)
    7788. 

  7788.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ)
    7789. 

  7789.                        (COMMON-LISP:TYPE
    7790. 

  7790.                         (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
    7791. 

  7791.                          (COMMON-LISP:*))
    7792. 

  7792.                         INDXQ)
    7793. 

  7793.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RHO)
    7794. 

  7794.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) CUTPNT)
    7795. 

  7795.                        (COMMON-LISP:TYPE
    7796. 

  7796.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    7797. 

  7797.                         QSTORE)
    7798. 

  7798.                        (COMMON-LISP:TYPE
    7799. 

  7799.                         (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
    7800. 

  7800.                          (COMMON-LISP:*))
    7801. 

  7801.                         QPTR)
    7802. 

  7802.                        (COMMON-LISP:TYPE
    7803. 

  7803.                         (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
    7804. 

  7804.                          (COMMON-LISP:*))
    7805. 

  7805.                         PRMPTR)
    7806. 

  7806.                        (COMMON-LISP:TYPE
    7807. 

  7807.                         (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
    7808. 

  7808.                          (COMMON-LISP:*))
    7809. 

  7809.                         PERM)
    7810. 

  7810.                        (COMMON-LISP:TYPE
    7811. 

  7811.                         (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
    7812. 

  7812.                          (COMMON-LISP:*))
    7813. 

  7813.                         GIVPTR)
    7814. 

  7814.                        (COMMON-LISP:TYPE
    7815. 

  7815.                         (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
    7816. 

  7816.                          (COMMON-LISP:*))
    7817. 

  7817.                         GIVCOL)
    7818. 

  7818.                        (COMMON-LISP:TYPE
    7819. 

  7819.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    7820. 

  7820.                         GIVNUM)
    7821. 

  7821.                        (COMMON-LISP:TYPE
    7822. 

  7822.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    7823. 

  7823.                         WORK)
    7824. 

  7824.                        (COMMON-LISP:TYPE
    7825. 

  7825.                         (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
    7826. 

  7826.                          (COMMON-LISP:*))
    7827. 

  7827.                         IWORK)
    7828. 

  7828.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
    7829. 

  7829.   (CFFI:WITH-FOREIGN-OBJECTS ((ICOMPQ-REF7535 ':INT32) (N-REF7536 ':INT32)
    7830. 

  7830.                               (QSIZ-REF7537 ':INT32) (TLVLS-REF7538 ':INT32)
    7831. 

  7831.                               (CURLVL-REF7539 ':INT32) (CURPBM-REF7540 ':INT32)
    7832. 

  7832.                               (LDQ-REF7543 ':INT32) (RHO-REF7545 ':DOUBLE)
    7833. 

  7833.                               (CUTPNT-REF7546 ':INT32) (INFO-REF7556 ':INT32))
    7834. 

  7834.     (COMMON-LISP:SETF (CFFI:MEM-REF ICOMPQ-REF7535 :INT32) ICOMPQ)
    7835. 

  7835.     (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7536 :INT32) N)
    7836. 

  7836.     (COMMON-LISP:SETF (CFFI:MEM-REF QSIZ-REF7537 :INT32) QSIZ)
    7837. 

  7837.     (COMMON-LISP:SETF (CFFI:MEM-REF TLVLS-REF7538 :INT32) TLVLS)
    7838. 

  7838.     (COMMON-LISP:SETF (CFFI:MEM-REF CURLVL-REF7539 :INT32) CURLVL)
    7839. 

  7839.     (COMMON-LISP:SETF (CFFI:MEM-REF CURPBM-REF7540 :INT32) CURPBM)
    7840. 

  7840.     (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF7543 :INT32) LDQ)
    7841. 

  7841.     (COMMON-LISP:SETF (CFFI:MEM-REF RHO-REF7545 :DOUBLE) RHO)
    7842. 

  7842.     (COMMON-LISP:SETF (CFFI:MEM-REF CUTPNT-REF7546 :INT32) CUTPNT)
    7843. 

  7843.     (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF7556 :INT32) INFO)
    7844. 

  7844.     (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF7541 D) (Q-REF7542 Q)
    7845. 

  7845.                                             (INDXQ-REF7544 INDXQ)
    7846. 

  7846.                                             (QSTORE-REF7547 QSTORE)
    7847. 

  7847.                                             (QPTR-REF7548 QPTR)
    7848. 

  7848.                                             (PRMPTR-REF7549 PRMPTR)
    7849. 

  7849.                                             (PERM-REF7550 PERM)
    7850. 

  7850.                                             (GIVPTR-REF7551 GIVPTR)
    7851. 

  7851.                                             (GIVCOL-REF7552 GIVCOL)
    7852. 

  7852.                                             (GIVNUM-REF7553 GIVNUM)
    7853. 

  7853.                                             (WORK-REF7554 WORK)
    7854. 

  7854.                                             (IWORK-REF7555 IWORK))
    7855. 

  7855.       (%%DLAED7 ICOMPQ-REF7535 N-REF7536 QSIZ-REF7537 TLVLS-REF7538
    7856. 

  7856.        CURLVL-REF7539 CURPBM-REF7540 D-REF7541 Q-REF7542 LDQ-REF7543
    7857. 

  7857.        INDXQ-REF7544 RHO-REF7545 CUTPNT-REF7546 QSTORE-REF7547 QPTR-REF7548
    7858. 

  7858.        PRMPTR-REF7549 PERM-REF7550 GIVPTR-REF7551 GIVCOL-REF7552 GIVNUM-REF7553
    7859. 

  7859.        WORK-REF7554 IWORK-REF7555 INFO-REF7556))))
    7860. 

  7860. 

  7861. (CFFI:DEFCFUN ("dlaed8_" %%DLAED8 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    7862. 

  7862.     :VOID
    7863. 

  7863.   (ICOMPQ :POINTER)
    7864. 

  7864.   (K :POINTER)
    7865. 

  7865.   (N :POINTER)
    7866. 

  7866.   (QSIZ :POINTER)
    7867. 

  7867.   (D :POINTER)
    7868. 

  7868.   (Q :POINTER)
    7869. 

  7869.   (LDQ :POINTER)
    7870. 

  7870.   (INDXQ :POINTER)
    7871. 

  7871.   (RHO :POINTER)
    7872. 

  7872.   (CUTPNT :POINTER)
    7873. 

  7873.   (Z :POINTER)
    7874. 

  7874.   (DLAMDA :POINTER)
    7875. 

  7875.   (Q2 :POINTER)
    7876. 

  7876.   (LDQ2 :POINTER)
    7877. 

  7877.   (W :POINTER)
    7878. 

  7878.   (PERM :POINTER)
    7879. 

  7879.   (GIVPTR :POINTER)
    7880. 

  7880.   (GIVCOL :POINTER)
    7881. 

  7881.   (GIVNUM :POINTER)
    7882. 

  7882.   (INDXP :POINTER)
    7883. 

  7883.   (INDX :POINTER)
    7884. 

  7884.   (INFO :POINTER))
    7885. 

  7885. 

  7886. (COMMON-LISP:DEFUN %DLAED8
    7887. 

  7887.                    (ICOMPQ K N QSIZ D Q LDQ INDXQ RHO CUTPNT Z DLAMDA Q2 LDQ2 W
    7888. 

  7888.                     PERM GIVPTR GIVCOL GIVNUM INDXP INDX INFO)
    7889. 

  7889.   (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLAED8)
    7890. 

  7890.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ICOMPQ)
    7891. 

  7891.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
    7892. 

  7892.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
    7893. 

  7893.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) QSIZ)
    7894. 

  7894.                        (COMMON-LISP:TYPE
    7895. 

  7895.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
    7896. 

  7896.                        (COMMON-LISP:TYPE
    7897. 

  7897.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Q)
    7898. 

  7898.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ)
    7899. 

  7899.                        (COMMON-LISP:TYPE
    7900. 

  7900.                         (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
    7901. 

  7901.                          (COMMON-LISP:*))
    7902. 

  7902.                         INDXQ)
    7903. 

  7903.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RHO)
    7904. 

  7904.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) CUTPNT)
    7905. 

  7905.                        (COMMON-LISP:TYPE
    7906. 

  7906.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Z)
    7907. 

  7907.                        (COMMON-LISP:TYPE
    7908. 

  7908.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    7909. 

  7909.                         DLAMDA)
    7910. 

  7910.                        (COMMON-LISP:TYPE
    7911. 

  7911.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Q2)
    7912. 

  7912.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ2)
    7913. 

  7913.                        (COMMON-LISP:TYPE
    7914. 

  7914.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) W)
    7915. 

  7915.                        (COMMON-LISP:TYPE
    7916. 

  7916.                         (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
    7917. 

  7917.                          (COMMON-LISP:*))
    7918. 

  7918.                         PERM)
    7919. 

  7919.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) GIVPTR)
    7920. 

  7920.                        (COMMON-LISP:TYPE
    7921. 

  7921.                         (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
    7922. 

  7922.                          (COMMON-LISP:*))
    7923. 

  7923.                         GIVCOL)
    7924. 

  7924.                        (COMMON-LISP:TYPE
    7925. 

  7925.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    7926. 

  7926.                         GIVNUM)
    7927. 

  7927.                        (COMMON-LISP:TYPE
    7928. 

  7928.                         (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
    7929. 

  7929.                          (COMMON-LISP:*))
    7930. 

  7930.                         INDXP)
    7931. 

  7931.                        (COMMON-LISP:TYPE
    7932. 

  7932.                         (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
    7933. 

  7933.                          (COMMON-LISP:*))
    7934. 

  7934.                         INDX)
    7935. 

  7935.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
    7936. 

  7936.   (CFFI:WITH-FOREIGN-OBJECTS ((ICOMPQ-REF7557 ':INT32) (K-REF7558 ':INT32)
    7937. 

  7937.                               (N-REF7559 ':INT32) (QSIZ-REF7560 ':INT32)
    7938. 

  7938.                               (LDQ-REF7563 ':INT32) (RHO-REF7565 ':DOUBLE)
    7939. 

  7939.                               (CUTPNT-REF7566 ':INT32) (LDQ2-REF7570 ':INT32)
    7940. 

  7940.                               (GIVPTR-REF7573 ':INT32) (INFO-REF7578 ':INT32))
    7941. 

  7941.     (COMMON-LISP:SETF (CFFI:MEM-REF ICOMPQ-REF7557 :INT32) ICOMPQ)
    7942. 

  7942.     (COMMON-LISP:SETF (CFFI:MEM-REF K-REF7558 :INT32) K)
    7943. 

  7943.     (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7559 :INT32) N)
    7944. 

  7944.     (COMMON-LISP:SETF (CFFI:MEM-REF QSIZ-REF7560 :INT32) QSIZ)
    7945. 

  7945.     (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF7563 :INT32) LDQ)
    7946. 

  7946.     (COMMON-LISP:SETF (CFFI:MEM-REF RHO-REF7565 :DOUBLE) RHO)
    7947. 

  7947.     (COMMON-LISP:SETF (CFFI:MEM-REF CUTPNT-REF7566 :INT32) CUTPNT)
    7948. 

  7948.     (COMMON-LISP:SETF (CFFI:MEM-REF LDQ2-REF7570 :INT32) LDQ2)
    7949. 

  7949.     (COMMON-LISP:SETF (CFFI:MEM-REF GIVPTR-REF7573 :INT32) GIVPTR)
    7950. 

  7950.     (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF7578 :INT32) INFO)
    7951. 

  7951.     (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF7561 D) (Q-REF7562 Q)
    7952. 

  7952.                                             (INDXQ-REF7564 INDXQ) (Z-REF7567 Z)
    7953. 

  7953.                                             (DLAMDA-REF7568 DLAMDA)
    7954. 

  7954.                                             (Q2-REF7569 Q2) (W-REF7571 W)
    7955. 

  7955.                                             (PERM-REF7572 PERM)
    7956. 

  7956.                                             (GIVCOL-REF7574 GIVCOL)
    7957. 

  7957.                                             (GIVNUM-REF7575 GIVNUM)
    7958. 

  7958.                                             (INDXP-REF7576 INDXP)
    7959. 

  7959.                                             (INDX-REF7577 INDX))
    7960. 

  7960.       (%%DLAED8 ICOMPQ-REF7557 K-REF7558 N-REF7559 QSIZ-REF7560 D-REF7561
    7961. 

  7961.        Q-REF7562 LDQ-REF7563 INDXQ-REF7564 RHO-REF7565 CUTPNT-REF7566 Z-REF7567
    7962. 

  7962.        DLAMDA-REF7568 Q2-REF7569 LDQ2-REF7570 W-REF7571 PERM-REF7572
    7963. 

  7963.        GIVPTR-REF7573 GIVCOL-REF7574 GIVNUM-REF7575 INDXP-REF7576 INDX-REF7577
    7964. 

  7964.        INFO-REF7578))))
    7965. 

  7965. 

  7966. (CFFI:DEFCFUN ("dlaed9_" %%DLAED9 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    7967. 

  7967.     :VOID
    7968. 

  7968.   (K :POINTER)
    7969. 

  7969.   (KSTART :POINTER)
    7970. 

  7970.   (KSTOP :POINTER)
    7971. 

  7971.   (N :POINTER)
    7972. 

  7972.   (D :POINTER)
    7973. 

  7973.   (Q :POINTER)
    7974. 

  7974.   (LDQ :POINTER)
    7975. 

  7975.   (RHO :POINTER)
    7976. 

  7976.   (DLAMDA :POINTER)
    7977. 

  7977.   (W :POINTER)
    7978. 

  7978.   (S :POINTER)
    7979. 

  7979.   (LDS :POINTER)
    7980. 

  7980.   (INFO :POINTER))
    7981. 

  7981. 

  7982. (COMMON-LISP:DEFUN %DLAED9 (K KSTART KSTOP N D Q LDQ RHO DLAMDA W S LDS INFO)
    7983. 

  7983.   (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLAED9)
    7984. 

  7984.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
    7985. 

  7985.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KSTART)
    7986. 

  7986.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KSTOP)
    7987. 

  7987.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
    7988. 

  7988.                        (COMMON-LISP:TYPE
    7989. 

  7989.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
    7990. 

  7990.                        (COMMON-LISP:TYPE
    7991. 

  7991.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Q)
    7992. 

  7992.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ)
    7993. 

  7993.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RHO)
    7994. 

  7994.                        (COMMON-LISP:TYPE
    7995. 

  7995.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    7996. 

  7996.                         DLAMDA)
    7997. 

  7997.                        (COMMON-LISP:TYPE
    7998. 

  7998.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) W)
    7999. 

  7999.                        (COMMON-LISP:TYPE
    8000. 

  8000.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) S)
    8001. 

  8001.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDS)
    8002. 

  8002.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
    8003. 

  8003.   (CFFI:WITH-FOREIGN-OBJECTS ((K-REF7579 ':INT32) (KSTART-REF7580 ':INT32)
    8004. 

  8004.                               (KSTOP-REF7581 ':INT32) (N-REF7582 ':INT32)
    8005. 

  8005.                               (LDQ-REF7585 ':INT32) (RHO-REF7586 ':DOUBLE)
    8006. 

  8006.                               (LDS-REF7590 ':INT32) (INFO-REF7591 ':INT32))
    8007. 

  8007.     (COMMON-LISP:SETF (CFFI:MEM-REF K-REF7579 :INT32) K)
    8008. 

  8008.     (COMMON-LISP:SETF (CFFI:MEM-REF KSTART-REF7580 :INT32) KSTART)
    8009. 

  8009.     (COMMON-LISP:SETF (CFFI:MEM-REF KSTOP-REF7581 :INT32) KSTOP)
    8010. 

  8010.     (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7582 :INT32) N)
    8011. 

  8011.     (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF7585 :INT32) LDQ)
    8012. 

  8012.     (COMMON-LISP:SETF (CFFI:MEM-REF RHO-REF7586 :DOUBLE) RHO)
    8013. 

  8013.     (COMMON-LISP:SETF (CFFI:MEM-REF LDS-REF7590 :INT32) LDS)
    8014. 

  8014.     (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF7591 :INT32) INFO)
    8015. 

  8015.     (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF7583 D) (Q-REF7584 Q)
    8016. 

  8016.                                             (DLAMDA-REF7587 DLAMDA)
    8017. 

  8017.                                             (W-REF7588 W) (S-REF7589 S))
    8018. 

  8018.       (%%DLAED9 K-REF7579 KSTART-REF7580 KSTOP-REF7581 N-REF7582 D-REF7583
    8019. 

  8019.        Q-REF7584 LDQ-REF7585 RHO-REF7586 DLAMDA-REF7587 W-REF7588 S-REF7589
    8020. 

  8020.        LDS-REF7590 INFO-REF7591))))
    8021. 

  8021. 

  8022. (CFFI:DEFCFUN ("dlaeda_" %%DLAEDA :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    8023. 

  8023.     :VOID
    8024. 

  8024.   (N :POINTER)
    8025. 

  8025.   (TLVLS :POINTER)
    8026. 

  8026.   (CURLVL :POINTER)
    8027. 

  8027.   (CURPBM :POINTER)
    8028. 

  8028.   (PRMPTR :POINTER)
    8029. 

  8029.   (PERM :POINTER)
    8030. 

  8030.   (GIVPTR :POINTER)
    8031. 

  8031.   (GIVCOL :POINTER)
    8032. 

  8032.   (GIVNUM :POINTER)
    8033. 

  8033.   (Q :POINTER)
    8034. 

  8034.   (QPTR :POINTER)
    8035. 

  8035.   (Z :POINTER)
    8036. 

  8036.   (ZTEMP :POINTER)
    8037. 

  8037.   (INFO :POINTER))
    8038. 

  8038. 

  8039. (COMMON-LISP:DEFUN %DLAEDA
    8040. 

  8040.                    (N TLVLS CURLVL CURPBM PRMPTR PERM GIVPTR GIVCOL GIVNUM Q
    8041. 

  8041.                     QPTR Z ZTEMP INFO)
    8042. 

  8042.   (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLAEDA)
    8043. 

  8043.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
    8044. 

  8044.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) TLVLS)
    8045. 

  8045.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) CURLVL)
    8046. 

  8046.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) CURPBM)
    8047. 

  8047.                        (COMMON-LISP:TYPE
    8048. 

  8048.                         (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
    8049. 

  8049.                          (COMMON-LISP:*))
    8050. 

  8050.                         PRMPTR)
    8051. 

  8051.                        (COMMON-LISP:TYPE
    8052. 

  8052.                         (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
    8053. 

  8053.                          (COMMON-LISP:*))
    8054. 

  8054.                         PERM)
    8055. 

  8055.                        (COMMON-LISP:TYPE
    8056. 

  8056.                         (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
    8057. 

  8057.                          (COMMON-LISP:*))
    8058. 

  8058.                         GIVPTR)
    8059. 

  8059.                        (COMMON-LISP:TYPE
    8060. 

  8060.                         (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
    8061. 

  8061.                          (COMMON-LISP:*))
    8062. 

  8062.                         GIVCOL)
    8063. 

  8063.                        (COMMON-LISP:TYPE
    8064. 

  8064.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    8065. 

  8065.                         GIVNUM)
    8066. 

  8066.                        (COMMON-LISP:TYPE
    8067. 

  8067.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Q)
    8068. 

  8068.                        (COMMON-LISP:TYPE
    8069. 

  8069.                         (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
    8070. 

  8070.                          (COMMON-LISP:*))
    8071. 

  8071.                         QPTR)
    8072. 

  8072.                        (COMMON-LISP:TYPE
    8073. 

  8073.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Z)
    8074. 

  8074.                        (COMMON-LISP:TYPE
    8075. 

  8075.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    8076. 

  8076.                         ZTEMP)
    8077. 

  8077.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
    8078. 

  8078.   (CFFI:WITH-FOREIGN-OBJECTS ((N-REF7592 ':INT32) (TLVLS-REF7593 ':INT32)
    8079. 

  8079.                               (CURLVL-REF7594 ':INT32) (CURPBM-REF7595 ':INT32)
    8080. 

  8080.                               (INFO-REF7605 ':INT32))
    8081. 

  8081.     (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7592 :INT32) N)
    8082. 

  8082.     (COMMON-LISP:SETF (CFFI:MEM-REF TLVLS-REF7593 :INT32) TLVLS)
    8083. 

  8083.     (COMMON-LISP:SETF (CFFI:MEM-REF CURLVL-REF7594 :INT32) CURLVL)
    8084. 

  8084.     (COMMON-LISP:SETF (CFFI:MEM-REF CURPBM-REF7595 :INT32) CURPBM)
    8085. 

  8085.     (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF7605 :INT32) INFO)
    8086. 

  8086.     (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((PRMPTR-REF7596 PRMPTR)
    8087. 

  8087.                                             (PERM-REF7597 PERM)
    8088. 

  8088.                                             (GIVPTR-REF7598 GIVPTR)
    8089. 

  8089.                                             (GIVCOL-REF7599 GIVCOL)
    8090. 

  8090.                                             (GIVNUM-REF7600 GIVNUM)
    8091. 

  8091.                                             (Q-REF7601 Q) (QPTR-REF7602 QPTR)
    8092. 

  8092.                                             (Z-REF7603 Z) (ZTEMP-REF7604 ZTEMP))
    8093. 

  8093.       (%%DLAEDA N-REF7592 TLVLS-REF7593 CURLVL-REF7594 CURPBM-REF7595
    8094. 

  8094.        PRMPTR-REF7596 PERM-REF7597 GIVPTR-REF7598 GIVCOL-REF7599 GIVNUM-REF7600
    8095. 

  8095.        Q-REF7601 QPTR-REF7602 Z-REF7603 ZTEMP-REF7604 INFO-REF7605))))
    8096. 

  8096. 

  8097. (CFFI:DEFCFUN ("dlaein_" %%DLAEIN :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    8098. 

  8098.     :VOID
    8099. 

  8099.   (RIGHTV :POINTER)
    8100. 

  8100.   (NOINIT :POINTER)
    8101. 

  8101.   (N :POINTER)
    8102. 

  8102.   (H :POINTER)
    8103. 

  8103.   (LDH :POINTER)
    8104. 

  8104.   (WR :POINTER)
    8105. 

  8105.   (WI :POINTER)
    8106. 

  8106.   (VR :POINTER)
    8107. 

  8107.   (VI :POINTER)
    8108. 

  8108.   (B :POINTER)
    8109. 

  8109.   (LDB :POINTER)
    8110. 

  8110.   (WORK :POINTER)
    8111. 

  8111.   (EPS3 :POINTER)
    8112. 

  8112.   (SMLNUM :POINTER)
    8113. 

  8113.   (BIGNUM :POINTER)
    8114. 

  8114.   (INFO :POINTER))
    8115. 

  8115. 

  8116. (COMMON-LISP:DEFUN %DLAEIN
    8117. 

  8117.                    (RIGHTV NOINIT N H LDH WR WI VR VI B LDB WORK EPS3 SMLNUM
    8118. 

  8118.                     BIGNUM INFO)
    8119. 

  8119.   (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLAEIN)
    8120. 

  8120.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) RIGHTV)
    8121. 

  8121.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NOINIT)
    8122. 

  8122.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
    8123. 

  8123.                        (COMMON-LISP:TYPE
    8124. 

  8124.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) H)
    8125. 

  8125.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDH)
    8126. 

  8126.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT WR)
    8127. 

  8127.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT WI)
    8128. 

  8128.                        (COMMON-LISP:TYPE
    8129. 

  8129.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) VR)
    8130. 

  8130.                        (COMMON-LISP:TYPE
    8131. 

  8131.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) VI)
    8132. 

  8132.                        (COMMON-LISP:TYPE
    8133. 

  8133.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
    8134. 

  8134.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
    8135. 

  8135.                        (COMMON-LISP:TYPE
    8136. 

  8136.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    8137. 

  8137.                         WORK)
    8138. 

  8138.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT EPS3)
    8139. 

  8139.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SMLNUM)
    8140. 

  8140.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT BIGNUM)
    8141. 

  8141.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
    8142. 

  8142.   (CFFI:WITH-FOREIGN-OBJECTS ((RIGHTV-REF7606 ':INT32) (NOINIT-REF7607 ':INT32)
    8143. 

  8143.                               (N-REF7608 ':INT32) (LDH-REF7610 ':INT32)
    8144. 

  8144.                               (WR-REF7611 ':DOUBLE) (WI-REF7612 ':DOUBLE)
    8145. 

  8145.                               (LDB-REF7616 ':INT32) (EPS3-REF7618 ':DOUBLE)
    8146. 

  8146.                               (SMLNUM-REF7619 ':DOUBLE)
    8147. 

  8147.                               (BIGNUM-REF7620 ':DOUBLE) (INFO-REF7621 ':INT32))
    8148. 

  8148.     (COMMON-LISP:SETF (CFFI:MEM-REF RIGHTV-REF7606 :INT32) RIGHTV)
    8149. 

  8149.     (COMMON-LISP:SETF (CFFI:MEM-REF NOINIT-REF7607 :INT32) NOINIT)
    8150. 

  8150.     (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7608 :INT32) N)
    8151. 

  8151.     (COMMON-LISP:SETF (CFFI:MEM-REF LDH-REF7610 :INT32) LDH)
    8152. 

  8152.     (COMMON-LISP:SETF (CFFI:MEM-REF WR-REF7611 :DOUBLE) WR)
    8153. 

  8153.     (COMMON-LISP:SETF (CFFI:MEM-REF WI-REF7612 :DOUBLE) WI)
    8154. 

  8154.     (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF7616 :INT32) LDB)
    8155. 

  8155.     (COMMON-LISP:SETF (CFFI:MEM-REF EPS3-REF7618 :DOUBLE) EPS3)
    8156. 

  8156.     (COMMON-LISP:SETF (CFFI:MEM-REF SMLNUM-REF7619 :DOUBLE) SMLNUM)
    8157. 

  8157.     (COMMON-LISP:SETF (CFFI:MEM-REF BIGNUM-REF7620 :DOUBLE) BIGNUM)
    8158. 

  8158.     (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF7621 :INT32) INFO)
    8159. 

  8159.     (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((H-REF7609 H) (VR-REF7613 VR)
    8160. 

  8160.                                             (VI-REF7614 VI) (B-REF7615 B)
    8161. 

  8161.                                             (WORK-REF7617 WORK))
    8162. 

  8162.       (%%DLAEIN RIGHTV-REF7606 NOINIT-REF7607 N-REF7608 H-REF7609 LDH-REF7610
    8163. 

  8163.        WR-REF7611 WI-REF7612 VR-REF7613 VI-REF7614 B-REF7615 LDB-REF7616
    8164. 

  8164.        WORK-REF7617 EPS3-REF7618 SMLNUM-REF7619 BIGNUM-REF7620 INFO-REF7621))))
    8165. 

  8165. 

  8166. (CFFI:DEFCFUN ("dlaev2_" %%DLAEV2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    8167. 

  8167.     :VOID
    8168. 

  8168.   (A :POINTER)
    8169. 

  8169.   (B :POINTER)
    8170. 

  8170.   (C :POINTER)
    8171. 

  8171.   (RT1 :POINTER)
    8172. 

  8172.   (RT2 :POINTER)
    8173. 

  8173.   (CS1 :POINTER)
    8174. 

  8174.   (SN1 :POINTER))
    8175. 

  8175. 

  8176. (COMMON-LISP:DEFUN %DLAEV2 (A B C RT1 RT2 CS1 SN1)
    8177. 

  8177.   (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLAEV2)
    8178. 

  8178.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT A)
    8179. 

  8179.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT B)
    8180. 

  8180.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT C)
    8181. 

  8181.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RT1)
    8182. 

  8182.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RT2)
    8183. 

  8183.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT CS1)
    8184. 

  8184.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SN1))
    8185. 

  8185.   (CFFI:WITH-FOREIGN-OBJECTS ((A-REF7622 ':DOUBLE) (B-REF7623 ':DOUBLE)
    8186. 

  8186.                               (C-REF7624 ':DOUBLE) (RT1-REF7625 ':DOUBLE)
    8187. 

  8187.                               (RT2-REF7626 ':DOUBLE) (CS1-REF7627 ':DOUBLE)
    8188. 

  8188.                               (SN1-REF7628 ':DOUBLE))
    8189. 

  8189.     (COMMON-LISP:SETF (CFFI:MEM-REF A-REF7622 :DOUBLE) A)
    8190. 

  8190.     (COMMON-LISP:SETF (CFFI:MEM-REF B-REF7623 :DOUBLE) B)
    8191. 

  8191.     (COMMON-LISP:SETF (CFFI:MEM-REF C-REF7624 :DOUBLE) C)
    8192. 

  8192.     (COMMON-LISP:SETF (CFFI:MEM-REF RT1-REF7625 :DOUBLE) RT1)
    8193. 

  8193.     (COMMON-LISP:SETF (CFFI:MEM-REF RT2-REF7626 :DOUBLE) RT2)
    8194. 

  8194.     (COMMON-LISP:SETF (CFFI:MEM-REF CS1-REF7627 :DOUBLE) CS1)
    8195. 

  8195.     (COMMON-LISP:SETF (CFFI:MEM-REF SN1-REF7628 :DOUBLE) SN1)
    8196. 

  8196.     (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS COMMON-LISP:NIL
    8197. 

  8197.       (%%DLAEV2 A-REF7622 B-REF7623 C-REF7624 RT1-REF7625 RT2-REF7626
    8198. 

  8198.        CS1-REF7627 SN1-REF7628))))
    8199. 

  8199. 

  8200. (CFFI:DEFCFUN ("dlaexc_" %%DLAEXC :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    8201. 

  8201.     :VOID
    8202. 

  8202.   (WANTQ :POINTER)
    8203. 

  8203.   (N :POINTER)
    8204. 

  8204.   (T :POINTER)
    8205. 

  8205.   (LDT :POINTER)
    8206. 

  8206.   (Q :POINTER)
    8207. 

  8207.   (LDQ :POINTER)
    8208. 

  8208.   (J1 :POINTER)
    8209. 

  8209.   (N1 :POINTER)
    8210. 

  8210.   (N2 :POINTER)
    8211. 

  8211.   (WORK :POINTER)
    8212. 

  8212.   (INFO :POINTER))
    8213. 

  8213. 

  8214. (COMMON-LISP:DEFUN %DLAEXC (WANTQ N T LDT Q LDQ J1 N1 N2 WORK INFO)
    8215. 

  8215.   (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLAEXC)
    8216. 

  8216.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) WANTQ)
    8217. 

  8217.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
    8218. 

  8218.                        (COMMON-LISP:TYPE
    8219. 

  8219.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) T)
    8220. 

  8220.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
    8221. 

  8221.                        (COMMON-LISP:TYPE
    8222. 

  8222.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Q)
    8223. 

  8223.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ)
    8224. 

  8224.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) J1)
    8225. 

  8225.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N1)
    8226. 

  8226.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N2)
    8227. 

  8227.                        (COMMON-LISP:TYPE
    8228. 

  8228.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    8229. 

  8229.                         WORK)
    8230. 

  8230.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
    8231. 

  8231.   (CFFI:WITH-FOREIGN-OBJECTS ((WANTQ-REF7629 ':INT32) (N-REF7630 ':INT32)
    8232. 

  8232.                               (LDT-REF7632 ':INT32) (LDQ-REF7634 ':INT32)
    8233. 

  8233.                               (J1-REF7635 ':INT32) (N1-REF7636 ':INT32)
    8234. 

  8234.                               (N2-REF7637 ':INT32) (INFO-REF7639 ':INT32))
    8235. 

  8235.     (COMMON-LISP:SETF (CFFI:MEM-REF WANTQ-REF7629 :INT32) WANTQ)
    8236. 

  8236.     (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7630 :INT32) N)
    8237. 

  8237.     (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF7632 :INT32) LDT)
    8238. 

  8238.     (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF7634 :INT32) LDQ)
    8239. 

  8239.     (COMMON-LISP:SETF (CFFI:MEM-REF J1-REF7635 :INT32) J1)
    8240. 

  8240.     (COMMON-LISP:SETF (CFFI:MEM-REF N1-REF7636 :INT32) N1)
    8241. 

  8241.     (COMMON-LISP:SETF (CFFI:MEM-REF N2-REF7637 :INT32) N2)
    8242. 

  8242.     (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF7639 :INT32) INFO)
    8243. 

  8243.     (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((T-REF7631 T) (Q-REF7633 Q)
    8244. 

  8244.                                             (WORK-REF7638 WORK))
    8245. 

  8245.       (%%DLAEXC WANTQ-REF7629 N-REF7630 T-REF7631 LDT-REF7632 Q-REF7633
    8246. 

  8246.        LDQ-REF7634 J1-REF7635 N1-REF7636 N2-REF7637 WORK-REF7638
    8247. 

  8247.        INFO-REF7639))))
    8248. 

  8248. 

  8249. (CFFI:DEFCFUN ("dlag2_" %%DLAG2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    8250. 

  8250.     :VOID
    8251. 

  8251.   (A :POINTER)
    8252. 

  8252.   (LDA :POINTER)
    8253. 

  8253.   (B :POINTER)
    8254. 

  8254.   (LDB :POINTER)
    8255. 

  8255.   (SAFMIN :POINTER)
    8256. 

  8256.   (SCALE1 :POINTER)
    8257. 

  8257.   (SCALE2 :POINTER)
    8258. 

  8258.   (WR1 :POINTER)
    8259. 

  8259.   (WR2 :POINTER)
    8260. 

  8260.   (WI :POINTER))
    8261. 

  8261. 

  8262. (COMMON-LISP:DEFUN %DLAG2 (A LDA B LDB SAFMIN SCALE1 SCALE2 WR1 WR2 WI)
    8263. 

  8263.   (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLAG2)
    8264. 

  8264.                        (COMMON-LISP:TYPE
    8265. 

  8265.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
    8266. 

  8266.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
    8267. 

  8267.                        (COMMON-LISP:TYPE
    8268. 

  8268.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
    8269. 

  8269.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
    8270. 

  8270.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SAFMIN)
    8271. 

  8271.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SCALE1)
    8272. 

  8272.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SCALE2)
    8273. 

  8273.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT WR1)
    8274. 

  8274.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT WR2)
    8275. 

  8275.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT WI))
    8276. 

  8276.   (CFFI:WITH-FOREIGN-OBJECTS ((LDA-REF7641 ':INT32) (LDB-REF7643 ':INT32)
    8277. 

  8277.                               (SAFMIN-REF7644 ':DOUBLE)
    8278. 

  8278.                               (SCALE1-REF7645 ':DOUBLE)
    8279. 

  8279.                               (SCALE2-REF7646 ':DOUBLE) (WR1-REF7647 ':DOUBLE)
    8280. 

  8280.                               (WR2-REF7648 ':DOUBLE) (WI-REF7649 ':DOUBLE))
    8281. 

  8281.     (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF7641 :INT32) LDA)
    8282. 

  8282.     (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF7643 :INT32) LDB)
    8283. 

  8283.     (COMMON-LISP:SETF (CFFI:MEM-REF SAFMIN-REF7644 :DOUBLE) SAFMIN)
    8284. 

  8284.     (COMMON-LISP:SETF (CFFI:MEM-REF SCALE1-REF7645 :DOUBLE) SCALE1)
    8285. 

  8285.     (COMMON-LISP:SETF (CFFI:MEM-REF SCALE2-REF7646 :DOUBLE) SCALE2)
    8286. 

  8286.     (COMMON-LISP:SETF (CFFI:MEM-REF WR1-REF7647 :DOUBLE) WR1)
    8287. 

  8287.     (COMMON-LISP:SETF (CFFI:MEM-REF WR2-REF7648 :DOUBLE) WR2)
    8288. 

  8288.     (COMMON-LISP:SETF (CFFI:MEM-REF WI-REF7649 :DOUBLE) WI)
    8289. 

  8289.     (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF7640 A) (B-REF7642 B))
    8290. 

  8290.       (%%DLAG2 A-REF7640 LDA-REF7641 B-REF7642 LDB-REF7643 SAFMIN-REF7644
    8291. 

  8291.        SCALE1-REF7645 SCALE2-REF7646 WR1-REF7647 WR2-REF7648 WI-REF7649))))
    8292. 

  8292. 

  8293. (CFFI:DEFCFUN ("dlag2s_" %%DLAG2S :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    8294. 

  8294.     :VOID
    8295. 

  8295.   (M :POINTER)
    8296. 

  8296.   (N :POINTER)
    8297. 

  8297.   (A :POINTER)
    8298. 

  8298.   (LDA :POINTER)
    8299. 

  8299.   (SA :POINTER)
    8300. 

  8300.   (LDSA :POINTER)
    8301. 

  8301.   (INFO :POINTER))
    8302. 

  8302. 

  8303. (COMMON-LISP:DEFUN %DLAG2S (M N A LDA SA LDSA INFO)
    8304. 

  8304.   (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLAG2S)
    8305. 

  8305.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
    8306. 

  8306.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
    8307. 

  8307.                        (COMMON-LISP:TYPE
    8308. 

  8308.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
    8309. 

  8309.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
    8310. 

  8310.                        (COMMON-LISP:TYPE
    8311. 

  8311.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) SA)
    8312. 

  8312.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDSA)
    8313. 

  8313.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
    8314. 

  8314.   (CFFI:WITH-FOREIGN-OBJECTS ((M-REF7650 ':INT32) (N-REF7651 ':INT32)
    8315. 

  8315.                               (LDA-REF7653 ':INT32) (LDSA-REF7655 ':INT32)
    8316. 

  8316.                               (INFO-REF7656 ':INT32))
    8317. 

  8317.     (COMMON-LISP:SETF (CFFI:MEM-REF M-REF7650 :INT32) M)
    8318. 

  8318.     (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7651 :INT32) N)
    8319. 

  8319.     (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF7653 :INT32) LDA)
    8320. 

  8320.     (COMMON-LISP:SETF (CFFI:MEM-REF LDSA-REF7655 :INT32) LDSA)
    8321. 

  8321.     (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF7656 :INT32) INFO)
    8322. 

  8322.     (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF7652 A) (SA-REF7654 SA))
    8323. 

  8323.       (%%DLAG2S M-REF7650 N-REF7651 A-REF7652 LDA-REF7653 SA-REF7654
    8324. 

  8324.        LDSA-REF7655 INFO-REF7656))))
    8325. 

  8325. 

  8326. (CFFI:DEFCFUN ("dlags2_" %%DLAGS2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    8327. 

  8327.     :VOID
    8328. 

  8328.   (UPPER :POINTER)
    8329. 

  8329.   (A1 :POINTER)
    8330. 

  8330.   (A2 :POINTER)
    8331. 

  8331.   (A3 :POINTER)
    8332. 

  8332.   (B1 :POINTER)
    8333. 

  8333.   (B2 :POINTER)
    8334. 

  8334.   (B3 :POINTER)
    8335. 

  8335.   (CSU :POINTER)
    8336. 

  8336.   (SNU :POINTER)
    8337. 

  8337.   (CSV :POINTER)
    8338. 

  8338.   (SNV :POINTER)
    8339. 

  8339.   (CSQ :POINTER)
    8340. 

  8340.   (SNQ :POINTER))
    8341. 

  8341. 

  8342. (COMMON-LISP:DEFUN %DLAGS2 (UPPER A1 A2 A3 B1 B2 B3 CSU SNU CSV SNV CSQ SNQ)
    8343. 

  8343.   (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLAGS2)
    8344. 

  8344.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) UPPER)
    8345. 

  8345.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT A1)
    8346. 

  8346.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT A2)
    8347. 

  8347.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT A3)
    8348. 

  8348.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT B1)
    8349. 

  8349.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT B2)
    8350. 

  8350.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT B3)
    8351. 

  8351.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT CSU)
    8352. 

  8352.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SNU)
    8353. 

  8353.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT CSV)
    8354. 

  8354.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SNV)
    8355. 

  8355.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT CSQ)
    8356. 

  8356.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SNQ))
    8357. 

  8357.   (CFFI:WITH-FOREIGN-OBJECTS ((UPPER-REF7657 ':INT32) (A1-REF7658 ':DOUBLE)
    8358. 

  8358.                               (A2-REF7659 ':DOUBLE) (A3-REF7660 ':DOUBLE)
    8359. 

  8359.                               (B1-REF7661 ':DOUBLE) (B2-REF7662 ':DOUBLE)
    8360. 

  8360.                               (B3-REF7663 ':DOUBLE) (CSU-REF7664 ':DOUBLE)
    8361. 

  8361.                               (SNU-REF7665 ':DOUBLE) (CSV-REF7666 ':DOUBLE)
    8362. 

  8362.                               (SNV-REF7667 ':DOUBLE) (CSQ-REF7668 ':DOUBLE)
    8363. 

  8363.                               (SNQ-REF7669 ':DOUBLE))
    8364. 

  8364.     (COMMON-LISP:SETF (CFFI:MEM-REF UPPER-REF7657 :INT32) UPPER)
    8365. 

  8365.     (COMMON-LISP:SETF (CFFI:MEM-REF A1-REF7658 :DOUBLE) A1)
    8366. 

  8366.     (COMMON-LISP:SETF (CFFI:MEM-REF A2-REF7659 :DOUBLE) A2)
    8367. 

  8367.     (COMMON-LISP:SETF (CFFI:MEM-REF A3-REF7660 :DOUBLE) A3)
    8368. 

  8368.     (COMMON-LISP:SETF (CFFI:MEM-REF B1-REF7661 :DOUBLE) B1)
    8369. 

  8369.     (COMMON-LISP:SETF (CFFI:MEM-REF B2-REF7662 :DOUBLE) B2)
    8370. 

  8370.     (COMMON-LISP:SETF (CFFI:MEM-REF B3-REF7663 :DOUBLE) B3)
    8371. 

  8371.     (COMMON-LISP:SETF (CFFI:MEM-REF CSU-REF7664 :DOUBLE) CSU)
    8372. 

  8372.     (COMMON-LISP:SETF (CFFI:MEM-REF SNU-REF7665 :DOUBLE) SNU)
    8373. 

  8373.     (COMMON-LISP:SETF (CFFI:MEM-REF CSV-REF7666 :DOUBLE) CSV)
    8374. 

  8374.     (COMMON-LISP:SETF (CFFI:MEM-REF SNV-REF7667 :DOUBLE) SNV)
    8375. 

  8375.     (COMMON-LISP:SETF (CFFI:MEM-REF CSQ-REF7668 :DOUBLE) CSQ)
    8376. 

  8376.     (COMMON-LISP:SETF (CFFI:MEM-REF SNQ-REF7669 :DOUBLE) SNQ)
    8377. 

  8377.     (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS COMMON-LISP:NIL
    8378. 

  8378.       (%%DLAGS2 UPPER-REF7657 A1-REF7658 A2-REF7659 A3-REF7660 B1-REF7661
    8379. 

  8379.        B2-REF7662 B3-REF7663 CSU-REF7664 SNU-REF7665 CSV-REF7666 SNV-REF7667
    8380. 

  8380.        CSQ-REF7668 SNQ-REF7669))))
    8381. 

  8381. 

  8382. (CFFI:DEFCFUN ("dlagtf_" %%DLAGTF :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    8383. 

  8383.     :VOID
    8384. 

  8384.   (N :POINTER)
    8385. 

  8385.   (A :POINTER)
    8386. 

  8386.   (LAMBDA :POINTER)
    8387. 

  8387.   (B :POINTER)
    8388. 

  8388.   (C :POINTER)
    8389. 

  8389.   (TOL :POINTER)
    8390. 

  8390.   (D :POINTER)
    8391. 

  8391.   (IN :POINTER)
    8392. 

  8392.   (INFO :POINTER))
    8393. 

  8393. 

  8394. (COMMON-LISP:DEFUN %DLAGTF (N A LAMBDA B C TOL D IN INFO)
    8395. 

  8395.   (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLAGTF)
    8396. 

  8396.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
    8397. 

  8397.                        (COMMON-LISP:TYPE
    8398. 

  8398.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
    8399. 

  8399.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT LAMBDA)
    8400. 

  8400.                        (COMMON-LISP:TYPE
    8401. 

  8401.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
    8402. 

  8402.                        (COMMON-LISP:TYPE
    8403. 

  8403.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
    8404. 

  8404.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT TOL)
    8405. 

  8405.                        (COMMON-LISP:TYPE
    8406. 

  8406.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
    8407. 

  8407.                        (COMMON-LISP:TYPE
    8408. 

  8408.                         (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
    8409. 

  8409.                          (COMMON-LISP:*))
    8410. 

  8410.                         IN)
    8411. 

  8411.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
    8412. 

  8412.   (CFFI:WITH-FOREIGN-OBJECTS ((N-REF7670 ':INT32) (LAMBDA-REF7672 ':DOUBLE)
    8413. 

  8413.                               (TOL-REF7675 ':DOUBLE) (INFO-REF7678 ':INT32))
    8414. 

  8414.     (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7670 :INT32) N)
    8415. 

  8415.     (COMMON-LISP:SETF (CFFI:MEM-REF LAMBDA-REF7672 :DOUBLE) LAMBDA)
    8416. 

  8416.     (COMMON-LISP:SETF (CFFI:MEM-REF TOL-REF7675 :DOUBLE) TOL)
    8417. 

  8417.     (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF7678 :INT32) INFO)
    8418. 

  8418.     (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF7671 A) (B-REF7673 B)
    8419. 

  8419.                                             (C-REF7674 C) (D-REF7676 D)
    8420. 

  8420.                                             (IN-REF7677 IN))
    8421. 

  8421.       (%%DLAGTF N-REF7670 A-REF7671 LAMBDA-REF7672 B-REF7673 C-REF7674
    8422. 

  8422.        TOL-REF7675 D-REF7676 IN-REF7677 INFO-REF7678))))
    8423. 

  8423. 

  8424. (CFFI:DEFCFUN ("dlagtm_" %%DLAGTM :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    8425. 

  8425.     :VOID
    8426. 

  8426.   (TRANS :STRING)
    8427. 

  8427.   (N :POINTER)
    8428. 

  8428.   (NRHS :POINTER)
    8429. 

  8429.   (ALPHA :POINTER)
    8430. 

  8430.   (DL :POINTER)
    8431. 

  8431.   (D :POINTER)
    8432. 

  8432.   (DU :POINTER)
    8433. 

  8433.   (X :POINTER)
    8434. 

  8434.   (LDX :POINTER)
    8435. 

  8435.   (BETA :POINTER)
    8436. 

  8436.   (B :POINTER)
    8437. 

  8437.   (LDB :POINTER))
    8438. 

  8438. 

  8439. (COMMON-LISP:DEFUN %DLAGTM (TRANS N NRHS ALPHA DL D DU X LDX BETA B LDB)
    8440. 

  8440.   (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLAGTM)
    8441. 

  8441.                        (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
    8442. 

  8442.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
    8443. 

  8443.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
    8444. 

  8444.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ALPHA)
    8445. 

  8445.                        (COMMON-LISP:TYPE
    8446. 

  8446.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) DL)
    8447. 

  8447.                        (COMMON-LISP:TYPE
    8448. 

  8448.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
    8449. 

  8449.                        (COMMON-LISP:TYPE
    8450. 

  8450.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) DU)
    8451. 

  8451.                        (COMMON-LISP:TYPE
    8452. 

  8452.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) X)
    8453. 

  8453.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
    8454. 

  8454.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT BETA)
    8455. 

  8455.                        (COMMON-LISP:TYPE
    8456. 

  8456.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
    8457. 

  8457.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB))
    8458. 

  8458.   (CFFI:WITH-FOREIGN-OBJECTS ((N-REF7680 ':INT32) (NRHS-REF7681 ':INT32)
    8459. 

  8459.                               (ALPHA-REF7682 ':DOUBLE) (LDX-REF7687 ':INT32)
    8460. 

  8460.                               (BETA-REF7688 ':DOUBLE) (LDB-REF7690 ':INT32))
    8461. 

  8461.     (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7680 :INT32) N)
    8462. 

  8462.     (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF7681 :INT32) NRHS)
    8463. 

  8463.     (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF7682 :DOUBLE) ALPHA)
    8464. 

  8464.     (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF7687 :INT32) LDX)
    8465. 

  8465.     (COMMON-LISP:SETF (CFFI:MEM-REF BETA-REF7688 :DOUBLE) BETA)
    8466. 

  8466.     (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF7690 :INT32) LDB)
    8467. 

  8467.     (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((DL-REF7683 DL) (D-REF7684 D)
    8468. 

  8468.                                             (DU-REF7685 DU) (X-REF7686 X)
    8469. 

  8469.                                             (B-REF7689 B))
    8470. 

  8470.       (%%DLAGTM TRANS N-REF7680 NRHS-REF7681 ALPHA-REF7682 DL-REF7683 D-REF7684
    8471. 

  8471.        DU-REF7685 X-REF7686 LDX-REF7687 BETA-REF7688 B-REF7689 LDB-REF7690))))
    8472. 

  8472. 

  8473. (CFFI:DEFCFUN ("dlagts_" %%DLAGTS :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    8474. 

  8474.     :VOID
    8475. 

  8475.   (JOB :POINTER)
    8476. 

  8476.   (N :POINTER)
    8477. 

  8477.   (A :POINTER)
    8478. 

  8478.   (B :POINTER)
    8479. 

  8479.   (C :POINTER)
    8480. 

  8480.   (D :POINTER)
    8481. 

  8481.   (IN :POINTER)
    8482. 

  8482.   (Y :POINTER)
    8483. 

  8483.   (TOL :POINTER)
    8484. 

  8484.   (INFO :POINTER))
    8485. 

  8485. 

  8486. (COMMON-LISP:DEFUN %DLAGTS (JOB N A B C D IN Y TOL INFO)
    8487. 

  8487.   (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLAGTS)
    8488. 

  8488.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) JOB)
    8489. 

  8489.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
    8490. 

  8490.                        (COMMON-LISP:TYPE
    8491. 

  8491.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
    8492. 

  8492.                        (COMMON-LISP:TYPE
    8493. 

  8493.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
    8494. 

  8494.                        (COMMON-LISP:TYPE
    8495. 

  8495.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
    8496. 

  8496.                        (COMMON-LISP:TYPE
    8497. 

  8497.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
    8498. 

  8498.                        (COMMON-LISP:TYPE
    8499. 

  8499.                         (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
    8500. 

  8500.                          (COMMON-LISP:*))
    8501. 

  8501.                         IN)
    8502. 

  8502.                        (COMMON-LISP:TYPE
    8503. 

  8503.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Y)
    8504. 

  8504.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT TOL)
    8505. 

  8505.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
    8506. 

  8506.   (CFFI:WITH-FOREIGN-OBJECTS ((JOB-REF7691 ':INT32) (N-REF7692 ':INT32)
    8507. 

  8507.                               (TOL-REF7699 ':DOUBLE) (INFO-REF7700 ':INT32))
    8508. 

  8508.     (COMMON-LISP:SETF (CFFI:MEM-REF JOB-REF7691 :INT32) JOB)
    8509. 

  8509.     (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7692 :INT32) N)
    8510. 

  8510.     (COMMON-LISP:SETF (CFFI:MEM-REF TOL-REF7699 :DOUBLE) TOL)
    8511. 

  8511.     (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF7700 :INT32) INFO)
    8512. 

  8512.     (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF7693 A) (B-REF7694 B)
    8513. 

  8513.                                             (C-REF7695 C) (D-REF7696 D)
    8514. 

  8514.                                             (IN-REF7697 IN) (Y-REF7698 Y))
    8515. 

  8515.       (%%DLAGTS JOB-REF7691 N-REF7692 A-REF7693 B-REF7694 C-REF7695 D-REF7696
    8516. 

  8516.        IN-REF7697 Y-REF7698 TOL-REF7699 INFO-REF7700))))
    8517. 

  8517. 

  8518. (CFFI:DEFCFUN ("dlagv2_" %%DLAGV2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    8519. 

  8519.     :VOID
    8520. 

  8520.   (A :POINTER)
    8521. 

  8521.   (LDA :POINTER)
    8522. 

  8522.   (B :POINTER)
    8523. 

  8523.   (LDB :POINTER)
    8524. 

  8524.   (ALPHAR :POINTER)
    8525. 

  8525.   (ALPHAI :POINTER)
    8526. 

  8526.   (BETA :POINTER)
    8527. 

  8527.   (CSL :POINTER)
    8528. 

  8528.   (SNL :POINTER)
    8529. 

  8529.   (CSR :POINTER)
    8530. 

  8530.   (SNR :POINTER))
    8531. 

  8531. 

  8532. (COMMON-LISP:DEFUN %DLAGV2 (A LDA B LDB ALPHAR ALPHAI BETA CSL SNL CSR SNR)
    8533. 

  8533.   (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLAGV2)
    8534. 

  8534.                        (COMMON-LISP:TYPE
    8535. 

  8535.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
    8536. 

  8536.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
    8537. 

  8537.                        (COMMON-LISP:TYPE
    8538. 

  8538.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
    8539. 

  8539.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
    8540. 

  8540.                        (COMMON-LISP:TYPE
    8541. 

  8541.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    8542. 

  8542.                         ALPHAR)
    8543. 

  8543.                        (COMMON-LISP:TYPE
    8544. 

  8544.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    8545. 

  8545.                         ALPHAI)
    8546. 

  8546.                        (COMMON-LISP:TYPE
    8547. 

  8547.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    8548. 

  8548.                         BETA)
    8549. 

  8549.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT CSL)
    8550. 

  8550.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SNL)
    8551. 

  8551.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT CSR)
    8552. 

  8552.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SNR))
    8553. 

  8553.   (CFFI:WITH-FOREIGN-OBJECTS ((LDA-REF7702 ':INT32) (LDB-REF7704 ':INT32)
    8554. 

  8554.                               (CSL-REF7708 ':DOUBLE) (SNL-REF7709 ':DOUBLE)
    8555. 

  8555.                               (CSR-REF7710 ':DOUBLE) (SNR-REF7711 ':DOUBLE))
    8556. 

  8556.     (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF7702 :INT32) LDA)
    8557. 

  8557.     (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF7704 :INT32) LDB)
    8558. 

  8558.     (COMMON-LISP:SETF (CFFI:MEM-REF CSL-REF7708 :DOUBLE) CSL)
    8559. 

  8559.     (COMMON-LISP:SETF (CFFI:MEM-REF SNL-REF7709 :DOUBLE) SNL)
    8560. 

  8560.     (COMMON-LISP:SETF (CFFI:MEM-REF CSR-REF7710 :DOUBLE) CSR)
    8561. 

  8561.     (COMMON-LISP:SETF (CFFI:MEM-REF SNR-REF7711 :DOUBLE) SNR)
    8562. 

  8562.     (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF7701 A) (B-REF7703 B)
    8563. 

  8563.                                             (ALPHAR-REF7705 ALPHAR)
    8564. 

  8564.                                             (ALPHAI-REF7706 ALPHAI)
    8565. 

  8565.                                             (BETA-REF7707 BETA))
    8566. 

  8566.       (%%DLAGV2 A-REF7701 LDA-REF7702 B-REF7703 LDB-REF7704 ALPHAR-REF7705
    8567. 

  8567.        ALPHAI-REF7706 BETA-REF7707 CSL-REF7708 SNL-REF7709 CSR-REF7710
    8568. 

  8568.        SNR-REF7711))))
    8569. 

  8569. 

  8570. (CFFI:DEFCFUN ("dlahqr_" %%DLAHQR :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    8571. 

  8571.     :VOID
    8572. 

  8572.   (WANTT :POINTER)
    8573. 

  8573.   (WANTZ :POINTER)
    8574. 

  8574.   (N :POINTER)
    8575. 

  8575.   (ILO :POINTER)
    8576. 

  8576.   (IHI :POINTER)
    8577. 

  8577.   (H :POINTER)
    8578. 

  8578.   (LDH :POINTER)
    8579. 

  8579.   (WR :POINTER)
    8580. 

  8580.   (WI :POINTER)
    8581. 

  8581.   (ILOZ :POINTER)
    8582. 

  8582.   (IHIZ :POINTER)
    8583. 

  8583.   (Z :POINTER)
    8584. 

  8584.   (LDZ :POINTER)
    8585. 

  8585.   (INFO :POINTER))
    8586. 

  8586. 

  8587. (COMMON-LISP:DEFUN %DLAHQR
    8588. 

  8588.                    (WANTT WANTZ N ILO IHI H LDH WR WI ILOZ IHIZ Z LDZ INFO)
    8589. 

  8589.   (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLAHQR)
    8590. 

  8590.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) WANTT)
    8591. 

  8591.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) WANTZ)
    8592. 

  8592.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
    8593. 

  8593.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILO)
    8594. 

  8594.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IHI)
    8595. 

  8595.                        (COMMON-LISP:TYPE
    8596. 

  8596.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) H)
    8597. 

  8597.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDH)
    8598. 

  8598.                        (COMMON-LISP:TYPE
    8599. 

  8599.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WR)
    8600. 

  8600.                        (COMMON-LISP:TYPE
    8601. 

  8601.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WI)
    8602. 

  8602.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILOZ)
    8603. 

  8603.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IHIZ)
    8604. 

  8604.                        (COMMON-LISP:TYPE
    8605. 

  8605.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Z)
    8606. 

  8606.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
    8607. 

  8607.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
    8608. 

  8608.   (CFFI:WITH-FOREIGN-OBJECTS ((WANTT-REF7712 ':INT32) (WANTZ-REF7713 ':INT32)
    8609. 

  8609.                               (N-REF7714 ':INT32) (ILO-REF7715 ':INT32)
    8610. 

  8610.                               (IHI-REF7716 ':INT32) (LDH-REF7718 ':INT32)
    8611. 

  8611.                               (ILOZ-REF7721 ':INT32) (IHIZ-REF7722 ':INT32)
    8612. 

  8612.                               (LDZ-REF7724 ':INT32) (INFO-REF7725 ':INT32))
    8613. 

  8613.     (COMMON-LISP:SETF (CFFI:MEM-REF WANTT-REF7712 :INT32) WANTT)
    8614. 

  8614.     (COMMON-LISP:SETF (CFFI:MEM-REF WANTZ-REF7713 :INT32) WANTZ)
    8615. 

  8615.     (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7714 :INT32) N)
    8616. 

  8616.     (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF7715 :INT32) ILO)
    8617. 

  8617.     (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF7716 :INT32) IHI)
    8618. 

  8618.     (COMMON-LISP:SETF (CFFI:MEM-REF LDH-REF7718 :INT32) LDH)
    8619. 

  8619.     (COMMON-LISP:SETF (CFFI:MEM-REF ILOZ-REF7721 :INT32) ILOZ)
    8620. 

  8620.     (COMMON-LISP:SETF (CFFI:MEM-REF IHIZ-REF7722 :INT32) IHIZ)
    8621. 

  8621.     (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF7724 :INT32) LDZ)
    8622. 

  8622.     (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF7725 :INT32) INFO)
    8623. 

  8623.     (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((H-REF7717 H) (WR-REF7719 WR)
    8624. 

  8624.                                             (WI-REF7720 WI) (Z-REF7723 Z))
    8625. 

  8625.       (%%DLAHQR WANTT-REF7712 WANTZ-REF7713 N-REF7714 ILO-REF7715 IHI-REF7716
    8626. 

  8626.        H-REF7717 LDH-REF7718 WR-REF7719 WI-REF7720 ILOZ-REF7721 IHIZ-REF7722
    8627. 

  8627.        Z-REF7723 LDZ-REF7724 INFO-REF7725))))
    8628. 

  8628. 

  8629. (CFFI:DEFCFUN ("dlahr2_" %%DLAHR2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    8630. 

  8630.     :VOID
    8631. 

  8631.   (N :POINTER)
    8632. 

  8632.   (K :POINTER)
    8633. 

  8633.   (NB :POINTER)
    8634. 

  8634.   (A :POINTER)
    8635. 

  8635.   (LDA :POINTER)
    8636. 

  8636.   (TAU :POINTER)
    8637. 

  8637.   (T :POINTER)
    8638. 

  8638.   (LDT :POINTER)
    8639. 

  8639.   (Y :POINTER)
    8640. 

  8640.   (LDY :POINTER))
    8641. 

  8641. 

  8642. (COMMON-LISP:DEFUN %DLAHR2 (N K NB A LDA TAU T LDT Y LDY)
    8643. 

  8643.   (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLAHR2)
    8644. 

  8644.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
    8645. 

  8645.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
    8646. 

  8646.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NB)
    8647. 

  8647.                        (COMMON-LISP:TYPE
    8648. 

  8648.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
    8649. 

  8649.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
    8650. 

  8650.                        (COMMON-LISP:TYPE
    8651. 

  8651.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    8652. 

  8652.                         TAU)
    8653. 

  8653.                        (COMMON-LISP:TYPE
    8654. 

  8654.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) T)
    8655. 

  8655.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
    8656. 

  8656.                        (COMMON-LISP:TYPE
    8657. 

  8657.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Y)
    8658. 

  8658.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDY))
    8659. 

  8659.   (CFFI:WITH-FOREIGN-OBJECTS ((N-REF7726 ':INT32) (K-REF7727 ':INT32)
    8660. 

  8660.                               (NB-REF7728 ':INT32) (LDA-REF7730 ':INT32)
    8661. 

  8661.                               (LDT-REF7733 ':INT32) (LDY-REF7735 ':INT32))
    8662. 

  8662.     (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7726 :INT32) N)
    8663. 

  8663.     (COMMON-LISP:SETF (CFFI:MEM-REF K-REF7727 :INT32) K)
    8664. 

  8664.     (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF7728 :INT32) NB)
    8665. 

  8665.     (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF7730 :INT32) LDA)
    8666. 

  8666.     (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF7733 :INT32) LDT)
    8667. 

  8667.     (COMMON-LISP:SETF (CFFI:MEM-REF LDY-REF7735 :INT32) LDY)
    8668. 

  8668.     (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF7729 A) (TAU-REF7731 TAU)
    8669. 

  8669.                                             (T-REF7732 T) (Y-REF7734 Y))
    8670. 

  8670.       (%%DLAHR2 N-REF7726 K-REF7727 NB-REF7728 A-REF7729 LDA-REF7730
    8671. 

  8671.        TAU-REF7731 T-REF7732 LDT-REF7733 Y-REF7734 LDY-REF7735))))
    8672. 

  8672. 

  8673. (CFFI:DEFCFUN ("dlaic1_" %%DLAIC1 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    8674. 

  8674.     :VOID
    8675. 

  8675.   (JOB :POINTER)
    8676. 

  8676.   (J :POINTER)
    8677. 

  8677.   (X :POINTER)
    8678. 

  8678.   (SEST :POINTER)
    8679. 

  8679.   (W :POINTER)
    8680. 

  8680.   (GAMMA :POINTER)
    8681. 

  8681.   (SESTPR :POINTER)
    8682. 

  8682.   (S :POINTER)
    8683. 

  8683.   (C :POINTER))
    8684. 

  8684. 

  8685. (COMMON-LISP:DEFUN %DLAIC1 (JOB J X SEST W GAMMA SESTPR S C)
    8686. 

  8686.   (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLAIC1)
    8687. 

  8687.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) JOB)
    8688. 

  8688.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) J)
    8689. 

  8689.                        (COMMON-LISP:TYPE
    8690. 

  8690.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) X)
    8691. 

  8691.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SEST)
    8692. 

  8692.                        (COMMON-LISP:TYPE
    8693. 

  8693.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) W)
    8694. 

  8694.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT GAMMA)
    8695. 

  8695.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SESTPR)
    8696. 

  8696.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT S)
    8697. 

  8697.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT C))
    8698. 

  8698.   (CFFI:WITH-FOREIGN-OBJECTS ((JOB-REF7736 ':INT32) (J-REF7737 ':INT32)
    8699. 

  8699.                               (SEST-REF7739 ':DOUBLE) (GAMMA-REF7741 ':DOUBLE)
    8700. 

  8700.                               (SESTPR-REF7742 ':DOUBLE) (S-REF7743 ':DOUBLE)
    8701. 

  8701.                               (C-REF7744 ':DOUBLE))
    8702. 

  8702.     (COMMON-LISP:SETF (CFFI:MEM-REF JOB-REF7736 :INT32) JOB)
    8703. 

  8703.     (COMMON-LISP:SETF (CFFI:MEM-REF J-REF7737 :INT32) J)
    8704. 

  8704.     (COMMON-LISP:SETF (CFFI:MEM-REF SEST-REF7739 :DOUBLE) SEST)
    8705. 

  8705.     (COMMON-LISP:SETF (CFFI:MEM-REF GAMMA-REF7741 :DOUBLE) GAMMA)
    8706. 

  8706.     (COMMON-LISP:SETF (CFFI:MEM-REF SESTPR-REF7742 :DOUBLE) SESTPR)
    8707. 

  8707.     (COMMON-LISP:SETF (CFFI:MEM-REF S-REF7743 :DOUBLE) S)
    8708. 

  8708.     (COMMON-LISP:SETF (CFFI:MEM-REF C-REF7744 :DOUBLE) C)
    8709. 

  8709.     (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF7738 X) (W-REF7740 W))
    8710. 

  8710.       (%%DLAIC1 JOB-REF7736 J-REF7737 X-REF7738 SEST-REF7739 W-REF7740
    8711. 

  8711.        GAMMA-REF7741 SESTPR-REF7742 S-REF7743 C-REF7744))))
    8712. 

  8712. 

  8713. (CFFI:DEFCFUN ("dlaisnan_" %%DLAISNAN :LIBRARY
    8714. 

  8714.                MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    8715. 

  8715.     :INT32
    8716. 

  8716.   (DIN1 :POINTER)
    8717. 

  8717.   (DIN2 :POINTER))
    8718. 

  8718. 

  8719. (COMMON-LISP:DEFUN %DLAISNAN (DIN1 DIN2)
    8720. 

  8720.   (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLAISNAN)
    8721. 

  8721.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT DIN1)
    8722. 

  8722.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT DIN2))
    8723. 

  8723.   (CFFI:WITH-FOREIGN-OBJECTS ((DIN1-REF7745 ':DOUBLE) (DIN2-REF7746 ':DOUBLE))
    8724. 

  8724.     (COMMON-LISP:SETF (CFFI:MEM-REF DIN1-REF7745 :DOUBLE) DIN1)
    8725. 

  8725.     (COMMON-LISP:SETF (CFFI:MEM-REF DIN2-REF7746 :DOUBLE) DIN2)
    8726. 

  8726.     (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS COMMON-LISP:NIL
    8727. 

  8727.       (%%DLAISNAN DIN1-REF7745 DIN2-REF7746))))
    8728. 

  8728. 

  8729. (CFFI:DEFCFUN ("dlaln2_" %%DLALN2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    8730. 

  8730.     :VOID
    8731. 

  8731.   (LTRANS :POINTER)
    8732. 

  8732.   (NA :POINTER)
    8733. 

  8733.   (NW :POINTER)
    8734. 

  8734.   (SMIN :POINTER)
    8735. 

  8735.   (CA :POINTER)
    8736. 

  8736.   (A :POINTER)
    8737. 

  8737.   (LDA :POINTER)
    8738. 

  8738.   (D1 :POINTER)
    8739. 

  8739.   (D2 :POINTER)
    8740. 

  8740.   (B :POINTER)
    8741. 

  8741.   (LDB :POINTER)
    8742. 

  8742.   (WR :POINTER)
    8743. 

  8743.   (WI :POINTER)
    8744. 

  8744.   (X :POINTER)
    8745. 

  8745.   (LDX :POINTER)
    8746. 

  8746.   (SCALE :POINTER)
    8747. 

  8747.   (XNORM :POINTER)
    8748. 

  8748.   (INFO :POINTER))
    8749. 

  8749. 

  8750. (COMMON-LISP:DEFUN %DLALN2
    8751. 

  8751.                    (LTRANS NA NW SMIN CA A LDA D1 D2 B LDB WR WI X LDX SCALE
    8752. 

  8752.                     XNORM INFO)
    8753. 

  8753.   (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLALN2)
    8754. 

  8754.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LTRANS)
    8755. 

  8755.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NA)
    8756. 

  8756.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NW)
    8757. 

  8757.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SMIN)
    8758. 

  8758.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT CA)
    8759. 

  8759.                        (COMMON-LISP:TYPE
    8760. 

  8760.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
    8761. 

  8761.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
    8762. 

  8762.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT D1)
    8763. 

  8763.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT D2)
    8764. 

  8764.                        (COMMON-LISP:TYPE
    8765. 

  8765.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
    8766. 

  8766.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
    8767. 

  8767.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT WR)
    8768. 

  8768.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT WI)
    8769. 

  8769.                        (COMMON-LISP:TYPE
    8770. 

  8770.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) X)
    8771. 

  8771.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
    8772. 

  8772.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SCALE)
    8773. 

  8773.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT XNORM)
    8774. 

  8774.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
    8775. 

  8775.   (CFFI:WITH-FOREIGN-OBJECTS ((LTRANS-REF7747 ':INT32) (NA-REF7748 ':INT32)
    8776. 

  8776.                               (NW-REF7749 ':INT32) (SMIN-REF7750 ':DOUBLE)
    8777. 

  8777.                               (CA-REF7751 ':DOUBLE) (LDA-REF7753 ':INT32)
    8778. 

  8778.                               (D1-REF7754 ':DOUBLE) (D2-REF7755 ':DOUBLE)
    8779. 

  8779.                               (LDB-REF7757 ':INT32) (WR-REF7758 ':DOUBLE)
    8780. 

  8780.                               (WI-REF7759 ':DOUBLE) (LDX-REF7761 ':INT32)
    8781. 

  8781.                               (SCALE-REF7762 ':DOUBLE) (XNORM-REF7763 ':DOUBLE)
    8782. 

  8782.                               (INFO-REF7764 ':INT32))
    8783. 

  8783.     (COMMON-LISP:SETF (CFFI:MEM-REF LTRANS-REF7747 :INT32) LTRANS)
    8784. 

  8784.     (COMMON-LISP:SETF (CFFI:MEM-REF NA-REF7748 :INT32) NA)
    8785. 

  8785.     (COMMON-LISP:SETF (CFFI:MEM-REF NW-REF7749 :INT32) NW)
    8786. 

  8786.     (COMMON-LISP:SETF (CFFI:MEM-REF SMIN-REF7750 :DOUBLE) SMIN)
    8787. 

  8787.     (COMMON-LISP:SETF (CFFI:MEM-REF CA-REF7751 :DOUBLE) CA)
    8788. 

  8788.     (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF7753 :INT32) LDA)
    8789. 

  8789.     (COMMON-LISP:SETF (CFFI:MEM-REF D1-REF7754 :DOUBLE) D1)
    8790. 

  8790.     (COMMON-LISP:SETF (CFFI:MEM-REF D2-REF7755 :DOUBLE) D2)
    8791. 

  8791.     (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF7757 :INT32) LDB)
    8792. 

  8792.     (COMMON-LISP:SETF (CFFI:MEM-REF WR-REF7758 :DOUBLE) WR)
    8793. 

  8793.     (COMMON-LISP:SETF (CFFI:MEM-REF WI-REF7759 :DOUBLE) WI)
    8794. 

  8794.     (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF7761 :INT32) LDX)
    8795. 

  8795.     (COMMON-LISP:SETF (CFFI:MEM-REF SCALE-REF7762 :DOUBLE) SCALE)
    8796. 

  8796.     (COMMON-LISP:SETF (CFFI:MEM-REF XNORM-REF7763 :DOUBLE) XNORM)
    8797. 

  8797.     (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF7764 :INT32) INFO)
    8798. 

  8798.     (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF7752 A) (B-REF7756 B)
    8799. 

  8799.                                             (X-REF7760 X))
    8800. 

  8800.       (%%DLALN2 LTRANS-REF7747 NA-REF7748 NW-REF7749 SMIN-REF7750 CA-REF7751
    8801. 

  8801.        A-REF7752 LDA-REF7753 D1-REF7754 D2-REF7755 B-REF7756 LDB-REF7757
    8802. 

  8802.        WR-REF7758 WI-REF7759 X-REF7760 LDX-REF7761 SCALE-REF7762 XNORM-REF7763
    8803. 

  8803.        INFO-REF7764))))
    8804. 

  8804. 

  8805. (CFFI:DEFCFUN ("dlals0_" %%DLALS0 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    8806. 

  8806.     :VOID
    8807. 

  8807.   (ICOMPQ :POINTER)
    8808. 

  8808.   (NL :POINTER)
    8809. 

  8809.   (NR :POINTER)
    8810. 

  8810.   (SQRE :POINTER)
    8811. 

  8811.   (NRHS :POINTER)
    8812. 

  8812.   (B :POINTER)
    8813. 

  8813.   (LDB :POINTER)
    8814. 

  8814.   (BX :POINTER)
    8815. 

  8815.   (LDBX :POINTER)
    8816. 

  8816.   (PERM :POINTER)
    8817. 

  8817.   (GIVPTR :POINTER)
    8818. 

  8818.   (GIVCOL :POINTER)
    8819. 

  8819.   (LDGCOL :POINTER)
    8820. 

  8820.   (GIVNUM :POINTER)
    8821. 

  8821.   (LDGNUM :POINTER)
    8822. 

  8822.   (POLES :POINTER)
    8823. 

  8823.   (DIFL :POINTER)
    8824. 

  8824.   (DIFR :POINTER)
    8825. 

  8825.   (Z :POINTER)
    8826. 

  8826.   (K :POINTER)
    8827. 

  8827.   (C :POINTER)
    8828. 

  8828.   (S :POINTER)
    8829. 

  8829.   (WORK :POINTER)
    8830. 

  8830.   (INFO :POINTER))
    8831. 

  8831. 

  8832. (COMMON-LISP:DEFUN %DLALS0
    8833. 

  8833.                    (ICOMPQ NL NR SQRE NRHS B LDB BX LDBX PERM GIVPTR GIVCOL
    8834. 

  8834.                     LDGCOL GIVNUM LDGNUM POLES DIFL DIFR Z K C S WORK INFO)
    8835. 

  8835.   (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLALS0)
    8836. 

  8836.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ICOMPQ)
    8837. 

  8837.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NL)
    8838. 

  8838.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NR)
    8839. 

  8839.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) SQRE)
    8840. 

  8840.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
    8841. 

  8841.                        (COMMON-LISP:TYPE
    8842. 

  8842.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
    8843. 

  8843.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
    8844. 

  8844.                        (COMMON-LISP:TYPE
    8845. 

  8845.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) BX)
    8846. 

  8846.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDBX)
    8847. 

  8847.                        (COMMON-LISP:TYPE
    8848. 

  8848.                         (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
    8849. 

  8849.                          (COMMON-LISP:*))
    8850. 

  8850.                         PERM)
    8851. 

  8851.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) GIVPTR)
    8852. 

  8852.                        (COMMON-LISP:TYPE
    8853. 

  8853.                         (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
    8854. 

  8854.                          (COMMON-LISP:*))
    8855. 

  8855.                         GIVCOL)
    8856. 

  8856.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDGCOL)
    8857. 

  8857.                        (COMMON-LISP:TYPE
    8858. 

  8858.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    8859. 

  8859.                         GIVNUM)
    8860. 

  8860.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDGNUM)
    8861. 

  8861.                        (COMMON-LISP:TYPE
    8862. 

  8862.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    8863. 

  8863.                         POLES)
    8864. 

  8864.                        (COMMON-LISP:TYPE
    8865. 

  8865.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    8866. 

  8866.                         DIFL)
    8867. 

  8867.                        (COMMON-LISP:TYPE
    8868. 

  8868.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    8869. 

  8869.                         DIFR)
    8870. 

  8870.                        (COMMON-LISP:TYPE
    8871. 

  8871.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Z)
    8872. 

  8872.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
    8873. 

  8873.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT C)
    8874. 

  8874.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT S)
    8875. 

  8875.                        (COMMON-LISP:TYPE
    8876. 

  8876.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    8877. 

  8877.                         WORK)
    8878. 

  8878.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
    8879. 

  8879.   (CFFI:WITH-FOREIGN-OBJECTS ((ICOMPQ-REF7765 ':INT32) (NL-REF7766 ':INT32)
    8880. 

  8880.                               (NR-REF7767 ':INT32) (SQRE-REF7768 ':INT32)
    8881. 

  8881.                               (NRHS-REF7769 ':INT32) (LDB-REF7771 ':INT32)
    8882. 

  8882.                               (LDBX-REF7773 ':INT32) (GIVPTR-REF7775 ':INT32)
    8883. 

  8883.                               (LDGCOL-REF7777 ':INT32) (LDGNUM-REF7779 ':INT32)
    8884. 

  8884.                               (K-REF7784 ':INT32) (C-REF7785 ':DOUBLE)
    8885. 

  8885.                               (S-REF7786 ':DOUBLE) (INFO-REF7788 ':INT32))
    8886. 

  8886.     (COMMON-LISP:SETF (CFFI:MEM-REF ICOMPQ-REF7765 :INT32) ICOMPQ)
    8887. 

  8887.     (COMMON-LISP:SETF (CFFI:MEM-REF NL-REF7766 :INT32) NL)
    8888. 

  8888.     (COMMON-LISP:SETF (CFFI:MEM-REF NR-REF7767 :INT32) NR)
    8889. 

  8889.     (COMMON-LISP:SETF (CFFI:MEM-REF SQRE-REF7768 :INT32) SQRE)
    8890. 

  8890.     (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF7769 :INT32) NRHS)
    8891. 

  8891.     (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF7771 :INT32) LDB)
    8892. 

  8892.     (COMMON-LISP:SETF (CFFI:MEM-REF LDBX-REF7773 :INT32) LDBX)
    8893. 

  8893.     (COMMON-LISP:SETF (CFFI:MEM-REF GIVPTR-REF7775 :INT32) GIVPTR)
    8894. 

  8894.     (COMMON-LISP:SETF (CFFI:MEM-REF LDGCOL-REF7777 :INT32) LDGCOL)
    8895. 

  8895.     (COMMON-LISP:SETF (CFFI:MEM-REF LDGNUM-REF7779 :INT32) LDGNUM)
    8896. 

  8896.     (COMMON-LISP:SETF (CFFI:MEM-REF K-REF7784 :INT32) K)
    8897. 

  8897.     (COMMON-LISP:SETF (CFFI:MEM-REF C-REF7785 :DOUBLE) C)
    8898. 

  8898.     (COMMON-LISP:SETF (CFFI:MEM-REF S-REF7786 :DOUBLE) S)
    8899. 

  8899.     (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF7788 :INT32) INFO)
    8900. 

  8900.     (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((B-REF7770 B) (BX-REF7772 BX)
    8901. 

  8901.                                             (PERM-REF7774 PERM)
    8902. 

  8902.                                             (GIVCOL-REF7776 GIVCOL)
    8903. 

  8903.                                             (GIVNUM-REF7778 GIVNUM)
    8904. 

  8904.                                             (POLES-REF7780 POLES)
    8905. 

  8905.                                             (DIFL-REF7781 DIFL)
    8906. 

  8906.                                             (DIFR-REF7782 DIFR) (Z-REF7783 Z)
    8907. 

  8907.                                             (WORK-REF7787 WORK))
    8908. 

  8908.       (%%DLALS0 ICOMPQ-REF7765 NL-REF7766 NR-REF7767 SQRE-REF7768 NRHS-REF7769
    8909. 

  8909.        B-REF7770 LDB-REF7771 BX-REF7772 LDBX-REF7773 PERM-REF7774
    8910. 

  8910.        GIVPTR-REF7775 GIVCOL-REF7776 LDGCOL-REF7777 GIVNUM-REF7778
    8911. 

  8911.        LDGNUM-REF7779 POLES-REF7780 DIFL-REF7781 DIFR-REF7782 Z-REF7783
    8912. 

  8912.        K-REF7784 C-REF7785 S-REF7786 WORK-REF7787 INFO-REF7788))))
    8913. 

  8913. 

  8914. (CFFI:DEFCFUN ("dlalsa_" %%DLALSA :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    8915. 

  8915.     :VOID
    8916. 

  8916.   (ICOMPQ :POINTER)
    8917. 

  8917.   (SMLSIZ :POINTER)
    8918. 

  8918.   (N :POINTER)
    8919. 

  8919.   (NRHS :POINTER)
    8920. 

  8920.   (B :POINTER)
    8921. 

  8921.   (LDB :POINTER)
    8922. 

  8922.   (BX :POINTER)
    8923. 

  8923.   (LDBX :POINTER)
    8924. 

  8924.   (U :POINTER)
    8925. 

  8925.   (LDU :POINTER)
    8926. 

  8926.   (VT :POINTER)
    8927. 

  8927.   (K :POINTER)
    8928. 

  8928.   (DIFL :POINTER)
    8929. 

  8929.   (DIFR :POINTER)
    8930. 

  8930.   (Z :POINTER)
    8931. 

  8931.   (POLES :POINTER)
    8932. 

  8932.   (GIVPTR :POINTER)
    8933. 

  8933.   (GIVCOL :POINTER)
    8934. 

  8934.   (LDGCOL :POINTER)
    8935. 

  8935.   (PERM :POINTER)
    8936. 

  8936.   (GIVNUM :POINTER)
    8937. 

  8937.   (C :POINTER)
    8938. 

  8938.   (S :POINTER)
    8939. 

  8939.   (WORK :POINTER)
    8940. 

  8940.   (IWORK :POINTER)
    8941. 

  8941.   (INFO :POINTER))
    8942. 

  8942. 

  8943. (COMMON-LISP:DEFUN %DLALSA
    8944. 

  8944.                    (ICOMPQ SMLSIZ N NRHS B LDB BX LDBX U LDU VT K DIFL DIFR Z
    8945. 

  8945.                     POLES GIVPTR GIVCOL LDGCOL PERM GIVNUM C S WORK IWORK INFO)
    8946. 

  8946.   (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLALSA)
    8947. 

  8947.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ICOMPQ)
    8948. 

  8948.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) SMLSIZ)
    8949. 

  8949.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
    8950. 

  8950.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
    8951. 

  8951.                        (COMMON-LISP:TYPE
    8952. 

  8952.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
    8953. 

  8953.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
    8954. 

  8954.                        (COMMON-LISP:TYPE
    8955. 

  8955.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) BX)
    8956. 

  8956.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDBX)
    8957. 

  8957.                        (COMMON-LISP:TYPE
    8958. 

  8958.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) U)
    8959. 

  8959.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDU)
    8960. 

  8960.                        (COMMON-LISP:TYPE
    8961. 

  8961.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) VT)
    8962. 

  8962.                        (COMMON-LISP:TYPE
    8963. 

  8963.                         (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
    8964. 

  8964.                          (COMMON-LISP:*))
    8965. 

  8965.                         K)
    8966. 

  8966.                        (COMMON-LISP:TYPE
    8967. 

  8967.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    8968. 

  8968.                         DIFL)
    8969. 

  8969.                        (COMMON-LISP:TYPE
    8970. 

  8970.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    8971. 

  8971.                         DIFR)
    8972. 

  8972.                        (COMMON-LISP:TYPE
    8973. 

  8973.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Z)
    8974. 

  8974.                        (COMMON-LISP:TYPE
    8975. 

  8975.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    8976. 

  8976.                         POLES)
    8977. 

  8977.                        (COMMON-LISP:TYPE
    8978. 

  8978.                         (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
    8979. 

  8979.                          (COMMON-LISP:*))
    8980. 

  8980.                         GIVPTR)
    8981. 

  8981.                        (COMMON-LISP:TYPE
    8982. 

  8982.                         (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
    8983. 

  8983.                          (COMMON-LISP:*))
    8984. 

  8984.                         GIVCOL)
    8985. 

  8985.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDGCOL)
    8986. 

  8986.                        (COMMON-LISP:TYPE
    8987. 

  8987.                         (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
    8988. 

  8988.                          (COMMON-LISP:*))
    8989. 

  8989.                         PERM)
    8990. 

  8990.                        (COMMON-LISP:TYPE
    8991. 

  8991.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    8992. 

  8992.                         GIVNUM)
    8993. 

  8993.                        (COMMON-LISP:TYPE
    8994. 

  8994.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
    8995. 

  8995.                        (COMMON-LISP:TYPE
    8996. 

  8996.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) S)
    8997. 

  8997.                        (COMMON-LISP:TYPE
    8998. 

  8998.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    8999. 

  8999.                         WORK)
    9000. 

  9000.                        (COMMON-LISP:TYPE
    9001. 

  9001.                         (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
    9002. 

  9002.                          (COMMON-LISP:*))
    9003. 

  9003.                         IWORK)
    9004. 

  9004.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
    9005. 

  9005.   (CFFI:WITH-FOREIGN-OBJECTS ((ICOMPQ-REF7789 ':INT32) (SMLSIZ-REF7790 ':INT32)
    9006. 

  9006.                               (N-REF7791 ':INT32) (NRHS-REF7792 ':INT32)
    9007. 

  9007.                               (LDB-REF7794 ':INT32) (LDBX-REF7796 ':INT32)
    9008. 

  9008.                               (LDU-REF7798 ':INT32) (LDGCOL-REF7807 ':INT32)
    9009. 

  9009.                               (INFO-REF7814 ':INT32))
    9010. 

  9010.     (COMMON-LISP:SETF (CFFI:MEM-REF ICOMPQ-REF7789 :INT32) ICOMPQ)
    9011. 

  9011.     (COMMON-LISP:SETF (CFFI:MEM-REF SMLSIZ-REF7790 :INT32) SMLSIZ)
    9012. 

  9012.     (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7791 :INT32) N)
    9013. 

  9013.     (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF7792 :INT32) NRHS)
    9014. 

  9014.     (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF7794 :INT32) LDB)
    9015. 

  9015.     (COMMON-LISP:SETF (CFFI:MEM-REF LDBX-REF7796 :INT32) LDBX)
    9016. 

  9016.     (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF7798 :INT32) LDU)
    9017. 

  9017.     (COMMON-LISP:SETF (CFFI:MEM-REF LDGCOL-REF7807 :INT32) LDGCOL)
    9018. 

  9018.     (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF7814 :INT32) INFO)
    9019. 

  9019.     (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((B-REF7793 B) (BX-REF7795 BX)
    9020. 

  9020.                                             (U-REF7797 U) (VT-REF7799 VT)
    9021. 

  9021.                                             (K-REF7800 K) (DIFL-REF7801 DIFL)
    9022. 

  9022.                                             (DIFR-REF7802 DIFR) (Z-REF7803 Z)
    9023. 

  9023.                                             (POLES-REF7804 POLES)
    9024. 

  9024.                                             (GIVPTR-REF7805 GIVPTR)
    9025. 

  9025.                                             (GIVCOL-REF7806 GIVCOL)
    9026. 

  9026.                                             (PERM-REF7808 PERM)
    9027. 

  9027.                                             (GIVNUM-REF7809 GIVNUM)
    9028. 

  9028.                                             (C-REF7810 C) (S-REF7811 S)
    9029. 

  9029.                                             (WORK-REF7812 WORK)
    9030. 

  9030.                                             (IWORK-REF7813 IWORK))
    9031. 

  9031.       (%%DLALSA ICOMPQ-REF7789 SMLSIZ-REF7790 N-REF7791 NRHS-REF7792 B-REF7793
    9032. 

  9032.        LDB-REF7794 BX-REF7795 LDBX-REF7796 U-REF7797 LDU-REF7798 VT-REF7799
    9033. 

  9033.        K-REF7800 DIFL-REF7801 DIFR-REF7802 Z-REF7803 POLES-REF7804
    9034. 

  9034.        GIVPTR-REF7805 GIVCOL-REF7806 LDGCOL-REF7807 PERM-REF7808 GIVNUM-REF7809
    9035. 

  9035.        C-REF7810 S-REF7811 WORK-REF7812 IWORK-REF7813 INFO-REF7814))))
    9036. 

  9036. 

  9037. (CFFI:DEFCFUN ("dlalsd_" %%DLALSD :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    9038. 

  9038.     :VOID
    9039. 

  9039.   (UPLO :STRING)
    9040. 

  9040.   (SMLSIZ :POINTER)
    9041. 

  9041.   (N :POINTER)
    9042. 

  9042.   (NRHS :POINTER)
    9043. 

  9043.   (D :POINTER)
    9044. 

  9044.   (E :POINTER)
    9045. 

  9045.   (B :POINTER)
    9046. 

  9046.   (LDB :POINTER)
    9047. 

  9047.   (RCOND :POINTER)
    9048. 

  9048.   (RANK :POINTER)
    9049. 

  9049.   (WORK :POINTER)
    9050. 

  9050.   (IWORK :POINTER)
    9051. 

  9051.   (INFO :POINTER))
    9052. 

  9052. 

  9053. (COMMON-LISP:DEFUN %DLALSD
    9054. 

  9054.                    (UPLO SMLSIZ N NRHS D E B LDB RCOND RANK WORK IWORK INFO)
    9055. 

  9055.   (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLALSD)
    9056. 

  9056.                        (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
    9057. 

  9057.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) SMLSIZ)
    9058. 

  9058.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
    9059. 

  9059.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
    9060. 

  9060.                        (COMMON-LISP:TYPE
    9061. 

  9061.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
    9062. 

  9062.                        (COMMON-LISP:TYPE
    9063. 

  9063.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) E)
    9064. 

  9064.                        (COMMON-LISP:TYPE
    9065. 

  9065.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
    9066. 

  9066.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
    9067. 

  9067.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RCOND)
    9068. 

  9068.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) RANK)
    9069. 

  9069.                        (COMMON-LISP:TYPE
    9070. 

  9070.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    9071. 

  9071.                         WORK)
    9072. 

  9072.                        (COMMON-LISP:TYPE
    9073. 

  9073.                         (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
    9074. 

  9074.                          (COMMON-LISP:*))
    9075. 

  9075.                         IWORK)
    9076. 

  9076.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
    9077. 

  9077.   (CFFI:WITH-FOREIGN-OBJECTS ((SMLSIZ-REF7816 ':INT32) (N-REF7817 ':INT32)
    9078. 

  9078.                               (NRHS-REF7818 ':INT32) (LDB-REF7822 ':INT32)
    9079. 

  9079.                               (RCOND-REF7823 ':DOUBLE) (RANK-REF7824 ':INT32)
    9080. 

  9080.                               (INFO-REF7827 ':INT32))
    9081. 

  9081.     (COMMON-LISP:SETF (CFFI:MEM-REF SMLSIZ-REF7816 :INT32) SMLSIZ)
    9082. 

  9082.     (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7817 :INT32) N)
    9083. 

  9083.     (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF7818 :INT32) NRHS)
    9084. 

  9084.     (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF7822 :INT32) LDB)
    9085. 

  9085.     (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF7823 :DOUBLE) RCOND)
    9086. 

  9086.     (COMMON-LISP:SETF (CFFI:MEM-REF RANK-REF7824 :INT32) RANK)
    9087. 

  9087.     (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF7827 :INT32) INFO)
    9088. 

  9088.     (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF7819 D) (E-REF7820 E)
    9089. 

  9089.                                             (B-REF7821 B) (WORK-REF7825 WORK)
    9090. 

  9090.                                             (IWORK-REF7826 IWORK))
    9091. 

  9091.       (%%DLALSD UPLO SMLSIZ-REF7816 N-REF7817 NRHS-REF7818 D-REF7819 E-REF7820
    9092. 

  9092.        B-REF7821 LDB-REF7822 RCOND-REF7823 RANK-REF7824 WORK-REF7825
    9093. 

  9093.        IWORK-REF7826 INFO-REF7827))))
    9094. 

  9094. 

  9095. (CFFI:DEFCFUN ("dlamrg_" %%DLAMRG :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    9096. 

  9096.     :VOID
    9097. 

  9097.   (N1 :POINTER)
    9098. 

  9098.   (N2 :POINTER)
    9099. 

  9099.   (A :POINTER)
    9100. 

  9100.   (DTRD1 :POINTER)
    9101. 

  9101.   (DTRD2 :POINTER)
    9102. 

  9102.   (INDEX :POINTER))
    9103. 

  9103. 

  9104. (COMMON-LISP:DEFUN %DLAMRG (N1 N2 A DTRD1 DTRD2 INDEX)
    9105. 

  9105.   (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLAMRG)
    9106. 

  9106.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N1)
    9107. 

  9107.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N2)
    9108. 

  9108.                        (COMMON-LISP:TYPE
    9109. 

  9109.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
    9110. 

  9110.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) DTRD1)
    9111. 

  9111.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) DTRD2)
    9112. 

  9112.                        (COMMON-LISP:TYPE
    9113. 

  9113.                         (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
    9114. 

  9114.                          (COMMON-LISP:*))
    9115. 

  9115.                         INDEX))
    9116. 

  9116.   (CFFI:WITH-FOREIGN-OBJECTS ((N1-REF7828 ':INT32) (N2-REF7829 ':INT32)
    9117. 

  9117.                               (DTRD1-REF7831 ':INT32) (DTRD2-REF7832 ':INT32))
    9118. 

  9118.     (COMMON-LISP:SETF (CFFI:MEM-REF N1-REF7828 :INT32) N1)
    9119. 

  9119.     (COMMON-LISP:SETF (CFFI:MEM-REF N2-REF7829 :INT32) N2)
    9120. 

  9120.     (COMMON-LISP:SETF (CFFI:MEM-REF DTRD1-REF7831 :INT32) DTRD1)
    9121. 

  9121.     (COMMON-LISP:SETF (CFFI:MEM-REF DTRD2-REF7832 :INT32) DTRD2)
    9122. 

  9122.     (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF7830 A) (INDEX-REF7833 INDEX))
    9123. 

  9123.       (%%DLAMRG N1-REF7828 N2-REF7829 A-REF7830 DTRD1-REF7831 DTRD2-REF7832
    9124. 

  9124.        INDEX-REF7833))))
    9125. 

  9125. 

  9126. (CFFI:DEFCFUN ("dlamswlq_" %%DLAMSWLQ :LIBRARY
    9127. 

  9127.                MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    9128. 

  9128.     :VOID
    9129. 

  9129.   (SIDE :STRING)
    9130. 

  9130.   (TRANS :STRING)
    9131. 

  9131.   (M :POINTER)
    9132. 

  9132.   (N :POINTER)
    9133. 

  9133.   (K :POINTER)
    9134. 

  9134.   (MB :POINTER)
    9135. 

  9135.   (NB :POINTER)
    9136. 

  9136.   (A :POINTER)
    9137. 

  9137.   (LDA :POINTER)
    9138. 

  9138.   (T :POINTER)
    9139. 

  9139.   (LDT :POINTER)
    9140. 

  9140.   (C :POINTER)
    9141. 

  9141.   (LDC :POINTER)
    9142. 

  9142.   (WORK :POINTER)
    9143. 

  9143.   (LWORK :POINTER)
    9144. 

  9144.   (INFO :POINTER))
    9145. 

  9145. 

  9146. (COMMON-LISP:DEFUN %DLAMSWLQ
    9147. 

  9147.                    (SIDE TRANS M N K MB NB A LDA T LDT C LDC WORK LWORK INFO)
    9148. 

  9148.   (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLAMSWLQ)
    9149. 

  9149.                        (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
    9150. 

  9150.                        (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
    9151. 

  9151.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
    9152. 

  9152.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
    9153. 

  9153.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
    9154. 

  9154.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) MB)
    9155. 

  9155.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NB)
    9156. 

  9156.                        (COMMON-LISP:TYPE
    9157. 

  9157.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
    9158. 

  9158.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
    9159. 

  9159.                        (COMMON-LISP:TYPE
    9160. 

  9160.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) T)
    9161. 

  9161.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
    9162. 

  9162.                        (COMMON-LISP:TYPE
    9163. 

  9163.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
    9164. 

  9164.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
    9165. 

  9165.                        (COMMON-LISP:TYPE
    9166. 

  9166.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    9167. 

  9167.                         WORK)
    9168. 

  9168.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
    9169. 

  9169.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
    9170. 

  9170.   (CFFI:WITH-FOREIGN-OBJECTS ((M-REF7836 ':INT32) (N-REF7837 ':INT32)
    9171. 

  9171.                               (K-REF7838 ':INT32) (MB-REF7839 ':INT32)
    9172. 

  9172.                               (NB-REF7840 ':INT32) (LDA-REF7842 ':INT32)
    9173. 

  9173.                               (LDT-REF7844 ':INT32) (LDC-REF7846 ':INT32)
    9174. 

  9174.                               (LWORK-REF7848 ':INT32) (INFO-REF7849 ':INT32))
    9175. 

  9175.     (COMMON-LISP:SETF (CFFI:MEM-REF M-REF7836 :INT32) M)
    9176. 

  9176.     (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7837 :INT32) N)
    9177. 

  9177.     (COMMON-LISP:SETF (CFFI:MEM-REF K-REF7838 :INT32) K)
    9178. 

  9178.     (COMMON-LISP:SETF (CFFI:MEM-REF MB-REF7839 :INT32) MB)
    9179. 

  9179.     (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF7840 :INT32) NB)
    9180. 

  9180.     (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF7842 :INT32) LDA)
    9181. 

  9181.     (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF7844 :INT32) LDT)
    9182. 

  9182.     (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF7846 :INT32) LDC)
    9183. 

  9183.     (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF7848 :INT32) LWORK)
    9184. 

  9184.     (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF7849 :INT32) INFO)
    9185. 

  9185.     (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF7841 A) (T-REF7843 T)
    9186. 

  9186.                                             (C-REF7845 C) (WORK-REF7847 WORK))
    9187. 

  9187.       (%%DLAMSWLQ SIDE TRANS M-REF7836 N-REF7837 K-REF7838 MB-REF7839
    9188. 

  9188.        NB-REF7840 A-REF7841 LDA-REF7842 T-REF7843 LDT-REF7844 C-REF7845
    9189. 

  9189.        LDC-REF7846 WORK-REF7847 LWORK-REF7848 INFO-REF7849))))
    9190. 

  9190. 

  9191. (CFFI:DEFCFUN ("dlamtsqr_" %%DLAMTSQR :LIBRARY
    9192. 

  9192.                MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    9193. 

  9193.     :VOID
    9194. 

  9194.   (SIDE :STRING)
    9195. 

  9195.   (TRANS :STRING)
    9196. 

  9196.   (M :POINTER)
    9197. 

  9197.   (N :POINTER)
    9198. 

  9198.   (K :POINTER)
    9199. 

  9199.   (MB :POINTER)
    9200. 

  9200.   (NB :POINTER)
    9201. 

  9201.   (A :POINTER)
    9202. 

  9202.   (LDA :POINTER)
    9203. 

  9203.   (T :POINTER)
    9204. 

  9204.   (LDT :POINTER)
    9205. 

  9205.   (C :POINTER)
    9206. 

  9206.   (LDC :POINTER)
    9207. 

  9207.   (WORK :POINTER)
    9208. 

  9208.   (LWORK :POINTER)
    9209. 

  9209.   (INFO :POINTER))
    9210. 

  9210. 

  9211. (COMMON-LISP:DEFUN %DLAMTSQR
    9212. 

  9212.                    (SIDE TRANS M N K MB NB A LDA T LDT C LDC WORK LWORK INFO)
    9213. 

  9213.   (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLAMTSQR)
    9214. 

  9214.                        (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
    9215. 

  9215.                        (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
    9216. 

  9216.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
    9217. 

  9217.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
    9218. 

  9218.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
    9219. 

  9219.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) MB)
    9220. 

  9220.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NB)
    9221. 

  9221.                        (COMMON-LISP:TYPE
    9222. 

  9222.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
    9223. 

  9223.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
    9224. 

  9224.                        (COMMON-LISP:TYPE
    9225. 

  9225.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) T)
    9226. 

  9226.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
    9227. 

  9227.                        (COMMON-LISP:TYPE
    9228. 

  9228.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
    9229. 

  9229.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
    9230. 

  9230.                        (COMMON-LISP:TYPE
    9231. 

  9231.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    9232. 

  9232.                         WORK)
    9233. 

  9233.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
    9234. 

  9234.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
    9235. 

  9235.   (CFFI:WITH-FOREIGN-OBJECTS ((M-REF7852 ':INT32) (N-REF7853 ':INT32)
    9236. 

  9236.                               (K-REF7854 ':INT32) (MB-REF7855 ':INT32)
    9237. 

  9237.                               (NB-REF7856 ':INT32) (LDA-REF7858 ':INT32)
    9238. 

  9238.                               (LDT-REF7860 ':INT32) (LDC-REF7862 ':INT32)
    9239. 

  9239.                               (LWORK-REF7864 ':INT32) (INFO-REF7865 ':INT32))
    9240. 

  9240.     (COMMON-LISP:SETF (CFFI:MEM-REF M-REF7852 :INT32) M)
    9241. 

  9241.     (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7853 :INT32) N)
    9242. 

  9242.     (COMMON-LISP:SETF (CFFI:MEM-REF K-REF7854 :INT32) K)
    9243. 

  9243.     (COMMON-LISP:SETF (CFFI:MEM-REF MB-REF7855 :INT32) MB)
    9244. 

  9244.     (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF7856 :INT32) NB)
    9245. 

  9245.     (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF7858 :INT32) LDA)
    9246. 

  9246.     (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF7860 :INT32) LDT)
    9247. 

  9247.     (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF7862 :INT32) LDC)
    9248. 

  9248.     (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF7864 :INT32) LWORK)
    9249. 

  9249.     (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF7865 :INT32) INFO)
    9250. 

  9250.     (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF7857 A) (T-REF7859 T)
    9251. 

  9251.                                             (C-REF7861 C) (WORK-REF7863 WORK))
    9252. 

  9252.       (%%DLAMTSQR SIDE TRANS M-REF7852 N-REF7853 K-REF7854 MB-REF7855
    9253. 

  9253.        NB-REF7856 A-REF7857 LDA-REF7858 T-REF7859 LDT-REF7860 C-REF7861
    9254. 

  9254.        LDC-REF7862 WORK-REF7863 LWORK-REF7864 INFO-REF7865))))
    9255. 

  9255. 

  9256. (CFFI:DEFCFUN ("dlaneg_" %%DLANEG :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    9257. 

  9257.     :INT32
    9258. 

  9258.   (N :POINTER)
    9259. 

  9259.   (D :POINTER)
    9260. 

  9260.   (LLD :POINTER)
    9261. 

  9261.   (SIGMA :POINTER)
    9262. 

  9262.   (PIVMIN :POINTER)
    9263. 

  9263.   (R :POINTER))
    9264. 

  9264. 

  9265. (COMMON-LISP:DEFUN %DLANEG (N D LLD SIGMA PIVMIN R)
    9266. 

  9266.   (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLANEG)
    9267. 

  9267.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
    9268. 

  9268.                        (COMMON-LISP:TYPE
    9269. 

  9269.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
    9270. 

  9270.                        (COMMON-LISP:TYPE
    9271. 

  9271.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    9272. 

  9272.                         LLD)
    9273. 

  9273.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SIGMA)
    9274. 

  9274.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT PIVMIN)
    9275. 

  9275.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) R))
    9276. 

  9276.   (CFFI:WITH-FOREIGN-OBJECTS ((N-REF7866 ':INT32) (SIGMA-REF7869 ':DOUBLE)
    9277. 

  9277.                               (PIVMIN-REF7870 ':DOUBLE) (R-REF7871 ':INT32))
    9278. 

  9278.     (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7866 :INT32) N)
    9279. 

  9279.     (COMMON-LISP:SETF (CFFI:MEM-REF SIGMA-REF7869 :DOUBLE) SIGMA)
    9280. 

  9280.     (COMMON-LISP:SETF (CFFI:MEM-REF PIVMIN-REF7870 :DOUBLE) PIVMIN)
    9281. 

  9281.     (COMMON-LISP:SETF (CFFI:MEM-REF R-REF7871 :INT32) R)
    9282. 

  9282.     (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF7867 D) (LLD-REF7868 LLD))
    9283. 

  9283.       (%%DLANEG N-REF7866 D-REF7867 LLD-REF7868 SIGMA-REF7869 PIVMIN-REF7870
    9284. 

  9284.        R-REF7871))))
    9285. 

  9285. 

  9286. (CFFI:DEFCFUN ("dlangb_" %%DLANGB :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    9287. 

  9287.     :DOUBLE
    9288. 

  9288.   (NORM :STRING)
    9289. 

  9289.   (N :POINTER)
    9290. 

  9290.   (KL :POINTER)
    9291. 

  9291.   (KU :POINTER)
    9292. 

  9292.   (AB :POINTER)
    9293. 

  9293.   (LDAB :POINTER)
    9294. 

  9294.   (WORK :POINTER))
    9295. 

  9295. 

  9296. (COMMON-LISP:DEFUN %DLANGB (NORM N KL KU AB LDAB WORK)
    9297. 

  9297.   (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLANGB)
    9298. 

  9298.                        (COMMON-LISP:TYPE COMMON-LISP:STRING NORM)
    9299. 

  9299.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
    9300. 

  9300.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KL)
    9301. 

  9301.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KU)
    9302. 

  9302.                        (COMMON-LISP:TYPE
    9303. 

  9303.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AB)
    9304. 

  9304.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
    9305. 

  9305.                        (COMMON-LISP:TYPE
    9306. 

  9306.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    9307. 

  9307.                         WORK))
    9308. 

  9308.   (CFFI:WITH-FOREIGN-OBJECTS ((N-REF7873 ':INT32) (KL-REF7874 ':INT32)
    9309. 

  9309.                               (KU-REF7875 ':INT32) (LDAB-REF7877 ':INT32))
    9310. 

  9310.     (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7873 :INT32) N)
    9311. 

  9311.     (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF7874 :INT32) KL)
    9312. 

  9312.     (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF7875 :INT32) KU)
    9313. 

  9313.     (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF7877 :INT32) LDAB)
    9314. 

  9314.     (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF7876 AB) (WORK-REF7878 WORK))
    9315. 

  9315.       (%%DLANGB NORM N-REF7873 KL-REF7874 KU-REF7875 AB-REF7876 LDAB-REF7877
    9316. 

  9316.        WORK-REF7878))))
    9317. 

  9317. 

  9318. (CFFI:DEFCFUN ("dlange_" %%DLANGE :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    9319. 

  9319.     :DOUBLE
    9320. 

  9320.   (NORM :STRING)
    9321. 

  9321.   (M :POINTER)
    9322. 

  9322.   (N :POINTER)
    9323. 

  9323.   (A :POINTER)
    9324. 

  9324.   (LDA :POINTER)
    9325. 

  9325.   (WORK :POINTER))
    9326. 

  9326. 

  9327. (COMMON-LISP:DEFUN %DLANGE (NORM M N A LDA WORK)
    9328. 

  9328.   (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLANGE)
    9329. 

  9329.                        (COMMON-LISP:TYPE COMMON-LISP:STRING NORM)
    9330. 

  9330.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
    9331. 

  9331.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
    9332. 

  9332.                        (COMMON-LISP:TYPE
    9333. 

  9333.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
    9334. 

  9334.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
    9335. 

  9335.                        (COMMON-LISP:TYPE
    9336. 

  9336.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    9337. 

  9337.                         WORK))
    9338. 

  9338.   (CFFI:WITH-FOREIGN-OBJECTS ((M-REF7880 ':INT32) (N-REF7881 ':INT32)
    9339. 

  9339.                               (LDA-REF7883 ':INT32))
    9340. 

  9340.     (COMMON-LISP:SETF (CFFI:MEM-REF M-REF7880 :INT32) M)
    9341. 

  9341.     (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7881 :INT32) N)
    9342. 

  9342.     (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF7883 :INT32) LDA)
    9343. 

  9343.     (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF7882 A) (WORK-REF7884 WORK))
    9344. 

  9344.       (%%DLANGE NORM M-REF7880 N-REF7881 A-REF7882 LDA-REF7883 WORK-REF7884))))
    9345. 

  9345. 

  9346. (CFFI:DEFCFUN ("dlangt_" %%DLANGT :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    9347. 

  9347.     :DOUBLE
    9348. 

  9348.   (NORM :STRING)
    9349. 

  9349.   (N :POINTER)
    9350. 

  9350.   (DL :POINTER)
    9351. 

  9351.   (D :POINTER)
    9352. 

  9352.   (DU :POINTER))
    9353. 

  9353. 

  9354. (COMMON-LISP:DEFUN %DLANGT (NORM N DL D DU)
    9355. 

  9355.   (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLANGT)
    9356. 

  9356.                        (COMMON-LISP:TYPE COMMON-LISP:STRING NORM)
    9357. 

  9357.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
    9358. 

  9358.                        (COMMON-LISP:TYPE
    9359. 

  9359.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) DL)
    9360. 

  9360.                        (COMMON-LISP:TYPE
    9361. 

  9361.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
    9362. 

  9362.                        (COMMON-LISP:TYPE
    9363. 

  9363.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    9364. 

  9364.                         DU))
    9365. 

  9365.   (CFFI:WITH-FOREIGN-OBJECTS ((N-REF7886 ':INT32))
    9366. 

  9366.     (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7886 :INT32) N)
    9367. 

  9367.     (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((DL-REF7887 DL) (D-REF7888 D)
    9368. 

  9368.                                             (DU-REF7889 DU))
    9369. 

  9369.       (%%DLANGT NORM N-REF7886 DL-REF7887 D-REF7888 DU-REF7889))))
    9370. 

  9370. 

  9371. (CFFI:DEFCFUN ("dlanhs_" %%DLANHS :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    9372. 

  9372.     :DOUBLE
    9373. 

  9373.   (NORM :STRING)
    9374. 

  9374.   (N :POINTER)
    9375. 

  9375.   (A :POINTER)
    9376. 

  9376.   (LDA :POINTER)
    9377. 

  9377.   (WORK :POINTER))
    9378. 

  9378. 

  9379. (COMMON-LISP:DEFUN %DLANHS (NORM N A LDA WORK)
    9380. 

  9380.   (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLANHS)
    9381. 

  9381.                        (COMMON-LISP:TYPE COMMON-LISP:STRING NORM)
    9382. 

  9382.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
    9383. 

  9383.                        (COMMON-LISP:TYPE
    9384. 

  9384.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
    9385. 

  9385.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
    9386. 

  9386.                        (COMMON-LISP:TYPE
    9387. 

  9387.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    9388. 

  9388.                         WORK))
    9389. 

  9389.   (CFFI:WITH-FOREIGN-OBJECTS ((N-REF7891 ':INT32) (LDA-REF7893 ':INT32))
    9390. 

  9390.     (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7891 :INT32) N)
    9391. 

  9391.     (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF7893 :INT32) LDA)
    9392. 

  9392.     (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF7892 A) (WORK-REF7894 WORK))
    9393. 

  9393.       (%%DLANHS NORM N-REF7891 A-REF7892 LDA-REF7893 WORK-REF7894))))
    9394. 

  9394. 

  9395. (CFFI:DEFCFUN ("dlansb_" %%DLANSB :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    9396. 

  9396.     :DOUBLE
    9397. 

  9397.   (NORM :STRING)
    9398. 

  9398.   (UPLO :STRING)
    9399. 

  9399.   (N :POINTER)
    9400. 

  9400.   (K :POINTER)
    9401. 

  9401.   (AB :POINTER)
    9402. 

  9402.   (LDAB :POINTER)
    9403. 

  9403.   (WORK :POINTER))
    9404. 

  9404. 

  9405. (COMMON-LISP:DEFUN %DLANSB (NORM UPLO N K AB LDAB WORK)
    9406. 

  9406.   (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLANSB)
    9407. 

  9407.                        (COMMON-LISP:TYPE COMMON-LISP:STRING NORM)
    9408. 

  9408.                        (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
    9409. 

  9409.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
    9410. 

  9410.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
    9411. 

  9411.                        (COMMON-LISP:TYPE
    9412. 

  9412.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AB)
    9413. 

  9413.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
    9414. 

  9414.                        (COMMON-LISP:TYPE
    9415. 

  9415.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    9416. 

  9416.                         WORK))
    9417. 

  9417.   (CFFI:WITH-FOREIGN-OBJECTS ((N-REF7897 ':INT32) (K-REF7898 ':INT32)
    9418. 

  9418.                               (LDAB-REF7900 ':INT32))
    9419. 

  9419.     (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7897 :INT32) N)
    9420. 

  9420.     (COMMON-LISP:SETF (CFFI:MEM-REF K-REF7898 :INT32) K)
    9421. 

  9421.     (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF7900 :INT32) LDAB)
    9422. 

  9422.     (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF7899 AB) (WORK-REF7901 WORK))
    9423. 

  9423.       (%%DLANSB NORM UPLO N-REF7897 K-REF7898 AB-REF7899 LDAB-REF7900
    9424. 

  9424.        WORK-REF7901))))
    9425. 

  9425. 

  9426. (CFFI:DEFCFUN ("dlansf_" %%DLANSF :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    9427. 

  9427.     :DOUBLE
    9428. 

  9428.   (NORM :STRING)
    9429. 

  9429.   (TRANSR :STRING)
    9430. 

  9430.   (UPLO :STRING)
    9431. 

  9431.   (N :POINTER)
    9432. 

  9432.   (A :POINTER)
    9433. 

  9433.   (WORK :POINTER))
    9434. 

  9434. 

  9435. (COMMON-LISP:DEFUN %DLANSF (NORM TRANSR UPLO N A WORK)
    9436. 

  9436.   (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLANSF)
    9437. 

  9437.                        (COMMON-LISP:TYPE COMMON-LISP:STRING NORM)
    9438. 

  9438.                        (COMMON-LISP:TYPE COMMON-LISP:STRING TRANSR)
    9439. 

  9439.                        (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
    9440. 

  9440.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
    9441. 

  9441.                        (COMMON-LISP:TYPE
    9442. 

  9442.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
    9443. 

  9443.                        (COMMON-LISP:TYPE
    9444. 

  9444.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    9445. 

  9445.                         WORK))
    9446. 

  9446.   (CFFI:WITH-FOREIGN-OBJECTS ((N-REF7905 ':INT32))
    9447. 

  9447.     (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7905 :INT32) N)
    9448. 

  9448.     (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF7906 A) (WORK-REF7907 WORK))
    9449. 

  9449.       (%%DLANSF NORM TRANSR UPLO N-REF7905 A-REF7906 WORK-REF7907))))
    9450. 

  9450. 

  9451. (CFFI:DEFCFUN ("dlansp_" %%DLANSP :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    9452. 

  9452.     :DOUBLE
    9453. 

  9453.   (NORM :STRING)
    9454. 

  9454.   (UPLO :STRING)
    9455. 

  9455.   (N :POINTER)
    9456. 

  9456.   (AP :POINTER)
    9457. 

  9457.   (WORK :POINTER))
    9458. 

  9458. 

  9459. (COMMON-LISP:DEFUN %DLANSP (NORM UPLO N AP WORK)
    9460. 

  9460.   (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLANSP)
    9461. 

  9461.                        (COMMON-LISP:TYPE COMMON-LISP:STRING NORM)
    9462. 

  9462.                        (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
    9463. 

  9463.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
    9464. 

  9464.                        (COMMON-LISP:TYPE
    9465. 

  9465.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AP)
    9466. 

  9466.                        (COMMON-LISP:TYPE
    9467. 

  9467.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    9468. 

  9468.                         WORK))
    9469. 

  9469.   (CFFI:WITH-FOREIGN-OBJECTS ((N-REF7910 ':INT32))
    9470. 

  9470.     (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7910 :INT32) N)
    9471. 

  9471.     (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF7911 AP) (WORK-REF7912 WORK))
    9472. 

  9472.       (%%DLANSP NORM UPLO N-REF7910 AP-REF7911 WORK-REF7912))))
    9473. 

  9473. 

  9474. (CFFI:DEFCFUN ("dlanst_" %%DLANST :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    9475. 

  9475.     :DOUBLE
    9476. 

  9476.   (NORM :STRING)
    9477. 

  9477.   (N :POINTER)
    9478. 

  9478.   (D :POINTER)
    9479. 

  9479.   (E :POINTER))
    9480. 

  9480. 

  9481. (COMMON-LISP:DEFUN %DLANST (NORM N D E)
    9482. 

  9482.   (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLANST)
    9483. 

  9483.                        (COMMON-LISP:TYPE COMMON-LISP:STRING NORM)
    9484. 

  9484.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
    9485. 

  9485.                        (COMMON-LISP:TYPE
    9486. 

  9486.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
    9487. 

  9487.                        (COMMON-LISP:TYPE
    9488. 

  9488.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) E))
    9489. 

  9489.   (CFFI:WITH-FOREIGN-OBJECTS ((N-REF7914 ':INT32))
    9490. 

  9490.     (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7914 :INT32) N)
    9491. 

  9491.     (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF7915 D) (E-REF7916 E))
    9492. 

  9492.       (%%DLANST NORM N-REF7914 D-REF7915 E-REF7916))))
    9493. 

  9493. 

  9494. (CFFI:DEFCFUN ("dlansy_" %%DLANSY :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    9495. 

  9495.     :DOUBLE
    9496. 

  9496.   (NORM :STRING)
    9497. 

  9497.   (UPLO :STRING)
    9498. 

  9498.   (N :POINTER)
    9499. 

  9499.   (A :POINTER)
    9500. 

  9500.   (LDA :POINTER)
    9501. 

  9501.   (WORK :POINTER))
    9502. 

  9502. 

  9503. (COMMON-LISP:DEFUN %DLANSY (NORM UPLO N A LDA WORK)
    9504. 

  9504.   (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLANSY)
    9505. 

  9505.                        (COMMON-LISP:TYPE COMMON-LISP:STRING NORM)
    9506. 

  9506.                        (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
    9507. 

  9507.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
    9508. 

  9508.                        (COMMON-LISP:TYPE
    9509. 

  9509.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
    9510. 

  9510.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
    9511. 

  9511.                        (COMMON-LISP:TYPE
    9512. 

  9512.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    9513. 

  9513.                         WORK))
    9514. 

  9514.   (CFFI:WITH-FOREIGN-OBJECTS ((N-REF7919 ':INT32) (LDA-REF7921 ':INT32))
    9515. 

  9515.     (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7919 :INT32) N)
    9516. 

  9516.     (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF7921 :INT32) LDA)
    9517. 

  9517.     (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF7920 A) (WORK-REF7922 WORK))
    9518. 

  9518.       (%%DLANSY NORM UPLO N-REF7919 A-REF7920 LDA-REF7921 WORK-REF7922))))
    9519. 

  9519. 

  9520. (CFFI:DEFCFUN ("dlantb_" %%DLANTB :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    9521. 

  9521.     :DOUBLE
    9522. 

  9522.   (NORM :STRING)
    9523. 

  9523.   (UPLO :STRING)
    9524. 

  9524.   (DIAG :STRING)
    9525. 

  9525.   (N :POINTER)
    9526. 

  9526.   (K :POINTER)
    9527. 

  9527.   (AB :POINTER)
    9528. 

  9528.   (LDAB :POINTER)
    9529. 

  9529.   (WORK :POINTER))
    9530. 

  9530. 

  9531. (COMMON-LISP:DEFUN %DLANTB (NORM UPLO DIAG N K AB LDAB WORK)
    9532. 

  9532.   (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLANTB)
    9533. 

  9533.                        (COMMON-LISP:TYPE COMMON-LISP:STRING NORM)
    9534. 

  9534.                        (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
    9535. 

  9535.                        (COMMON-LISP:TYPE COMMON-LISP:STRING DIAG)
    9536. 

  9536.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
    9537. 

  9537.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
    9538. 

  9538.                        (COMMON-LISP:TYPE
    9539. 

  9539.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AB)
    9540. 

  9540.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
    9541. 

  9541.                        (COMMON-LISP:TYPE
    9542. 

  9542.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    9543. 

  9543.                         WORK))
    9544. 

  9544.   (CFFI:WITH-FOREIGN-OBJECTS ((N-REF7926 ':INT32) (K-REF7927 ':INT32)
    9545. 

  9545.                               (LDAB-REF7929 ':INT32))
    9546. 

  9546.     (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7926 :INT32) N)
    9547. 

  9547.     (COMMON-LISP:SETF (CFFI:MEM-REF K-REF7927 :INT32) K)
    9548. 

  9548.     (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF7929 :INT32) LDAB)
    9549. 

  9549.     (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF7928 AB) (WORK-REF7930 WORK))
    9550. 

  9550.       (%%DLANTB NORM UPLO DIAG N-REF7926 K-REF7927 AB-REF7928 LDAB-REF7929
    9551. 

  9551.        WORK-REF7930))))
    9552. 

  9552. 

  9553. (CFFI:DEFCFUN ("dlantp_" %%DLANTP :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    9554. 

  9554.     :DOUBLE
    9555. 

  9555.   (NORM :STRING)
    9556. 

  9556.   (UPLO :STRING)
    9557. 

  9557.   (DIAG :STRING)
    9558. 

  9558.   (N :POINTER)
    9559. 

  9559.   (AP :POINTER)
    9560. 

  9560.   (WORK :POINTER))
    9561. 

  9561. 

  9562. (COMMON-LISP:DEFUN %DLANTP (NORM UPLO DIAG N AP WORK)
    9563. 

  9563.   (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLANTP)
    9564. 

  9564.                        (COMMON-LISP:TYPE COMMON-LISP:STRING NORM)
    9565. 

  9565.                        (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
    9566. 

  9566.                        (COMMON-LISP:TYPE COMMON-LISP:STRING DIAG)
    9567. 

  9567.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
    9568. 

  9568.                        (COMMON-LISP:TYPE
    9569. 

  9569.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AP)
    9570. 

  9570.                        (COMMON-LISP:TYPE
    9571. 

  9571.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    9572. 

  9572.                         WORK))
    9573. 

  9573.   (CFFI:WITH-FOREIGN-OBJECTS ((N-REF7934 ':INT32))
    9574. 

  9574.     (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7934 :INT32) N)
    9575. 

  9575.     (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF7935 AP) (WORK-REF7936 WORK))
    9576. 

  9576.       (%%DLANTP NORM UPLO DIAG N-REF7934 AP-REF7935 WORK-REF7936))))
    9577. 

  9577. 

  9578. (CFFI:DEFCFUN ("dlantr_" %%DLANTR :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    9579. 

  9579.     :DOUBLE
    9580. 

  9580.   (NORM :STRING)
    9581. 

  9581.   (UPLO :STRING)
    9582. 

  9582.   (DIAG :STRING)
    9583. 

  9583.   (M :POINTER)
    9584. 

  9584.   (N :POINTER)
    9585. 

  9585.   (A :POINTER)
    9586. 

  9586.   (LDA :POINTER)
    9587. 

  9587.   (WORK :POINTER))
    9588. 

  9588. 

  9589. (COMMON-LISP:DEFUN %DLANTR (NORM UPLO DIAG M N A LDA WORK)
    9590. 

  9590.   (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLANTR)
    9591. 

  9591.                        (COMMON-LISP:TYPE COMMON-LISP:STRING NORM)
    9592. 

  9592.                        (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
    9593. 

  9593.                        (COMMON-LISP:TYPE COMMON-LISP:STRING DIAG)
    9594. 

  9594.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
    9595. 

  9595.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
    9596. 

  9596.                        (COMMON-LISP:TYPE
    9597. 

  9597.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
    9598. 

  9598.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
    9599. 

  9599.                        (COMMON-LISP:TYPE
    9600. 

  9600.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    9601. 

  9601.                         WORK))
    9602. 

  9602.   (CFFI:WITH-FOREIGN-OBJECTS ((M-REF7940 ':INT32) (N-REF7941 ':INT32)
    9603. 

  9603.                               (LDA-REF7943 ':INT32))
    9604. 

  9604.     (COMMON-LISP:SETF (CFFI:MEM-REF M-REF7940 :INT32) M)
    9605. 

  9605.     (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7941 :INT32) N)
    9606. 

  9606.     (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF7943 :INT32) LDA)
    9607. 

  9607.     (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF7942 A) (WORK-REF7944 WORK))
    9608. 

  9608.       (%%DLANTR NORM UPLO DIAG M-REF7940 N-REF7941 A-REF7942 LDA-REF7943
    9609. 

  9609.        WORK-REF7944))))
    9610. 

  9610. 

  9611. (CFFI:DEFCFUN ("dlanv2_" %%DLANV2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    9612. 

  9612.     :VOID
    9613. 

  9613.   (A :POINTER)
    9614. 

  9614.   (B :POINTER)
    9615. 

  9615.   (C :POINTER)
    9616. 

  9616.   (D :POINTER)
    9617. 

  9617.   (RT1R :POINTER)
    9618. 

  9618.   (RT1I :POINTER)
    9619. 

  9619.   (RT2R :POINTER)
    9620. 

  9620.   (RT2I :POINTER)
    9621. 

  9621.   (CS :POINTER)
    9622. 

  9622.   (SN :POINTER))
    9623. 

  9623. 

  9624. (COMMON-LISP:DEFUN %DLANV2 (A B C D RT1R RT1I RT2R RT2I CS SN)
    9625. 

  9625.   (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLANV2)
    9626. 

  9626.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT A)
    9627. 

  9627.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT B)
    9628. 

  9628.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT C)
    9629. 

  9629.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT D)
    9630. 

  9630.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RT1R)
    9631. 

  9631.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RT1I)
    9632. 

  9632.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RT2R)
    9633. 

  9633.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RT2I)
    9634. 

  9634.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT CS)
    9635. 

  9635.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SN))
    9636. 

  9636.   (CFFI:WITH-FOREIGN-OBJECTS ((A-REF7945 ':DOUBLE) (B-REF7946 ':DOUBLE)
    9637. 

  9637.                               (C-REF7947 ':DOUBLE) (D-REF7948 ':DOUBLE)
    9638. 

  9638.                               (RT1R-REF7949 ':DOUBLE) (RT1I-REF7950 ':DOUBLE)
    9639. 

  9639.                               (RT2R-REF7951 ':DOUBLE) (RT2I-REF7952 ':DOUBLE)
    9640. 

  9640.                               (CS-REF7953 ':DOUBLE) (SN-REF7954 ':DOUBLE))
    9641. 

  9641.     (COMMON-LISP:SETF (CFFI:MEM-REF A-REF7945 :DOUBLE) A)
    9642. 

  9642.     (COMMON-LISP:SETF (CFFI:MEM-REF B-REF7946 :DOUBLE) B)
    9643. 

  9643.     (COMMON-LISP:SETF (CFFI:MEM-REF C-REF7947 :DOUBLE) C)
    9644. 

  9644.     (COMMON-LISP:SETF (CFFI:MEM-REF D-REF7948 :DOUBLE) D)
    9645. 

  9645.     (COMMON-LISP:SETF (CFFI:MEM-REF RT1R-REF7949 :DOUBLE) RT1R)
    9646. 

  9646.     (COMMON-LISP:SETF (CFFI:MEM-REF RT1I-REF7950 :DOUBLE) RT1I)
    9647. 

  9647.     (COMMON-LISP:SETF (CFFI:MEM-REF RT2R-REF7951 :DOUBLE) RT2R)
    9648. 

  9648.     (COMMON-LISP:SETF (CFFI:MEM-REF RT2I-REF7952 :DOUBLE) RT2I)
    9649. 

  9649.     (COMMON-LISP:SETF (CFFI:MEM-REF CS-REF7953 :DOUBLE) CS)
    9650. 

  9650.     (COMMON-LISP:SETF (CFFI:MEM-REF SN-REF7954 :DOUBLE) SN)
    9651. 

  9651.     (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS COMMON-LISP:NIL
    9652. 

  9652.       (%%DLANV2 A-REF7945 B-REF7946 C-REF7947 D-REF7948 RT1R-REF7949
    9653. 

  9653.        RT1I-REF7950 RT2R-REF7951 RT2I-REF7952 CS-REF7953 SN-REF7954))))
    9654. 

  9654. 

  9655. (CFFI:DEFCFUN ("dlaorhr_col_getrfnp_" %%DLAORHR_COL_GETRFNP :LIBRARY
    9656. 

  9656.                MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    9657. 

  9657.     :VOID
    9658. 

  9658.   (M :POINTER)
    9659. 

  9659.   (N :POINTER)
    9660. 

  9660.   (A :POINTER)
    9661. 

  9661.   (LDA :POINTER)
    9662. 

  9662.   (D :POINTER)
    9663. 

  9663.   (INFO :POINTER))
    9664. 

  9664. 

  9665. (COMMON-LISP:DEFUN %DLAORHR_COL_GETRFNP (M N A LDA D INFO)
    9666. 

  9666.   (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLAORHR_COL_GETRFNP)
    9667. 

  9667.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
    9668. 

  9668.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
    9669. 

  9669.                        (COMMON-LISP:TYPE
    9670. 

  9670.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
    9671. 

  9671.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
    9672. 

  9672.                        (COMMON-LISP:TYPE
    9673. 

  9673.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
    9674. 

  9674.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
    9675. 

  9675.   (CFFI:WITH-FOREIGN-OBJECTS ((M-REF7955 ':INT32) (N-REF7956 ':INT32)
    9676. 

  9676.                               (LDA-REF7958 ':INT32) (INFO-REF7960 ':INT32))
    9677. 

  9677.     (COMMON-LISP:SETF (CFFI:MEM-REF M-REF7955 :INT32) M)
    9678. 

  9678.     (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7956 :INT32) N)
    9679. 

  9679.     (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF7958 :INT32) LDA)
    9680. 

  9680.     (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF7960 :INT32) INFO)
    9681. 

  9681.     (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF7957 A) (D-REF7959 D))
    9682. 

  9682.       (%%DLAORHR_COL_GETRFNP M-REF7955 N-REF7956 A-REF7957 LDA-REF7958
    9683. 

  9683.        D-REF7959 INFO-REF7960))))
    9684. 

  9684. 

  9685. (CFFI:DEFCFUN ("dlaorhr_col_getrfnp2_" %%DLAORHR_COL_GETRFNP2 :LIBRARY
    9686. 

  9686.                MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    9687. 

  9687.     :VOID
    9688. 

  9688.   (M :POINTER)
    9689. 

  9689.   (N :POINTER)
    9690. 

  9690.   (A :POINTER)
    9691. 

  9691.   (LDA :POINTER)
    9692. 

  9692.   (D :POINTER)
    9693. 

  9693.   (INFO :POINTER))
    9694. 

  9694. 

  9695. (COMMON-LISP:DEFUN %DLAORHR_COL_GETRFNP2 (M N A LDA D INFO)
    9696. 

  9696.   (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLAORHR_COL_GETRFNP2)
    9697. 

  9697.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
    9698. 

  9698.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
    9699. 

  9699.                        (COMMON-LISP:TYPE
    9700. 

  9700.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
    9701. 

  9701.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
    9702. 

  9702.                        (COMMON-LISP:TYPE
    9703. 

  9703.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
    9704. 

  9704.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
    9705. 

  9705.   (CFFI:WITH-FOREIGN-OBJECTS ((M-REF7961 ':INT32) (N-REF7962 ':INT32)
    9706. 

  9706.                               (LDA-REF7964 ':INT32) (INFO-REF7966 ':INT32))
    9707. 

  9707.     (COMMON-LISP:SETF (CFFI:MEM-REF M-REF7961 :INT32) M)
    9708. 

  9708.     (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7962 :INT32) N)
    9709. 

  9709.     (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF7964 :INT32) LDA)
    9710. 

  9710.     (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF7966 :INT32) INFO)
    9711. 

  9711.     (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF7963 A) (D-REF7965 D))
    9712. 

  9712.       (%%DLAORHR_COL_GETRFNP2 M-REF7961 N-REF7962 A-REF7963 LDA-REF7964
    9713. 

  9713.        D-REF7965 INFO-REF7966))))
    9714. 

  9714. 

  9715. (CFFI:DEFCFUN ("dlapll_" %%DLAPLL :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    9716. 

  9716.     :VOID
    9717. 

  9717.   (N :POINTER)
    9718. 

  9718.   (X :POINTER)
    9719. 

  9719.   (INCX :POINTER)
    9720. 

  9720.   (Y :POINTER)
    9721. 

  9721.   (INCY :POINTER)
    9722. 

  9722.   (SSMIN :POINTER))
    9723. 

  9723. 

  9724. (COMMON-LISP:DEFUN %DLAPLL (N X INCX Y INCY SSMIN)
    9725. 

  9725.   (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLAPLL)
    9726. 

  9726.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
    9727. 

  9727.                        (COMMON-LISP:TYPE
    9728. 

  9728.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) X)
    9729. 

  9729.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)
    9730. 

  9730.                        (COMMON-LISP:TYPE
    9731. 

  9731.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Y)
    9732. 

  9732.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCY)
    9733. 

  9733.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SSMIN))
    9734. 

  9734.   (CFFI:WITH-FOREIGN-OBJECTS ((N-REF7967 ':INT32) (INCX-REF7969 ':INT32)
    9735. 

  9735.                               (INCY-REF7971 ':INT32) (SSMIN-REF7972 ':DOUBLE))
    9736. 

  9736.     (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7967 :INT32) N)
    9737. 

  9737.     (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF7969 :INT32) INCX)
    9738. 

  9738.     (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF7971 :INT32) INCY)
    9739. 

  9739.     (COMMON-LISP:SETF (CFFI:MEM-REF SSMIN-REF7972 :DOUBLE) SSMIN)
    9740. 

  9740.     (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF7968 X) (Y-REF7970 Y))
    9741. 

  9741.       (%%DLAPLL N-REF7967 X-REF7968 INCX-REF7969 Y-REF7970 INCY-REF7971
    9742. 

  9742.        SSMIN-REF7972))))
    9743. 

  9743. 

  9744. (CFFI:DEFCFUN ("dlapmr_" %%DLAPMR :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    9745. 

  9745.     :VOID
    9746. 

  9746.   (FORWRD :POINTER)
    9747. 

  9747.   (M :POINTER)
    9748. 

  9748.   (N :POINTER)
    9749. 

  9749.   (X :POINTER)
    9750. 

  9750.   (LDX :POINTER)
    9751. 

  9751.   (K :POINTER))
    9752. 

  9752. 

  9753. (COMMON-LISP:DEFUN %DLAPMR (FORWRD M N X LDX K)
    9754. 

  9754.   (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLAPMR)
    9755. 

  9755.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) FORWRD)
    9756. 

  9756.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
    9757. 

  9757.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
    9758. 

  9758.                        (COMMON-LISP:TYPE
    9759. 

  9759.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) X)
    9760. 

  9760.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
    9761. 

  9761.                        (COMMON-LISP:TYPE
    9762. 

  9762.                         (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
    9763. 

  9763.                          (COMMON-LISP:*))
    9764. 

  9764.                         K))
    9765. 

  9765.   (CFFI:WITH-FOREIGN-OBJECTS ((FORWRD-REF7973 ':INT32) (M-REF7974 ':INT32)
    9766. 

  9766.                               (N-REF7975 ':INT32) (LDX-REF7977 ':INT32))
    9767. 

  9767.     (COMMON-LISP:SETF (CFFI:MEM-REF FORWRD-REF7973 :INT32) FORWRD)
    9768. 

  9768.     (COMMON-LISP:SETF (CFFI:MEM-REF M-REF7974 :INT32) M)
    9769. 

  9769.     (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7975 :INT32) N)
    9770. 

  9770.     (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF7977 :INT32) LDX)
    9771. 

  9771.     (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF7976 X) (K-REF7978 K))
    9772. 

  9772.       (%%DLAPMR FORWRD-REF7973 M-REF7974 N-REF7975 X-REF7976 LDX-REF7977
    9773. 

  9773.        K-REF7978))))
    9774. 

  9774. 

  9775. (CFFI:DEFCFUN ("dlapmt_" %%DLAPMT :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    9776. 

  9776.     :VOID
    9777. 

  9777.   (FORWRD :POINTER)
    9778. 

  9778.   (M :POINTER)
    9779. 

  9779.   (N :POINTER)
    9780. 

  9780.   (X :POINTER)
    9781. 

  9781.   (LDX :POINTER)
    9782. 

  9782.   (K :POINTER))
    9783. 

  9783. 

  9784. (COMMON-LISP:DEFUN %DLAPMT (FORWRD M N X LDX K)
    9785. 

  9785.   (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLAPMT)
    9786. 

  9786.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) FORWRD)
    9787. 

  9787.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
    9788. 

  9788.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
    9789. 

  9789.                        (COMMON-LISP:TYPE
    9790. 

  9790.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) X)
    9791. 

  9791.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
    9792. 

  9792.                        (COMMON-LISP:TYPE
    9793. 

  9793.                         (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
    9794. 

  9794.                          (COMMON-LISP:*))
    9795. 

  9795.                         K))
    9796. 

  9796.   (CFFI:WITH-FOREIGN-OBJECTS ((FORWRD-REF7979 ':INT32) (M-REF7980 ':INT32)
    9797. 

  9797.                               (N-REF7981 ':INT32) (LDX-REF7983 ':INT32))
    9798. 

  9798.     (COMMON-LISP:SETF (CFFI:MEM-REF FORWRD-REF7979 :INT32) FORWRD)
    9799. 

  9799.     (COMMON-LISP:SETF (CFFI:MEM-REF M-REF7980 :INT32) M)
    9800. 

  9800.     (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7981 :INT32) N)
    9801. 

  9801.     (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF7983 :INT32) LDX)
    9802. 

  9802.     (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF7982 X) (K-REF7984 K))
    9803. 

  9803.       (%%DLAPMT FORWRD-REF7979 M-REF7980 N-REF7981 X-REF7982 LDX-REF7983
    9804. 

  9804.        K-REF7984))))
    9805. 

  9805. 

  9806. (CFFI:DEFCFUN ("dlapy2_" %%DLAPY2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    9807. 

  9807.     :DOUBLE
    9808. 

  9808.   (X :POINTER)
    9809. 

  9809.   (Y :POINTER))
    9810. 

  9810. 

  9811. (COMMON-LISP:DEFUN %DLAPY2 (X Y)
    9812. 

  9812.   (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLAPY2)
    9813. 

  9813.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT X)
    9814. 

  9814.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT Y))
    9815. 

  9815.   (CFFI:WITH-FOREIGN-OBJECTS ((X-REF7985 ':DOUBLE) (Y-REF7986 ':DOUBLE))
    9816. 

  9816.     (COMMON-LISP:SETF (CFFI:MEM-REF X-REF7985 :DOUBLE) X)
    9817. 

  9817.     (COMMON-LISP:SETF (CFFI:MEM-REF Y-REF7986 :DOUBLE) Y)
    9818. 

  9818.     (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS COMMON-LISP:NIL
    9819. 

  9819.       (%%DLAPY2 X-REF7985 Y-REF7986))))
    9820. 

  9820. 

  9821. (CFFI:DEFCFUN ("dlapy3_" %%DLAPY3 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    9822. 

  9822.     :DOUBLE
    9823. 

  9823.   (X :POINTER)
    9824. 

  9824.   (Y :POINTER)
    9825. 

  9825.   (Z :POINTER))
    9826. 

  9826. 

  9827. (COMMON-LISP:DEFUN %DLAPY3 (X Y Z)
    9828. 

  9828.   (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLAPY3)
    9829. 

  9829.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT X)
    9830. 

  9830.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT Y)
    9831. 

  9831.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT Z))
    9832. 

  9832.   (CFFI:WITH-FOREIGN-OBJECTS ((X-REF7987 ':DOUBLE) (Y-REF7988 ':DOUBLE)
    9833. 

  9833.                               (Z-REF7989 ':DOUBLE))
    9834. 

  9834.     (COMMON-LISP:SETF (CFFI:MEM-REF X-REF7987 :DOUBLE) X)
    9835. 

  9835.     (COMMON-LISP:SETF (CFFI:MEM-REF Y-REF7988 :DOUBLE) Y)
    9836. 

  9836.     (COMMON-LISP:SETF (CFFI:MEM-REF Z-REF7989 :DOUBLE) Z)
    9837. 

  9837.     (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS COMMON-LISP:NIL
    9838. 

  9838.       (%%DLAPY3 X-REF7987 Y-REF7988 Z-REF7989))))
    9839. 

  9839. 

  9840. (CFFI:DEFCFUN ("dlaqgb_" %%DLAQGB :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    9841. 

  9841.     :VOID
    9842. 

  9842.   (M :POINTER)
    9843. 

  9843.   (N :POINTER)
    9844. 

  9844.   (KL :POINTER)
    9845. 

  9845.   (KU :POINTER)
    9846. 

  9846.   (AB :POINTER)
    9847. 

  9847.   (LDAB :POINTER)
    9848. 

  9848.   (R :POINTER)
    9849. 

  9849.   (C :POINTER)
    9850. 

  9850.   (ROWCND :POINTER)
    9851. 

  9851.   (COLCND :POINTER)
    9852. 

  9852.   (AMAX :POINTER)
    9853. 

  9853.   (EQUED :STRING))
    9854. 

  9854. 

  9855. (COMMON-LISP:DEFUN %DLAQGB (M N KL KU AB LDAB R C ROWCND COLCND AMAX EQUED)
    9856. 

  9856.   (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLAQGB)
    9857. 

  9857.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
    9858. 

  9858.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
    9859. 

  9859.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KL)
    9860. 

  9860.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KU)
    9861. 

  9861.                        (COMMON-LISP:TYPE
    9862. 

  9862.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AB)
    9863. 

  9863.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
    9864. 

  9864.                        (COMMON-LISP:TYPE
    9865. 

  9865.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) R)
    9866. 

  9866.                        (COMMON-LISP:TYPE
    9867. 

  9867.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
    9868. 

  9868.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ROWCND)
    9869. 

  9869.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT COLCND)
    9870. 

  9870.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT AMAX)
    9871. 

  9871.                        (COMMON-LISP:TYPE COMMON-LISP:STRING EQUED))
    9872. 

  9872.   (CFFI:WITH-FOREIGN-OBJECTS ((M-REF7990 ':INT32) (N-REF7991 ':INT32)
    9873. 

  9873.                               (KL-REF7992 ':INT32) (KU-REF7993 ':INT32)
    9874. 

  9874.                               (LDAB-REF7995 ':INT32) (ROWCND-REF7998 ':DOUBLE)
    9875. 

  9875.                               (COLCND-REF7999 ':DOUBLE) (AMAX-REF8000 ':DOUBLE))
    9876. 

  9876.     (COMMON-LISP:SETF (CFFI:MEM-REF M-REF7990 :INT32) M)
    9877. 

  9877.     (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7991 :INT32) N)
    9878. 

  9878.     (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF7992 :INT32) KL)
    9879. 

  9879.     (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF7993 :INT32) KU)
    9880. 

  9880.     (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF7995 :INT32) LDAB)
    9881. 

  9881.     (COMMON-LISP:SETF (CFFI:MEM-REF ROWCND-REF7998 :DOUBLE) ROWCND)
    9882. 

  9882.     (COMMON-LISP:SETF (CFFI:MEM-REF COLCND-REF7999 :DOUBLE) COLCND)
    9883. 

  9883.     (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF8000 :DOUBLE) AMAX)
    9884. 

  9884.     (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF7994 AB) (R-REF7996 R)
    9885. 

  9885.                                             (C-REF7997 C))
    9886. 

  9886.       (%%DLAQGB M-REF7990 N-REF7991 KL-REF7992 KU-REF7993 AB-REF7994
    9887. 

  9887.        LDAB-REF7995 R-REF7996 C-REF7997 ROWCND-REF7998 COLCND-REF7999
    9888. 

  9888.        AMAX-REF8000 EQUED))))
    9889. 

  9889. 

  9890. (CFFI:DEFCFUN ("dlaqge_" %%DLAQGE :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    9891. 

  9891.     :VOID
    9892. 

  9892.   (M :POINTER)
    9893. 

  9893.   (N :POINTER)
    9894. 

  9894.   (A :POINTER)
    9895. 

  9895.   (LDA :POINTER)
    9896. 

  9896.   (R :POINTER)
    9897. 

  9897.   (C :POINTER)
    9898. 

  9898.   (ROWCND :POINTER)
    9899. 

  9899.   (COLCND :POINTER)
    9900. 

  9900.   (AMAX :POINTER)
    9901. 

  9901.   (EQUED :STRING))
    9902. 

  9902. 

  9903. (COMMON-LISP:DEFUN %DLAQGE (M N A LDA R C ROWCND COLCND AMAX EQUED)
    9904. 

  9904.   (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLAQGE)
    9905. 

  9905.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
    9906. 

  9906.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
    9907. 

  9907.                        (COMMON-LISP:TYPE
    9908. 

  9908.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
    9909. 

  9909.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
    9910. 

  9910.                        (COMMON-LISP:TYPE
    9911. 

  9911.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) R)
    9912. 

  9912.                        (COMMON-LISP:TYPE
    9913. 

  9913.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
    9914. 

  9914.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ROWCND)
    9915. 

  9915.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT COLCND)
    9916. 

  9916.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT AMAX)
    9917. 

  9917.                        (COMMON-LISP:TYPE COMMON-LISP:STRING EQUED))
    9918. 

  9918.   (CFFI:WITH-FOREIGN-OBJECTS ((M-REF8002 ':INT32) (N-REF8003 ':INT32)
    9919. 

  9919.                               (LDA-REF8005 ':INT32) (ROWCND-REF8008 ':DOUBLE)
    9920. 

  9920.                               (COLCND-REF8009 ':DOUBLE) (AMAX-REF8010 ':DOUBLE))
    9921. 

  9921.     (COMMON-LISP:SETF (CFFI:MEM-REF M-REF8002 :INT32) M)
    9922. 

  9922.     (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8003 :INT32) N)
    9923. 

  9923.     (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF8005 :INT32) LDA)
    9924. 

  9924.     (COMMON-LISP:SETF (CFFI:MEM-REF ROWCND-REF8008 :DOUBLE) ROWCND)
    9925. 

  9925.     (COMMON-LISP:SETF (CFFI:MEM-REF COLCND-REF8009 :DOUBLE) COLCND)
    9926. 

  9926.     (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF8010 :DOUBLE) AMAX)
    9927. 

  9927.     (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF8004 A) (R-REF8006 R)
    9928. 

  9928.                                             (C-REF8007 C))
    9929. 

  9929.       (%%DLAQGE M-REF8002 N-REF8003 A-REF8004 LDA-REF8005 R-REF8006 C-REF8007
    9930. 

  9930.        ROWCND-REF8008 COLCND-REF8009 AMAX-REF8010 EQUED))))
    9931. 

  9931. 

  9932. (CFFI:DEFCFUN ("dlaqp2_" %%DLAQP2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    9933. 

  9933.     :VOID
    9934. 

  9934.   (M :POINTER)
    9935. 

  9935.   (N :POINTER)
    9936. 

  9936.   (OFFSET :POINTER)
    9937. 

  9937.   (A :POINTER)
    9938. 

  9938.   (LDA :POINTER)
    9939. 

  9939.   (JPVT :POINTER)
    9940. 

  9940.   (TAU :POINTER)
    9941. 

  9941.   (VN1 :POINTER)
    9942. 

  9942.   (VN2 :POINTER)
    9943. 

  9943.   (WORK :POINTER))
    9944. 

  9944. 

  9945. (COMMON-LISP:DEFUN %DLAQP2 (M N OFFSET A LDA JPVT TAU VN1 VN2 WORK)
    9946. 

  9946.   (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLAQP2)
    9947. 

  9947.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
    9948. 

  9948.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
    9949. 

  9949.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) OFFSET)
    9950. 

  9950.                        (COMMON-LISP:TYPE
    9951. 

  9951.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
    9952. 

  9952.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
    9953. 

  9953.                        (COMMON-LISP:TYPE
    9954. 

  9954.                         (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
    9955. 

  9955.                          (COMMON-LISP:*))
    9956. 

  9956.                         JPVT)
    9957. 

  9957.                        (COMMON-LISP:TYPE
    9958. 

  9958.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    9959. 

  9959.                         TAU)
    9960. 

  9960.                        (COMMON-LISP:TYPE
    9961. 

  9961.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    9962. 

  9962.                         VN1)
    9963. 

  9963.                        (COMMON-LISP:TYPE
    9964. 

  9964.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    9965. 

  9965.                         VN2)
    9966. 

  9966.                        (COMMON-LISP:TYPE
    9967. 

  9967.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    9968. 

  9968.                         WORK))
    9969. 

  9969.   (CFFI:WITH-FOREIGN-OBJECTS ((M-REF8012 ':INT32) (N-REF8013 ':INT32)
    9970. 

  9970.                               (OFFSET-REF8014 ':INT32) (LDA-REF8016 ':INT32))
    9971. 

  9971.     (COMMON-LISP:SETF (CFFI:MEM-REF M-REF8012 :INT32) M)
    9972. 

  9972.     (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8013 :INT32) N)
    9973. 

  9973.     (COMMON-LISP:SETF (CFFI:MEM-REF OFFSET-REF8014 :INT32) OFFSET)
    9974. 

  9974.     (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF8016 :INT32) LDA)
    9975. 

  9975.     (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF8015 A) (JPVT-REF8017 JPVT)
    9976. 

  9976.                                             (TAU-REF8018 TAU) (VN1-REF8019 VN1)
    9977. 

  9977.                                             (VN2-REF8020 VN2)
    9978. 

  9978.                                             (WORK-REF8021 WORK))
    9979. 

  9979.       (%%DLAQP2 M-REF8012 N-REF8013 OFFSET-REF8014 A-REF8015 LDA-REF8016
    9980. 

  9980.        JPVT-REF8017 TAU-REF8018 VN1-REF8019 VN2-REF8020 WORK-REF8021))))
    9981. 

  9981. 

  9982. (CFFI:DEFCFUN ("dlaqps_" %%DLAQPS :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    9983. 

  9983.     :VOID
    9984. 

  9984.   (M :POINTER)
    9985. 

  9985.   (N :POINTER)
    9986. 

  9986.   (OFFSET :POINTER)
    9987. 

  9987.   (NB :POINTER)
    9988. 

  9988.   (KB :POINTER)
    9989. 

  9989.   (A :POINTER)
    9990. 

  9990.   (LDA :POINTER)
    9991. 

  9991.   (JPVT :POINTER)
    9992. 

  9992.   (TAU :POINTER)
    9993. 

  9993.   (VN1 :POINTER)
    9994. 

  9994.   (VN2 :POINTER)
    9995. 

  9995.   (AUXV :POINTER)
    9996. 

  9996.   (F :POINTER)
    9997. 

  9997.   (LDF :POINTER))
    9998. 

  9998. 

  9999. (COMMON-LISP:DEFUN %DLAQPS (M N OFFSET NB KB A LDA JPVT TAU VN1 VN2 AUXV F LDF)
    10000. 

  10000.   (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLAQPS)
    10001. 

  10001.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
    10002. 

  10002.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
    10003. 

  10003.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) OFFSET)
    10004. 

  10004.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NB)
    10005. 

  10005.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KB)
    10006. 

  10006.                        (COMMON-LISP:TYPE
    10007. 

  10007.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
    10008. 

  10008.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
    10009. 

  10009.                        (COMMON-LISP:TYPE
    10010. 

  10010.                         (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
    10011. 

  10011.                          (COMMON-LISP:*))
    10012. 

  10012.                         JPVT)
    10013. 

  10013.                        (COMMON-LISP:TYPE
    10014. 

  10014.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    10015. 

  10015.                         TAU)
    10016. 

  10016.                        (COMMON-LISP:TYPE
    10017. 

  10017.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    10018. 

  10018.                         VN1)
    10019. 

  10019.                        (COMMON-LISP:TYPE
    10020. 

  10020.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    10021. 

  10021.                         VN2)
    10022. 

  10022.                        (COMMON-LISP:TYPE
    10023. 

  10023.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    10024. 

  10024.                         AUXV)
    10025. 

  10025.                        (COMMON-LISP:TYPE
    10026. 

  10026.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) F)
    10027. 

  10027.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDF))
    10028. 

  10028.   (CFFI:WITH-FOREIGN-OBJECTS ((M-REF8022 ':INT32) (N-REF8023 ':INT32)
    10029. 

  10029.                               (OFFSET-REF8024 ':INT32) (NB-REF8025 ':INT32)
    10030. 

  10030.                               (KB-REF8026 ':INT32) (LDA-REF8028 ':INT32)
    10031. 

  10031.                               (LDF-REF8035 ':INT32))
    10032. 

  10032.     (COMMON-LISP:SETF (CFFI:MEM-REF M-REF8022 :INT32) M)
    10033. 

  10033.     (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8023 :INT32) N)
    10034. 

  10034.     (COMMON-LISP:SETF (CFFI:MEM-REF OFFSET-REF8024 :INT32) OFFSET)
    10035. 

  10035.     (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF8025 :INT32) NB)
    10036. 

  10036.     (COMMON-LISP:SETF (CFFI:MEM-REF KB-REF8026 :INT32) KB)
    10037. 

  10037.     (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF8028 :INT32) LDA)
    10038. 

  10038.     (COMMON-LISP:SETF (CFFI:MEM-REF LDF-REF8035 :INT32) LDF)
    10039. 

  10039.     (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF8027 A) (JPVT-REF8029 JPVT)
    10040. 

  10040.                                             (TAU-REF8030 TAU) (VN1-REF8031 VN1)
    10041. 

  10041.                                             (VN2-REF8032 VN2)
    10042. 

  10042.                                             (AUXV-REF8033 AUXV) (F-REF8034 F))
    10043. 

  10043.       (%%DLAQPS M-REF8022 N-REF8023 OFFSET-REF8024 NB-REF8025 KB-REF8026
    10044. 

  10044.        A-REF8027 LDA-REF8028 JPVT-REF8029 TAU-REF8030 VN1-REF8031 VN2-REF8032
    10045. 

  10045.        AUXV-REF8033 F-REF8034 LDF-REF8035))))
    10046. 

  10046. 

  10047. (CFFI:DEFCFUN ("dlaqr0_" %%DLAQR0 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    10048. 

  10048.     :VOID
    10049. 

  10049.   (WANTT :POINTER)
    10050. 

  10050.   (WANTZ :POINTER)
    10051. 

  10051.   (N :POINTER)
    10052. 

  10052.   (ILO :POINTER)
    10053. 

  10053.   (IHI :POINTER)
    10054. 

  10054.   (H :POINTER)
    10055. 

  10055.   (LDH :POINTER)
    10056. 

  10056.   (WR :POINTER)
    10057. 

  10057.   (WI :POINTER)
    10058. 

  10058.   (ILOZ :POINTER)
    10059. 

  10059.   (IHIZ :POINTER)
    10060. 

  10060.   (Z :POINTER)
    10061. 

  10061.   (LDZ :POINTER)
    10062. 

  10062.   (WORK :POINTER)
    10063. 

  10063.   (LWORK :POINTER)
    10064. 

  10064.   (INFO :POINTER))
    10065. 

  10065. 

  10066. (COMMON-LISP:DEFUN %DLAQR0
    10067. 

  10067.                    (WANTT WANTZ N ILO IHI H LDH WR WI ILOZ IHIZ Z LDZ WORK
    10068. 

  10068.                     LWORK INFO)
    10069. 

  10069.   (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLAQR0)
    10070. 

  10070.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) WANTT)
    10071. 

  10071.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) WANTZ)
    10072. 

  10072.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
    10073. 

  10073.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILO)
    10074. 

  10074.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IHI)
    10075. 

  10075.                        (COMMON-LISP:TYPE
    10076. 

  10076.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) H)
    10077. 

  10077.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDH)
    10078. 

  10078.                        (COMMON-LISP:TYPE
    10079. 

  10079.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WR)
    10080. 

  10080.                        (COMMON-LISP:TYPE
    10081. 

  10081.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WI)
    10082. 

  10082.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILOZ)
    10083. 

  10083.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IHIZ)
    10084. 

  10084.                        (COMMON-LISP:TYPE
    10085. 

  10085.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Z)
    10086. 

  10086.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
    10087. 

  10087.                        (COMMON-LISP:TYPE
    10088. 

  10088.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    10089. 

  10089.                         WORK)
    10090. 

  10090.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
    10091. 

  10091.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
    10092. 

  10092.   (CFFI:WITH-FOREIGN-OBJECTS ((WANTT-REF8036 ':INT32) (WANTZ-REF8037 ':INT32)
    10093. 

  10093.                               (N-REF8038 ':INT32) (ILO-REF8039 ':INT32)
    10094. 

  10094.                               (IHI-REF8040 ':INT32) (LDH-REF8042 ':INT32)
    10095. 

  10095.                               (ILOZ-REF8045 ':INT32) (IHIZ-REF8046 ':INT32)
    10096. 

  10096.                               (LDZ-REF8048 ':INT32) (LWORK-REF8050 ':INT32)
    10097. 

  10097.                               (INFO-REF8051 ':INT32))
    10098. 

  10098.     (COMMON-LISP:SETF (CFFI:MEM-REF WANTT-REF8036 :INT32) WANTT)
    10099. 

  10099.     (COMMON-LISP:SETF (CFFI:MEM-REF WANTZ-REF8037 :INT32) WANTZ)
    10100. 

  10100.     (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8038 :INT32) N)
    10101. 

  10101.     (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF8039 :INT32) ILO)
    10102. 

  10102.     (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF8040 :INT32) IHI)
    10103. 

  10103.     (COMMON-LISP:SETF (CFFI:MEM-REF LDH-REF8042 :INT32) LDH)
    10104. 

  10104.     (COMMON-LISP:SETF (CFFI:MEM-REF ILOZ-REF8045 :INT32) ILOZ)
    10105. 

  10105.     (COMMON-LISP:SETF (CFFI:MEM-REF IHIZ-REF8046 :INT32) IHIZ)
    10106. 

  10106.     (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF8048 :INT32) LDZ)
    10107. 

  10107.     (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF8050 :INT32) LWORK)
    10108. 

  10108.     (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF8051 :INT32) INFO)
    10109. 

  10109.     (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((H-REF8041 H) (WR-REF8043 WR)
    10110. 

  10110.                                             (WI-REF8044 WI) (Z-REF8047 Z)
    10111. 

  10111.                                             (WORK-REF8049 WORK))
    10112. 

  10112.       (%%DLAQR0 WANTT-REF8036 WANTZ-REF8037 N-REF8038 ILO-REF8039 IHI-REF8040
    10113. 

  10113.        H-REF8041 LDH-REF8042 WR-REF8043 WI-REF8044 ILOZ-REF8045 IHIZ-REF8046
    10114. 

  10114.        Z-REF8047 LDZ-REF8048 WORK-REF8049 LWORK-REF8050 INFO-REF8051))))
    10115. 

  10115. 

  10116. (CFFI:DEFCFUN ("dlaqr1_" %%DLAQR1 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    10117. 

  10117.     :VOID
    10118. 

  10118.   (N :POINTER)
    10119. 

  10119.   (H :POINTER)
    10120. 

  10120.   (LDH :POINTER)
    10121. 

  10121.   (SR1 :POINTER)
    10122. 

  10122.   (SI1 :POINTER)
    10123. 

  10123.   (SR2 :POINTER)
    10124. 

  10124.   (SI2 :POINTER)
    10125. 

  10125.   (V :POINTER))
    10126. 

  10126. 

  10127. (COMMON-LISP:DEFUN %DLAQR1 (N H LDH SR1 SI1 SR2 SI2 V)
    10128. 

  10128.   (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLAQR1)
    10129. 

  10129.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
    10130. 

  10130.                        (COMMON-LISP:TYPE
    10131. 

  10131.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) H)
    10132. 

  10132.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDH)
    10133. 

  10133.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SR1)
    10134. 

  10134.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SI1)
    10135. 

  10135.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SR2)
    10136. 

  10136.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SI2)
    10137. 

  10137.                        (COMMON-LISP:TYPE
    10138. 

  10138.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) V))
    10139. 

  10139.   (CFFI:WITH-FOREIGN-OBJECTS ((N-REF8052 ':INT32) (LDH-REF8054 ':INT32)
    10140. 

  10140.                               (SR1-REF8055 ':DOUBLE) (SI1-REF8056 ':DOUBLE)
    10141. 

  10141.                               (SR2-REF8057 ':DOUBLE) (SI2-REF8058 ':DOUBLE))
    10142. 

  10142.     (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8052 :INT32) N)
    10143. 

  10143.     (COMMON-LISP:SETF (CFFI:MEM-REF LDH-REF8054 :INT32) LDH)
    10144. 

  10144.     (COMMON-LISP:SETF (CFFI:MEM-REF SR1-REF8055 :DOUBLE) SR1)
    10145. 

  10145.     (COMMON-LISP:SETF (CFFI:MEM-REF SI1-REF8056 :DOUBLE) SI1)
    10146. 

  10146.     (COMMON-LISP:SETF (CFFI:MEM-REF SR2-REF8057 :DOUBLE) SR2)
    10147. 

  10147.     (COMMON-LISP:SETF (CFFI:MEM-REF SI2-REF8058 :DOUBLE) SI2)
    10148. 

  10148.     (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((H-REF8053 H) (V-REF8059 V))
    10149. 

  10149.       (%%DLAQR1 N-REF8052 H-REF8053 LDH-REF8054 SR1-REF8055 SI1-REF8056
    10150. 

  10150.        SR2-REF8057 SI2-REF8058 V-REF8059))))
    10151. 

  10151. 

  10152. (CFFI:DEFCFUN ("dlaqr2_" %%DLAQR2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    10153. 

  10153.     :VOID
    10154. 

  10154.   (WANTT :POINTER)
    10155. 

  10155.   (WANTZ :POINTER)
    10156. 

  10156.   (N :POINTER)
    10157. 

  10157.   (KTOP :POINTER)
    10158. 

  10158.   (KBOT :POINTER)
    10159. 

  10159.   (NW :POINTER)
    10160. 

  10160.   (H :POINTER)
    10161. 

  10161.   (LDH :POINTER)
    10162. 

  10162.   (ILOZ :POINTER)
    10163. 

  10163.   (IHIZ :POINTER)
    10164. 

  10164.   (Z :POINTER)
    10165. 

  10165.   (LDZ :POINTER)
    10166. 

  10166.   (NS :POINTER)
    10167. 

  10167.   (ND :POINTER)
    10168. 

  10168.   (SR :POINTER)
    10169. 

  10169.   (SI :POINTER)
    10170. 

  10170.   (V :POINTER)
    10171. 

  10171.   (LDV :POINTER)
    10172. 

  10172.   (NH :POINTER)
    10173. 

  10173.   (T :POINTER)
    10174. 

  10174.   (LDT :POINTER)
    10175. 

  10175.   (NV :POINTER)
    10176. 

  10176.   (WV :POINTER)
    10177. 

  10177.   (LDWV :POINTER)
    10178. 

  10178.   (WORK :POINTER)
    10179. 

  10179.   (LWORK :POINTER))
    10180. 

  10180. 

  10181. (COMMON-LISP:DEFUN %DLAQR2
    10182. 

  10182.                    (WANTT WANTZ N KTOP KBOT NW H LDH ILOZ IHIZ Z LDZ NS ND SR
    10183. 

  10183.                     SI V LDV NH T LDT NV WV LDWV WORK LWORK)
    10184. 

  10184.   (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLAQR2)
    10185. 

  10185.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) WANTT)
    10186. 

  10186.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) WANTZ)
    10187. 

  10187.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
    10188. 

  10188.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KTOP)
    10189. 

  10189.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KBOT)
    10190. 

  10190.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NW)
    10191. 

  10191.                        (COMMON-LISP:TYPE
    10192. 

  10192.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) H)
    10193. 

  10193.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDH)
    10194. 

  10194.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILOZ)
    10195. 

  10195.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IHIZ)
    10196. 

  10196.                        (COMMON-LISP:TYPE
    10197. 

  10197.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Z)
    10198. 

  10198.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
    10199. 

  10199.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NS)
    10200. 

  10200.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ND)
    10201. 

  10201.                        (COMMON-LISP:TYPE
    10202. 

  10202.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) SR)
    10203. 

  10203.                        (COMMON-LISP:TYPE
    10204. 

  10204.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) SI)
    10205. 

  10205.                        (COMMON-LISP:TYPE
    10206. 

  10206.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) V)
    10207. 

  10207.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV)
    10208. 

  10208.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NH)
    10209. 

  10209.                        (COMMON-LISP:TYPE
    10210. 

  10210.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) T)
    10211. 

  10211.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
    10212. 

  10212.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NV)
    10213. 

  10213.                        (COMMON-LISP:TYPE
    10214. 

  10214.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WV)
    10215. 

  10215.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDWV)
    10216. 

  10216.                        (COMMON-LISP:TYPE
    10217. 

  10217.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    10218. 

  10218.                         WORK)
    10219. 

  10219.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK))
    10220. 

  10220.   (CFFI:WITH-FOREIGN-OBJECTS ((WANTT-REF8060 ':INT32) (WANTZ-REF8061 ':INT32)
    10221. 

  10221.                               (N-REF8062 ':INT32) (KTOP-REF8063 ':INT32)
    10222. 

  10222.                               (KBOT-REF8064 ':INT32) (NW-REF8065 ':INT32)
    10223. 

  10223.                               (LDH-REF8067 ':INT32) (ILOZ-REF8068 ':INT32)
    10224. 

  10224.                               (IHIZ-REF8069 ':INT32) (LDZ-REF8071 ':INT32)
    10225. 

  10225.                               (NS-REF8072 ':INT32) (ND-REF8073 ':INT32)
    10226. 

  10226.                               (LDV-REF8077 ':INT32) (NH-REF8078 ':INT32)
    10227. 

  10227.                               (LDT-REF8080 ':INT32) (NV-REF8081 ':INT32)
    10228. 

  10228.                               (LDWV-REF8083 ':INT32) (LWORK-REF8085 ':INT32))
    10229. 

  10229.     (COMMON-LISP:SETF (CFFI:MEM-REF WANTT-REF8060 :INT32) WANTT)
    10230. 

  10230.     (COMMON-LISP:SETF (CFFI:MEM-REF WANTZ-REF8061 :INT32) WANTZ)
    10231. 

  10231.     (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8062 :INT32) N)
    10232. 

  10232.     (COMMON-LISP:SETF (CFFI:MEM-REF KTOP-REF8063 :INT32) KTOP)
    10233. 

  10233.     (COMMON-LISP:SETF (CFFI:MEM-REF KBOT-REF8064 :INT32) KBOT)
    10234. 

  10234.     (COMMON-LISP:SETF (CFFI:MEM-REF NW-REF8065 :INT32) NW)
    10235. 

  10235.     (COMMON-LISP:SETF (CFFI:MEM-REF LDH-REF8067 :INT32) LDH)
    10236. 

  10236.     (COMMON-LISP:SETF (CFFI:MEM-REF ILOZ-REF8068 :INT32) ILOZ)
    10237. 

  10237.     (COMMON-LISP:SETF (CFFI:MEM-REF IHIZ-REF8069 :INT32) IHIZ)
    10238. 

  10238.     (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF8071 :INT32) LDZ)
    10239. 

  10239.     (COMMON-LISP:SETF (CFFI:MEM-REF NS-REF8072 :INT32) NS)
    10240. 

  10240.     (COMMON-LISP:SETF (CFFI:MEM-REF ND-REF8073 :INT32) ND)
    10241. 

  10241.     (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF8077 :INT32) LDV)
    10242. 

  10242.     (COMMON-LISP:SETF (CFFI:MEM-REF NH-REF8078 :INT32) NH)
    10243. 

  10243.     (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF8080 :INT32) LDT)
    10244. 

  10244.     (COMMON-LISP:SETF (CFFI:MEM-REF NV-REF8081 :INT32) NV)
    10245. 

  10245.     (COMMON-LISP:SETF (CFFI:MEM-REF LDWV-REF8083 :INT32) LDWV)
    10246. 

  10246.     (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF8085 :INT32) LWORK)
    10247. 

  10247.     (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((H-REF8066 H) (Z-REF8070 Z)
    10248. 

  10248.                                             (SR-REF8074 SR) (SI-REF8075 SI)
    10249. 

  10249.                                             (V-REF8076 V) (T-REF8079 T)
    10250. 

  10250.                                             (WV-REF8082 WV) (WORK-REF8084 WORK))
    10251. 

  10251.       (%%DLAQR2 WANTT-REF8060 WANTZ-REF8061 N-REF8062 KTOP-REF8063 KBOT-REF8064
    10252. 

  10252.        NW-REF8065 H-REF8066 LDH-REF8067 ILOZ-REF8068 IHIZ-REF8069 Z-REF8070
    10253. 

  10253.        LDZ-REF8071 NS-REF8072 ND-REF8073 SR-REF8074 SI-REF8075 V-REF8076
    10254. 

  10254.        LDV-REF8077 NH-REF8078 T-REF8079 LDT-REF8080 NV-REF8081 WV-REF8082
    10255. 

  10255.        LDWV-REF8083 WORK-REF8084 LWORK-REF8085))))
    10256. 

  10256. 

  10257. (CFFI:DEFCFUN ("dlaqr3_" %%DLAQR3 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    10258. 

  10258.     :VOID
    10259. 

  10259.   (WANTT :POINTER)
    10260. 

  10260.   (WANTZ :POINTER)
    10261. 

  10261.   (N :POINTER)
    10262. 

  10262.   (KTOP :POINTER)
    10263. 

  10263.   (KBOT :POINTER)
    10264. 

  10264.   (NW :POINTER)
    10265. 

  10265.   (H :POINTER)
    10266. 

  10266.   (LDH :POINTER)
    10267. 

  10267.   (ILOZ :POINTER)
    10268. 

  10268.   (IHIZ :POINTER)
    10269. 

  10269.   (Z :POINTER)
    10270. 

  10270.   (LDZ :POINTER)
    10271. 

  10271.   (NS :POINTER)
    10272. 

  10272.   (ND :POINTER)
    10273. 

  10273.   (SR :POINTER)
    10274. 

  10274.   (SI :POINTER)
    10275. 

  10275.   (V :POINTER)
    10276. 

  10276.   (LDV :POINTER)
    10277. 

  10277.   (NH :POINTER)
    10278. 

  10278.   (T :POINTER)
    10279. 

  10279.   (LDT :POINTER)
    10280. 

  10280.   (NV :POINTER)
    10281. 

  10281.   (WV :POINTER)
    10282. 

  10282.   (LDWV :POINTER)
    10283. 

  10283.   (WORK :POINTER)
    10284. 

  10284.   (LWORK :POINTER))
    10285. 

  10285. 

  10286. (COMMON-LISP:DEFUN %DLAQR3
    10287. 

  10287.                    (WANTT WANTZ N KTOP KBOT NW H LDH ILOZ IHIZ Z LDZ NS ND SR
    10288. 

  10288.                     SI V LDV NH T LDT NV WV LDWV WORK LWORK)
    10289. 

  10289.   (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLAQR3)
    10290. 

  10290.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) WANTT)
    10291. 

  10291.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) WANTZ)
    10292. 

  10292.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
    10293. 

  10293.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KTOP)
    10294. 

  10294.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KBOT)
    10295. 

  10295.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NW)
    10296. 

  10296.                        (COMMON-LISP:TYPE
    10297. 

  10297.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) H)
    10298. 

  10298.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDH)
    10299. 

  10299.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILOZ)
    10300. 

  10300.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IHIZ)
    10301. 

  10301.                        (COMMON-LISP:TYPE
    10302. 

  10302.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Z)
    10303. 

  10303.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
    10304. 

  10304.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NS)
    10305. 

  10305.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ND)
    10306. 

  10306.                        (COMMON-LISP:TYPE
    10307. 

  10307.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) SR)
    10308. 

  10308.                        (COMMON-LISP:TYPE
    10309. 

  10309.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) SI)
    10310. 

  10310.                        (COMMON-LISP:TYPE
    10311. 

  10311.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) V)
    10312. 

  10312.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV)
    10313. 

  10313.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NH)
    10314. 

  10314.                        (COMMON-LISP:TYPE
    10315. 

  10315.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) T)
    10316. 

  10316.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
    10317. 

  10317.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NV)
    10318. 

  10318.                        (COMMON-LISP:TYPE
    10319. 

  10319.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WV)
    10320. 

  10320.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDWV)
    10321. 

  10321.                        (COMMON-LISP:TYPE
    10322. 

  10322.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    10323. 

  10323.                         WORK)
    10324. 

  10324.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK))
    10325. 

  10325.   (CFFI:WITH-FOREIGN-OBJECTS ((WANTT-REF8086 ':INT32) (WANTZ-REF8087 ':INT32)
    10326. 

  10326.                               (N-REF8088 ':INT32) (KTOP-REF8089 ':INT32)
    10327. 

  10327.                               (KBOT-REF8090 ':INT32) (NW-REF8091 ':INT32)
    10328. 

  10328.                               (LDH-REF8093 ':INT32) (ILOZ-REF8094 ':INT32)
    10329. 

  10329.                               (IHIZ-REF8095 ':INT32) (LDZ-REF8097 ':INT32)
    10330. 

  10330.                               (NS-REF8098 ':INT32) (ND-REF8099 ':INT32)
    10331. 

  10331.                               (LDV-REF8103 ':INT32) (NH-REF8104 ':INT32)
    10332. 

  10332.                               (LDT-REF8106 ':INT32) (NV-REF8107 ':INT32)
    10333. 

  10333.                               (LDWV-REF8109 ':INT32) (LWORK-REF8111 ':INT32))
    10334. 

  10334.     (COMMON-LISP:SETF (CFFI:MEM-REF WANTT-REF8086 :INT32) WANTT)
    10335. 

  10335.     (COMMON-LISP:SETF (CFFI:MEM-REF WANTZ-REF8087 :INT32) WANTZ)
    10336. 

  10336.     (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8088 :INT32) N)
    10337. 

  10337.     (COMMON-LISP:SETF (CFFI:MEM-REF KTOP-REF8089 :INT32) KTOP)
    10338. 

  10338.     (COMMON-LISP:SETF (CFFI:MEM-REF KBOT-REF8090 :INT32) KBOT)
    10339. 

  10339.     (COMMON-LISP:SETF (CFFI:MEM-REF NW-REF8091 :INT32) NW)
    10340. 

  10340.     (COMMON-LISP:SETF (CFFI:MEM-REF LDH-REF8093 :INT32) LDH)
    10341. 

  10341.     (COMMON-LISP:SETF (CFFI:MEM-REF ILOZ-REF8094 :INT32) ILOZ)
    10342. 

  10342.     (COMMON-LISP:SETF (CFFI:MEM-REF IHIZ-REF8095 :INT32) IHIZ)
    10343. 

  10343.     (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF8097 :INT32) LDZ)
    10344. 

  10344.     (COMMON-LISP:SETF (CFFI:MEM-REF NS-REF8098 :INT32) NS)
    10345. 

  10345.     (COMMON-LISP:SETF (CFFI:MEM-REF ND-REF8099 :INT32) ND)
    10346. 

  10346.     (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF8103 :INT32) LDV)
    10347. 

  10347.     (COMMON-LISP:SETF (CFFI:MEM-REF NH-REF8104 :INT32) NH)
    10348. 

  10348.     (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF8106 :INT32) LDT)
    10349. 

  10349.     (COMMON-LISP:SETF (CFFI:MEM-REF NV-REF8107 :INT32) NV)
    10350. 

  10350.     (COMMON-LISP:SETF (CFFI:MEM-REF LDWV-REF8109 :INT32) LDWV)
    10351. 

  10351.     (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF8111 :INT32) LWORK)
    10352. 

  10352.     (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((H-REF8092 H) (Z-REF8096 Z)
    10353. 

  10353.                                             (SR-REF8100 SR) (SI-REF8101 SI)
    10354. 

  10354.                                             (V-REF8102 V) (T-REF8105 T)
    10355. 

  10355.                                             (WV-REF8108 WV) (WORK-REF8110 WORK))
    10356. 

  10356.       (%%DLAQR3 WANTT-REF8086 WANTZ-REF8087 N-REF8088 KTOP-REF8089 KBOT-REF8090
    10357. 

  10357.        NW-REF8091 H-REF8092 LDH-REF8093 ILOZ-REF8094 IHIZ-REF8095 Z-REF8096
    10358. 

  10358.        LDZ-REF8097 NS-REF8098 ND-REF8099 SR-REF8100 SI-REF8101 V-REF8102
    10359. 

  10359.        LDV-REF8103 NH-REF8104 T-REF8105 LDT-REF8106 NV-REF8107 WV-REF8108
    10360. 

  10360.        LDWV-REF8109 WORK-REF8110 LWORK-REF8111))))
    10361. 

  10361. 

  10362. (CFFI:DEFCFUN ("dlaqr4_" %%DLAQR4 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    10363. 

  10363.     :VOID
    10364. 

  10364.   (WANTT :POINTER)
    10365. 

  10365.   (WANTZ :POINTER)
    10366. 

  10366.   (N :POINTER)
    10367. 

  10367.   (ILO :POINTER)
    10368. 

  10368.   (IHI :POINTER)
    10369. 

  10369.   (H :POINTER)
    10370. 

  10370.   (LDH :POINTER)
    10371. 

  10371.   (WR :POINTER)
    10372. 

  10372.   (WI :POINTER)
    10373. 

  10373.   (ILOZ :POINTER)
    10374. 

  10374.   (IHIZ :POINTER)
    10375. 

  10375.   (Z :POINTER)
    10376. 

  10376.   (LDZ :POINTER)
    10377. 

  10377.   (WORK :POINTER)
    10378. 

  10378.   (LWORK :POINTER)
    10379. 

  10379.   (INFO :POINTER))
    10380. 

  10380. 

  10381. (COMMON-LISP:DEFUN %DLAQR4
    10382. 

  10382.                    (WANTT WANTZ N ILO IHI H LDH WR WI ILOZ IHIZ Z LDZ WORK
    10383. 

  10383.                     LWORK INFO)
    10384. 

  10384.   (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLAQR4)
    10385. 

  10385.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) WANTT)
    10386. 

  10386.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) WANTZ)
    10387. 

  10387.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
    10388. 

  10388.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILO)
    10389. 

  10389.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IHI)
    10390. 

  10390.                        (COMMON-LISP:TYPE
    10391. 

  10391.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) H)
    10392. 

  10392.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDH)
    10393. 

  10393.                        (COMMON-LISP:TYPE
    10394. 

  10394.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WR)
    10395. 

  10395.                        (COMMON-LISP:TYPE
    10396. 

  10396.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WI)
    10397. 

  10397.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILOZ)
    10398. 

  10398.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IHIZ)
    10399. 

  10399.                        (COMMON-LISP:TYPE
    10400. 

  10400.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Z)
    10401. 

  10401.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
    10402. 

  10402.                        (COMMON-LISP:TYPE
    10403. 

  10403.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    10404. 

  10404.                         WORK)
    10405. 

  10405.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
    10406. 

  10406.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
    10407. 

  10407.   (CFFI:WITH-FOREIGN-OBJECTS ((WANTT-REF8112 ':INT32) (WANTZ-REF8113 ':INT32)
    10408. 

  10408.                               (N-REF8114 ':INT32) (ILO-REF8115 ':INT32)
    10409. 

  10409.                               (IHI-REF8116 ':INT32) (LDH-REF8118 ':INT32)
    10410. 

  10410.                               (ILOZ-REF8121 ':INT32) (IHIZ-REF8122 ':INT32)
    10411. 

  10411.                               (LDZ-REF8124 ':INT32) (LWORK-REF8126 ':INT32)
    10412. 

  10412.                               (INFO-REF8127 ':INT32))
    10413. 

  10413.     (COMMON-LISP:SETF (CFFI:MEM-REF WANTT-REF8112 :INT32) WANTT)
    10414. 

  10414.     (COMMON-LISP:SETF (CFFI:MEM-REF WANTZ-REF8113 :INT32) WANTZ)
    10415. 

  10415.     (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8114 :INT32) N)
    10416. 

  10416.     (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF8115 :INT32) ILO)
    10417. 

  10417.     (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF8116 :INT32) IHI)
    10418. 

  10418.     (COMMON-LISP:SETF (CFFI:MEM-REF LDH-REF8118 :INT32) LDH)
    10419. 

  10419.     (COMMON-LISP:SETF (CFFI:MEM-REF ILOZ-REF8121 :INT32) ILOZ)
    10420. 

  10420.     (COMMON-LISP:SETF (CFFI:MEM-REF IHIZ-REF8122 :INT32) IHIZ)
    10421. 

  10421.     (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF8124 :INT32) LDZ)
    10422. 

  10422.     (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF8126 :INT32) LWORK)
    10423. 

  10423.     (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF8127 :INT32) INFO)
    10424. 

  10424.     (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((H-REF8117 H) (WR-REF8119 WR)
    10425. 

  10425.                                             (WI-REF8120 WI) (Z-REF8123 Z)
    10426. 

  10426.                                             (WORK-REF8125 WORK))
    10427. 

  10427.       (%%DLAQR4 WANTT-REF8112 WANTZ-REF8113 N-REF8114 ILO-REF8115 IHI-REF8116
    10428. 

  10428.        H-REF8117 LDH-REF8118 WR-REF8119 WI-REF8120 ILOZ-REF8121 IHIZ-REF8122
    10429. 

  10429.        Z-REF8123 LDZ-REF8124 WORK-REF8125 LWORK-REF8126 INFO-REF8127))))
    10430. 

  10430. 

  10431. (CFFI:DEFCFUN ("dlaqr5_" %%DLAQR5 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    10432. 

  10432.     :VOID
    10433. 

  10433.   (WANTT :POINTER)
    10434. 

  10434.   (WANTZ :POINTER)
    10435. 

  10435.   (KACC22 :POINTER)
    10436. 

  10436.   (N :POINTER)
    10437. 

  10437.   (KTOP :POINTER)
    10438. 

  10438.   (KBOT :POINTER)
    10439. 

  10439.   (NSHFTS :POINTER)
    10440. 

  10440.   (SR :POINTER)
    10441. 

  10441.   (SI :POINTER)
    10442. 

  10442.   (H :POINTER)
    10443. 

  10443.   (LDH :POINTER)
    10444. 

  10444.   (ILOZ :POINTER)
    10445. 

  10445.   (IHIZ :POINTER)
    10446. 

  10446.   (Z :POINTER)
    10447. 

  10447.   (LDZ :POINTER)
    10448. 

  10448.   (V :POINTER)
    10449. 

  10449.   (LDV :POINTER)
    10450. 

  10450.   (U :POINTER)
    10451. 

  10451.   (LDU :POINTER)
    10452. 

  10452.   (NV :POINTER)
    10453. 

  10453.   (WV :POINTER)
    10454. 

  10454.   (LDWV :POINTER)
    10455. 

  10455.   (NH :POINTER)
    10456. 

  10456.   (WH :POINTER)
    10457. 

  10457.   (LDWH :POINTER))
    10458. 

  10458. 

  10459. (COMMON-LISP:DEFUN %DLAQR5
    10460. 

  10460.                    (WANTT WANTZ KACC22 N KTOP KBOT NSHFTS SR SI H LDH ILOZ IHIZ
    10461. 

  10461.                     Z LDZ V LDV U LDU NV WV LDWV NH WH LDWH)
    10462. 

  10462.   (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLAQR5)
    10463. 

  10463.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) WANTT)
    10464. 

  10464.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) WANTZ)
    10465. 

  10465.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KACC22)
    10466. 

  10466.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
    10467. 

  10467.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KTOP)
    10468. 

  10468.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KBOT)
    10469. 

  10469.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NSHFTS)
    10470. 

  10470.                        (COMMON-LISP:TYPE
    10471. 

  10471.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) SR)
    10472. 

  10472.                        (COMMON-LISP:TYPE
    10473. 

  10473.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) SI)
    10474. 

  10474.                        (COMMON-LISP:TYPE
    10475. 

  10475.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) H)
    10476. 

  10476.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDH)
    10477. 

  10477.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILOZ)
    10478. 

  10478.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IHIZ)
    10479. 

  10479.                        (COMMON-LISP:TYPE
    10480. 

  10480.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Z)
    10481. 

  10481.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
    10482. 

  10482.                        (COMMON-LISP:TYPE
    10483. 

  10483.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) V)
    10484. 

  10484.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV)
    10485. 

  10485.                        (COMMON-LISP:TYPE
    10486. 

  10486.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) U)
    10487. 

  10487.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDU)
    10488. 

  10488.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NV)
    10489. 

  10489.                        (COMMON-LISP:TYPE
    10490. 

  10490.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WV)
    10491. 

  10491.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDWV)
    10492. 

  10492.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NH)
    10493. 

  10493.                        (COMMON-LISP:TYPE
    10494. 

  10494.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WH)
    10495. 

  10495.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDWH))
    10496. 

  10496.   (CFFI:WITH-FOREIGN-OBJECTS ((WANTT-REF8128 ':INT32) (WANTZ-REF8129 ':INT32)
    10497. 

  10497.                               (KACC22-REF8130 ':INT32) (N-REF8131 ':INT32)
    10498. 

  10498.                               (KTOP-REF8132 ':INT32) (KBOT-REF8133 ':INT32)
    10499. 

  10499.                               (NSHFTS-REF8134 ':INT32) (LDH-REF8138 ':INT32)
    10500. 

  10500.                               (ILOZ-REF8139 ':INT32) (IHIZ-REF8140 ':INT32)
    10501. 

  10501.                               (LDZ-REF8142 ':INT32) (LDV-REF8144 ':INT32)
    10502. 

  10502.                               (LDU-REF8146 ':INT32) (NV-REF8147 ':INT32)
    10503. 

  10503.                               (LDWV-REF8149 ':INT32) (NH-REF8150 ':INT32)
    10504. 

  10504.                               (LDWH-REF8152 ':INT32))
    10505. 

  10505.     (COMMON-LISP:SETF (CFFI:MEM-REF WANTT-REF8128 :INT32) WANTT)
    10506. 

  10506.     (COMMON-LISP:SETF (CFFI:MEM-REF WANTZ-REF8129 :INT32) WANTZ)
    10507. 

  10507.     (COMMON-LISP:SETF (CFFI:MEM-REF KACC22-REF8130 :INT32) KACC22)
    10508. 

  10508.     (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8131 :INT32) N)
    10509. 

  10509.     (COMMON-LISP:SETF (CFFI:MEM-REF KTOP-REF8132 :INT32) KTOP)
    10510. 

  10510.     (COMMON-LISP:SETF (CFFI:MEM-REF KBOT-REF8133 :INT32) KBOT)
    10511. 

  10511.     (COMMON-LISP:SETF (CFFI:MEM-REF NSHFTS-REF8134 :INT32) NSHFTS)
    10512. 

  10512.     (COMMON-LISP:SETF (CFFI:MEM-REF LDH-REF8138 :INT32) LDH)
    10513. 

  10513.     (COMMON-LISP:SETF (CFFI:MEM-REF ILOZ-REF8139 :INT32) ILOZ)
    10514. 

  10514.     (COMMON-LISP:SETF (CFFI:MEM-REF IHIZ-REF8140 :INT32) IHIZ)
    10515. 

  10515.     (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF8142 :INT32) LDZ)
    10516. 

  10516.     (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF8144 :INT32) LDV)
    10517. 

  10517.     (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF8146 :INT32) LDU)
    10518. 

  10518.     (COMMON-LISP:SETF (CFFI:MEM-REF NV-REF8147 :INT32) NV)
    10519. 

  10519.     (COMMON-LISP:SETF (CFFI:MEM-REF LDWV-REF8149 :INT32) LDWV)
    10520. 

  10520.     (COMMON-LISP:SETF (CFFI:MEM-REF NH-REF8150 :INT32) NH)
    10521. 

  10521.     (COMMON-LISP:SETF (CFFI:MEM-REF LDWH-REF8152 :INT32) LDWH)
    10522. 

  10522.     (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((SR-REF8135 SR) (SI-REF8136 SI)
    10523. 

  10523.                                             (H-REF8137 H) (Z-REF8141 Z)
    10524. 

  10524.                                             (V-REF8143 V) (U-REF8145 U)
    10525. 

  10525.                                             (WV-REF8148 WV) (WH-REF8151 WH))
    10526. 

  10526.       (%%DLAQR5 WANTT-REF8128 WANTZ-REF8129 KACC22-REF8130 N-REF8131
    10527. 

  10527.        KTOP-REF8132 KBOT-REF8133 NSHFTS-REF8134 SR-REF8135 SI-REF8136 H-REF8137
    10528. 

  10528.        LDH-REF8138 ILOZ-REF8139 IHIZ-REF8140 Z-REF8141 LDZ-REF8142 V-REF8143
    10529. 

  10529.        LDV-REF8144 U-REF8145 LDU-REF8146 NV-REF8147 WV-REF8148 LDWV-REF8149
    10530. 

  10530.        NH-REF8150 WH-REF8151 LDWH-REF8152))))
    10531. 

  10531. 

  10532. (CFFI:DEFCFUN ("dlaqsb_" %%DLAQSB :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    10533. 

  10533.     :VOID
    10534. 

  10534.   (UPLO :STRING)
    10535. 

  10535.   (N :POINTER)
    10536. 

  10536.   (KD :POINTER)
    10537. 

  10537.   (AB :POINTER)
    10538. 

  10538.   (LDAB :POINTER)
    10539. 

  10539.   (S :POINTER)
    10540. 

  10540.   (SCOND :POINTER)
    10541. 

  10541.   (AMAX :POINTER)
    10542. 

  10542.   (EQUED :STRING))
    10543. 

  10543. 

  10544. (COMMON-LISP:DEFUN %DLAQSB (UPLO N KD AB LDAB S SCOND AMAX EQUED)
    10545. 

  10545.   (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLAQSB)
    10546. 

  10546.                        (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
    10547. 

  10547.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
    10548. 

  10548.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KD)
    10549. 

  10549.                        (COMMON-LISP:TYPE
    10550. 

  10550.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AB)
    10551. 

  10551.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
    10552. 

  10552.                        (COMMON-LISP:TYPE
    10553. 

  10553.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) S)
    10554. 

  10554.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SCOND)
    10555. 

  10555.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT AMAX)
    10556. 

  10556.                        (COMMON-LISP:TYPE COMMON-LISP:STRING EQUED))
    10557. 

  10557.   (CFFI:WITH-FOREIGN-OBJECTS ((N-REF8154 ':INT32) (KD-REF8155 ':INT32)
    10558. 

  10558.                               (LDAB-REF8157 ':INT32) (SCOND-REF8159 ':DOUBLE)
    10559. 

  10559.                               (AMAX-REF8160 ':DOUBLE))
    10560. 

  10560.     (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8154 :INT32) N)
    10561. 

  10561.     (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF8155 :INT32) KD)
    10562. 

  10562.     (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF8157 :INT32) LDAB)
    10563. 

  10563.     (COMMON-LISP:SETF (CFFI:MEM-REF SCOND-REF8159 :DOUBLE) SCOND)
    10564. 

  10564.     (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF8160 :DOUBLE) AMAX)
    10565. 

  10565.     (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF8156 AB) (S-REF8158 S))
    10566. 

  10566.       (%%DLAQSB UPLO N-REF8154 KD-REF8155 AB-REF8156 LDAB-REF8157 S-REF8158
    10567. 

  10567.        SCOND-REF8159 AMAX-REF8160 EQUED))))
    10568. 

  10568. 

  10569. (CFFI:DEFCFUN ("dlaqsp_" %%DLAQSP :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    10570. 

  10570.     :VOID
    10571. 

  10571.   (UPLO :STRING)
    10572. 

  10572.   (N :POINTER)
    10573. 

  10573.   (AP :POINTER)
    10574. 

  10574.   (S :POINTER)
    10575. 

  10575.   (SCOND :POINTER)
    10576. 

  10576.   (AMAX :POINTER)
    10577. 

  10577.   (EQUED :STRING))
    10578. 

  10578. 

  10579. (COMMON-LISP:DEFUN %DLAQSP (UPLO N AP S SCOND AMAX EQUED)
    10580. 

  10580.   (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLAQSP)
    10581. 

  10581.                        (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
    10582. 

  10582.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
    10583. 

  10583.                        (COMMON-LISP:TYPE
    10584. 

  10584.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AP)
    10585. 

  10585.                        (COMMON-LISP:TYPE
    10586. 

  10586.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) S)
    10587. 

  10587.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SCOND)
    10588. 

  10588.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT AMAX)
    10589. 

  10589.                        (COMMON-LISP:TYPE COMMON-LISP:STRING EQUED))
    10590. 

  10590.   (CFFI:WITH-FOREIGN-OBJECTS ((N-REF8163 ':INT32) (SCOND-REF8166 ':DOUBLE)
    10591. 

  10591.                               (AMAX-REF8167 ':DOUBLE))
    10592. 

  10592.     (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8163 :INT32) N)
    10593. 

  10593.     (COMMON-LISP:SETF (CFFI:MEM-REF SCOND-REF8166 :DOUBLE) SCOND)
    10594. 

  10594.     (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF8167 :DOUBLE) AMAX)
    10595. 

  10595.     (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF8164 AP) (S-REF8165 S))
    10596. 

  10596.       (%%DLAQSP UPLO N-REF8163 AP-REF8164 S-REF8165 SCOND-REF8166 AMAX-REF8167
    10597. 

  10597.        EQUED))))
    10598. 

  10598. 

  10599. (CFFI:DEFCFUN ("dlaqsy_" %%DLAQSY :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    10600. 

  10600.     :VOID
    10601. 

  10601.   (UPLO :STRING)
    10602. 

  10602.   (N :POINTER)
    10603. 

  10603.   (A :POINTER)
    10604. 

  10604.   (LDA :POINTER)
    10605. 

  10605.   (S :POINTER)
    10606. 

  10606.   (SCOND :POINTER)
    10607. 

  10607.   (AMAX :POINTER)
    10608. 

  10608.   (EQUED :STRING))
    10609. 

  10609. 

  10610. (COMMON-LISP:DEFUN %DLAQSY (UPLO N A LDA S SCOND AMAX EQUED)
    10611. 

  10611.   (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLAQSY)
    10612. 

  10612.                        (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
    10613. 

  10613.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
    10614. 

  10614.                        (COMMON-LISP:TYPE
    10615. 

  10615.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
    10616. 

  10616.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
    10617. 

  10617.                        (COMMON-LISP:TYPE
    10618. 

  10618.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) S)
    10619. 

  10619.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SCOND)
    10620. 

  10620.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT AMAX)
    10621. 

  10621.                        (COMMON-LISP:TYPE COMMON-LISP:STRING EQUED))
    10622. 

  10622.   (CFFI:WITH-FOREIGN-OBJECTS ((N-REF8170 ':INT32) (LDA-REF8172 ':INT32)
    10623. 

  10623.                               (SCOND-REF8174 ':DOUBLE) (AMAX-REF8175 ':DOUBLE))
    10624. 

  10624.     (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8170 :INT32) N)
    10625. 

  10625.     (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF8172 :INT32) LDA)
    10626. 

  10626.     (COMMON-LISP:SETF (CFFI:MEM-REF SCOND-REF8174 :DOUBLE) SCOND)
    10627. 

  10627.     (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF8175 :DOUBLE) AMAX)
    10628. 

  10628.     (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF8171 A) (S-REF8173 S))
    10629. 

  10629.       (%%DLAQSY UPLO N-REF8170 A-REF8171 LDA-REF8172 S-REF8173 SCOND-REF8174
    10630. 

  10630.        AMAX-REF8175 EQUED))))
    10631. 

  10631. 

  10632. (CFFI:DEFCFUN ("dlaqtr_" %%DLAQTR :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    10633. 

  10633.     :VOID
    10634. 

  10634.   (LTRAN :POINTER)
    10635. 

  10635.   (LREAL :POINTER)
    10636. 

  10636.   (N :POINTER)
    10637. 

  10637.   (T :POINTER)
    10638. 

  10638.   (LDT :POINTER)
    10639. 

  10639.   (B :POINTER)
    10640. 

  10640.   (W :POINTER)
    10641. 

  10641.   (SCALE :POINTER)
    10642. 

  10642.   (X :POINTER)
    10643. 

  10643.   (WORK :POINTER)
    10644. 

  10644.   (INFO :POINTER))
    10645. 

  10645. 

  10646. (COMMON-LISP:DEFUN %DLAQTR (LTRAN LREAL N T LDT B W SCALE X WORK INFO)
    10647. 

  10647.   (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLAQTR)
    10648. 

  10648.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LTRAN)
    10649. 

  10649.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LREAL)
    10650. 

  10650.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
    10651. 

  10651.                        (COMMON-LISP:TYPE
    10652. 

  10652.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) T)
    10653. 

  10653.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
    10654. 

  10654.                        (COMMON-LISP:TYPE
    10655. 

  10655.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
    10656. 

  10656.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT W)
    10657. 

  10657.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SCALE)
    10658. 

  10658.                        (COMMON-LISP:TYPE
    10659. 

  10659.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) X)
    10660. 

  10660.                        (COMMON-LISP:TYPE
    10661. 

  10661.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    10662. 

  10662.                         WORK)
    10663. 

  10663.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
    10664. 

  10664.   (CFFI:WITH-FOREIGN-OBJECTS ((LTRAN-REF8177 ':INT32) (LREAL-REF8178 ':INT32)
    10665. 

  10665.                               (N-REF8179 ':INT32) (LDT-REF8181 ':INT32)
    10666. 

  10666.                               (W-REF8183 ':DOUBLE) (SCALE-REF8184 ':DOUBLE)
    10667. 

  10667.                               (INFO-REF8187 ':INT32))
    10668. 

  10668.     (COMMON-LISP:SETF (CFFI:MEM-REF LTRAN-REF8177 :INT32) LTRAN)
    10669. 

  10669.     (COMMON-LISP:SETF (CFFI:MEM-REF LREAL-REF8178 :INT32) LREAL)
    10670. 

  10670.     (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8179 :INT32) N)
    10671. 

  10671.     (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF8181 :INT32) LDT)
    10672. 

  10672.     (COMMON-LISP:SETF (CFFI:MEM-REF W-REF8183 :DOUBLE) W)
    10673. 

  10673.     (COMMON-LISP:SETF (CFFI:MEM-REF SCALE-REF8184 :DOUBLE) SCALE)
    10674. 

  10674.     (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF8187 :INT32) INFO)
    10675. 

  10675.     (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((T-REF8180 T) (B-REF8182 B)
    10676. 

  10676.                                             (X-REF8185 X) (WORK-REF8186 WORK))
    10677. 

  10677.       (%%DLAQTR LTRAN-REF8177 LREAL-REF8178 N-REF8179 T-REF8180 LDT-REF8181
    10678. 

  10678.        B-REF8182 W-REF8183 SCALE-REF8184 X-REF8185 WORK-REF8186 INFO-REF8187))))
    10679. 

  10679. 

  10680. (CFFI:DEFCFUN ("dlar1v_" %%DLAR1V :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    10681. 

  10681.     :VOID
    10682. 

  10682.   (N :POINTER)
    10683. 

  10683.   (B1 :POINTER)
    10684. 

  10684.   (BN :POINTER)
    10685. 

  10685.   (LAMBDA :POINTER)
    10686. 

  10686.   (D :POINTER)
    10687. 

  10687.   (L :POINTER)
    10688. 

  10688.   (LD :POINTER)
    10689. 

  10689.   (LLD :POINTER)
    10690. 

  10690.   (PIVMIN :POINTER)
    10691. 

  10691.   (GAPTOL :POINTER)
    10692. 

  10692.   (Z :POINTER)
    10693. 

  10693.   (WANTNC :POINTER)
    10694. 

  10694.   (NEGCNT :POINTER)
    10695. 

  10695.   (ZTZ :POINTER)
    10696. 

  10696.   (MINGMA :POINTER)
    10697. 

  10697.   (R :POINTER)
    10698. 

  10698.   (ISUPPZ :POINTER)
    10699. 

  10699.   (NRMINV :POINTER)
    10700. 

  10700.   (RESID :POINTER)
    10701. 

  10701.   (RQCORR :POINTER)
    10702. 

  10702.   (WORK :POINTER))
    10703. 

  10703. 

  10704. (COMMON-LISP:DEFUN %DLAR1V
    10705. 

  10705.                    (N B1 BN LAMBDA D L LD LLD PIVMIN GAPTOL Z WANTNC NEGCNT ZTZ
    10706. 

  10706.                     MINGMA R ISUPPZ NRMINV RESID RQCORR WORK)
    10707. 

  10707.   (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLAR1V)
    10708. 

  10708.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
    10709. 

  10709.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) B1)
    10710. 

  10710.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) BN)
    10711. 

  10711.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT LAMBDA)
    10712. 

  10712.                        (COMMON-LISP:TYPE
    10713. 

  10713.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
    10714. 

  10714.                        (COMMON-LISP:TYPE
    10715. 

  10715.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) L)
    10716. 

  10716.                        (COMMON-LISP:TYPE
    10717. 

  10717.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) LD)
    10718. 

  10718.                        (COMMON-LISP:TYPE
    10719. 

  10719.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    10720. 

  10720.                         LLD)
    10721. 

  10721.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT PIVMIN)
    10722. 

  10722.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT GAPTOL)
    10723. 

  10723.                        (COMMON-LISP:TYPE
    10724. 

  10724.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Z)
    10725. 

  10725.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) WANTNC)
    10726. 

  10726.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NEGCNT)
    10727. 

  10727.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ZTZ)
    10728. 

  10728.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT MINGMA)
    10729. 

  10729.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) R)
    10730. 

  10730.                        (COMMON-LISP:TYPE
    10731. 

  10731.                         (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
    10732. 

  10732.                          (COMMON-LISP:*))
    10733. 

  10733.                         ISUPPZ)
    10734. 

  10734.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT NRMINV)
    10735. 

  10735.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RESID)
    10736. 

  10736.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RQCORR)
    10737. 

  10737.                        (COMMON-LISP:TYPE
    10738. 

  10738.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    10739. 

  10739.                         WORK))
    10740. 

  10740.   (CFFI:WITH-FOREIGN-OBJECTS ((N-REF8188 ':INT32) (B1-REF8189 ':INT32)
    10741. 

  10741.                               (BN-REF8190 ':INT32) (LAMBDA-REF8191 ':DOUBLE)
    10742. 

  10742.                               (PIVMIN-REF8196 ':DOUBLE)
    10743. 

  10743.                               (GAPTOL-REF8197 ':DOUBLE)
    10744. 

  10744.                               (WANTNC-REF8199 ':INT32) (NEGCNT-REF8200 ':INT32)
    10745. 

  10745.                               (ZTZ-REF8201 ':DOUBLE) (MINGMA-REF8202 ':DOUBLE)
    10746. 

  10746.                               (R-REF8203 ':INT32) (NRMINV-REF8205 ':DOUBLE)
    10747. 

  10747.                               (RESID-REF8206 ':DOUBLE)
    10748. 

  10748.                               (RQCORR-REF8207 ':DOUBLE))
    10749. 

  10749.     (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8188 :INT32) N)
    10750. 

  10750.     (COMMON-LISP:SETF (CFFI:MEM-REF B1-REF8189 :INT32) B1)
    10751. 

  10751.     (COMMON-LISP:SETF (CFFI:MEM-REF BN-REF8190 :INT32) BN)
    10752. 

  10752.     (COMMON-LISP:SETF (CFFI:MEM-REF LAMBDA-REF8191 :DOUBLE) LAMBDA)
    10753. 

  10753.     (COMMON-LISP:SETF (CFFI:MEM-REF PIVMIN-REF8196 :DOUBLE) PIVMIN)
    10754. 

  10754.     (COMMON-LISP:SETF (CFFI:MEM-REF GAPTOL-REF8197 :DOUBLE) GAPTOL)
    10755. 

  10755.     (COMMON-LISP:SETF (CFFI:MEM-REF WANTNC-REF8199 :INT32) WANTNC)
    10756. 

  10756.     (COMMON-LISP:SETF (CFFI:MEM-REF NEGCNT-REF8200 :INT32) NEGCNT)
    10757. 

  10757.     (COMMON-LISP:SETF (CFFI:MEM-REF ZTZ-REF8201 :DOUBLE) ZTZ)
    10758. 

  10758.     (COMMON-LISP:SETF (CFFI:MEM-REF MINGMA-REF8202 :DOUBLE) MINGMA)
    10759. 

  10759.     (COMMON-LISP:SETF (CFFI:MEM-REF R-REF8203 :INT32) R)
    10760. 

  10760.     (COMMON-LISP:SETF (CFFI:MEM-REF NRMINV-REF8205 :DOUBLE) NRMINV)
    10761. 

  10761.     (COMMON-LISP:SETF (CFFI:MEM-REF RESID-REF8206 :DOUBLE) RESID)
    10762. 

  10762.     (COMMON-LISP:SETF (CFFI:MEM-REF RQCORR-REF8207 :DOUBLE) RQCORR)
    10763. 

  10763.     (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF8192 D) (L-REF8193 L)
    10764. 

  10764.                                             (LD-REF8194 LD) (LLD-REF8195 LLD)
    10765. 

  10765.                                             (Z-REF8198 Z)
    10766. 

  10766.                                             (ISUPPZ-REF8204 ISUPPZ)
    10767. 

  10767.                                             (WORK-REF8208 WORK))
    10768. 

  10768.       (%%DLAR1V N-REF8188 B1-REF8189 BN-REF8190 LAMBDA-REF8191 D-REF8192
    10769. 

  10769.        L-REF8193 LD-REF8194 LLD-REF8195 PIVMIN-REF8196 GAPTOL-REF8197 Z-REF8198
    10770. 

  10770.        WANTNC-REF8199 NEGCNT-REF8200 ZTZ-REF8201 MINGMA-REF8202 R-REF8203
    10771. 

  10771.        ISUPPZ-REF8204 NRMINV-REF8205 RESID-REF8206 RQCORR-REF8207
    10772. 

  10772.        WORK-REF8208))))
    10773. 

  10773. 

  10774. (CFFI:DEFCFUN ("dlar2v_" %%DLAR2V :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    10775. 

  10775.     :VOID
    10776. 

  10776.   (N :POINTER)
    10777. 

  10777.   (X :POINTER)
    10778. 

  10778.   (Y :POINTER)
    10779. 

  10779.   (Z :POINTER)
    10780. 

  10780.   (INCX :POINTER)
    10781. 

  10781.   (C :POINTER)
    10782. 

  10782.   (S :POINTER)
    10783. 

  10783.   (INCC :POINTER))
    10784. 

  10784. 

  10785. (COMMON-LISP:DEFUN %DLAR2V (N X Y Z INCX C S INCC)
    10786. 

  10786.   (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLAR2V)
    10787. 

  10787.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
    10788. 

  10788.                        (COMMON-LISP:TYPE
    10789. 

  10789.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) X)
    10790. 

  10790.                        (COMMON-LISP:TYPE
    10791. 

  10791.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Y)
    10792. 

  10792.                        (COMMON-LISP:TYPE
    10793. 

  10793.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Z)
    10794. 

  10794.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)
    10795. 

  10795.                        (COMMON-LISP:TYPE
    10796. 

  10796.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
    10797. 

  10797.                        (COMMON-LISP:TYPE
    10798. 

  10798.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) S)
    10799. 

  10799.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCC))
    10800. 

  10800.   (CFFI:WITH-FOREIGN-OBJECTS ((N-REF8209 ':INT32) (INCX-REF8213 ':INT32)
    10801. 

  10801.                               (INCC-REF8216 ':INT32))
    10802. 

  10802.     (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8209 :INT32) N)
    10803. 

  10803.     (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF8213 :INT32) INCX)
    10804. 

  10804.     (COMMON-LISP:SETF (CFFI:MEM-REF INCC-REF8216 :INT32) INCC)
    10805. 

  10805.     (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF8210 X) (Y-REF8211 Y)
    10806. 

  10806.                                             (Z-REF8212 Z) (C-REF8214 C)
    10807. 

  10807.                                             (S-REF8215 S))
    10808. 

  10808.       (%%DLAR2V N-REF8209 X-REF8210 Y-REF8211 Z-REF8212 INCX-REF8213 C-REF8214
    10809. 

  10809.        S-REF8215 INCC-REF8216))))
    10810. 

  10810. 

  10811. (CFFI:DEFCFUN ("dlarf_" %%DLARF :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    10812. 

  10812.     :VOID
    10813. 

  10813.   (SIDE :STRING)
    10814. 

  10814.   (M :POINTER)
    10815. 

  10815.   (N :POINTER)
    10816. 

  10816.   (V :POINTER)
    10817. 

  10817.   (INCV :POINTER)
    10818. 

  10818.   (TAU :POINTER)
    10819. 

  10819.   (C :POINTER)
    10820. 

  10820.   (LDC :POINTER)
    10821. 

  10821.   (WORK :POINTER))
    10822. 

  10822. 

  10823. (COMMON-LISP:DEFUN %DLARF (SIDE M N V INCV TAU C LDC WORK)
    10824. 

  10824.   (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLARF)
    10825. 

  10825.                        (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
    10826. 

  10826.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
    10827. 

  10827.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
    10828. 

  10828.                        (COMMON-LISP:TYPE
    10829. 

  10829.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) V)
    10830. 

  10830.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCV)
    10831. 

  10831.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT TAU)
    10832. 

  10832.                        (COMMON-LISP:TYPE
    10833. 

  10833.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
    10834. 

  10834.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
    10835. 

  10835.                        (COMMON-LISP:TYPE
    10836. 

  10836.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    10837. 

  10837.                         WORK))
    10838. 

  10838.   (CFFI:WITH-FOREIGN-OBJECTS ((M-REF8218 ':INT32) (N-REF8219 ':INT32)
    10839. 

  10839.                               (INCV-REF8221 ':INT32) (TAU-REF8222 ':DOUBLE)
    10840. 

  10840.                               (LDC-REF8224 ':INT32))
    10841. 

  10841.     (COMMON-LISP:SETF (CFFI:MEM-REF M-REF8218 :INT32) M)
    10842. 

  10842.     (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8219 :INT32) N)
    10843. 

  10843.     (COMMON-LISP:SETF (CFFI:MEM-REF INCV-REF8221 :INT32) INCV)
    10844. 

  10844.     (COMMON-LISP:SETF (CFFI:MEM-REF TAU-REF8222 :DOUBLE) TAU)
    10845. 

  10845.     (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF8224 :INT32) LDC)
    10846. 

  10846.     (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V-REF8220 V) (C-REF8223 C)
    10847. 

  10847.                                             (WORK-REF8225 WORK))
    10848. 

  10848.       (%%DLARF SIDE M-REF8218 N-REF8219 V-REF8220 INCV-REF8221 TAU-REF8222
    10849. 

  10849.        C-REF8223 LDC-REF8224 WORK-REF8225))))
    10850. 

  10850. 

  10851. (CFFI:DEFCFUN ("dlarfb_" %%DLARFB :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    10852. 

  10852.     :VOID
    10853. 

  10853.   (SIDE :STRING)
    10854. 

  10854.   (TRANS :STRING)
    10855. 

  10855.   (DIRECT :STRING)
    10856. 

  10856.   (STOREV :STRING)
    10857. 

  10857.   (M :POINTER)
    10858. 

  10858.   (N :POINTER)
    10859. 

  10859.   (K :POINTER)
    10860. 

  10860.   (V :POINTER)
    10861. 

  10861.   (LDV :POINTER)
    10862. 

  10862.   (T :POINTER)
    10863. 

  10863.   (LDT :POINTER)
    10864. 

  10864.   (C :POINTER)
    10865. 

  10865.   (LDC :POINTER)
    10866. 

  10866.   (WORK :POINTER)
    10867. 

  10867.   (LDWORK :POINTER))
    10868. 

  10868. 

  10869. (COMMON-LISP:DEFUN %DLARFB
    10870. 

  10870.                    (SIDE TRANS DIRECT STOREV M N K V LDV T LDT C LDC WORK
    10871. 

  10871.                     LDWORK)
    10872. 

  10872.   (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLARFB)
    10873. 

  10873.                        (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
    10874. 

  10874.                        (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
    10875. 

  10875.                        (COMMON-LISP:TYPE COMMON-LISP:STRING DIRECT)
    10876. 

  10876.                        (COMMON-LISP:TYPE COMMON-LISP:STRING STOREV)
    10877. 

  10877.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
    10878. 

  10878.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
    10879. 

  10879.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
    10880. 

  10880.                        (COMMON-LISP:TYPE
    10881. 

  10881.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) V)
    10882. 

  10882.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV)
    10883. 

  10883.                        (COMMON-LISP:TYPE
    10884. 

  10884.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) T)
    10885. 

  10885.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
    10886. 

  10886.                        (COMMON-LISP:TYPE
    10887. 

  10887.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
    10888. 

  10888.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
    10889. 

  10889.                        (COMMON-LISP:TYPE
    10890. 

  10890.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    10891. 

  10891.                         WORK)
    10892. 

  10892.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDWORK))
    10893. 

  10893.   (CFFI:WITH-FOREIGN-OBJECTS ((M-REF8230 ':INT32) (N-REF8231 ':INT32)
    10894. 

  10894.                               (K-REF8232 ':INT32) (LDV-REF8234 ':INT32)
    10895. 

  10895.                               (LDT-REF8236 ':INT32) (LDC-REF8238 ':INT32)
    10896. 

  10896.                               (LDWORK-REF8240 ':INT32))
    10897. 

  10897.     (COMMON-LISP:SETF (CFFI:MEM-REF M-REF8230 :INT32) M)
    10898. 

  10898.     (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8231 :INT32) N)
    10899. 

  10899.     (COMMON-LISP:SETF (CFFI:MEM-REF K-REF8232 :INT32) K)
    10900. 

  10900.     (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF8234 :INT32) LDV)
    10901. 

  10901.     (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF8236 :INT32) LDT)
    10902. 

  10902.     (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF8238 :INT32) LDC)
    10903. 

  10903.     (COMMON-LISP:SETF (CFFI:MEM-REF LDWORK-REF8240 :INT32) LDWORK)
    10904. 

  10904.     (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V-REF8233 V) (T-REF8235 T)
    10905. 

  10905.                                             (C-REF8237 C) (WORK-REF8239 WORK))
    10906. 

  10906.       (%%DLARFB SIDE TRANS DIRECT STOREV M-REF8230 N-REF8231 K-REF8232
    10907. 

  10907.        V-REF8233 LDV-REF8234 T-REF8235 LDT-REF8236 C-REF8237 LDC-REF8238
    10908. 

  10908.        WORK-REF8239 LDWORK-REF8240))))
    10909. 

  10909. 

  10910. (CFFI:DEFCFUN ("dlarfg_" %%DLARFG :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    10911. 

  10911.     :VOID
    10912. 

  10912.   (N :POINTER)
    10913. 

  10913.   (ALPHA :POINTER)
    10914. 

  10914.   (X :POINTER)
    10915. 

  10915.   (INCX :POINTER)
    10916. 

  10916.   (TAU :POINTER))
    10917. 

  10917. 

  10918. (COMMON-LISP:DEFUN %DLARFG (N ALPHA X INCX TAU)
    10919. 

  10919.   (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLARFG)
    10920. 

  10920.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
    10921. 

  10921.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ALPHA)
    10922. 

  10922.                        (COMMON-LISP:TYPE
    10923. 

  10923.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) X)
    10924. 

  10924.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)
    10925. 

  10925.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT TAU))
    10926. 

  10926.   (CFFI:WITH-FOREIGN-OBJECTS ((N-REF8241 ':INT32) (ALPHA-REF8242 ':DOUBLE)
    10927. 

  10927.                               (INCX-REF8244 ':INT32) (TAU-REF8245 ':DOUBLE))
    10928. 

  10928.     (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8241 :INT32) N)
    10929. 

  10929.     (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF8242 :DOUBLE) ALPHA)
    10930. 

  10930.     (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF8244 :INT32) INCX)
    10931. 

  10931.     (COMMON-LISP:SETF (CFFI:MEM-REF TAU-REF8245 :DOUBLE) TAU)
    10932. 

  10932.     (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF8243 X))
    10933. 

  10933.       (%%DLARFG N-REF8241 ALPHA-REF8242 X-REF8243 INCX-REF8244 TAU-REF8245))))
    10934. 

  10934. 

  10935. (CFFI:DEFCFUN ("dlarfgp_" %%DLARFGP :LIBRARY
    10936. 

  10936.                MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    10937. 

  10937.     :VOID
    10938. 

  10938.   (N :POINTER)
    10939. 

  10939.   (ALPHA :POINTER)
    10940. 

  10940.   (X :POINTER)
    10941. 

  10941.   (INCX :POINTER)
    10942. 

  10942.   (TAU :POINTER))
    10943. 

  10943. 

  10944. (COMMON-LISP:DEFUN %DLARFGP (N ALPHA X INCX TAU)
    10945. 

  10945.   (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLARFGP)
    10946. 

  10946.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
    10947. 

  10947.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ALPHA)
    10948. 

  10948.                        (COMMON-LISP:TYPE
    10949. 

  10949.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) X)
    10950. 

  10950.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)
    10951. 

  10951.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT TAU))
    10952. 

  10952.   (CFFI:WITH-FOREIGN-OBJECTS ((N-REF8246 ':INT32) (ALPHA-REF8247 ':DOUBLE)
    10953. 

  10953.                               (INCX-REF8249 ':INT32) (TAU-REF8250 ':DOUBLE))
    10954. 

  10954.     (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8246 :INT32) N)
    10955. 

  10955.     (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF8247 :DOUBLE) ALPHA)
    10956. 

  10956.     (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF8249 :INT32) INCX)
    10957. 

  10957.     (COMMON-LISP:SETF (CFFI:MEM-REF TAU-REF8250 :DOUBLE) TAU)
    10958. 

  10958.     (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF8248 X))
    10959. 

  10959.       (%%DLARFGP N-REF8246 ALPHA-REF8247 X-REF8248 INCX-REF8249 TAU-REF8250))))
    10960. 

  10960. 

  10961. (CFFI:DEFCFUN ("dlarft_" %%DLARFT :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    10962. 

  10962.     :VOID
    10963. 

  10963.   (DIRECT :STRING)
    10964. 

  10964.   (STOREV :STRING)
    10965. 

  10965.   (N :POINTER)
    10966. 

  10966.   (K :POINTER)
    10967. 

  10967.   (V :POINTER)
    10968. 

  10968.   (LDV :POINTER)
    10969. 

  10969.   (TAU :POINTER)
    10970. 

  10970.   (T :POINTER)
    10971. 

  10971.   (LDT :POINTER))
    10972. 

  10972. 

  10973. (COMMON-LISP:DEFUN %DLARFT (DIRECT STOREV N K V LDV TAU T LDT)
    10974. 

  10974.   (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLARFT)
    10975. 

  10975.                        (COMMON-LISP:TYPE COMMON-LISP:STRING DIRECT)
    10976. 

  10976.                        (COMMON-LISP:TYPE COMMON-LISP:STRING STOREV)
    10977. 

  10977.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
    10978. 

  10978.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
    10979. 

  10979.                        (COMMON-LISP:TYPE
    10980. 

  10980.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) V)
    10981. 

  10981.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV)
    10982. 

  10982.                        (COMMON-LISP:TYPE
    10983. 

  10983.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    10984. 

  10984.                         TAU)
    10985. 

  10985.                        (COMMON-LISP:TYPE
    10986. 

  10986.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) T)
    10987. 

  10987.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT))
    10988. 

  10988.   (CFFI:WITH-FOREIGN-OBJECTS ((N-REF8253 ':INT32) (K-REF8254 ':INT32)
    10989. 

  10989.                               (LDV-REF8256 ':INT32) (LDT-REF8259 ':INT32))
    10990. 

  10990.     (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8253 :INT32) N)
    10991. 

  10991.     (COMMON-LISP:SETF (CFFI:MEM-REF K-REF8254 :INT32) K)
    10992. 

  10992.     (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF8256 :INT32) LDV)
    10993. 

  10993.     (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF8259 :INT32) LDT)
    10994. 

  10994.     (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V-REF8255 V) (TAU-REF8257 TAU)
    10995. 

  10995.                                             (T-REF8258 T))
    10996. 

  10996.       (%%DLARFT DIRECT STOREV N-REF8253 K-REF8254 V-REF8255 LDV-REF8256
    10997. 

  10997.        TAU-REF8257 T-REF8258 LDT-REF8259))))
    10998. 

  10998. 

  10999. (CFFI:DEFCFUN ("dlarfx_" %%DLARFX :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    11000. 

  11000.     :VOID
    11001. 

  11001.   (SIDE :STRING)
    11002. 

  11002.   (M :POINTER)
    11003. 

  11003.   (N :POINTER)
    11004. 

  11004.   (V :POINTER)
    11005. 

  11005.   (TAU :POINTER)
    11006. 

  11006.   (C :POINTER)
    11007. 

  11007.   (LDC :POINTER)
    11008. 

  11008.   (WORK :POINTER))
    11009. 

  11009. 

  11010. (COMMON-LISP:DEFUN %DLARFX (SIDE M N V TAU C LDC WORK)
    11011. 

  11011.   (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLARFX)
    11012. 

  11012.                        (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
    11013. 

  11013.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
    11014. 

  11014.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
    11015. 

  11015.                        (COMMON-LISP:TYPE
    11016. 

  11016.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) V)
    11017. 

  11017.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT TAU)
    11018. 

  11018.                        (COMMON-LISP:TYPE
    11019. 

  11019.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
    11020. 

  11020.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
    11021. 

  11021.                        (COMMON-LISP:TYPE
    11022. 

  11022.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    11023. 

  11023.                         WORK))
    11024. 

  11024.   (CFFI:WITH-FOREIGN-OBJECTS ((M-REF8261 ':INT32) (N-REF8262 ':INT32)
    11025. 

  11025.                               (TAU-REF8264 ':DOUBLE) (LDC-REF8266 ':INT32))
    11026. 

  11026.     (COMMON-LISP:SETF (CFFI:MEM-REF M-REF8261 :INT32) M)
    11027. 

  11027.     (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8262 :INT32) N)
    11028. 

  11028.     (COMMON-LISP:SETF (CFFI:MEM-REF TAU-REF8264 :DOUBLE) TAU)
    11029. 

  11029.     (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF8266 :INT32) LDC)
    11030. 

  11030.     (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V-REF8263 V) (C-REF8265 C)
    11031. 

  11031.                                             (WORK-REF8267 WORK))
    11032. 

  11032.       (%%DLARFX SIDE M-REF8261 N-REF8262 V-REF8263 TAU-REF8264 C-REF8265
    11033. 

  11033.        LDC-REF8266 WORK-REF8267))))
    11034. 

  11034. 

  11035. (CFFI:DEFCFUN ("dlarfy_" %%DLARFY :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    11036. 

  11036.     :VOID
    11037. 

  11037.   (UPLO :STRING)
    11038. 

  11038.   (N :POINTER)
    11039. 

  11039.   (V :POINTER)
    11040. 

  11040.   (INCV :POINTER)
    11041. 

  11041.   (TAU :POINTER)
    11042. 

  11042.   (C :POINTER)
    11043. 

  11043.   (LDC :POINTER)
    11044. 

  11044.   (WORK :POINTER))
    11045. 

  11045. 

  11046. (COMMON-LISP:DEFUN %DLARFY (UPLO N V INCV TAU C LDC WORK)
    11047. 

  11047.   (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLARFY)
    11048. 

  11048.                        (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
    11049. 

  11049.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
    11050. 

  11050.                        (COMMON-LISP:TYPE
    11051. 

  11051.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) V)
    11052. 

  11052.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCV)
    11053. 

  11053.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT TAU)
    11054. 

  11054.                        (COMMON-LISP:TYPE
    11055. 

  11055.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
    11056. 

  11056.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
    11057. 

  11057.                        (COMMON-LISP:TYPE
    11058. 

  11058.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    11059. 

  11059.                         WORK))
    11060. 

  11060.   (CFFI:WITH-FOREIGN-OBJECTS ((N-REF8269 ':INT32) (INCV-REF8271 ':INT32)
    11061. 

  11061.                               (TAU-REF8272 ':DOUBLE) (LDC-REF8274 ':INT32))
    11062. 

  11062.     (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8269 :INT32) N)
    11063. 

  11063.     (COMMON-LISP:SETF (CFFI:MEM-REF INCV-REF8271 :INT32) INCV)
    11064. 

  11064.     (COMMON-LISP:SETF (CFFI:MEM-REF TAU-REF8272 :DOUBLE) TAU)
    11065. 

  11065.     (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF8274 :INT32) LDC)
    11066. 

  11066.     (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V-REF8270 V) (C-REF8273 C)
    11067. 

  11067.                                             (WORK-REF8275 WORK))
    11068. 

  11068.       (%%DLARFY UPLO N-REF8269 V-REF8270 INCV-REF8271 TAU-REF8272 C-REF8273
    11069. 

  11069.        LDC-REF8274 WORK-REF8275))))
    11070. 

  11070. 

  11071. (CFFI:DEFCFUN ("dlargv_" %%DLARGV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    11072. 

  11072.     :VOID
    11073. 

  11073.   (N :POINTER)
    11074. 

  11074.   (X :POINTER)
    11075. 

  11075.   (INCX :POINTER)
    11076. 

  11076.   (Y :POINTER)
    11077. 

  11077.   (INCY :POINTER)
    11078. 

  11078.   (C :POINTER)
    11079. 

  11079.   (INCC :POINTER))
    11080. 

  11080. 

  11081. (COMMON-LISP:DEFUN %DLARGV (N X INCX Y INCY C INCC)
    11082. 

  11082.   (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLARGV)
    11083. 

  11083.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
    11084. 

  11084.                        (COMMON-LISP:TYPE
    11085. 

  11085.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) X)
    11086. 

  11086.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)
    11087. 

  11087.                        (COMMON-LISP:TYPE
    11088. 

  11088.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Y)
    11089. 

  11089.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCY)
    11090. 

  11090.                        (COMMON-LISP:TYPE
    11091. 

  11091.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
    11092. 

  11092.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCC))
    11093. 

  11093.   (CFFI:WITH-FOREIGN-OBJECTS ((N-REF8276 ':INT32) (INCX-REF8278 ':INT32)
    11094. 

  11094.                               (INCY-REF8280 ':INT32) (INCC-REF8282 ':INT32))
    11095. 

  11095.     (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8276 :INT32) N)
    11096. 

  11096.     (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF8278 :INT32) INCX)
    11097. 

  11097.     (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF8280 :INT32) INCY)
    11098. 

  11098.     (COMMON-LISP:SETF (CFFI:MEM-REF INCC-REF8282 :INT32) INCC)
    11099. 

  11099.     (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF8277 X) (Y-REF8279 Y)
    11100. 

  11100.                                             (C-REF8281 C))
    11101. 

  11101.       (%%DLARGV N-REF8276 X-REF8277 INCX-REF8278 Y-REF8279 INCY-REF8280
    11102. 

  11102.        C-REF8281 INCC-REF8282))))
    11103. 

  11103. 

  11104. (CFFI:DEFCFUN ("dlarnv_" %%DLARNV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    11105. 

  11105.     :VOID
    11106. 

  11106.   (IDIST :POINTER)
    11107. 

  11107.   (ISEED :POINTER)
    11108. 

  11108.   (N :POINTER)
    11109. 

  11109.   (X :POINTER))
    11110. 

  11110. 

  11111. (COMMON-LISP:DEFUN %DLARNV (IDIST ISEED N X)
    11112. 

  11112.   (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLARNV)
    11113. 

  11113.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IDIST)
    11114. 

  11114.                        (COMMON-LISP:TYPE
    11115. 

  11115.                         (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
    11116. 

  11116.                          (COMMON-LISP:*))
    11117. 

  11117.                         ISEED)
    11118. 

  11118.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
    11119. 

  11119.                        (COMMON-LISP:TYPE
    11120. 

  11120.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) X))
    11121. 

  11121.   (CFFI:WITH-FOREIGN-OBJECTS ((IDIST-REF8283 ':INT32) (N-REF8285 ':INT32))
    11122. 

  11122.     (COMMON-LISP:SETF (CFFI:MEM-REF IDIST-REF8283 :INT32) IDIST)
    11123. 

  11123.     (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8285 :INT32) N)
    11124. 

  11124.     (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((ISEED-REF8284 ISEED) (X-REF8286 X))
    11125. 

  11125.       (%%DLARNV IDIST-REF8283 ISEED-REF8284 N-REF8285 X-REF8286))))
    11126. 

  11126. 

  11127. (CFFI:DEFCFUN ("dlarra_" %%DLARRA :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    11128. 

  11128.     :VOID
    11129. 

  11129.   (N :POINTER)
    11130. 

  11130.   (D :POINTER)
    11131. 

  11131.   (E :POINTER)
    11132. 

  11132.   (E2 :POINTER)
    11133. 

  11133.   (SPLTOL :POINTER)
    11134. 

  11134.   (TNRM :POINTER)
    11135. 

  11135.   (NSPLIT :POINTER)
    11136. 

  11136.   (ISPLIT :POINTER)
    11137. 

  11137.   (INFO :POINTER))
    11138. 

  11138. 

  11139. (COMMON-LISP:DEFUN %DLARRA (N D E E2 SPLTOL TNRM NSPLIT ISPLIT INFO)
    11140. 

  11140.   (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLARRA)
    11141. 

  11141.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
    11142. 

  11142.                        (COMMON-LISP:TYPE
    11143. 

  11143.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
    11144. 

  11144.                        (COMMON-LISP:TYPE
    11145. 

  11145.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) E)
    11146. 

  11146.                        (COMMON-LISP:TYPE
    11147. 

  11147.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) E2)
    11148. 

  11148.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SPLTOL)
    11149. 

  11149.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT TNRM)
    11150. 

  11150.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NSPLIT)
    11151. 

  11151.                        (COMMON-LISP:TYPE
    11152. 

  11152.                         (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
    11153. 

  11153.                          (COMMON-LISP:*))
    11154. 

  11154.                         ISPLIT)
    11155. 

  11155.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
    11156. 

  11156.   (CFFI:WITH-FOREIGN-OBJECTS ((N-REF8287 ':INT32) (SPLTOL-REF8291 ':DOUBLE)
    11157. 

  11157.                               (TNRM-REF8292 ':DOUBLE) (NSPLIT-REF8293 ':INT32)
    11158. 

  11158.                               (INFO-REF8295 ':INT32))
    11159. 

  11159.     (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8287 :INT32) N)
    11160. 

  11160.     (COMMON-LISP:SETF (CFFI:MEM-REF SPLTOL-REF8291 :DOUBLE) SPLTOL)
    11161. 

  11161.     (COMMON-LISP:SETF (CFFI:MEM-REF TNRM-REF8292 :DOUBLE) TNRM)
    11162. 

  11162.     (COMMON-LISP:SETF (CFFI:MEM-REF NSPLIT-REF8293 :INT32) NSPLIT)
    11163. 

  11163.     (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF8295 :INT32) INFO)
    11164. 

  11164.     (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF8288 D) (E-REF8289 E)
    11165. 

  11165.                                             (E2-REF8290 E2)
    11166. 

  11166.                                             (ISPLIT-REF8294 ISPLIT))
    11167. 

  11167.       (%%DLARRA N-REF8287 D-REF8288 E-REF8289 E2-REF8290 SPLTOL-REF8291
    11168. 

  11168.        TNRM-REF8292 NSPLIT-REF8293 ISPLIT-REF8294 INFO-REF8295))))
    11169. 

  11169. 

  11170. (CFFI:DEFCFUN ("dlarrb_" %%DLARRB :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    11171. 

  11171.     :VOID
    11172. 

  11172.   (N :POINTER)
    11173. 

  11173.   (D :POINTER)
    11174. 

  11174.   (LLD :POINTER)
    11175. 

  11175.   (IFIRST :POINTER)
    11176. 

  11176.   (ILAST :POINTER)
    11177. 

  11177.   (RTOL1 :POINTER)
    11178. 

  11178.   (RTOL2 :POINTER)
    11179. 

  11179.   (OFFSET :POINTER)
    11180. 

  11180.   (W :POINTER)
    11181. 

  11181.   (WGAP :POINTER)
    11182. 

  11182.   (WERR :POINTER)
    11183. 

  11183.   (WORK :POINTER)
    11184. 

  11184.   (IWORK :POINTER)
    11185. 

  11185.   (PIVMIN :POINTER)
    11186. 

  11186.   (SPDIAM :POINTER)
    11187. 

  11187.   (TWIST :POINTER)
    11188. 

  11188.   (INFO :POINTER))
    11189. 

  11189. 

  11190. (COMMON-LISP:DEFUN %DLARRB
    11191. 

  11191.                    (N D LLD IFIRST ILAST RTOL1 RTOL2 OFFSET W WGAP WERR WORK
    11192. 

  11192.                     IWORK PIVMIN SPDIAM TWIST INFO)
    11193. 

  11193.   (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLARRB)
    11194. 

  11194.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
    11195. 

  11195.                        (COMMON-LISP:TYPE
    11196. 

  11196.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
    11197. 

  11197.                        (COMMON-LISP:TYPE
    11198. 

  11198.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    11199. 

  11199.                         LLD)
    11200. 

  11200.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IFIRST)
    11201. 

  11201.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILAST)
    11202. 

  11202.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RTOL1)
    11203. 

  11203.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RTOL2)
    11204. 

  11204.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) OFFSET)
    11205. 

  11205.                        (COMMON-LISP:TYPE
    11206. 

  11206.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) W)
    11207. 

  11207.                        (COMMON-LISP:TYPE
    11208. 

  11208.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    11209. 

  11209.                         WGAP)
    11210. 

  11210.                        (COMMON-LISP:TYPE
    11211. 

  11211.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    11212. 

  11212.                         WERR)
    11213. 

  11213.                        (COMMON-LISP:TYPE
    11214. 

  11214.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    11215. 

  11215.                         WORK)
    11216. 

  11216.                        (COMMON-LISP:TYPE
    11217. 

  11217.                         (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
    11218. 

  11218.                          (COMMON-LISP:*))
    11219. 

  11219.                         IWORK)
    11220. 

  11220.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT PIVMIN)
    11221. 

  11221.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SPDIAM)
    11222. 

  11222.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) TWIST)
    11223. 

  11223.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
    11224. 

  11224.   (CFFI:WITH-FOREIGN-OBJECTS ((N-REF8296 ':INT32) (IFIRST-REF8299 ':INT32)
    11225. 

  11225.                               (ILAST-REF8300 ':INT32) (RTOL1-REF8301 ':DOUBLE)
    11226. 

  11226.                               (RTOL2-REF8302 ':DOUBLE) (OFFSET-REF8303 ':INT32)
    11227. 

  11227.                               (PIVMIN-REF8309 ':DOUBLE)
    11228. 

  11228.                               (SPDIAM-REF8310 ':DOUBLE) (TWIST-REF8311 ':INT32)
    11229. 

  11229.                               (INFO-REF8312 ':INT32))
    11230. 

  11230.     (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8296 :INT32) N)
    11231. 

  11231.     (COMMON-LISP:SETF (CFFI:MEM-REF IFIRST-REF8299 :INT32) IFIRST)
    11232. 

  11232.     (COMMON-LISP:SETF (CFFI:MEM-REF ILAST-REF8300 :INT32) ILAST)
    11233. 

  11233.     (COMMON-LISP:SETF (CFFI:MEM-REF RTOL1-REF8301 :DOUBLE) RTOL1)
    11234. 

  11234.     (COMMON-LISP:SETF (CFFI:MEM-REF RTOL2-REF8302 :DOUBLE) RTOL2)
    11235. 

  11235.     (COMMON-LISP:SETF (CFFI:MEM-REF OFFSET-REF8303 :INT32) OFFSET)
    11236. 

  11236.     (COMMON-LISP:SETF (CFFI:MEM-REF PIVMIN-REF8309 :DOUBLE) PIVMIN)
    11237. 

  11237.     (COMMON-LISP:SETF (CFFI:MEM-REF SPDIAM-REF8310 :DOUBLE) SPDIAM)
    11238. 

  11238.     (COMMON-LISP:SETF (CFFI:MEM-REF TWIST-REF8311 :INT32) TWIST)
    11239. 

  11239.     (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF8312 :INT32) INFO)
    11240. 

  11240.     (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF8297 D) (LLD-REF8298 LLD)
    11241. 

  11241.                                             (W-REF8304 W) (WGAP-REF8305 WGAP)
    11242. 

  11242.                                             (WERR-REF8306 WERR)
    11243. 

  11243.                                             (WORK-REF8307 WORK)
    11244. 

  11244.                                             (IWORK-REF8308 IWORK))
    11245. 

  11245.       (%%DLARRB N-REF8296 D-REF8297 LLD-REF8298 IFIRST-REF8299 ILAST-REF8300
    11246. 

  11246.        RTOL1-REF8301 RTOL2-REF8302 OFFSET-REF8303 W-REF8304 WGAP-REF8305
    11247. 

  11247.        WERR-REF8306 WORK-REF8307 IWORK-REF8308 PIVMIN-REF8309 SPDIAM-REF8310
    11248. 

  11248.        TWIST-REF8311 INFO-REF8312))))
    11249. 

  11249. 

  11250. (CFFI:DEFCFUN ("dlarrc_" %%DLARRC :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    11251. 

  11251.     :VOID
    11252. 

  11252.   (JOBT :STRING)
    11253. 

  11253.   (N :POINTER)
    11254. 

  11254.   (VL :POINTER)
    11255. 

  11255.   (VU :POINTER)
    11256. 

  11256.   (D :POINTER)
    11257. 

  11257.   (E :POINTER)
    11258. 

  11258.   (PIVMIN :POINTER)
    11259. 

  11259.   (EIGCNT :POINTER)
    11260. 

  11260.   (LCNT :POINTER)
    11261. 

  11261.   (RCNT :POINTER)
    11262. 

  11262.   (INFO :POINTER))
    11263. 

  11263. 

  11264. (COMMON-LISP:DEFUN %DLARRC (JOBT N VL VU D E PIVMIN EIGCNT LCNT RCNT INFO)
    11265. 

  11265.   (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLARRC)
    11266. 

  11266.                        (COMMON-LISP:TYPE COMMON-LISP:STRING JOBT)
    11267. 

  11267.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
    11268. 

  11268.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT VL)
    11269. 

  11269.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT VU)
    11270. 

  11270.                        (COMMON-LISP:TYPE
    11271. 

  11271.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
    11272. 

  11272.                        (COMMON-LISP:TYPE
    11273. 

  11273.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) E)
    11274. 

  11274.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT PIVMIN)
    11275. 

  11275.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) EIGCNT)
    11276. 

  11276.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LCNT)
    11277. 

  11277.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) RCNT)
    11278. 

  11278.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
    11279. 

  11279.   (CFFI:WITH-FOREIGN-OBJECTS ((N-REF8314 ':INT32) (VL-REF8315 ':DOUBLE)
    11280. 

  11280.                               (VU-REF8316 ':DOUBLE) (PIVMIN-REF8319 ':DOUBLE)
    11281. 

  11281.                               (EIGCNT-REF8320 ':INT32) (LCNT-REF8321 ':INT32)
    11282. 

  11282.                               (RCNT-REF8322 ':INT32) (INFO-REF8323 ':INT32))
    11283. 

  11283.     (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8314 :INT32) N)
    11284. 

  11284.     (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF8315 :DOUBLE) VL)
    11285. 

  11285.     (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF8316 :DOUBLE) VU)
    11286. 

  11286.     (COMMON-LISP:SETF (CFFI:MEM-REF PIVMIN-REF8319 :DOUBLE) PIVMIN)
    11287. 

  11287.     (COMMON-LISP:SETF (CFFI:MEM-REF EIGCNT-REF8320 :INT32) EIGCNT)
    11288. 

  11288.     (COMMON-LISP:SETF (CFFI:MEM-REF LCNT-REF8321 :INT32) LCNT)
    11289. 

  11289.     (COMMON-LISP:SETF (CFFI:MEM-REF RCNT-REF8322 :INT32) RCNT)
    11290. 

  11290.     (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF8323 :INT32) INFO)
    11291. 

  11291.     (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF8317 D) (E-REF8318 E))
    11292. 

  11292.       (%%DLARRC JOBT N-REF8314 VL-REF8315 VU-REF8316 D-REF8317 E-REF8318
    11293. 

  11293.        PIVMIN-REF8319 EIGCNT-REF8320 LCNT-REF8321 RCNT-REF8322 INFO-REF8323))))
    11294. 

  11294. 

  11295. (CFFI:DEFCFUN ("dlarrd_" %%DLARRD :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    11296. 

  11296.     :VOID
    11297. 

  11297.   (RANGE :STRING)
    11298. 

  11298.   (ORDER :STRING)
    11299. 

  11299.   (N :POINTER)
    11300. 

  11300.   (VL :POINTER)
    11301. 

  11301.   (VU :POINTER)
    11302. 

  11302.   (IL :POINTER)
    11303. 

  11303.   (IU :POINTER)
    11304. 

  11304.   (GERS :POINTER)
    11305. 

  11305.   (RELTOL :POINTER)
    11306. 

  11306.   (D :POINTER)
    11307. 

  11307.   (E :POINTER)
    11308. 

  11308.   (E2 :POINTER)
    11309. 

  11309.   (PIVMIN :POINTER)
    11310. 

  11310.   (NSPLIT :POINTER)
    11311. 

  11311.   (ISPLIT :POINTER)
    11312. 

  11312.   (M :POINTER)
    11313. 

  11313.   (W :POINTER)
    11314. 

  11314.   (WERR :POINTER)
    11315. 

  11315.   (WL :POINTER)
    11316. 

  11316.   (WU :POINTER)
    11317. 

  11317.   (IBLOCK :POINTER)
    11318. 

  11318.   (INDEXW :POINTER)
    11319. 

  11319.   (WORK :POINTER)
    11320. 

  11320.   (IWORK :POINTER)
    11321. 

  11321.   (INFO :POINTER))
    11322. 

  11322. 

  11323. (COMMON-LISP:DEFUN %DLARRD
    11324. 

  11324.                    (RANGE ORDER N VL VU IL IU GERS RELTOL D E E2 PIVMIN NSPLIT
    11325. 

  11325.                     ISPLIT M W WERR WL WU IBLOCK INDEXW WORK IWORK INFO)
    11326. 

  11326.   (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLARRD)
    11327. 

  11327.                        (COMMON-LISP:TYPE COMMON-LISP:STRING RANGE)
    11328. 

  11328.                        (COMMON-LISP:TYPE COMMON-LISP:STRING ORDER)
    11329. 

  11329.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
    11330. 

  11330.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT VL)
    11331. 

  11331.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT VU)
    11332. 

  11332.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IL)
    11333. 

  11333.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IU)
    11334. 

  11334.                        (COMMON-LISP:TYPE
    11335. 

  11335.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    11336. 

  11336.                         GERS)
    11337. 

  11337.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RELTOL)
    11338. 

  11338.                        (COMMON-LISP:TYPE
    11339. 

  11339.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
    11340. 

  11340.                        (COMMON-LISP:TYPE
    11341. 

  11341.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) E)
    11342. 

  11342.                        (COMMON-LISP:TYPE
    11343. 

  11343.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) E2)
    11344. 

  11344.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT PIVMIN)
    11345. 

  11345.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NSPLIT)
    11346. 

  11346.                        (COMMON-LISP:TYPE
    11347. 

  11347.                         (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
    11348. 

  11348.                          (COMMON-LISP:*))
    11349. 

  11349.                         ISPLIT)
    11350. 

  11350.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
    11351. 

  11351.                        (COMMON-LISP:TYPE
    11352. 

  11352.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) W)
    11353. 

  11353.                        (COMMON-LISP:TYPE
    11354. 

  11354.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    11355. 

  11355.                         WERR)
    11356. 

  11356.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT WL)
    11357. 

  11357.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT WU)
    11358. 

  11358.                        (COMMON-LISP:TYPE
    11359. 

  11359.                         (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
    11360. 

  11360.                          (COMMON-LISP:*))
    11361. 

  11361.                         IBLOCK)
    11362. 

  11362.                        (COMMON-LISP:TYPE
    11363. 

  11363.                         (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
    11364. 

  11364.                          (COMMON-LISP:*))
    11365. 

  11365.                         INDEXW)
    11366. 

  11366.                        (COMMON-LISP:TYPE
    11367. 

  11367.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    11368. 

  11368.                         WORK)
    11369. 

  11369.                        (COMMON-LISP:TYPE
    11370. 

  11370.                         (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
    11371. 

  11371.                          (COMMON-LISP:*))
    11372. 

  11372.                         IWORK)
    11373. 

  11373.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
    11374. 

  11374.   (CFFI:WITH-FOREIGN-OBJECTS ((N-REF8326 ':INT32) (VL-REF8327 ':DOUBLE)
    11375. 

  11375.                               (VU-REF8328 ':DOUBLE) (IL-REF8329 ':INT32)
    11376. 

  11376.                               (IU-REF8330 ':INT32) (RELTOL-REF8332 ':DOUBLE)
    11377. 

  11377.                               (PIVMIN-REF8336 ':DOUBLE)
    11378. 

  11378.                               (NSPLIT-REF8337 ':INT32) (M-REF8339 ':INT32)
    11379. 

  11379.                               (WL-REF8342 ':DOUBLE) (WU-REF8343 ':DOUBLE)
    11380. 

  11380.                               (INFO-REF8348 ':INT32))
    11381. 

  11381.     (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8326 :INT32) N)
    11382. 

  11382.     (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF8327 :DOUBLE) VL)
    11383. 

  11383.     (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF8328 :DOUBLE) VU)
    11384. 

  11384.     (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF8329 :INT32) IL)
    11385. 

  11385.     (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF8330 :INT32) IU)
    11386. 

  11386.     (COMMON-LISP:SETF (CFFI:MEM-REF RELTOL-REF8332 :DOUBLE) RELTOL)
    11387. 

  11387.     (COMMON-LISP:SETF (CFFI:MEM-REF PIVMIN-REF8336 :DOUBLE) PIVMIN)
    11388. 

  11388.     (COMMON-LISP:SETF (CFFI:MEM-REF NSPLIT-REF8337 :INT32) NSPLIT)
    11389. 

  11389.     (COMMON-LISP:SETF (CFFI:MEM-REF M-REF8339 :INT32) M)
    11390. 

  11390.     (COMMON-LISP:SETF (CFFI:MEM-REF WL-REF8342 :DOUBLE) WL)
    11391. 

  11391.     (COMMON-LISP:SETF (CFFI:MEM-REF WU-REF8343 :DOUBLE) WU)
    11392. 

  11392.     (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF8348 :INT32) INFO)
    11393. 

  11393.     (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((GERS-REF8331 GERS) (D-REF8333 D)
    11394. 

  11394.                                             (E-REF8334 E) (E2-REF8335 E2)
    11395. 

  11395.                                             (ISPLIT-REF8338 ISPLIT)
    11396. 

  11396.                                             (W-REF8340 W) (WERR-REF8341 WERR)
    11397. 

  11397.                                             (IBLOCK-REF8344 IBLOCK)
    11398. 

  11398.                                             (INDEXW-REF8345 INDEXW)
    11399. 

  11399.                                             (WORK-REF8346 WORK)
    11400. 

  11400.                                             (IWORK-REF8347 IWORK))
    11401. 

  11401.       (%%DLARRD RANGE ORDER N-REF8326 VL-REF8327 VU-REF8328 IL-REF8329
    11402. 

  11402.        IU-REF8330 GERS-REF8331 RELTOL-REF8332 D-REF8333 E-REF8334 E2-REF8335
    11403. 

  11403.        PIVMIN-REF8336 NSPLIT-REF8337 ISPLIT-REF8338 M-REF8339 W-REF8340
    11404. 

  11404.        WERR-REF8341 WL-REF8342 WU-REF8343 IBLOCK-REF8344 INDEXW-REF8345
    11405. 

  11405.        WORK-REF8346 IWORK-REF8347 INFO-REF8348))))
    11406. 

  11406. 

  11407. (CFFI:DEFCFUN ("dlarre_" %%DLARRE :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    11408. 

  11408.     :VOID
    11409. 

  11409.   (RANGE :STRING)
    11410. 

  11410.   (N :POINTER)
    11411. 

  11411.   (VL :POINTER)
    11412. 

  11412.   (VU :POINTER)
    11413. 

  11413.   (IL :POINTER)
    11414. 

  11414.   (IU :POINTER)
    11415. 

  11415.   (D :POINTER)
    11416. 

  11416.   (E :POINTER)
    11417. 

  11417.   (E2 :POINTER)
    11418. 

  11418.   (RTOL1 :POINTER)
    11419. 

  11419.   (RTOL2 :POINTER)
    11420. 

  11420.   (SPLTOL :POINTER)
    11421. 

  11421.   (NSPLIT :POINTER)
    11422. 

  11422.   (ISPLIT :POINTER)
    11423. 

  11423.   (M :POINTER)
    11424. 

  11424.   (W :POINTER)
    11425. 

  11425.   (WERR :POINTER)
    11426. 

  11426.   (WGAP :POINTER)
    11427. 

  11427.   (IBLOCK :POINTER)
    11428. 

  11428.   (INDEXW :POINTER)
    11429. 

  11429.   (GERS :POINTER)
    11430. 

  11430.   (PIVMIN :POINTER)
    11431. 

  11431.   (WORK :POINTER)
    11432. 

  11432.   (IWORK :POINTER)
    11433. 

  11433.   (INFO :POINTER))
    11434. 

  11434. 

  11435. (COMMON-LISP:DEFUN %DLARRE
    11436. 

  11436.                    (RANGE N VL VU IL IU D E E2 RTOL1 RTOL2 SPLTOL NSPLIT ISPLIT
    11437. 

  11437.                     M W WERR WGAP IBLOCK INDEXW GERS PIVMIN WORK IWORK INFO)
    11438. 

  11438.   (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLARRE)
    11439. 

  11439.                        (COMMON-LISP:TYPE COMMON-LISP:STRING RANGE)
    11440. 

  11440.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
    11441. 

  11441.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT VL)
    11442. 

  11442.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT VU)
    11443. 

  11443.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IL)
    11444. 

  11444.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IU)
    11445. 

  11445.                        (COMMON-LISP:TYPE
    11446. 

  11446.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
    11447. 

  11447.                        (COMMON-LISP:TYPE
    11448. 

  11448.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) E)
    11449. 

  11449.                        (COMMON-LISP:TYPE
    11450. 

  11450.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) E2)
    11451. 

  11451.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RTOL1)
    11452. 

  11452.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RTOL2)
    11453. 

  11453.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SPLTOL)
    11454. 

  11454.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NSPLIT)
    11455. 

  11455.                        (COMMON-LISP:TYPE
    11456. 

  11456.                         (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
    11457. 

  11457.                          (COMMON-LISP:*))
    11458. 

  11458.                         ISPLIT)
    11459. 

  11459.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
    11460. 

  11460.                        (COMMON-LISP:TYPE
    11461. 

  11461.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) W)
    11462. 

  11462.                        (COMMON-LISP:TYPE
    11463. 

  11463.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    11464. 

  11464.                         WERR)
    11465. 

  11465.                        (COMMON-LISP:TYPE
    11466. 

  11466.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    11467. 

  11467.                         WGAP)
    11468. 

  11468.                        (COMMON-LISP:TYPE
    11469. 

  11469.                         (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
    11470. 

  11470.                          (COMMON-LISP:*))
    11471. 

  11471.                         IBLOCK)
    11472. 

  11472.                        (COMMON-LISP:TYPE
    11473. 

  11473.                         (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
    11474. 

  11474.                          (COMMON-LISP:*))
    11475. 

  11475.                         INDEXW)
    11476. 

  11476.                        (COMMON-LISP:TYPE
    11477. 

  11477.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    11478. 

  11478.                         GERS)
    11479. 

  11479.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT PIVMIN)
    11480. 

  11480.                        (COMMON-LISP:TYPE
    11481. 

  11481.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    11482. 

  11482.                         WORK)
    11483. 

  11483.                        (COMMON-LISP:TYPE
    11484. 

  11484.                         (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
    11485. 

  11485.                          (COMMON-LISP:*))
    11486. 

  11486.                         IWORK)
    11487. 

  11487.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
    11488. 

  11488.   (CFFI:WITH-FOREIGN-OBJECTS ((N-REF8350 ':INT32) (VL-REF8351 ':DOUBLE)
    11489. 

  11489.                               (VU-REF8352 ':DOUBLE) (IL-REF8353 ':INT32)
    11490. 

  11490.                               (IU-REF8354 ':INT32) (RTOL1-REF8358 ':DOUBLE)
    11491. 

  11491.                               (RTOL2-REF8359 ':DOUBLE)
    11492. 

  11492.                               (SPLTOL-REF8360 ':DOUBLE)
    11493. 

  11493.                               (NSPLIT-REF8361 ':INT32) (M-REF8363 ':INT32)
    11494. 

  11494.                               (PIVMIN-REF8370 ':DOUBLE) (INFO-REF8373 ':INT32))
    11495. 

  11495.     (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8350 :INT32) N)
    11496. 

  11496.     (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF8351 :DOUBLE) VL)
    11497. 

  11497.     (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF8352 :DOUBLE) VU)
    11498. 

  11498.     (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF8353 :INT32) IL)
    11499. 

  11499.     (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF8354 :INT32) IU)
    11500. 

  11500.     (COMMON-LISP:SETF (CFFI:MEM-REF RTOL1-REF8358 :DOUBLE) RTOL1)
    11501. 

  11501.     (COMMON-LISP:SETF (CFFI:MEM-REF RTOL2-REF8359 :DOUBLE) RTOL2)
    11502. 

  11502.     (COMMON-LISP:SETF (CFFI:MEM-REF SPLTOL-REF8360 :DOUBLE) SPLTOL)
    11503. 

  11503.     (COMMON-LISP:SETF (CFFI:MEM-REF NSPLIT-REF8361 :INT32) NSPLIT)
    11504. 

  11504.     (COMMON-LISP:SETF (CFFI:MEM-REF M-REF8363 :INT32) M)
    11505. 

  11505.     (COMMON-LISP:SETF (CFFI:MEM-REF PIVMIN-REF8370 :DOUBLE) PIVMIN)
    11506. 

  11506.     (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF8373 :INT32) INFO)
    11507. 

  11507.     (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF8355 D) (E-REF8356 E)
    11508. 

  11508.                                             (E2-REF8357 E2)
    11509. 

  11509.                                             (ISPLIT-REF8362 ISPLIT)
    11510. 

  11510.                                             (W-REF8364 W) (WERR-REF8365 WERR)
    11511. 

  11511.                                             (WGAP-REF8366 WGAP)
    11512. 

  11512.                                             (IBLOCK-REF8367 IBLOCK)
    11513. 

  11513.                                             (INDEXW-REF8368 INDEXW)
    11514. 

  11514.                                             (GERS-REF8369 GERS)
    11515. 

  11515.                                             (WORK-REF8371 WORK)
    11516. 

  11516.                                             (IWORK-REF8372 IWORK))
    11517. 

  11517.       (%%DLARRE RANGE N-REF8350 VL-REF8351 VU-REF8352 IL-REF8353 IU-REF8354
    11518. 

  11518.        D-REF8355 E-REF8356 E2-REF8357 RTOL1-REF8358 RTOL2-REF8359
    11519. 

  11519.        SPLTOL-REF8360 NSPLIT-REF8361 ISPLIT-REF8362 M-REF8363 W-REF8364
    11520. 

  11520.        WERR-REF8365 WGAP-REF8366 IBLOCK-REF8367 INDEXW-REF8368 GERS-REF8369
    11521. 

  11521.        PIVMIN-REF8370 WORK-REF8371 IWORK-REF8372 INFO-REF8373))))
    11522. 

  11522. 

  11523. (CFFI:DEFCFUN ("dlarrf_" %%DLARRF :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    11524. 

  11524.     :VOID
    11525. 

  11525.   (N :POINTER)
    11526. 

  11526.   (D :POINTER)
    11527. 

  11527.   (L :POINTER)
    11528. 

  11528.   (LD :POINTER)
    11529. 

  11529.   (CLSTRT :POINTER)
    11530. 

  11530.   (CLEND :POINTER)
    11531. 

  11531.   (W :POINTER)
    11532. 

  11532.   (WGAP :POINTER)
    11533. 

  11533.   (WERR :POINTER)
    11534. 

  11534.   (SPDIAM :POINTER)
    11535. 

  11535.   (CLGAPL :POINTER)
    11536. 

  11536.   (CLGAPR :POINTER)
    11537. 

  11537.   (PIVMIN :POINTER)
    11538. 

  11538.   (SIGMA :POINTER)
    11539. 

  11539.   (DPLUS :POINTER)
    11540. 

  11540.   (LPLUS :POINTER)
    11541. 

  11541.   (WORK :POINTER)
    11542. 

  11542.   (INFO :POINTER))
    11543. 

  11543. 

  11544. (COMMON-LISP:DEFUN %DLARRF
    11545. 

  11545.                    (N D L LD CLSTRT CLEND W WGAP WERR SPDIAM CLGAPL CLGAPR
    11546. 

  11546.                     PIVMIN SIGMA DPLUS LPLUS WORK INFO)
    11547. 

  11547.   (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLARRF)
    11548. 

  11548.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
    11549. 

  11549.                        (COMMON-LISP:TYPE
    11550. 

  11550.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
    11551. 

  11551.                        (COMMON-LISP:TYPE
    11552. 

  11552.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) L)
    11553. 

  11553.                        (COMMON-LISP:TYPE
    11554. 

  11554.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) LD)
    11555. 

  11555.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) CLSTRT)
    11556. 

  11556.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) CLEND)
    11557. 

  11557.                        (COMMON-LISP:TYPE
    11558. 

  11558.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) W)
    11559. 

  11559.                        (COMMON-LISP:TYPE
    11560. 

  11560.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    11561. 

  11561.                         WGAP)
    11562. 

  11562.                        (COMMON-LISP:TYPE
    11563. 

  11563.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    11564. 

  11564.                         WERR)
    11565. 

  11565.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SPDIAM)
    11566. 

  11566.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT CLGAPL)
    11567. 

  11567.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT CLGAPR)
    11568. 

  11568.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT PIVMIN)
    11569. 

  11569.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SIGMA)
    11570. 

  11570.                        (COMMON-LISP:TYPE
    11571. 

  11571.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    11572. 

  11572.                         DPLUS)
    11573. 

  11573.                        (COMMON-LISP:TYPE
    11574. 

  11574.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    11575. 

  11575.                         LPLUS)
    11576. 

  11576.                        (COMMON-LISP:TYPE
    11577. 

  11577.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    11578. 

  11578.                         WORK)
    11579. 

  11579.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
    11580. 

  11580.   (CFFI:WITH-FOREIGN-OBJECTS ((N-REF8374 ':INT32) (CLSTRT-REF8378 ':INT32)
    11581. 

  11581.                               (CLEND-REF8379 ':INT32) (SPDIAM-REF8383 ':DOUBLE)
    11582. 

  11582.                               (CLGAPL-REF8384 ':DOUBLE)
    11583. 

  11583.                               (CLGAPR-REF8385 ':DOUBLE)
    11584. 

  11584.                               (PIVMIN-REF8386 ':DOUBLE)
    11585. 

  11585.                               (SIGMA-REF8387 ':DOUBLE) (INFO-REF8391 ':INT32))
    11586. 

  11586.     (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8374 :INT32) N)
    11587. 

  11587.     (COMMON-LISP:SETF (CFFI:MEM-REF CLSTRT-REF8378 :INT32) CLSTRT)
    11588. 

  11588.     (COMMON-LISP:SETF (CFFI:MEM-REF CLEND-REF8379 :INT32) CLEND)
    11589. 

  11589.     (COMMON-LISP:SETF (CFFI:MEM-REF SPDIAM-REF8383 :DOUBLE) SPDIAM)
    11590. 

  11590.     (COMMON-LISP:SETF (CFFI:MEM-REF CLGAPL-REF8384 :DOUBLE) CLGAPL)
    11591. 

  11591.     (COMMON-LISP:SETF (CFFI:MEM-REF CLGAPR-REF8385 :DOUBLE) CLGAPR)
    11592. 

  11592.     (COMMON-LISP:SETF (CFFI:MEM-REF PIVMIN-REF8386 :DOUBLE) PIVMIN)
    11593. 

  11593.     (COMMON-LISP:SETF (CFFI:MEM-REF SIGMA-REF8387 :DOUBLE) SIGMA)
    11594. 

  11594.     (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF8391 :INT32) INFO)
    11595. 

  11595.     (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF8375 D) (L-REF8376 L)
    11596. 

  11596.                                             (LD-REF8377 LD) (W-REF8380 W)
    11597. 

  11597.                                             (WGAP-REF8381 WGAP)
    11598. 

  11598.                                             (WERR-REF8382 WERR)
    11599. 

  11599.                                             (DPLUS-REF8388 DPLUS)
    11600. 

  11600.                                             (LPLUS-REF8389 LPLUS)
    11601. 

  11601.                                             (WORK-REF8390 WORK))
    11602. 

  11602.       (%%DLARRF N-REF8374 D-REF8375 L-REF8376 LD-REF8377 CLSTRT-REF8378
    11603. 

  11603.        CLEND-REF8379 W-REF8380 WGAP-REF8381 WERR-REF8382 SPDIAM-REF8383
    11604. 

  11604.        CLGAPL-REF8384 CLGAPR-REF8385 PIVMIN-REF8386 SIGMA-REF8387 DPLUS-REF8388
    11605. 

  11605.        LPLUS-REF8389 WORK-REF8390 INFO-REF8391))))
    11606. 

  11606. 

  11607. (CFFI:DEFCFUN ("dlarrj_" %%DLARRJ :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    11608. 

  11608.     :VOID
    11609. 

  11609.   (N :POINTER)
    11610. 

  11610.   (D :POINTER)
    11611. 

  11611.   (E2 :POINTER)
    11612. 

  11612.   (IFIRST :POINTER)
    11613. 

  11613.   (ILAST :POINTER)
    11614. 

  11614.   (RTOL :POINTER)
    11615. 

  11615.   (OFFSET :POINTER)
    11616. 

  11616.   (W :POINTER)
    11617. 

  11617.   (WERR :POINTER)
    11618. 

  11618.   (WORK :POINTER)
    11619. 

  11619.   (IWORK :POINTER)
    11620. 

  11620.   (PIVMIN :POINTER)
    11621. 

  11621.   (SPDIAM :POINTER)
    11622. 

  11622.   (INFO :POINTER))
    11623. 

  11623. 

  11624. (COMMON-LISP:DEFUN %DLARRJ
    11625. 

  11625.                    (N D E2 IFIRST ILAST RTOL OFFSET W WERR WORK IWORK PIVMIN
    11626. 

  11626.                     SPDIAM INFO)
    11627. 

  11627.   (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLARRJ)
    11628. 

  11628.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
    11629. 

  11629.                        (COMMON-LISP:TYPE
    11630. 

  11630.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
    11631. 

  11631.                        (COMMON-LISP:TYPE
    11632. 

  11632.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) E2)
    11633. 

  11633.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IFIRST)
    11634. 

  11634.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILAST)
    11635. 

  11635.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RTOL)
    11636. 

  11636.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) OFFSET)
    11637. 

  11637.                        (COMMON-LISP:TYPE
    11638. 

  11638.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) W)
    11639. 

  11639.                        (COMMON-LISP:TYPE
    11640. 

  11640.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    11641. 

  11641.                         WERR)
    11642. 

  11642.                        (COMMON-LISP:TYPE
    11643. 

  11643.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    11644. 

  11644.                         WORK)
    11645. 

  11645.                        (COMMON-LISP:TYPE
    11646. 

  11646.                         (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
    11647. 

  11647.                          (COMMON-LISP:*))
    11648. 

  11648.                         IWORK)
    11649. 

  11649.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT PIVMIN)
    11650. 

  11650.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SPDIAM)
    11651. 

  11651.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
    11652. 

  11652.   (CFFI:WITH-FOREIGN-OBJECTS ((N-REF8392 ':INT32) (IFIRST-REF8395 ':INT32)
    11653. 

  11653.                               (ILAST-REF8396 ':INT32) (RTOL-REF8397 ':DOUBLE)
    11654. 

  11654.                               (OFFSET-REF8398 ':INT32)
    11655. 

  11655.                               (PIVMIN-REF8403 ':DOUBLE)
    11656. 

  11656.                               (SPDIAM-REF8404 ':DOUBLE) (INFO-REF8405 ':INT32))
    11657. 

  11657.     (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8392 :INT32) N)
    11658. 

  11658.     (COMMON-LISP:SETF (CFFI:MEM-REF IFIRST-REF8395 :INT32) IFIRST)
    11659. 

  11659.     (COMMON-LISP:SETF (CFFI:MEM-REF ILAST-REF8396 :INT32) ILAST)
    11660. 

  11660.     (COMMON-LISP:SETF (CFFI:MEM-REF RTOL-REF8397 :DOUBLE) RTOL)
    11661. 

  11661.     (COMMON-LISP:SETF (CFFI:MEM-REF OFFSET-REF8398 :INT32) OFFSET)
    11662. 

  11662.     (COMMON-LISP:SETF (CFFI:MEM-REF PIVMIN-REF8403 :DOUBLE) PIVMIN)
    11663. 

  11663.     (COMMON-LISP:SETF (CFFI:MEM-REF SPDIAM-REF8404 :DOUBLE) SPDIAM)
    11664. 

  11664.     (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF8405 :INT32) INFO)
    11665. 

  11665.     (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF8393 D) (E2-REF8394 E2)
    11666. 

  11666.                                             (W-REF8399 W) (WERR-REF8400 WERR)
    11667. 

  11667.                                             (WORK-REF8401 WORK)
    11668. 

  11668.                                             (IWORK-REF8402 IWORK))
    11669. 

  11669.       (%%DLARRJ N-REF8392 D-REF8393 E2-REF8394 IFIRST-REF8395 ILAST-REF8396
    11670. 

  11670.        RTOL-REF8397 OFFSET-REF8398 W-REF8399 WERR-REF8400 WORK-REF8401
    11671. 

  11671.        IWORK-REF8402 PIVMIN-REF8403 SPDIAM-REF8404 INFO-REF8405))))
    11672. 

  11672. 

  11673. (CFFI:DEFCFUN ("dlarrk_" %%DLARRK :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    11674. 

  11674.     :VOID
    11675. 

  11675.   (N :POINTER)
    11676. 

  11676.   (IW :POINTER)
    11677. 

  11677.   (GL :POINTER)
    11678. 

  11678.   (GU :POINTER)
    11679. 

  11679.   (D :POINTER)
    11680. 

  11680.   (E2 :POINTER)
    11681. 

  11681.   (PIVMIN :POINTER)
    11682. 

  11682.   (RELTOL :POINTER)
    11683. 

  11683.   (W :POINTER)
    11684. 

  11684.   (WERR :POINTER)
    11685. 

  11685.   (INFO :POINTER))
    11686. 

  11686. 

  11687. (COMMON-LISP:DEFUN %DLARRK (N IW GL GU D E2 PIVMIN RELTOL W WERR INFO)
    11688. 

  11688.   (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLARRK)
    11689. 

  11689.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
    11690. 

  11690.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IW)
    11691. 

  11691.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT GL)
    11692. 

  11692.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT GU)
    11693. 

  11693.                        (COMMON-LISP:TYPE
    11694. 

  11694.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
    11695. 

  11695.                        (COMMON-LISP:TYPE
    11696. 

  11696.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) E2)
    11697. 

  11697.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT PIVMIN)
    11698. 

  11698.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RELTOL)
    11699. 

  11699.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT W)
    11700. 

  11700.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT WERR)
    11701. 

  11701.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
    11702. 

  11702.   (CFFI:WITH-FOREIGN-OBJECTS ((N-REF8406 ':INT32) (IW-REF8407 ':INT32)
    11703. 

  11703.                               (GL-REF8408 ':DOUBLE) (GU-REF8409 ':DOUBLE)
    11704. 

  11704.                               (PIVMIN-REF8412 ':DOUBLE)
    11705. 

  11705.                               (RELTOL-REF8413 ':DOUBLE) (W-REF8414 ':DOUBLE)
    11706. 

  11706.                               (WERR-REF8415 ':DOUBLE) (INFO-REF8416 ':INT32))
    11707. 

  11707.     (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8406 :INT32) N)
    11708. 

  11708.     (COMMON-LISP:SETF (CFFI:MEM-REF IW-REF8407 :INT32) IW)
    11709. 

  11709.     (COMMON-LISP:SETF (CFFI:MEM-REF GL-REF8408 :DOUBLE) GL)
    11710. 

  11710.     (COMMON-LISP:SETF (CFFI:MEM-REF GU-REF8409 :DOUBLE) GU)
    11711. 

  11711.     (COMMON-LISP:SETF (CFFI:MEM-REF PIVMIN-REF8412 :DOUBLE) PIVMIN)
    11712. 

  11712.     (COMMON-LISP:SETF (CFFI:MEM-REF RELTOL-REF8413 :DOUBLE) RELTOL)
    11713. 

  11713.     (COMMON-LISP:SETF (CFFI:MEM-REF W-REF8414 :DOUBLE) W)
    11714. 

  11714.     (COMMON-LISP:SETF (CFFI:MEM-REF WERR-REF8415 :DOUBLE) WERR)
    11715. 

  11715.     (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF8416 :INT32) INFO)
    11716. 

  11716.     (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF8410 D) (E2-REF8411 E2))
    11717. 

  11717.       (%%DLARRK N-REF8406 IW-REF8407 GL-REF8408 GU-REF8409 D-REF8410 E2-REF8411
    11718. 

  11718.        PIVMIN-REF8412 RELTOL-REF8413 W-REF8414 WERR-REF8415 INFO-REF8416))))
    11719. 

  11719. 

  11720. (CFFI:DEFCFUN ("dlarrr_" %%DLARRR :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    11721. 

  11721.     :VOID
    11722. 

  11722.   (N :POINTER)
    11723. 

  11723.   (D :POINTER)
    11724. 

  11724.   (E :POINTER)
    11725. 

  11725.   (INFO :POINTER))
    11726. 

  11726. 

  11727. (COMMON-LISP:DEFUN %DLARRR (N D E INFO)
    11728. 

  11728.   (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLARRR)
    11729. 

  11729.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
    11730. 

  11730.                        (COMMON-LISP:TYPE
    11731. 

  11731.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
    11732. 

  11732.                        (COMMON-LISP:TYPE
    11733. 

  11733.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) E)
    11734. 

  11734.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
    11735. 

  11735.   (CFFI:WITH-FOREIGN-OBJECTS ((N-REF8417 ':INT32) (INFO-REF8420 ':INT32))
    11736. 

  11736.     (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8417 :INT32) N)
    11737. 

  11737.     (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF8420 :INT32) INFO)
    11738. 

  11738.     (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF8418 D) (E-REF8419 E))
    11739. 

  11739.       (%%DLARRR N-REF8417 D-REF8418 E-REF8419 INFO-REF8420))))
    11740. 

  11740. 

  11741. (CFFI:DEFCFUN ("dlarrv_" %%DLARRV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    11742. 

  11742.     :VOID
    11743. 

  11743.   (N :POINTER)
    11744. 

  11744.   (VL :POINTER)
    11745. 

  11745.   (VU :POINTER)
    11746. 

  11746.   (D :POINTER)
    11747. 

  11747.   (L :POINTER)
    11748. 

  11748.   (PIVMIN :POINTER)
    11749. 

  11749.   (ISPLIT :POINTER)
    11750. 

  11750.   (M :POINTER)
    11751. 

  11751.   (DOL :POINTER)
    11752. 

  11752.   (DOU :POINTER)
    11753. 

  11753.   (MINRGP :POINTER)
    11754. 

  11754.   (RTOL1 :POINTER)
    11755. 

  11755.   (RTOL2 :POINTER)
    11756. 

  11756.   (W :POINTER)
    11757. 

  11757.   (WERR :POINTER)
    11758. 

  11758.   (WGAP :POINTER)
    11759. 

  11759.   (IBLOCK :POINTER)
    11760. 

  11760.   (INDEXW :POINTER)
    11761. 

  11761.   (GERS :POINTER)
    11762. 

  11762.   (Z :POINTER)
    11763. 

  11763.   (LDZ :POINTER)
    11764. 

  11764.   (ISUPPZ :POINTER)
    11765. 

  11765.   (WORK :POINTER)
    11766. 

  11766.   (IWORK :POINTER)
    11767. 

  11767.   (INFO :POINTER))
    11768. 

  11768. 

  11769. (COMMON-LISP:DEFUN %DLARRV
    11770. 

  11770.                    (N VL VU D L PIVMIN ISPLIT M DOL DOU MINRGP RTOL1 RTOL2 W
    11771. 

  11771.                     WERR WGAP IBLOCK INDEXW GERS Z LDZ ISUPPZ WORK IWORK INFO)
    11772. 

  11772.   (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLARRV)
    11773. 

  11773.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
    11774. 

  11774.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT VL)
    11775. 

  11775.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT VU)
    11776. 

  11776.                        (COMMON-LISP:TYPE
    11777. 

  11777.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
    11778. 

  11778.                        (COMMON-LISP:TYPE
    11779. 

  11779.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) L)
    11780. 

  11780.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT PIVMIN)
    11781. 

  11781.                        (COMMON-LISP:TYPE
    11782. 

  11782.                         (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
    11783. 

  11783.                          (COMMON-LISP:*))
    11784. 

  11784.                         ISPLIT)
    11785. 

  11785.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
    11786. 

  11786.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) DOL)
    11787. 

  11787.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) DOU)
    11788. 

  11788.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT MINRGP)
    11789. 

  11789.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RTOL1)
    11790. 

  11790.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RTOL2)
    11791. 

  11791.                        (COMMON-LISP:TYPE
    11792. 

  11792.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) W)
    11793. 

  11793.                        (COMMON-LISP:TYPE
    11794. 

  11794.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    11795. 

  11795.                         WERR)
    11796. 

  11796.                        (COMMON-LISP:TYPE
    11797. 

  11797.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    11798. 

  11798.                         WGAP)
    11799. 

  11799.                        (COMMON-LISP:TYPE
    11800. 

  11800.                         (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
    11801. 

  11801.                          (COMMON-LISP:*))
    11802. 

  11802.                         IBLOCK)
    11803. 

  11803.                        (COMMON-LISP:TYPE
    11804. 

  11804.                         (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
    11805. 

  11805.                          (COMMON-LISP:*))
    11806. 

  11806.                         INDEXW)
    11807. 

  11807.                        (COMMON-LISP:TYPE
    11808. 

  11808.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    11809. 

  11809.                         GERS)
    11810. 

  11810.                        (COMMON-LISP:TYPE
    11811. 

  11811.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Z)
    11812. 

  11812.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
    11813. 

  11813.                        (COMMON-LISP:TYPE
    11814. 

  11814.                         (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
    11815. 

  11815.                          (COMMON-LISP:*))
    11816. 

  11816.                         ISUPPZ)
    11817. 

  11817.                        (COMMON-LISP:TYPE
    11818. 

  11818.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    11819. 

  11819.                         WORK)
    11820. 

  11820.                        (COMMON-LISP:TYPE
    11821. 

  11821.                         (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
    11822. 

  11822.                          (COMMON-LISP:*))
    11823. 

  11823.                         IWORK)
    11824. 

  11824.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
    11825. 

  11825.   (CFFI:WITH-FOREIGN-OBJECTS ((N-REF8421 ':INT32) (VL-REF8422 ':DOUBLE)
    11826. 

  11826.                               (VU-REF8423 ':DOUBLE) (PIVMIN-REF8426 ':DOUBLE)
    11827. 

  11827.                               (M-REF8428 ':INT32) (DOL-REF8429 ':INT32)
    11828. 

  11828.                               (DOU-REF8430 ':INT32) (MINRGP-REF8431 ':DOUBLE)
    11829. 

  11829.                               (RTOL1-REF8432 ':DOUBLE) (RTOL2-REF8433 ':DOUBLE)
    11830. 

  11830.                               (LDZ-REF8441 ':INT32) (INFO-REF8445 ':INT32))
    11831. 

  11831.     (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8421 :INT32) N)
    11832. 

  11832.     (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF8422 :DOUBLE) VL)
    11833. 

  11833.     (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF8423 :DOUBLE) VU)
    11834. 

  11834.     (COMMON-LISP:SETF (CFFI:MEM-REF PIVMIN-REF8426 :DOUBLE) PIVMIN)
    11835. 

  11835.     (COMMON-LISP:SETF (CFFI:MEM-REF M-REF8428 :INT32) M)
    11836. 

  11836.     (COMMON-LISP:SETF (CFFI:MEM-REF DOL-REF8429 :INT32) DOL)
    11837. 

  11837.     (COMMON-LISP:SETF (CFFI:MEM-REF DOU-REF8430 :INT32) DOU)
    11838. 

  11838.     (COMMON-LISP:SETF (CFFI:MEM-REF MINRGP-REF8431 :DOUBLE) MINRGP)
    11839. 

  11839.     (COMMON-LISP:SETF (CFFI:MEM-REF RTOL1-REF8432 :DOUBLE) RTOL1)
    11840. 

  11840.     (COMMON-LISP:SETF (CFFI:MEM-REF RTOL2-REF8433 :DOUBLE) RTOL2)
    11841. 

  11841.     (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF8441 :INT32) LDZ)
    11842. 

  11842.     (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF8445 :INT32) INFO)
    11843. 

  11843.     (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF8424 D) (L-REF8425 L)
    11844. 

  11844.                                             (ISPLIT-REF8427 ISPLIT)
    11845. 

  11845.                                             (W-REF8434 W) (WERR-REF8435 WERR)
    11846. 

  11846.                                             (WGAP-REF8436 WGAP)
    11847. 

  11847.                                             (IBLOCK-REF8437 IBLOCK)
    11848. 

  11848.                                             (INDEXW-REF8438 INDEXW)
    11849. 

  11849.                                             (GERS-REF8439 GERS) (Z-REF8440 Z)
    11850. 

  11850.                                             (ISUPPZ-REF8442 ISUPPZ)
    11851. 

  11851.                                             (WORK-REF8443 WORK)
    11852. 

  11852.                                             (IWORK-REF8444 IWORK))
    11853. 

  11853.       (%%DLARRV N-REF8421 VL-REF8422 VU-REF8423 D-REF8424 L-REF8425
    11854. 

  11854.        PIVMIN-REF8426 ISPLIT-REF8427 M-REF8428 DOL-REF8429 DOU-REF8430
    11855. 

  11855.        MINRGP-REF8431 RTOL1-REF8432 RTOL2-REF8433 W-REF8434 WERR-REF8435
    11856. 

  11856.        WGAP-REF8436 IBLOCK-REF8437 INDEXW-REF8438 GERS-REF8439 Z-REF8440
    11857. 

  11857.        LDZ-REF8441 ISUPPZ-REF8442 WORK-REF8443 IWORK-REF8444 INFO-REF8445))))
    11858. 

  11858. 

  11859. (CFFI:DEFCFUN ("dlarscl2_" %%DLARSCL2 :LIBRARY
    11860. 

  11860.                MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    11861. 

  11861.     :VOID
    11862. 

  11862.   (M :POINTER)
    11863. 

  11863.   (N :POINTER)
    11864. 

  11864.   (D :POINTER)
    11865. 

  11865.   (X :POINTER)
    11866. 

  11866.   (LDX :POINTER))
    11867. 

  11867. 

  11868. (COMMON-LISP:DEFUN %DLARSCL2 (M N D X LDX)
    11869. 

  11869.   (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLARSCL2)
    11870. 

  11870.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
    11871. 

  11871.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
    11872. 

  11872.                        (COMMON-LISP:TYPE
    11873. 

  11873.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
    11874. 

  11874.                        (COMMON-LISP:TYPE
    11875. 

  11875.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) X)
    11876. 

  11876.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX))
    11877. 

  11877.   (CFFI:WITH-FOREIGN-OBJECTS ((M-REF8446 ':INT32) (N-REF8447 ':INT32)
    11878. 

  11878.                               (LDX-REF8450 ':INT32))
    11879. 

  11879.     (COMMON-LISP:SETF (CFFI:MEM-REF M-REF8446 :INT32) M)
    11880. 

  11880.     (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8447 :INT32) N)
    11881. 

  11881.     (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF8450 :INT32) LDX)
    11882. 

  11882.     (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF8448 D) (X-REF8449 X))
    11883. 

  11883.       (%%DLARSCL2 M-REF8446 N-REF8447 D-REF8448 X-REF8449 LDX-REF8450))))
    11884. 

  11884. 

  11885. (CFFI:DEFCFUN ("dlartg_" %%DLARTG :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    11886. 

  11886.     :VOID
    11887. 

  11887.   (F :POINTER)
    11888. 

  11888.   (G :POINTER)
    11889. 

  11889.   (CS :POINTER)
    11890. 

  11890.   (SN :POINTER)
    11891. 

  11891.   (R :POINTER))
    11892. 

  11892. 

  11893. (COMMON-LISP:DEFUN %DLARTG (F G CS SN R)
    11894. 

  11894.   (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLARTG)
    11895. 

  11895.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT F)
    11896. 

  11896.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT G)
    11897. 

  11897.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT CS)
    11898. 

  11898.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SN)
    11899. 

  11899.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT R))
    11900. 

  11900.   (CFFI:WITH-FOREIGN-OBJECTS ((F-REF8451 ':DOUBLE) (G-REF8452 ':DOUBLE)
    11901. 

  11901.                               (CS-REF8453 ':DOUBLE) (SN-REF8454 ':DOUBLE)
    11902. 

  11902.                               (R-REF8455 ':DOUBLE))
    11903. 

  11903.     (COMMON-LISP:SETF (CFFI:MEM-REF F-REF8451 :DOUBLE) F)
    11904. 

  11904.     (COMMON-LISP:SETF (CFFI:MEM-REF G-REF8452 :DOUBLE) G)
    11905. 

  11905.     (COMMON-LISP:SETF (CFFI:MEM-REF CS-REF8453 :DOUBLE) CS)
    11906. 

  11906.     (COMMON-LISP:SETF (CFFI:MEM-REF SN-REF8454 :DOUBLE) SN)
    11907. 

  11907.     (COMMON-LISP:SETF (CFFI:MEM-REF R-REF8455 :DOUBLE) R)
    11908. 

  11908.     (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS COMMON-LISP:NIL
    11909. 

  11909.       (%%DLARTG F-REF8451 G-REF8452 CS-REF8453 SN-REF8454 R-REF8455))))
    11910. 

  11910. 

  11911. (CFFI:DEFCFUN ("dlartgp_" %%DLARTGP :LIBRARY
    11912. 

  11912.                MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    11913. 

  11913.     :VOID
    11914. 

  11914.   (F :POINTER)
    11915. 

  11915.   (G :POINTER)
    11916. 

  11916.   (CS :POINTER)
    11917. 

  11917.   (SN :POINTER)
    11918. 

  11918.   (R :POINTER))
    11919. 

  11919. 

  11920. (COMMON-LISP:DEFUN %DLARTGP (F G CS SN R)
    11921. 

  11921.   (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLARTGP)
    11922. 

  11922.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT F)
    11923. 

  11923.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT G)
    11924. 

  11924.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT CS)
    11925. 

  11925.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SN)
    11926. 

  11926.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT R))
    11927. 

  11927.   (CFFI:WITH-FOREIGN-OBJECTS ((F-REF8456 ':DOUBLE) (G-REF8457 ':DOUBLE)
    11928. 

  11928.                               (CS-REF8458 ':DOUBLE) (SN-REF8459 ':DOUBLE)
    11929. 

  11929.                               (R-REF8460 ':DOUBLE))
    11930. 

  11930.     (COMMON-LISP:SETF (CFFI:MEM-REF F-REF8456 :DOUBLE) F)
    11931. 

  11931.     (COMMON-LISP:SETF (CFFI:MEM-REF G-REF8457 :DOUBLE) G)
    11932. 

  11932.     (COMMON-LISP:SETF (CFFI:MEM-REF CS-REF8458 :DOUBLE) CS)
    11933. 

  11933.     (COMMON-LISP:SETF (CFFI:MEM-REF SN-REF8459 :DOUBLE) SN)
    11934. 

  11934.     (COMMON-LISP:SETF (CFFI:MEM-REF R-REF8460 :DOUBLE) R)
    11935. 

  11935.     (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS COMMON-LISP:NIL
    11936. 

  11936.       (%%DLARTGP F-REF8456 G-REF8457 CS-REF8458 SN-REF8459 R-REF8460))))
    11937. 

  11937. 

  11938. (CFFI:DEFCFUN ("dlartgs_" %%DLARTGS :LIBRARY
    11939. 

  11939.                MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    11940. 

  11940.     :VOID
    11941. 

  11941.   (X :POINTER)
    11942. 

  11942.   (Y :POINTER)
    11943. 

  11943.   (SIGMA :POINTER)
    11944. 

  11944.   (CS :POINTER)
    11945. 

  11945.   (SN :POINTER))
    11946. 

  11946. 

  11947. (COMMON-LISP:DEFUN %DLARTGS (X Y SIGMA CS SN)
    11948. 

  11948.   (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLARTGS)
    11949. 

  11949.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT X)
    11950. 

  11950.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT Y)
    11951. 

  11951.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SIGMA)
    11952. 

  11952.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT CS)
    11953. 

  11953.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SN))
    11954. 

  11954.   (CFFI:WITH-FOREIGN-OBJECTS ((X-REF8461 ':DOUBLE) (Y-REF8462 ':DOUBLE)
    11955. 

  11955.                               (SIGMA-REF8463 ':DOUBLE) (CS-REF8464 ':DOUBLE)
    11956. 

  11956.                               (SN-REF8465 ':DOUBLE))
    11957. 

  11957.     (COMMON-LISP:SETF (CFFI:MEM-REF X-REF8461 :DOUBLE) X)
    11958. 

  11958.     (COMMON-LISP:SETF (CFFI:MEM-REF Y-REF8462 :DOUBLE) Y)
    11959. 

  11959.     (COMMON-LISP:SETF (CFFI:MEM-REF SIGMA-REF8463 :DOUBLE) SIGMA)
    11960. 

  11960.     (COMMON-LISP:SETF (CFFI:MEM-REF CS-REF8464 :DOUBLE) CS)
    11961. 

  11961.     (COMMON-LISP:SETF (CFFI:MEM-REF SN-REF8465 :DOUBLE) SN)
    11962. 

  11962.     (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS COMMON-LISP:NIL
    11963. 

  11963.       (%%DLARTGS X-REF8461 Y-REF8462 SIGMA-REF8463 CS-REF8464 SN-REF8465))))
    11964. 

  11964. 

  11965. (CFFI:DEFCFUN ("dlartv_" %%DLARTV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    11966. 

  11966.     :VOID
    11967. 

  11967.   (N :POINTER)
    11968. 

  11968.   (X :POINTER)
    11969. 

  11969.   (INCX :POINTER)
    11970. 

  11970.   (Y :POINTER)
    11971. 

  11971.   (INCY :POINTER)
    11972. 

  11972.   (C :POINTER)
    11973. 

  11973.   (S :POINTER)
    11974. 

  11974.   (INCC :POINTER))
    11975. 

  11975. 

  11976. (COMMON-LISP:DEFUN %DLARTV (N X INCX Y INCY C S INCC)
    11977. 

  11977.   (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLARTV)
    11978. 

  11978.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
    11979. 

  11979.                        (COMMON-LISP:TYPE
    11980. 

  11980.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) X)
    11981. 

  11981.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)
    11982. 

  11982.                        (COMMON-LISP:TYPE
    11983. 

  11983.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Y)
    11984. 

  11984.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCY)
    11985. 

  11985.                        (COMMON-LISP:TYPE
    11986. 

  11986.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
    11987. 

  11987.                        (COMMON-LISP:TYPE
    11988. 

  11988.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) S)
    11989. 

  11989.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCC))
    11990. 

  11990.   (CFFI:WITH-FOREIGN-OBJECTS ((N-REF8466 ':INT32) (INCX-REF8468 ':INT32)
    11991. 

  11991.                               (INCY-REF8470 ':INT32) (INCC-REF8473 ':INT32))
    11992. 

  11992.     (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8466 :INT32) N)
    11993. 

  11993.     (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF8468 :INT32) INCX)
    11994. 

  11994.     (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF8470 :INT32) INCY)
    11995. 

  11995.     (COMMON-LISP:SETF (CFFI:MEM-REF INCC-REF8473 :INT32) INCC)
    11996. 

  11996.     (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF8467 X) (Y-REF8469 Y)
    11997. 

  11997.                                             (C-REF8471 C) (S-REF8472 S))
    11998. 

  11998.       (%%DLARTV N-REF8466 X-REF8467 INCX-REF8468 Y-REF8469 INCY-REF8470
    11999. 

  11999.        C-REF8471 S-REF8472 INCC-REF8473))))
    12000. 

  12000. 

  12001. (CFFI:DEFCFUN ("dlaruv_" %%DLARUV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    12002. 

  12002.     :VOID
    12003. 

  12003.   (ISEED :POINTER)
    12004. 

  12004.   (N :POINTER)
    12005. 

  12005.   (X :POINTER))
    12006. 

  12006. 

  12007. (COMMON-LISP:DEFUN %DLARUV (ISEED N X)
    12008. 

  12008.   (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLARUV)
    12009. 

  12009.                        (COMMON-LISP:TYPE
    12010. 

  12010.                         (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
    12011. 

  12011.                          (COMMON-LISP:*))
    12012. 

  12012.                         ISEED)
    12013. 

  12013.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
    12014. 

  12014.                        (COMMON-LISP:TYPE
    12015. 

  12015.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) X))
    12016. 

  12016.   (CFFI:WITH-FOREIGN-OBJECTS ((N-REF8475 ':INT32))
    12017. 

  12017.     (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8475 :INT32) N)
    12018. 

  12018.     (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((ISEED-REF8474 ISEED) (X-REF8476 X))
    12019. 

  12019.       (%%DLARUV ISEED-REF8474 N-REF8475 X-REF8476))))
    12020. 

  12020. 

  12021. (CFFI:DEFCFUN ("dlarz_" %%DLARZ :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    12022. 

  12022.     :VOID
    12023. 

  12023.   (SIDE :STRING)
    12024. 

  12024.   (M :POINTER)
    12025. 

  12025.   (N :POINTER)
    12026. 

  12026.   (L :POINTER)
    12027. 

  12027.   (V :POINTER)
    12028. 

  12028.   (INCV :POINTER)
    12029. 

  12029.   (TAU :POINTER)
    12030. 

  12030.   (C :POINTER)
    12031. 

  12031.   (LDC :POINTER)
    12032. 

  12032.   (WORK :POINTER))
    12033. 

  12033. 

  12034. (COMMON-LISP:DEFUN %DLARZ (SIDE M N L V INCV TAU C LDC WORK)
    12035. 

  12035.   (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLARZ)
    12036. 

  12036.                        (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
    12037. 

  12037.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
    12038. 

  12038.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
    12039. 

  12039.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) L)
    12040. 

  12040.                        (COMMON-LISP:TYPE
    12041. 

  12041.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) V)
    12042. 

  12042.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCV)
    12043. 

  12043.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT TAU)
    12044. 

  12044.                        (COMMON-LISP:TYPE
    12045. 

  12045.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
    12046. 

  12046.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
    12047. 

  12047.                        (COMMON-LISP:TYPE
    12048. 

  12048.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    12049. 

  12049.                         WORK))
    12050. 

  12050.   (CFFI:WITH-FOREIGN-OBJECTS ((M-REF8478 ':INT32) (N-REF8479 ':INT32)
    12051. 

  12051.                               (L-REF8480 ':INT32) (INCV-REF8482 ':INT32)
    12052. 

  12052.                               (TAU-REF8483 ':DOUBLE) (LDC-REF8485 ':INT32))
    12053. 

  12053.     (COMMON-LISP:SETF (CFFI:MEM-REF M-REF8478 :INT32) M)
    12054. 

  12054.     (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8479 :INT32) N)
    12055. 

  12055.     (COMMON-LISP:SETF (CFFI:MEM-REF L-REF8480 :INT32) L)
    12056. 

  12056.     (COMMON-LISP:SETF (CFFI:MEM-REF INCV-REF8482 :INT32) INCV)
    12057. 

  12057.     (COMMON-LISP:SETF (CFFI:MEM-REF TAU-REF8483 :DOUBLE) TAU)
    12058. 

  12058.     (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF8485 :INT32) LDC)
    12059. 

  12059.     (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V-REF8481 V) (C-REF8484 C)
    12060. 

  12060.                                             (WORK-REF8486 WORK))
    12061. 

  12061.       (%%DLARZ SIDE M-REF8478 N-REF8479 L-REF8480 V-REF8481 INCV-REF8482
    12062. 

  12062.        TAU-REF8483 C-REF8484 LDC-REF8485 WORK-REF8486))))
    12063. 

  12063. 

  12064. (CFFI:DEFCFUN ("dlarzb_" %%DLARZB :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    12065. 

  12065.     :VOID
    12066. 

  12066.   (SIDE :STRING)
    12067. 

  12067.   (TRANS :STRING)
    12068. 

  12068.   (DIRECT :STRING)
    12069. 

  12069.   (STOREV :STRING)
    12070. 

  12070.   (M :POINTER)
    12071. 

  12071.   (N :POINTER)
    12072. 

  12072.   (K :POINTER)
    12073. 

  12073.   (L :POINTER)
    12074. 

  12074.   (V :POINTER)
    12075. 

  12075.   (LDV :POINTER)
    12076. 

  12076.   (T :POINTER)
    12077. 

  12077.   (LDT :POINTER)
    12078. 

  12078.   (C :POINTER)
    12079. 

  12079.   (LDC :POINTER)
    12080. 

  12080.   (WORK :POINTER)
    12081. 

  12081.   (LDWORK :POINTER))
    12082. 

  12082. 

  12083. (COMMON-LISP:DEFUN %DLARZB
    12084. 

  12084.                    (SIDE TRANS DIRECT STOREV M N K L V LDV T LDT C LDC WORK
    12085. 

  12085.                     LDWORK)
    12086. 

  12086.   (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLARZB)
    12087. 

  12087.                        (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
    12088. 

  12088.                        (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
    12089. 

  12089.                        (COMMON-LISP:TYPE COMMON-LISP:STRING DIRECT)
    12090. 

  12090.                        (COMMON-LISP:TYPE COMMON-LISP:STRING STOREV)
    12091. 

  12091.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
    12092. 

  12092.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
    12093. 

  12093.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
    12094. 

  12094.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) L)
    12095. 

  12095.                        (COMMON-LISP:TYPE
    12096. 

  12096.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) V)
    12097. 

  12097.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV)
    12098. 

  12098.                        (COMMON-LISP:TYPE
    12099. 

  12099.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) T)
    12100. 

  12100.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
    12101. 

  12101.                        (COMMON-LISP:TYPE
    12102. 

  12102.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
    12103. 

  12103.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
    12104. 

  12104.                        (COMMON-LISP:TYPE
    12105. 

  12105.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    12106. 

  12106.                         WORK)
    12107. 

  12107.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDWORK))
    12108. 

  12108.   (CFFI:WITH-FOREIGN-OBJECTS ((M-REF8491 ':INT32) (N-REF8492 ':INT32)
    12109. 

  12109.                               (K-REF8493 ':INT32) (L-REF8494 ':INT32)
    12110. 

  12110.                               (LDV-REF8496 ':INT32) (LDT-REF8498 ':INT32)
    12111. 

  12111.                               (LDC-REF8500 ':INT32) (LDWORK-REF8502 ':INT32))
    12112. 

  12112.     (COMMON-LISP:SETF (CFFI:MEM-REF M-REF8491 :INT32) M)
    12113. 

  12113.     (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8492 :INT32) N)
    12114. 

  12114.     (COMMON-LISP:SETF (CFFI:MEM-REF K-REF8493 :INT32) K)
    12115. 

  12115.     (COMMON-LISP:SETF (CFFI:MEM-REF L-REF8494 :INT32) L)
    12116. 

  12116.     (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF8496 :INT32) LDV)
    12117. 

  12117.     (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF8498 :INT32) LDT)
    12118. 

  12118.     (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF8500 :INT32) LDC)
    12119. 

  12119.     (COMMON-LISP:SETF (CFFI:MEM-REF LDWORK-REF8502 :INT32) LDWORK)
    12120. 

  12120.     (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V-REF8495 V) (T-REF8497 T)
    12121. 

  12121.                                             (C-REF8499 C) (WORK-REF8501 WORK))
    12122. 

  12122.       (%%DLARZB SIDE TRANS DIRECT STOREV M-REF8491 N-REF8492 K-REF8493
    12123. 

  12123.        L-REF8494 V-REF8495 LDV-REF8496 T-REF8497 LDT-REF8498 C-REF8499
    12124. 

  12124.        LDC-REF8500 WORK-REF8501 LDWORK-REF8502))))
    12125. 

  12125. 

  12126. (CFFI:DEFCFUN ("dlarzt_" %%DLARZT :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    12127. 

  12127.     :VOID
    12128. 

  12128.   (DIRECT :STRING)
    12129. 

  12129.   (STOREV :STRING)
    12130. 

  12130.   (N :POINTER)
    12131. 

  12131.   (K :POINTER)
    12132. 

  12132.   (V :POINTER)
    12133. 

  12133.   (LDV :POINTER)
    12134. 

  12134.   (TAU :POINTER)
    12135. 

  12135.   (T :POINTER)
    12136. 

  12136.   (LDT :POINTER))
    12137. 

  12137. 

  12138. (COMMON-LISP:DEFUN %DLARZT (DIRECT STOREV N K V LDV TAU T LDT)
    12139. 

  12139.   (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLARZT)
    12140. 

  12140.                        (COMMON-LISP:TYPE COMMON-LISP:STRING DIRECT)
    12141. 

  12141.                        (COMMON-LISP:TYPE COMMON-LISP:STRING STOREV)
    12142. 

  12142.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
    12143. 

  12143.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
    12144. 

  12144.                        (COMMON-LISP:TYPE
    12145. 

  12145.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) V)
    12146. 

  12146.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV)
    12147. 

  12147.                        (COMMON-LISP:TYPE
    12148. 

  12148.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    12149. 

  12149.                         TAU)
    12150. 

  12150.                        (COMMON-LISP:TYPE
    12151. 

  12151.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) T)
    12152. 

  12152.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT))
    12153. 

  12153.   (CFFI:WITH-FOREIGN-OBJECTS ((N-REF8505 ':INT32) (K-REF8506 ':INT32)
    12154. 

  12154.                               (LDV-REF8508 ':INT32) (LDT-REF8511 ':INT32))
    12155. 

  12155.     (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8505 :INT32) N)
    12156. 

  12156.     (COMMON-LISP:SETF (CFFI:MEM-REF K-REF8506 :INT32) K)
    12157. 

  12157.     (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF8508 :INT32) LDV)
    12158. 

  12158.     (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF8511 :INT32) LDT)
    12159. 

  12159.     (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V-REF8507 V) (TAU-REF8509 TAU)
    12160. 

  12160.                                             (T-REF8510 T))
    12161. 

  12161.       (%%DLARZT DIRECT STOREV N-REF8505 K-REF8506 V-REF8507 LDV-REF8508
    12162. 

  12162.        TAU-REF8509 T-REF8510 LDT-REF8511))))
    12163. 

  12163. 

  12164. (CFFI:DEFCFUN ("dlas2_" %%DLAS2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    12165. 

  12165.     :VOID
    12166. 

  12166.   (F :POINTER)
    12167. 

  12167.   (G :POINTER)
    12168. 

  12168.   (H :POINTER)
    12169. 

  12169.   (SSMIN :POINTER)
    12170. 

  12170.   (SSMAX :POINTER))
    12171. 

  12171. 

  12172. (COMMON-LISP:DEFUN %DLAS2 (F G H SSMIN SSMAX)
    12173. 

  12173.   (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLAS2)
    12174. 

  12174.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT F)
    12175. 

  12175.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT G)
    12176. 

  12176.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT H)
    12177. 

  12177.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SSMIN)
    12178. 

  12178.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SSMAX))
    12179. 

  12179.   (CFFI:WITH-FOREIGN-OBJECTS ((F-REF8512 ':DOUBLE) (G-REF8513 ':DOUBLE)
    12180. 

  12180.                               (H-REF8514 ':DOUBLE) (SSMIN-REF8515 ':DOUBLE)
    12181. 

  12181.                               (SSMAX-REF8516 ':DOUBLE))
    12182. 

  12182.     (COMMON-LISP:SETF (CFFI:MEM-REF F-REF8512 :DOUBLE) F)
    12183. 

  12183.     (COMMON-LISP:SETF (CFFI:MEM-REF G-REF8513 :DOUBLE) G)
    12184. 

  12184.     (COMMON-LISP:SETF (CFFI:MEM-REF H-REF8514 :DOUBLE) H)
    12185. 

  12185.     (COMMON-LISP:SETF (CFFI:MEM-REF SSMIN-REF8515 :DOUBLE) SSMIN)
    12186. 

  12186.     (COMMON-LISP:SETF (CFFI:MEM-REF SSMAX-REF8516 :DOUBLE) SSMAX)
    12187. 

  12187.     (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS COMMON-LISP:NIL
    12188. 

  12188.       (%%DLAS2 F-REF8512 G-REF8513 H-REF8514 SSMIN-REF8515 SSMAX-REF8516))))
    12189. 

  12189. 

  12190. (CFFI:DEFCFUN ("dlascl_" %%DLASCL :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    12191. 

  12191.     :VOID
    12192. 

  12192.   (TYPE :STRING)
    12193. 

  12193.   (KL :POINTER)
    12194. 

  12194.   (KU :POINTER)
    12195. 

  12195.   (CFROM :POINTER)
    12196. 

  12196.   (CTO :POINTER)
    12197. 

  12197.   (M :POINTER)
    12198. 

  12198.   (N :POINTER)
    12199. 

  12199.   (A :POINTER)
    12200. 

  12200.   (LDA :POINTER)
    12201. 

  12201.   (INFO :POINTER))
    12202. 

  12202. 

  12203. (COMMON-LISP:DEFUN %DLASCL (TYPE KL KU CFROM CTO M N A LDA INFO)
    12204. 

  12204.   (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLASCL)
    12205. 

  12205.                        (COMMON-LISP:TYPE COMMON-LISP:STRING TYPE)
    12206. 

  12206.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KL)
    12207. 

  12207.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KU)
    12208. 

  12208.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT CFROM)
    12209. 

  12209.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT CTO)
    12210. 

  12210.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
    12211. 

  12211.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
    12212. 

  12212.                        (COMMON-LISP:TYPE
    12213. 

  12213.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
    12214. 

  12214.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
    12215. 

  12215.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
    12216. 

  12216.   (CFFI:WITH-FOREIGN-OBJECTS ((KL-REF8518 ':INT32) (KU-REF8519 ':INT32)
    12217. 

  12217.                               (CFROM-REF8520 ':DOUBLE) (CTO-REF8521 ':DOUBLE)
    12218. 

  12218.                               (M-REF8522 ':INT32) (N-REF8523 ':INT32)
    12219. 

  12219.                               (LDA-REF8525 ':INT32) (INFO-REF8526 ':INT32))
    12220. 

  12220.     (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF8518 :INT32) KL)
    12221. 

  12221.     (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF8519 :INT32) KU)
    12222. 

  12222.     (COMMON-LISP:SETF (CFFI:MEM-REF CFROM-REF8520 :DOUBLE) CFROM)
    12223. 

  12223.     (COMMON-LISP:SETF (CFFI:MEM-REF CTO-REF8521 :DOUBLE) CTO)
    12224. 

  12224.     (COMMON-LISP:SETF (CFFI:MEM-REF M-REF8522 :INT32) M)
    12225. 

  12225.     (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8523 :INT32) N)
    12226. 

  12226.     (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF8525 :INT32) LDA)
    12227. 

  12227.     (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF8526 :INT32) INFO)
    12228. 

  12228.     (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF8524 A))
    12229. 

  12229.       (%%DLASCL TYPE KL-REF8518 KU-REF8519 CFROM-REF8520 CTO-REF8521 M-REF8522
    12230. 

  12230.        N-REF8523 A-REF8524 LDA-REF8525 INFO-REF8526))))
    12231. 

  12231. 

  12232. (CFFI:DEFCFUN ("dlascl2_" %%DLASCL2 :LIBRARY
    12233. 

  12233.                MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    12234. 

  12234.     :VOID
    12235. 

  12235.   (M :POINTER)
    12236. 

  12236.   (N :POINTER)
    12237. 

  12237.   (D :POINTER)
    12238. 

  12238.   (X :POINTER)
    12239. 

  12239.   (LDX :POINTER))
    12240. 

  12240. 

  12241. (COMMON-LISP:DEFUN %DLASCL2 (M N D X LDX)
    12242. 

  12242.   (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLASCL2)
    12243. 

  12243.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
    12244. 

  12244.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
    12245. 

  12245.                        (COMMON-LISP:TYPE
    12246. 

  12246.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
    12247. 

  12247.                        (COMMON-LISP:TYPE
    12248. 

  12248.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) X)
    12249. 

  12249.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX))
    12250. 

  12250.   (CFFI:WITH-FOREIGN-OBJECTS ((M-REF8527 ':INT32) (N-REF8528 ':INT32)
    12251. 

  12251.                               (LDX-REF8531 ':INT32))
    12252. 

  12252.     (COMMON-LISP:SETF (CFFI:MEM-REF M-REF8527 :INT32) M)
    12253. 

  12253.     (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8528 :INT32) N)
    12254. 

  12254.     (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF8531 :INT32) LDX)
    12255. 

  12255.     (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF8529 D) (X-REF8530 X))
    12256. 

  12256.       (%%DLASCL2 M-REF8527 N-REF8528 D-REF8529 X-REF8530 LDX-REF8531))))
    12257. 

  12257. 

  12258. (CFFI:DEFCFUN ("dlasd0_" %%DLASD0 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    12259. 

  12259.     :VOID
    12260. 

  12260.   (N :POINTER)
    12261. 

  12261.   (SQRE :POINTER)
    12262. 

  12262.   (D :POINTER)
    12263. 

  12263.   (E :POINTER)
    12264. 

  12264.   (U :POINTER)
    12265. 

  12265.   (LDU :POINTER)
    12266. 

  12266.   (VT :POINTER)
    12267. 

  12267.   (LDVT :POINTER)
    12268. 

  12268.   (SMLSIZ :POINTER)
    12269. 

  12269.   (IWORK :POINTER)
    12270. 

  12270.   (WORK :POINTER)
    12271. 

  12271.   (INFO :POINTER))
    12272. 

  12272. 

  12273. (COMMON-LISP:DEFUN %DLASD0 (N SQRE D E U LDU VT LDVT SMLSIZ IWORK WORK INFO)
    12274. 

  12274.   (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLASD0)
    12275. 

  12275.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
    12276. 

  12276.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) SQRE)
    12277. 

  12277.                        (COMMON-LISP:TYPE
    12278. 

  12278.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
    12279. 

  12279.                        (COMMON-LISP:TYPE
    12280. 

  12280.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) E)
    12281. 

  12281.                        (COMMON-LISP:TYPE
    12282. 

  12282.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) U)
    12283. 

  12283.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDU)
    12284. 

  12284.                        (COMMON-LISP:TYPE
    12285. 

  12285.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) VT)
    12286. 

  12286.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVT)
    12287. 

  12287.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) SMLSIZ)
    12288. 

  12288.                        (COMMON-LISP:TYPE
    12289. 

  12289.                         (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
    12290. 

  12290.                          (COMMON-LISP:*))
    12291. 

  12291.                         IWORK)
    12292. 

  12292.                        (COMMON-LISP:TYPE
    12293. 

  12293.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    12294. 

  12294.                         WORK)
    12295. 

  12295.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
    12296. 

  12296.   (CFFI:WITH-FOREIGN-OBJECTS ((N-REF8532 ':INT32) (SQRE-REF8533 ':INT32)
    12297. 

  12297.                               (LDU-REF8537 ':INT32) (LDVT-REF8539 ':INT32)
    12298. 

  12298.                               (SMLSIZ-REF8540 ':INT32) (INFO-REF8543 ':INT32))
    12299. 

  12299.     (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8532 :INT32) N)
    12300. 

  12300.     (COMMON-LISP:SETF (CFFI:MEM-REF SQRE-REF8533 :INT32) SQRE)
    12301. 

  12301.     (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF8537 :INT32) LDU)
    12302. 

  12302.     (COMMON-LISP:SETF (CFFI:MEM-REF LDVT-REF8539 :INT32) LDVT)
    12303. 

  12303.     (COMMON-LISP:SETF (CFFI:MEM-REF SMLSIZ-REF8540 :INT32) SMLSIZ)
    12304. 

  12304.     (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF8543 :INT32) INFO)
    12305. 

  12305.     (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF8534 D) (E-REF8535 E)
    12306. 

  12306.                                             (U-REF8536 U) (VT-REF8538 VT)
    12307. 

  12307.                                             (IWORK-REF8541 IWORK)
    12308. 

  12308.                                             (WORK-REF8542 WORK))
    12309. 

  12309.       (%%DLASD0 N-REF8532 SQRE-REF8533 D-REF8534 E-REF8535 U-REF8536
    12310. 

  12310.        LDU-REF8537 VT-REF8538 LDVT-REF8539 SMLSIZ-REF8540 IWORK-REF8541
    12311. 

  12311.        WORK-REF8542 INFO-REF8543))))
    12312. 

  12312. 

  12313. (CFFI:DEFCFUN ("dlasd1_" %%DLASD1 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    12314. 

  12314.     :VOID
    12315. 

  12315.   (NL :POINTER)
    12316. 

  12316.   (NR :POINTER)
    12317. 

  12317.   (SQRE :POINTER)
    12318. 

  12318.   (D :POINTER)
    12319. 

  12319.   (ALPHA :POINTER)
    12320. 

  12320.   (BETA :POINTER)
    12321. 

  12321.   (U :POINTER)
    12322. 

  12322.   (LDU :POINTER)
    12323. 

  12323.   (VT :POINTER)
    12324. 

  12324.   (LDVT :POINTER)
    12325. 

  12325.   (IDXQ :POINTER)
    12326. 

  12326.   (IWORK :POINTER)
    12327. 

  12327.   (WORK :POINTER)
    12328. 

  12328.   (INFO :POINTER))
    12329. 

  12329. 

  12330. (COMMON-LISP:DEFUN %DLASD1
    12331. 

  12331.                    (NL NR SQRE D ALPHA BETA U LDU VT LDVT IDXQ IWORK WORK INFO)
    12332. 

  12332.   (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLASD1)
    12333. 

  12333.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NL)
    12334. 

  12334.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NR)
    12335. 

  12335.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) SQRE)
    12336. 

  12336.                        (COMMON-LISP:TYPE
    12337. 

  12337.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
    12338. 

  12338.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ALPHA)
    12339. 

  12339.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT BETA)
    12340. 

  12340.                        (COMMON-LISP:TYPE
    12341. 

  12341.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) U)
    12342. 

  12342.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDU)
    12343. 

  12343.                        (COMMON-LISP:TYPE
    12344. 

  12344.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) VT)
    12345. 

  12345.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVT)
    12346. 

  12346.                        (COMMON-LISP:TYPE
    12347. 

  12347.                         (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
    12348. 

  12348.                          (COMMON-LISP:*))
    12349. 

  12349.                         IDXQ)
    12350. 

  12350.                        (COMMON-LISP:TYPE
    12351. 

  12351.                         (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
    12352. 

  12352.                          (COMMON-LISP:*))
    12353. 

  12353.                         IWORK)
    12354. 

  12354.                        (COMMON-LISP:TYPE
    12355. 

  12355.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    12356. 

  12356.                         WORK)
    12357. 

  12357.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
    12358. 

  12358.   (CFFI:WITH-FOREIGN-OBJECTS ((NL-REF8544 ':INT32) (NR-REF8545 ':INT32)
    12359. 

  12359.                               (SQRE-REF8546 ':INT32) (ALPHA-REF8548 ':DOUBLE)
    12360. 

  12360.                               (BETA-REF8549 ':DOUBLE) (LDU-REF8551 ':INT32)
    12361. 

  12361.                               (LDVT-REF8553 ':INT32) (INFO-REF8557 ':INT32))
    12362. 

  12362.     (COMMON-LISP:SETF (CFFI:MEM-REF NL-REF8544 :INT32) NL)
    12363. 

  12363.     (COMMON-LISP:SETF (CFFI:MEM-REF NR-REF8545 :INT32) NR)
    12364. 

  12364.     (COMMON-LISP:SETF (CFFI:MEM-REF SQRE-REF8546 :INT32) SQRE)
    12365. 

  12365.     (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF8548 :DOUBLE) ALPHA)
    12366. 

  12366.     (COMMON-LISP:SETF (CFFI:MEM-REF BETA-REF8549 :DOUBLE) BETA)
    12367. 

  12367.     (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF8551 :INT32) LDU)
    12368. 

  12368.     (COMMON-LISP:SETF (CFFI:MEM-REF LDVT-REF8553 :INT32) LDVT)
    12369. 

  12369.     (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF8557 :INT32) INFO)
    12370. 

  12370.     (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF8547 D) (U-REF8550 U)
    12371. 

  12371.                                             (VT-REF8552 VT) (IDXQ-REF8554 IDXQ)
    12372. 

  12372.                                             (IWORK-REF8555 IWORK)
    12373. 

  12373.                                             (WORK-REF8556 WORK))
    12374. 

  12374.       (%%DLASD1 NL-REF8544 NR-REF8545 SQRE-REF8546 D-REF8547 ALPHA-REF8548
    12375. 

  12375.        BETA-REF8549 U-REF8550 LDU-REF8551 VT-REF8552 LDVT-REF8553 IDXQ-REF8554
    12376. 

  12376.        IWORK-REF8555 WORK-REF8556 INFO-REF8557))))
    12377. 

  12377. 

  12378. (CFFI:DEFCFUN ("dlasd2_" %%DLASD2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    12379. 

  12379.     :VOID
    12380. 

  12380.   (NL :POINTER)
    12381. 

  12381.   (NR :POINTER)
    12382. 

  12382.   (SQRE :POINTER)
    12383. 

  12383.   (K :POINTER)
    12384. 

  12384.   (D :POINTER)
    12385. 

  12385.   (Z :POINTER)
    12386. 

  12386.   (ALPHA :POINTER)
    12387. 

  12387.   (BETA :POINTER)
    12388. 

  12388.   (U :POINTER)
    12389. 

  12389.   (LDU :POINTER)
    12390. 

  12390.   (VT :POINTER)
    12391. 

  12391.   (LDVT :POINTER)
    12392. 

  12392.   (DSIGMA :POINTER)
    12393. 

  12393.   (U2 :POINTER)
    12394. 

  12394.   (LDU2 :POINTER)
    12395. 

  12395.   (VT2 :POINTER)
    12396. 

  12396.   (LDVT2 :POINTER)
    12397. 

  12397.   (IDXP :POINTER)
    12398. 

  12398.   (IDX :POINTER)
    12399. 

  12399.   (IDXC :POINTER)
    12400. 

  12400.   (IDXQ :POINTER)
    12401. 

  12401.   (COLTYP :POINTER)
    12402. 

  12402.   (INFO :POINTER))
    12403. 

  12403. 

  12404. (COMMON-LISP:DEFUN %DLASD2
    12405. 

  12405.                    (NL NR SQRE K D Z ALPHA BETA U LDU VT LDVT DSIGMA U2 LDU2
    12406. 

  12406.                     VT2 LDVT2 IDXP IDX IDXC IDXQ COLTYP INFO)
    12407. 

  12407.   (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLASD2)
    12408. 

  12408.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NL)
    12409. 

  12409.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NR)
    12410. 

  12410.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) SQRE)
    12411. 

  12411.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
    12412. 

  12412.                        (COMMON-LISP:TYPE
    12413. 

  12413.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
    12414. 

  12414.                        (COMMON-LISP:TYPE
    12415. 

  12415.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Z)
    12416. 

  12416.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ALPHA)
    12417. 

  12417.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT BETA)
    12418. 

  12418.                        (COMMON-LISP:TYPE
    12419. 

  12419.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) U)
    12420. 

  12420.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDU)
    12421. 

  12421.                        (COMMON-LISP:TYPE
    12422. 

  12422.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) VT)
    12423. 

  12423.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVT)
    12424. 

  12424.                        (COMMON-LISP:TYPE
    12425. 

  12425.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    12426. 

  12426.                         DSIGMA)
    12427. 

  12427.                        (COMMON-LISP:TYPE
    12428. 

  12428.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) U2)
    12429. 

  12429.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDU2)
    12430. 

  12430.                        (COMMON-LISP:TYPE
    12431. 

  12431.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    12432. 

  12432.                         VT2)
    12433. 

  12433.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVT2)
    12434. 

  12434.                        (COMMON-LISP:TYPE
    12435. 

  12435.                         (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
    12436. 

  12436.                          (COMMON-LISP:*))
    12437. 

  12437.                         IDXP)
    12438. 

  12438.                        (COMMON-LISP:TYPE
    12439. 

  12439.                         (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
    12440. 

  12440.                          (COMMON-LISP:*))
    12441. 

  12441.                         IDX)
    12442. 

  12442.                        (COMMON-LISP:TYPE
    12443. 

  12443.                         (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
    12444. 

  12444.                          (COMMON-LISP:*))
    12445. 

  12445.                         IDXC)
    12446. 

  12446.                        (COMMON-LISP:TYPE
    12447. 

  12447.                         (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
    12448. 

  12448.                          (COMMON-LISP:*))
    12449. 

  12449.                         IDXQ)
    12450. 

  12450.                        (COMMON-LISP:TYPE
    12451. 

  12451.                         (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
    12452. 

  12452.                          (COMMON-LISP:*))
    12453. 

  12453.                         COLTYP)
    12454. 

  12454.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
    12455. 

  12455.   (CFFI:WITH-FOREIGN-OBJECTS ((NL-REF8558 ':INT32) (NR-REF8559 ':INT32)
    12456. 

  12456.                               (SQRE-REF8560 ':INT32) (K-REF8561 ':INT32)
    12457. 

  12457.                               (ALPHA-REF8564 ':DOUBLE) (BETA-REF8565 ':DOUBLE)
    12458. 

  12458.                               (LDU-REF8567 ':INT32) (LDVT-REF8569 ':INT32)
    12459. 

  12459.                               (LDU2-REF8572 ':INT32) (LDVT2-REF8574 ':INT32)
    12460. 

  12460.                               (INFO-REF8580 ':INT32))
    12461. 

  12461.     (COMMON-LISP:SETF (CFFI:MEM-REF NL-REF8558 :INT32) NL)
    12462. 

  12462.     (COMMON-LISP:SETF (CFFI:MEM-REF NR-REF8559 :INT32) NR)
    12463. 

  12463.     (COMMON-LISP:SETF (CFFI:MEM-REF SQRE-REF8560 :INT32) SQRE)
    12464. 

  12464.     (COMMON-LISP:SETF (CFFI:MEM-REF K-REF8561 :INT32) K)
    12465. 

  12465.     (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF8564 :DOUBLE) ALPHA)
    12466. 

  12466.     (COMMON-LISP:SETF (CFFI:MEM-REF BETA-REF8565 :DOUBLE) BETA)
    12467. 

  12467.     (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF8567 :INT32) LDU)
    12468. 

  12468.     (COMMON-LISP:SETF (CFFI:MEM-REF LDVT-REF8569 :INT32) LDVT)
    12469. 

  12469.     (COMMON-LISP:SETF (CFFI:MEM-REF LDU2-REF8572 :INT32) LDU2)
    12470. 

  12470.     (COMMON-LISP:SETF (CFFI:MEM-REF LDVT2-REF8574 :INT32) LDVT2)
    12471. 

  12471.     (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF8580 :INT32) INFO)
    12472. 

  12472.     (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF8562 D) (Z-REF8563 Z)
    12473. 

  12473.                                             (U-REF8566 U) (VT-REF8568 VT)
    12474. 

  12474.                                             (DSIGMA-REF8570 DSIGMA)
    12475. 

  12475.                                             (U2-REF8571 U2) (VT2-REF8573 VT2)
    12476. 

  12476.                                             (IDXP-REF8575 IDXP)
    12477. 

  12477.                                             (IDX-REF8576 IDX)
    12478. 

  12478.                                             (IDXC-REF8577 IDXC)
    12479. 

  12479.                                             (IDXQ-REF8578 IDXQ)
    12480. 

  12480.                                             (COLTYP-REF8579 COLTYP))
    12481. 

  12481.       (%%DLASD2 NL-REF8558 NR-REF8559 SQRE-REF8560 K-REF8561 D-REF8562
    12482. 

  12482.        Z-REF8563 ALPHA-REF8564 BETA-REF8565 U-REF8566 LDU-REF8567 VT-REF8568
    12483. 

  12483.        LDVT-REF8569 DSIGMA-REF8570 U2-REF8571 LDU2-REF8572 VT2-REF8573
    12484. 

  12484.        LDVT2-REF8574 IDXP-REF8575 IDX-REF8576 IDXC-REF8577 IDXQ-REF8578
    12485. 

  12485.        COLTYP-REF8579 INFO-REF8580))))
    12486. 

  12486. 

  12487. (CFFI:DEFCFUN ("dlasd3_" %%DLASD3 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    12488. 

  12488.     :VOID
    12489. 

  12489.   (NL :POINTER)
    12490. 

  12490.   (NR :POINTER)
    12491. 

  12491.   (SQRE :POINTER)
    12492. 

  12492.   (K :POINTER)
    12493. 

  12493.   (D :POINTER)
    12494. 

  12494.   (Q :POINTER)
    12495. 

  12495.   (LDQ :POINTER)
    12496. 

  12496.   (DSIGMA :POINTER)
    12497. 

  12497.   (U :POINTER)
    12498. 

  12498.   (LDU :POINTER)
    12499. 

  12499.   (U2 :POINTER)
    12500. 

  12500.   (LDU2 :POINTER)
    12501. 

  12501.   (VT :POINTER)
    12502. 

  12502.   (LDVT :POINTER)
    12503. 

  12503.   (VT2 :POINTER)
    12504. 

  12504.   (LDVT2 :POINTER)
    12505. 

  12505.   (IDXC :POINTER)
    12506. 

  12506.   (CTOT :POINTER)
    12507. 

  12507.   (Z :POINTER)
    12508. 

  12508.   (INFO :POINTER))
    12509. 

  12509. 

  12510. (COMMON-LISP:DEFUN %DLASD3
    12511. 

  12511.                    (NL NR SQRE K D Q LDQ DSIGMA U LDU U2 LDU2 VT LDVT VT2 LDVT2
    12512. 

  12512.                     IDXC CTOT Z INFO)
    12513. 

  12513.   (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLASD3)
    12514. 

  12514.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NL)
    12515. 

  12515.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NR)
    12516. 

  12516.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) SQRE)
    12517. 

  12517.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
    12518. 

  12518.                        (COMMON-LISP:TYPE
    12519. 

  12519.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
    12520. 

  12520.                        (COMMON-LISP:TYPE
    12521. 

  12521.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Q)
    12522. 

  12522.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ)
    12523. 

  12523.                        (COMMON-LISP:TYPE
    12524. 

  12524.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    12525. 

  12525.                         DSIGMA)
    12526. 

  12526.                        (COMMON-LISP:TYPE
    12527. 

  12527.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) U)
    12528. 

  12528.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDU)
    12529. 

  12529.                        (COMMON-LISP:TYPE
    12530. 

  12530.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) U2)
    12531. 

  12531.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDU2)
    12532. 

  12532.                        (COMMON-LISP:TYPE
    12533. 

  12533.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) VT)
    12534. 

  12534.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVT)
    12535. 

  12535.                        (COMMON-LISP:TYPE
    12536. 

  12536.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    12537. 

  12537.                         VT2)
    12538. 

  12538.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVT2)
    12539. 

  12539.                        (COMMON-LISP:TYPE
    12540. 

  12540.                         (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
    12541. 

  12541.                          (COMMON-LISP:*))
    12542. 

  12542.                         IDXC)
    12543. 

  12543.                        (COMMON-LISP:TYPE
    12544. 

  12544.                         (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
    12545. 

  12545.                          (COMMON-LISP:*))
    12546. 

  12546.                         CTOT)
    12547. 

  12547.                        (COMMON-LISP:TYPE
    12548. 

  12548.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Z)
    12549. 

  12549.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
    12550. 

  12550.   (CFFI:WITH-FOREIGN-OBJECTS ((NL-REF8581 ':INT32) (NR-REF8582 ':INT32)
    12551. 

  12551.                               (SQRE-REF8583 ':INT32) (K-REF8584 ':INT32)
    12552. 

  12552.                               (LDQ-REF8587 ':INT32) (LDU-REF8590 ':INT32)
    12553. 

  12553.                               (LDU2-REF8592 ':INT32) (LDVT-REF8594 ':INT32)
    12554. 

  12554.                               (LDVT2-REF8596 ':INT32) (INFO-REF8600 ':INT32))
    12555. 

  12555.     (COMMON-LISP:SETF (CFFI:MEM-REF NL-REF8581 :INT32) NL)
    12556. 

  12556.     (COMMON-LISP:SETF (CFFI:MEM-REF NR-REF8582 :INT32) NR)
    12557. 

  12557.     (COMMON-LISP:SETF (CFFI:MEM-REF SQRE-REF8583 :INT32) SQRE)
    12558. 

  12558.     (COMMON-LISP:SETF (CFFI:MEM-REF K-REF8584 :INT32) K)
    12559. 

  12559.     (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF8587 :INT32) LDQ)
    12560. 

  12560.     (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF8590 :INT32) LDU)
    12561. 

  12561.     (COMMON-LISP:SETF (CFFI:MEM-REF LDU2-REF8592 :INT32) LDU2)
    12562. 

  12562.     (COMMON-LISP:SETF (CFFI:MEM-REF LDVT-REF8594 :INT32) LDVT)
    12563. 

  12563.     (COMMON-LISP:SETF (CFFI:MEM-REF LDVT2-REF8596 :INT32) LDVT2)
    12564. 

  12564.     (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF8600 :INT32) INFO)
    12565. 

  12565.     (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF8585 D) (Q-REF8586 Q)
    12566. 

  12566.                                             (DSIGMA-REF8588 DSIGMA)
    12567. 

  12567.                                             (U-REF8589 U) (U2-REF8591 U2)
    12568. 

  12568.                                             (VT-REF8593 VT) (VT2-REF8595 VT2)
    12569. 

  12569.                                             (IDXC-REF8597 IDXC)
    12570. 

  12570.                                             (CTOT-REF8598 CTOT) (Z-REF8599 Z))
    12571. 

  12571.       (%%DLASD3 NL-REF8581 NR-REF8582 SQRE-REF8583 K-REF8584 D-REF8585
    12572. 

  12572.        Q-REF8586 LDQ-REF8587 DSIGMA-REF8588 U-REF8589 LDU-REF8590 U2-REF8591
    12573. 

  12573.        LDU2-REF8592 VT-REF8593 LDVT-REF8594 VT2-REF8595 LDVT2-REF8596
    12574. 

  12574.        IDXC-REF8597 CTOT-REF8598 Z-REF8599 INFO-REF8600))))
    12575. 

  12575. 

  12576. (CFFI:DEFCFUN ("dlasd4_" %%DLASD4 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    12577. 

  12577.     :VOID
    12578. 

  12578.   (N :POINTER)
    12579. 

  12579.   (I :POINTER)
    12580. 

  12580.   (D :POINTER)
    12581. 

  12581.   (Z :POINTER)
    12582. 

  12582.   (DELTA :POINTER)
    12583. 

  12583.   (RHO :POINTER)
    12584. 

  12584.   (SIGMA :POINTER)
    12585. 

  12585.   (WORK :POINTER)
    12586. 

  12586.   (INFO :POINTER))
    12587. 

  12587. 

  12588. (COMMON-LISP:DEFUN %DLASD4 (N I D Z DELTA RHO SIGMA WORK INFO)
    12589. 

  12589.   (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLASD4)
    12590. 

  12590.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
    12591. 

  12591.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) I)
    12592. 

  12592.                        (COMMON-LISP:TYPE
    12593. 

  12593.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
    12594. 

  12594.                        (COMMON-LISP:TYPE
    12595. 

  12595.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Z)
    12596. 

  12596.                        (COMMON-LISP:TYPE
    12597. 

  12597.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    12598. 

  12598.                         DELTA)
    12599. 

  12599.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RHO)
    12600. 

  12600.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SIGMA)
    12601. 

  12601.                        (COMMON-LISP:TYPE
    12602. 

  12602.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    12603. 

  12603.                         WORK)
    12604. 

  12604.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
    12605. 

  12605.   (CFFI:WITH-FOREIGN-OBJECTS ((N-REF8601 ':INT32) (I-REF8602 ':INT32)
    12606. 

  12606.                               (RHO-REF8606 ':DOUBLE) (SIGMA-REF8607 ':DOUBLE)
    12607. 

  12607.                               (INFO-REF8609 ':INT32))
    12608. 

  12608.     (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8601 :INT32) N)
    12609. 

  12609.     (COMMON-LISP:SETF (CFFI:MEM-REF I-REF8602 :INT32) I)
    12610. 

  12610.     (COMMON-LISP:SETF (CFFI:MEM-REF RHO-REF8606 :DOUBLE) RHO)
    12611. 

  12611.     (COMMON-LISP:SETF (CFFI:MEM-REF SIGMA-REF8607 :DOUBLE) SIGMA)
    12612. 

  12612.     (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF8609 :INT32) INFO)
    12613. 

  12613.     (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF8603 D) (Z-REF8604 Z)
    12614. 

  12614.                                             (DELTA-REF8605 DELTA)
    12615. 

  12615.                                             (WORK-REF8608 WORK))
    12616. 

  12616.       (%%DLASD4 N-REF8601 I-REF8602 D-REF8603 Z-REF8604 DELTA-REF8605
    12617. 

  12617.        RHO-REF8606 SIGMA-REF8607 WORK-REF8608 INFO-REF8609))))
    12618. 

  12618. 

  12619. (CFFI:DEFCFUN ("dlasd5_" %%DLASD5 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    12620. 

  12620.     :VOID
    12621. 

  12621.   (I :POINTER)
    12622. 

  12622.   (D :POINTER)
    12623. 

  12623.   (Z :POINTER)
    12624. 

  12624.   (DELTA :POINTER)
    12625. 

  12625.   (RHO :POINTER)
    12626. 

  12626.   (DSIGMA :POINTER)
    12627. 

  12627.   (WORK :POINTER))
    12628. 

  12628. 

  12629. (COMMON-LISP:DEFUN %DLASD5 (I D Z DELTA RHO DSIGMA WORK)
    12630. 

  12630.   (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLASD5)
    12631. 

  12631.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) I)
    12632. 

  12632.                        (COMMON-LISP:TYPE
    12633. 

  12633.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
    12634. 

  12634.                        (COMMON-LISP:TYPE
    12635. 

  12635.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Z)
    12636. 

  12636.                        (COMMON-LISP:TYPE
    12637. 

  12637.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    12638. 

  12638.                         DELTA)
    12639. 

  12639.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RHO)
    12640. 

  12640.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT DSIGMA)
    12641. 

  12641.                        (COMMON-LISP:TYPE
    12642. 

  12642.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    12643. 

  12643.                         WORK))
    12644. 

  12644.   (CFFI:WITH-FOREIGN-OBJECTS ((I-REF8610 ':INT32) (RHO-REF8614 ':DOUBLE)
    12645. 

  12645.                               (DSIGMA-REF8615 ':DOUBLE))
    12646. 

  12646.     (COMMON-LISP:SETF (CFFI:MEM-REF I-REF8610 :INT32) I)
    12647. 

  12647.     (COMMON-LISP:SETF (CFFI:MEM-REF RHO-REF8614 :DOUBLE) RHO)
    12648. 

  12648.     (COMMON-LISP:SETF (CFFI:MEM-REF DSIGMA-REF8615 :DOUBLE) DSIGMA)
    12649. 

  12649.     (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF8611 D) (Z-REF8612 Z)
    12650. 

  12650.                                             (DELTA-REF8613 DELTA)
    12651. 

  12651.                                             (WORK-REF8616 WORK))
    12652. 

  12652.       (%%DLASD5 I-REF8610 D-REF8611 Z-REF8612 DELTA-REF8613 RHO-REF8614
    12653. 

  12653.        DSIGMA-REF8615 WORK-REF8616))))
    12654. 

  12654. 

  12655. (CFFI:DEFCFUN ("dlasd6_" %%DLASD6 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    12656. 

  12656.     :VOID
    12657. 

  12657.   (ICOMPQ :POINTER)
    12658. 

  12658.   (NL :POINTER)
    12659. 

  12659.   (NR :POINTER)
    12660. 

  12660.   (SQRE :POINTER)
    12661. 

  12661.   (D :POINTER)
    12662. 

  12662.   (VF :POINTER)
    12663. 

  12663.   (VL :POINTER)
    12664. 

  12664.   (ALPHA :POINTER)
    12665. 

  12665.   (BETA :POINTER)
    12666. 

  12666.   (IDXQ :POINTER)
    12667. 

  12667.   (PERM :POINTER)
    12668. 

  12668.   (GIVPTR :POINTER)
    12669. 

  12669.   (GIVCOL :POINTER)
    12670. 

  12670.   (LDGCOL :POINTER)
    12671. 

  12671.   (GIVNUM :POINTER)
    12672. 

  12672.   (LDGNUM :POINTER)
    12673. 

  12673.   (POLES :POINTER)
    12674. 

  12674.   (DIFL :POINTER)
    12675. 

  12675.   (DIFR :POINTER)
    12676. 

  12676.   (Z :POINTER)
    12677. 

  12677.   (K :POINTER)
    12678. 

  12678.   (C :POINTER)
    12679. 

  12679.   (S :POINTER)
    12680. 

  12680.   (WORK :POINTER)
    12681. 

  12681.   (IWORK :POINTER)
    12682. 

  12682.   (INFO :POINTER))
    12683. 

  12683. 

  12684. (COMMON-LISP:DEFUN %DLASD6
    12685. 

  12685.                    (ICOMPQ NL NR SQRE D VF VL ALPHA BETA IDXQ PERM GIVPTR
    12686. 

  12686.                     GIVCOL LDGCOL GIVNUM LDGNUM POLES DIFL DIFR Z K C S WORK
    12687. 

  12687.                     IWORK INFO)
    12688. 

  12688.   (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLASD6)
    12689. 

  12689.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ICOMPQ)
    12690. 

  12690.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NL)
    12691. 

  12691.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NR)
    12692. 

  12692.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) SQRE)
    12693. 

  12693.                        (COMMON-LISP:TYPE
    12694. 

  12694.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
    12695. 

  12695.                        (COMMON-LISP:TYPE
    12696. 

  12696.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) VF)
    12697. 

  12697.                        (COMMON-LISP:TYPE
    12698. 

  12698.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) VL)
    12699. 

  12699.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ALPHA)
    12700. 

  12700.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT BETA)
    12701. 

  12701.                        (COMMON-LISP:TYPE
    12702. 

  12702.                         (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
    12703. 

  12703.                          (COMMON-LISP:*))
    12704. 

  12704.                         IDXQ)
    12705. 

  12705.                        (COMMON-LISP:TYPE
    12706. 

  12706.                         (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
    12707. 

  12707.                          (COMMON-LISP:*))
    12708. 

  12708.                         PERM)
    12709. 

  12709.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) GIVPTR)
    12710. 

  12710.                        (COMMON-LISP:TYPE
    12711. 

  12711.                         (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
    12712. 

  12712.                          (COMMON-LISP:*))
    12713. 

  12713.                         GIVCOL)
    12714. 

  12714.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDGCOL)
    12715. 

  12715.                        (COMMON-LISP:TYPE
    12716. 

  12716.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    12717. 

  12717.                         GIVNUM)
    12718. 

  12718.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDGNUM)
    12719. 

  12719.                        (COMMON-LISP:TYPE
    12720. 

  12720.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    12721. 

  12721.                         POLES)
    12722. 

  12722.                        (COMMON-LISP:TYPE
    12723. 

  12723.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    12724. 

  12724.                         DIFL)
    12725. 

  12725.                        (COMMON-LISP:TYPE
    12726. 

  12726.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    12727. 

  12727.                         DIFR)
    12728. 

  12728.                        (COMMON-LISP:TYPE
    12729. 

  12729.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Z)
    12730. 

  12730.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
    12731. 

  12731.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT C)
    12732. 

  12732.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT S)
    12733. 

  12733.                        (COMMON-LISP:TYPE
    12734. 

  12734.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    12735. 

  12735.                         WORK)
    12736. 

  12736.                        (COMMON-LISP:TYPE
    12737. 

  12737.                         (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
    12738. 

  12738.                          (COMMON-LISP:*))
    12739. 

  12739.                         IWORK)
    12740. 

  12740.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
    12741. 

  12741.   (CFFI:WITH-FOREIGN-OBJECTS ((ICOMPQ-REF8617 ':INT32) (NL-REF8618 ':INT32)
    12742. 

  12742.                               (NR-REF8619 ':INT32) (SQRE-REF8620 ':INT32)
    12743. 

  12743.                               (ALPHA-REF8624 ':DOUBLE) (BETA-REF8625 ':DOUBLE)
    12744. 

  12744.                               (GIVPTR-REF8628 ':INT32) (LDGCOL-REF8630 ':INT32)
    12745. 

  12745.                               (LDGNUM-REF8632 ':INT32) (K-REF8637 ':INT32)
    12746. 

  12746.                               (C-REF8638 ':DOUBLE) (S-REF8639 ':DOUBLE)
    12747. 

  12747.                               (INFO-REF8642 ':INT32))
    12748. 

  12748.     (COMMON-LISP:SETF (CFFI:MEM-REF ICOMPQ-REF8617 :INT32) ICOMPQ)
    12749. 

  12749.     (COMMON-LISP:SETF (CFFI:MEM-REF NL-REF8618 :INT32) NL)
    12750. 

  12750.     (COMMON-LISP:SETF (CFFI:MEM-REF NR-REF8619 :INT32) NR)
    12751. 

  12751.     (COMMON-LISP:SETF (CFFI:MEM-REF SQRE-REF8620 :INT32) SQRE)
    12752. 

  12752.     (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF8624 :DOUBLE) ALPHA)
    12753. 

  12753.     (COMMON-LISP:SETF (CFFI:MEM-REF BETA-REF8625 :DOUBLE) BETA)
    12754. 

  12754.     (COMMON-LISP:SETF (CFFI:MEM-REF GIVPTR-REF8628 :INT32) GIVPTR)
    12755. 

  12755.     (COMMON-LISP:SETF (CFFI:MEM-REF LDGCOL-REF8630 :INT32) LDGCOL)
    12756. 

  12756.     (COMMON-LISP:SETF (CFFI:MEM-REF LDGNUM-REF8632 :INT32) LDGNUM)
    12757. 

  12757.     (COMMON-LISP:SETF (CFFI:MEM-REF K-REF8637 :INT32) K)
    12758. 

  12758.     (COMMON-LISP:SETF (CFFI:MEM-REF C-REF8638 :DOUBLE) C)
    12759. 

  12759.     (COMMON-LISP:SETF (CFFI:MEM-REF S-REF8639 :DOUBLE) S)
    12760. 

  12760.     (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF8642 :INT32) INFO)
    12761. 

  12761.     (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF8621 D) (VF-REF8622 VF)
    12762. 

  12762.                                             (VL-REF8623 VL) (IDXQ-REF8626 IDXQ)
    12763. 

  12763.                                             (PERM-REF8627 PERM)
    12764. 

  12764.                                             (GIVCOL-REF8629 GIVCOL)
    12765. 

  12765.                                             (GIVNUM-REF8631 GIVNUM)
    12766. 

  12766.                                             (POLES-REF8633 POLES)
    12767. 

  12767.                                             (DIFL-REF8634 DIFL)
    12768. 

  12768.                                             (DIFR-REF8635 DIFR) (Z-REF8636 Z)
    12769. 

  12769.                                             (WORK-REF8640 WORK)
    12770. 

  12770.                                             (IWORK-REF8641 IWORK))
    12771. 

  12771.       (%%DLASD6 ICOMPQ-REF8617 NL-REF8618 NR-REF8619 SQRE-REF8620 D-REF8621
    12772. 

  12772.        VF-REF8622 VL-REF8623 ALPHA-REF8624 BETA-REF8625 IDXQ-REF8626
    12773. 

  12773.        PERM-REF8627 GIVPTR-REF8628 GIVCOL-REF8629 LDGCOL-REF8630 GIVNUM-REF8631
    12774. 

  12774.        LDGNUM-REF8632 POLES-REF8633 DIFL-REF8634 DIFR-REF8635 Z-REF8636
    12775. 

  12775.        K-REF8637 C-REF8638 S-REF8639 WORK-REF8640 IWORK-REF8641 INFO-REF8642))))
    12776. 

  12776. 

  12777. (CFFI:DEFCFUN ("dlasd7_" %%DLASD7 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    12778. 

  12778.     :VOID
    12779. 

  12779.   (ICOMPQ :POINTER)
    12780. 

  12780.   (NL :POINTER)
    12781. 

  12781.   (NR :POINTER)
    12782. 

  12782.   (SQRE :POINTER)
    12783. 

  12783.   (K :POINTER)
    12784. 

  12784.   (D :POINTER)
    12785. 

  12785.   (Z :POINTER)
    12786. 

  12786.   (ZW :POINTER)
    12787. 

  12787.   (VF :POINTER)
    12788. 

  12788.   (VFW :POINTER)
    12789. 

  12789.   (VL :POINTER)
    12790. 

  12790.   (VLW :POINTER)
    12791. 

  12791.   (ALPHA :POINTER)
    12792. 

  12792.   (BETA :POINTER)
    12793. 

  12793.   (DSIGMA :POINTER)
    12794. 

  12794.   (IDX :POINTER)
    12795. 

  12795.   (IDXP :POINTER)
    12796. 

  12796.   (IDXQ :POINTER)
    12797. 

  12797.   (PERM :POINTER)
    12798. 

  12798.   (GIVPTR :POINTER)
    12799. 

  12799.   (GIVCOL :POINTER)
    12800. 

  12800.   (LDGCOL :POINTER)
    12801. 

  12801.   (GIVNUM :POINTER)
    12802. 

  12802.   (LDGNUM :POINTER)
    12803. 

  12803.   (C :POINTER)
    12804. 

  12804.   (S :POINTER)
    12805. 

  12805.   (INFO :POINTER))
    12806. 

  12806. 

  12807. (COMMON-LISP:DEFUN %DLASD7
    12808. 

  12808.                    (ICOMPQ NL NR SQRE K D Z ZW VF VFW VL VLW ALPHA BETA DSIGMA
    12809. 

  12809.                     IDX IDXP IDXQ PERM GIVPTR GIVCOL LDGCOL GIVNUM LDGNUM C S
    12810. 

  12810.                     INFO)
    12811. 

  12811.   (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLASD7)
    12812. 

  12812.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ICOMPQ)
    12813. 

  12813.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NL)
    12814. 

  12814.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NR)
    12815. 

  12815.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) SQRE)
    12816. 

  12816.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
    12817. 

  12817.                        (COMMON-LISP:TYPE
    12818. 

  12818.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
    12819. 

  12819.                        (COMMON-LISP:TYPE
    12820. 

  12820.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Z)
    12821. 

  12821.                        (COMMON-LISP:TYPE
    12822. 

  12822.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) ZW)
    12823. 

  12823.                        (COMMON-LISP:TYPE
    12824. 

  12824.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) VF)
    12825. 

  12825.                        (COMMON-LISP:TYPE
    12826. 

  12826.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    12827. 

  12827.                         VFW)
    12828. 

  12828.                        (COMMON-LISP:TYPE
    12829. 

  12829.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) VL)
    12830. 

  12830.                        (COMMON-LISP:TYPE
    12831. 

  12831.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    12832. 

  12832.                         VLW)
    12833. 

  12833.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ALPHA)
    12834. 

  12834.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT BETA)
    12835. 

  12835.                        (COMMON-LISP:TYPE
    12836. 

  12836.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    12837. 

  12837.                         DSIGMA)
    12838. 

  12838.                        (COMMON-LISP:TYPE
    12839. 

  12839.                         (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
    12840. 

  12840.                          (COMMON-LISP:*))
    12841. 

  12841.                         IDX)
    12842. 

  12842.                        (COMMON-LISP:TYPE
    12843. 

  12843.                         (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
    12844. 

  12844.                          (COMMON-LISP:*))
    12845. 

  12845.                         IDXP)
    12846. 

  12846.                        (COMMON-LISP:TYPE
    12847. 

  12847.                         (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
    12848. 

  12848.                          (COMMON-LISP:*))
    12849. 

  12849.                         IDXQ)
    12850. 

  12850.                        (COMMON-LISP:TYPE
    12851. 

  12851.                         (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
    12852. 

  12852.                          (COMMON-LISP:*))
    12853. 

  12853.                         PERM)
    12854. 

  12854.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) GIVPTR)
    12855. 

  12855.                        (COMMON-LISP:TYPE
    12856. 

  12856.                         (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
    12857. 

  12857.                          (COMMON-LISP:*))
    12858. 

  12858.                         GIVCOL)
    12859. 

  12859.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDGCOL)
    12860. 

  12860.                        (COMMON-LISP:TYPE
    12861. 

  12861.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    12862. 

  12862.                         GIVNUM)
    12863. 

  12863.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDGNUM)
    12864. 

  12864.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT C)
    12865. 

  12865.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT S)
    12866. 

  12866.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
    12867. 

  12867.   (CFFI:WITH-FOREIGN-OBJECTS ((ICOMPQ-REF8643 ':INT32) (NL-REF8644 ':INT32)
    12868. 

  12868.                               (NR-REF8645 ':INT32) (SQRE-REF8646 ':INT32)
    12869. 

  12869.                               (K-REF8647 ':INT32) (ALPHA-REF8655 ':DOUBLE)
    12870. 

  12870.                               (BETA-REF8656 ':DOUBLE) (GIVPTR-REF8662 ':INT32)
    12871. 

  12871.                               (LDGCOL-REF8664 ':INT32) (LDGNUM-REF8666 ':INT32)
    12872. 

  12872.                               (C-REF8667 ':DOUBLE) (S-REF8668 ':DOUBLE)
    12873. 

  12873.                               (INFO-REF8669 ':INT32))
    12874. 

  12874.     (COMMON-LISP:SETF (CFFI:MEM-REF ICOMPQ-REF8643 :INT32) ICOMPQ)
    12875. 

  12875.     (COMMON-LISP:SETF (CFFI:MEM-REF NL-REF8644 :INT32) NL)
    12876. 

  12876.     (COMMON-LISP:SETF (CFFI:MEM-REF NR-REF8645 :INT32) NR)
    12877. 

  12877.     (COMMON-LISP:SETF (CFFI:MEM-REF SQRE-REF8646 :INT32) SQRE)
    12878. 

  12878.     (COMMON-LISP:SETF (CFFI:MEM-REF K-REF8647 :INT32) K)
    12879. 

  12879.     (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF8655 :DOUBLE) ALPHA)
    12880. 

  12880.     (COMMON-LISP:SETF (CFFI:MEM-REF BETA-REF8656 :DOUBLE) BETA)
    12881. 

  12881.     (COMMON-LISP:SETF (CFFI:MEM-REF GIVPTR-REF8662 :INT32) GIVPTR)
    12882. 

  12882.     (COMMON-LISP:SETF (CFFI:MEM-REF LDGCOL-REF8664 :INT32) LDGCOL)
    12883. 

  12883.     (COMMON-LISP:SETF (CFFI:MEM-REF LDGNUM-REF8666 :INT32) LDGNUM)
    12884. 

  12884.     (COMMON-LISP:SETF (CFFI:MEM-REF C-REF8667 :DOUBLE) C)
    12885. 

  12885.     (COMMON-LISP:SETF (CFFI:MEM-REF S-REF8668 :DOUBLE) S)
    12886. 

  12886.     (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF8669 :INT32) INFO)
    12887. 

  12887.     (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF8648 D) (Z-REF8649 Z)
    12888. 

  12888.                                             (ZW-REF8650 ZW) (VF-REF8651 VF)
    12889. 

  12889.                                             (VFW-REF8652 VFW) (VL-REF8653 VL)
    12890. 

  12890.                                             (VLW-REF8654 VLW)
    12891. 

  12891.                                             (DSIGMA-REF8657 DSIGMA)
    12892. 

  12892.                                             (IDX-REF8658 IDX)
    12893. 

  12893.                                             (IDXP-REF8659 IDXP)
    12894. 

  12894.                                             (IDXQ-REF8660 IDXQ)
    12895. 

  12895.                                             (PERM-REF8661 PERM)
    12896. 

  12896.                                             (GIVCOL-REF8663 GIVCOL)
    12897. 

  12897.                                             (GIVNUM-REF8665 GIVNUM))
    12898. 

  12898.       (%%DLASD7 ICOMPQ-REF8643 NL-REF8644 NR-REF8645 SQRE-REF8646 K-REF8647
    12899. 

  12899.        D-REF8648 Z-REF8649 ZW-REF8650 VF-REF8651 VFW-REF8652 VL-REF8653
    12900. 

  12900.        VLW-REF8654 ALPHA-REF8655 BETA-REF8656 DSIGMA-REF8657 IDX-REF8658
    12901. 

  12901.        IDXP-REF8659 IDXQ-REF8660 PERM-REF8661 GIVPTR-REF8662 GIVCOL-REF8663
    12902. 

  12902.        LDGCOL-REF8664 GIVNUM-REF8665 LDGNUM-REF8666 C-REF8667 S-REF8668
    12903. 

  12903.        INFO-REF8669))))
    12904. 

  12904. 

  12905. (CFFI:DEFCFUN ("dlasd8_" %%DLASD8 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    12906. 

  12906.     :VOID
    12907. 

  12907.   (ICOMPQ :POINTER)
    12908. 

  12908.   (K :POINTER)
    12909. 

  12909.   (D :POINTER)
    12910. 

  12910.   (Z :POINTER)
    12911. 

  12911.   (VF :POINTER)
    12912. 

  12912.   (VL :POINTER)
    12913. 

  12913.   (DIFL :POINTER)
    12914. 

  12914.   (DIFR :POINTER)
    12915. 

  12915.   (LDDIFR :POINTER)
    12916. 

  12916.   (DSIGMA :POINTER)
    12917. 

  12917.   (WORK :POINTER)
    12918. 

  12918.   (INFO :POINTER))
    12919. 

  12919. 

  12920. (COMMON-LISP:DEFUN %DLASD8
    12921. 

  12921.                    (ICOMPQ K D Z VF VL DIFL DIFR LDDIFR DSIGMA WORK INFO)
    12922. 

  12922.   (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLASD8)
    12923. 

  12923.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ICOMPQ)
    12924. 

  12924.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
    12925. 

  12925.                        (COMMON-LISP:TYPE
    12926. 

  12926.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
    12927. 

  12927.                        (COMMON-LISP:TYPE
    12928. 

  12928.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Z)
    12929. 

  12929.                        (COMMON-LISP:TYPE
    12930. 

  12930.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) VF)
    12931. 

  12931.                        (COMMON-LISP:TYPE
    12932. 

  12932.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) VL)
    12933. 

  12933.                        (COMMON-LISP:TYPE
    12934. 

  12934.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    12935. 

  12935.                         DIFL)
    12936. 

  12936.                        (COMMON-LISP:TYPE
    12937. 

  12937.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    12938. 

  12938.                         DIFR)
    12939. 

  12939.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDDIFR)
    12940. 

  12940.                        (COMMON-LISP:TYPE
    12941. 

  12941.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    12942. 

  12942.                         DSIGMA)
    12943. 

  12943.                        (COMMON-LISP:TYPE
    12944. 

  12944.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    12945. 

  12945.                         WORK)
    12946. 

  12946.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
    12947. 

  12947.   (CFFI:WITH-FOREIGN-OBJECTS ((ICOMPQ-REF8670 ':INT32) (K-REF8671 ':INT32)
    12948. 

  12948.                               (LDDIFR-REF8678 ':INT32) (INFO-REF8681 ':INT32))
    12949. 

  12949.     (COMMON-LISP:SETF (CFFI:MEM-REF ICOMPQ-REF8670 :INT32) ICOMPQ)
    12950. 

  12950.     (COMMON-LISP:SETF (CFFI:MEM-REF K-REF8671 :INT32) K)
    12951. 

  12951.     (COMMON-LISP:SETF (CFFI:MEM-REF LDDIFR-REF8678 :INT32) LDDIFR)
    12952. 

  12952.     (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF8681 :INT32) INFO)
    12953. 

  12953.     (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF8672 D) (Z-REF8673 Z)
    12954. 

  12954.                                             (VF-REF8674 VF) (VL-REF8675 VL)
    12955. 

  12955.                                             (DIFL-REF8676 DIFL)
    12956. 

  12956.                                             (DIFR-REF8677 DIFR)
    12957. 

  12957.                                             (DSIGMA-REF8679 DSIGMA)
    12958. 

  12958.                                             (WORK-REF8680 WORK))
    12959. 

  12959.       (%%DLASD8 ICOMPQ-REF8670 K-REF8671 D-REF8672 Z-REF8673 VF-REF8674
    12960. 

  12960.        VL-REF8675 DIFL-REF8676 DIFR-REF8677 LDDIFR-REF8678 DSIGMA-REF8679
    12961. 

  12961.        WORK-REF8680 INFO-REF8681))))
    12962. 

  12962. 

  12963. (CFFI:DEFCFUN ("dlasda_" %%DLASDA :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    12964. 

  12964.     :VOID
    12965. 

  12965.   (ICOMPQ :POINTER)
    12966. 

  12966.   (SMLSIZ :POINTER)
    12967. 

  12967.   (N :POINTER)
    12968. 

  12968.   (SQRE :POINTER)
    12969. 

  12969.   (D :POINTER)
    12970. 

  12970.   (E :POINTER)
    12971. 

  12971.   (U :POINTER)
    12972. 

  12972.   (LDU :POINTER)
    12973. 

  12973.   (VT :POINTER)
    12974. 

  12974.   (K :POINTER)
    12975. 

  12975.   (DIFL :POINTER)
    12976. 

  12976.   (DIFR :POINTER)
    12977. 

  12977.   (Z :POINTER)
    12978. 

  12978.   (POLES :POINTER)
    12979. 

  12979.   (GIVPTR :POINTER)
    12980. 

  12980.   (GIVCOL :POINTER)
    12981. 

  12981.   (LDGCOL :POINTER)
    12982. 

  12982.   (PERM :POINTER)
    12983. 

  12983.   (GIVNUM :POINTER)
    12984. 

  12984.   (C :POINTER)
    12985. 

  12985.   (S :POINTER)
    12986. 

  12986.   (WORK :POINTER)
    12987. 

  12987.   (IWORK :POINTER)
    12988. 

  12988.   (INFO :POINTER))
    12989. 

  12989. 

  12990. (COMMON-LISP:DEFUN %DLASDA
    12991. 

  12991.                    (ICOMPQ SMLSIZ N SQRE D E U LDU VT K DIFL DIFR Z POLES
    12992. 

  12992.                     GIVPTR GIVCOL LDGCOL PERM GIVNUM C S WORK IWORK INFO)
    12993. 

  12993.   (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLASDA)
    12994. 

  12994.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ICOMPQ)
    12995. 

  12995.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) SMLSIZ)
    12996. 

  12996.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
    12997. 

  12997.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) SQRE)
    12998. 

  12998.                        (COMMON-LISP:TYPE
    12999. 

  12999.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
    13000. 

  13000.                        (COMMON-LISP:TYPE
    13001. 

  13001.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) E)
    13002. 

  13002.                        (COMMON-LISP:TYPE
    13003. 

  13003.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) U)
    13004. 

  13004.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDU)
    13005. 

  13005.                        (COMMON-LISP:TYPE
    13006. 

  13006.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) VT)
    13007. 

  13007.                        (COMMON-LISP:TYPE
    13008. 

  13008.                         (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
    13009. 

  13009.                          (COMMON-LISP:*))
    13010. 

  13010.                         K)
    13011. 

  13011.                        (COMMON-LISP:TYPE
    13012. 

  13012.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    13013. 

  13013.                         DIFL)
    13014. 

  13014.                        (COMMON-LISP:TYPE
    13015. 

  13015.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    13016. 

  13016.                         DIFR)
    13017. 

  13017.                        (COMMON-LISP:TYPE
    13018. 

  13018.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Z)
    13019. 

  13019.                        (COMMON-LISP:TYPE
    13020. 

  13020.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    13021. 

  13021.                         POLES)
    13022. 

  13022.                        (COMMON-LISP:TYPE
    13023. 

  13023.                         (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
    13024. 

  13024.                          (COMMON-LISP:*))
    13025. 

  13025.                         GIVPTR)
    13026. 

  13026.                        (COMMON-LISP:TYPE
    13027. 

  13027.                         (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
    13028. 

  13028.                          (COMMON-LISP:*))
    13029. 

  13029.                         GIVCOL)
    13030. 

  13030.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDGCOL)
    13031. 

  13031.                        (COMMON-LISP:TYPE
    13032. 

  13032.                         (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
    13033. 

  13033.                          (COMMON-LISP:*))
    13034. 

  13034.                         PERM)
    13035. 

  13035.                        (COMMON-LISP:TYPE
    13036. 

  13036.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    13037. 

  13037.                         GIVNUM)
    13038. 

  13038.                        (COMMON-LISP:TYPE
    13039. 

  13039.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
    13040. 

  13040.                        (COMMON-LISP:TYPE
    13041. 

  13041.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) S)
    13042. 

  13042.                        (COMMON-LISP:TYPE
    13043. 

  13043.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    13044. 

  13044.                         WORK)
    13045. 

  13045.                        (COMMON-LISP:TYPE
    13046. 

  13046.                         (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
    13047. 

  13047.                          (COMMON-LISP:*))
    13048. 

  13048.                         IWORK)
    13049. 

  13049.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
    13050. 

  13050.   (CFFI:WITH-FOREIGN-OBJECTS ((ICOMPQ-REF8682 ':INT32) (SMLSIZ-REF8683 ':INT32)
    13051. 

  13051.                               (N-REF8684 ':INT32) (SQRE-REF8685 ':INT32)
    13052. 

  13052.                               (LDU-REF8689 ':INT32) (LDGCOL-REF8698 ':INT32)
    13053. 

  13053.                               (INFO-REF8705 ':INT32))
    13054. 

  13054.     (COMMON-LISP:SETF (CFFI:MEM-REF ICOMPQ-REF8682 :INT32) ICOMPQ)
    13055. 

  13055.     (COMMON-LISP:SETF (CFFI:MEM-REF SMLSIZ-REF8683 :INT32) SMLSIZ)
    13056. 

  13056.     (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8684 :INT32) N)
    13057. 

  13057.     (COMMON-LISP:SETF (CFFI:MEM-REF SQRE-REF8685 :INT32) SQRE)
    13058. 

  13058.     (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF8689 :INT32) LDU)
    13059. 

  13059.     (COMMON-LISP:SETF (CFFI:MEM-REF LDGCOL-REF8698 :INT32) LDGCOL)
    13060. 

  13060.     (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF8705 :INT32) INFO)
    13061. 

  13061.     (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF8686 D) (E-REF8687 E)
    13062. 

  13062.                                             (U-REF8688 U) (VT-REF8690 VT)
    13063. 

  13063.                                             (K-REF8691 K) (DIFL-REF8692 DIFL)
    13064. 

  13064.                                             (DIFR-REF8693 DIFR) (Z-REF8694 Z)
    13065. 

  13065.                                             (POLES-REF8695 POLES)
    13066. 

  13066.                                             (GIVPTR-REF8696 GIVPTR)
    13067. 

  13067.                                             (GIVCOL-REF8697 GIVCOL)
    13068. 

  13068.                                             (PERM-REF8699 PERM)
    13069. 

  13069.                                             (GIVNUM-REF8700 GIVNUM)
    13070. 

  13070.                                             (C-REF8701 C) (S-REF8702 S)
    13071. 

  13071.                                             (WORK-REF8703 WORK)
    13072. 

  13072.                                             (IWORK-REF8704 IWORK))
    13073. 

  13073.       (%%DLASDA ICOMPQ-REF8682 SMLSIZ-REF8683 N-REF8684 SQRE-REF8685 D-REF8686
    13074. 

  13074.        E-REF8687 U-REF8688 LDU-REF8689 VT-REF8690 K-REF8691 DIFL-REF8692
    13075. 

  13075.        DIFR-REF8693 Z-REF8694 POLES-REF8695 GIVPTR-REF8696 GIVCOL-REF8697
    13076. 

  13076.        LDGCOL-REF8698 PERM-REF8699 GIVNUM-REF8700 C-REF8701 S-REF8702
    13077. 

  13077.        WORK-REF8703 IWORK-REF8704 INFO-REF8705))))
    13078. 

  13078. 

  13079. (CFFI:DEFCFUN ("dlasdq_" %%DLASDQ :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    13080. 

  13080.     :VOID
    13081. 

  13081.   (UPLO :STRING)
    13082. 

  13082.   (SQRE :POINTER)
    13083. 

  13083.   (N :POINTER)
    13084. 

  13084.   (NCVT :POINTER)
    13085. 

  13085.   (NRU :POINTER)
    13086. 

  13086.   (NCC :POINTER)
    13087. 

  13087.   (D :POINTER)
    13088. 

  13088.   (E :POINTER)
    13089. 

  13089.   (VT :POINTER)
    13090. 

  13090.   (LDVT :POINTER)
    13091. 

  13091.   (U :POINTER)
    13092. 

  13092.   (LDU :POINTER)
    13093. 

  13093.   (C :POINTER)
    13094. 

  13094.   (LDC :POINTER)
    13095. 

  13095.   (WORK :POINTER)
    13096. 

  13096.   (INFO :POINTER))
    13097. 

  13097. 

  13098. (COMMON-LISP:DEFUN %DLASDQ
    13099. 

  13099.                    (UPLO SQRE N NCVT NRU NCC D E VT LDVT U LDU C LDC WORK INFO)
    13100. 

  13100.   (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLASDQ)
    13101. 

  13101.                        (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
    13102. 

  13102.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) SQRE)
    13103. 

  13103.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
    13104. 

  13104.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NCVT)
    13105. 

  13105.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRU)
    13106. 

  13106.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NCC)
    13107. 

  13107.                        (COMMON-LISP:TYPE
    13108. 

  13108.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
    13109. 

  13109.                        (COMMON-LISP:TYPE
    13110. 

  13110.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) E)
    13111. 

  13111.                        (COMMON-LISP:TYPE
    13112. 

  13112.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) VT)
    13113. 

  13113.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVT)
    13114. 

  13114.                        (COMMON-LISP:TYPE
    13115. 

  13115.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) U)
    13116. 

  13116.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDU)
    13117. 

  13117.                        (COMMON-LISP:TYPE
    13118. 

  13118.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
    13119. 

  13119.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
    13120. 

  13120.                        (COMMON-LISP:TYPE
    13121. 

  13121.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    13122. 

  13122.                         WORK)
    13123. 

  13123.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
    13124. 

  13124.   (CFFI:WITH-FOREIGN-OBJECTS ((SQRE-REF8707 ':INT32) (N-REF8708 ':INT32)
    13125. 

  13125.                               (NCVT-REF8709 ':INT32) (NRU-REF8710 ':INT32)
    13126. 

  13126.                               (NCC-REF8711 ':INT32) (LDVT-REF8715 ':INT32)
    13127. 

  13127.                               (LDU-REF8717 ':INT32) (LDC-REF8719 ':INT32)
    13128. 

  13128.                               (INFO-REF8721 ':INT32))
    13129. 

  13129.     (COMMON-LISP:SETF (CFFI:MEM-REF SQRE-REF8707 :INT32) SQRE)
    13130. 

  13130.     (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8708 :INT32) N)
    13131. 

  13131.     (COMMON-LISP:SETF (CFFI:MEM-REF NCVT-REF8709 :INT32) NCVT)
    13132. 

  13132.     (COMMON-LISP:SETF (CFFI:MEM-REF NRU-REF8710 :INT32) NRU)
    13133. 

  13133.     (COMMON-LISP:SETF (CFFI:MEM-REF NCC-REF8711 :INT32) NCC)
    13134. 

  13134.     (COMMON-LISP:SETF (CFFI:MEM-REF LDVT-REF8715 :INT32) LDVT)
    13135. 

  13135.     (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF8717 :INT32) LDU)
    13136. 

  13136.     (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF8719 :INT32) LDC)
    13137. 

  13137.     (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF8721 :INT32) INFO)
    13138. 

  13138.     (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF8712 D) (E-REF8713 E)
    13139. 

  13139.                                             (VT-REF8714 VT) (U-REF8716 U)
    13140. 

  13140.                                             (C-REF8718 C) (WORK-REF8720 WORK))
    13141. 

  13141.       (%%DLASDQ UPLO SQRE-REF8707 N-REF8708 NCVT-REF8709 NRU-REF8710
    13142. 

  13142.        NCC-REF8711 D-REF8712 E-REF8713 VT-REF8714 LDVT-REF8715 U-REF8716
    13143. 

  13143.        LDU-REF8717 C-REF8718 LDC-REF8719 WORK-REF8720 INFO-REF8721))))
    13144. 

  13144. 

  13145. (CFFI:DEFCFUN ("dlasdt_" %%DLASDT :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    13146. 

  13146.     :VOID
    13147. 

  13147.   (N :POINTER)
    13148. 

  13148.   (LVL :POINTER)
    13149. 

  13149.   (ND :POINTER)
    13150. 

  13150.   (INODE :POINTER)
    13151. 

  13151.   (NDIML :POINTER)
    13152. 

  13152.   (NDIMR :POINTER)
    13153. 

  13153.   (MSUB :POINTER))
    13154. 

  13154. 

  13155. (COMMON-LISP:DEFUN %DLASDT (N LVL ND INODE NDIML NDIMR MSUB)
    13156. 

  13156.   (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLASDT)
    13157. 

  13157.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
    13158. 

  13158.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LVL)
    13159. 

  13159.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ND)
    13160. 

  13160.                        (COMMON-LISP:TYPE
    13161. 

  13161.                         (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
    13162. 

  13162.                          (COMMON-LISP:*))
    13163. 

  13163.                         INODE)
    13164. 

  13164.                        (COMMON-LISP:TYPE
    13165. 

  13165.                         (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
    13166. 

  13166.                          (COMMON-LISP:*))
    13167. 

  13167.                         NDIML)
    13168. 

  13168.                        (COMMON-LISP:TYPE
    13169. 

  13169.                         (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
    13170. 

  13170.                          (COMMON-LISP:*))
    13171. 

  13171.                         NDIMR)
    13172. 

  13172.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) MSUB))
    13173. 

  13173.   (CFFI:WITH-FOREIGN-OBJECTS ((N-REF8722 ':INT32) (LVL-REF8723 ':INT32)
    13174. 

  13174.                               (ND-REF8724 ':INT32) (MSUB-REF8728 ':INT32))
    13175. 

  13175.     (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8722 :INT32) N)
    13176. 

  13176.     (COMMON-LISP:SETF (CFFI:MEM-REF LVL-REF8723 :INT32) LVL)
    13177. 

  13177.     (COMMON-LISP:SETF (CFFI:MEM-REF ND-REF8724 :INT32) ND)
    13178. 

  13178.     (COMMON-LISP:SETF (CFFI:MEM-REF MSUB-REF8728 :INT32) MSUB)
    13179. 

  13179.     (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((INODE-REF8725 INODE)
    13180. 

  13180.                                             (NDIML-REF8726 NDIML)
    13181. 

  13181.                                             (NDIMR-REF8727 NDIMR))
    13182. 

  13182.       (%%DLASDT N-REF8722 LVL-REF8723 ND-REF8724 INODE-REF8725 NDIML-REF8726
    13183. 

  13183.        NDIMR-REF8727 MSUB-REF8728))))
    13184. 

  13184. 

  13185. (CFFI:DEFCFUN ("dlaset_" %%DLASET :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    13186. 

  13186.     :VOID
    13187. 

  13187.   (UPLO :STRING)
    13188. 

  13188.   (M :POINTER)
    13189. 

  13189.   (N :POINTER)
    13190. 

  13190.   (ALPHA :POINTER)
    13191. 

  13191.   (BETA :POINTER)
    13192. 

  13192.   (A :POINTER)
    13193. 

  13193.   (LDA :POINTER))
    13194. 

  13194. 

  13195. (COMMON-LISP:DEFUN %DLASET (UPLO M N ALPHA BETA A LDA)
    13196. 

  13196.   (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLASET)
    13197. 

  13197.                        (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
    13198. 

  13198.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
    13199. 

  13199.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
    13200. 

  13200.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ALPHA)
    13201. 

  13201.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT BETA)
    13202. 

  13202.                        (COMMON-LISP:TYPE
    13203. 

  13203.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
    13204. 

  13204.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA))
    13205. 

  13205.   (CFFI:WITH-FOREIGN-OBJECTS ((M-REF8730 ':INT32) (N-REF8731 ':INT32)
    13206. 

  13206.                               (ALPHA-REF8732 ':DOUBLE) (BETA-REF8733 ':DOUBLE)
    13207. 

  13207.                               (LDA-REF8735 ':INT32))
    13208. 

  13208.     (COMMON-LISP:SETF (CFFI:MEM-REF M-REF8730 :INT32) M)
    13209. 

  13209.     (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8731 :INT32) N)
    13210. 

  13210.     (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF8732 :DOUBLE) ALPHA)
    13211. 

  13211.     (COMMON-LISP:SETF (CFFI:MEM-REF BETA-REF8733 :DOUBLE) BETA)
    13212. 

  13212.     (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF8735 :INT32) LDA)
    13213. 

  13213.     (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF8734 A))
    13214. 

  13214.       (%%DLASET UPLO M-REF8730 N-REF8731 ALPHA-REF8732 BETA-REF8733 A-REF8734
    13215. 

  13215.        LDA-REF8735))))
    13216. 

  13216. 

  13217. (CFFI:DEFCFUN ("dlasq1_" %%DLASQ1 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    13218. 

  13218.     :VOID
    13219. 

  13219.   (N :POINTER)
    13220. 

  13220.   (D :POINTER)
    13221. 

  13221.   (E :POINTER)
    13222. 

  13222.   (WORK :POINTER)
    13223. 

  13223.   (INFO :POINTER))
    13224. 

  13224. 

  13225. (COMMON-LISP:DEFUN %DLASQ1 (N D E WORK INFO)
    13226. 

  13226.   (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLASQ1)
    13227. 

  13227.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
    13228. 

  13228.                        (COMMON-LISP:TYPE
    13229. 

  13229.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
    13230. 

  13230.                        (COMMON-LISP:TYPE
    13231. 

  13231.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) E)
    13232. 

  13232.                        (COMMON-LISP:TYPE
    13233. 

  13233.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    13234. 

  13234.                         WORK)
    13235. 

  13235.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
    13236. 

  13236.   (CFFI:WITH-FOREIGN-OBJECTS ((N-REF8736 ':INT32) (INFO-REF8740 ':INT32))
    13237. 

  13237.     (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8736 :INT32) N)
    13238. 

  13238.     (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF8740 :INT32) INFO)
    13239. 

  13239.     (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF8737 D) (E-REF8738 E)
    13240. 

  13240.                                             (WORK-REF8739 WORK))
    13241. 

  13241.       (%%DLASQ1 N-REF8736 D-REF8737 E-REF8738 WORK-REF8739 INFO-REF8740))))
    13242. 

  13242. 

  13243. (CFFI:DEFCFUN ("dlasq2_" %%DLASQ2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    13244. 

  13244.     :VOID
    13245. 

  13245.   (N :POINTER)
    13246. 

  13246.   (Z :POINTER)
    13247. 

  13247.   (INFO :POINTER))
    13248. 

  13248. 

  13249. (COMMON-LISP:DEFUN %DLASQ2 (N Z INFO)
    13250. 

  13250.   (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLASQ2)
    13251. 

  13251.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
    13252. 

  13252.                        (COMMON-LISP:TYPE
    13253. 

  13253.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Z)
    13254. 

  13254.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
    13255. 

  13255.   (CFFI:WITH-FOREIGN-OBJECTS ((N-REF8741 ':INT32) (INFO-REF8743 ':INT32))
    13256. 

  13256.     (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8741 :INT32) N)
    13257. 

  13257.     (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF8743 :INT32) INFO)
    13258. 

  13258.     (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((Z-REF8742 Z))
    13259. 

  13259.       (%%DLASQ2 N-REF8741 Z-REF8742 INFO-REF8743))))
    13260. 

  13260. 

  13261. (CFFI:DEFCFUN ("dlasq3_" %%DLASQ3 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    13262. 

  13262.     :VOID
    13263. 

  13263.   (I0 :POINTER)
    13264. 

  13264.   (N0 :POINTER)
    13265. 

  13265.   (Z :POINTER)
    13266. 

  13266.   (PP :POINTER)
    13267. 

  13267.   (DMIN :POINTER)
    13268. 

  13268.   (SIGMA :POINTER)
    13269. 

  13269.   (DESIG :POINTER)
    13270. 

  13270.   (QMAX :POINTER)
    13271. 

  13271.   (NFAIL :POINTER)
    13272. 

  13272.   (ITER :POINTER)
    13273. 

  13273.   (NDIV :POINTER)
    13274. 

  13274.   (IEEE :POINTER)
    13275. 

  13275.   (TTYPE :POINTER)
    13276. 

  13276.   (DMIN1 :POINTER)
    13277. 

  13277.   (DMIN2 :POINTER)
    13278. 

  13278.   (DN :POINTER)
    13279. 

  13279.   (DN1 :POINTER)
    13280. 

  13280.   (DN2 :POINTER)
    13281. 

  13281.   (G :POINTER)
    13282. 

  13282.   (TAU :POINTER))
    13283. 

  13283. 

  13284. (COMMON-LISP:DEFUN %DLASQ3
    13285. 

  13285.                    (I0 N0 Z PP DMIN SIGMA DESIG QMAX NFAIL ITER NDIV IEEE TTYPE
    13286. 

  13286.                     DMIN1 DMIN2 DN DN1 DN2 G TAU)
    13287. 

  13287.   (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLASQ3)
    13288. 

  13288.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) I0)
    13289. 

  13289.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N0)
    13290. 

  13290.                        (COMMON-LISP:TYPE
    13291. 

  13291.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Z)
    13292. 

  13292.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) PP)
    13293. 

  13293.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT DMIN)
    13294. 

  13294.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SIGMA)
    13295. 

  13295.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT DESIG)
    13296. 

  13296.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT QMAX)
    13297. 

  13297.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NFAIL)
    13298. 

  13298.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ITER)
    13299. 

  13299.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NDIV)
    13300. 

  13300.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IEEE)
    13301. 

  13301.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) TTYPE)
    13302. 

  13302.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT DMIN1)
    13303. 

  13303.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT DMIN2)
    13304. 

  13304.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT DN)
    13305. 

  13305.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT DN1)
    13306. 

  13306.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT DN2)
    13307. 

  13307.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT G)
    13308. 

  13308.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT TAU))
    13309. 

  13309.   (CFFI:WITH-FOREIGN-OBJECTS ((I0-REF8744 ':INT32) (N0-REF8745 ':INT32)
    13310. 

  13310.                               (PP-REF8747 ':INT32) (DMIN-REF8748 ':DOUBLE)
    13311. 

  13311.                               (SIGMA-REF8749 ':DOUBLE) (DESIG-REF8750 ':DOUBLE)
    13312. 

  13312.                               (QMAX-REF8751 ':DOUBLE) (NFAIL-REF8752 ':INT32)
    13313. 

  13313.                               (ITER-REF8753 ':INT32) (NDIV-REF8754 ':INT32)
    13314. 

  13314.                               (IEEE-REF8755 ':INT32) (TTYPE-REF8756 ':INT32)
    13315. 

  13315.                               (DMIN1-REF8757 ':DOUBLE) (DMIN2-REF8758 ':DOUBLE)
    13316. 

  13316.                               (DN-REF8759 ':DOUBLE) (DN1-REF8760 ':DOUBLE)
    13317. 

  13317.                               (DN2-REF8761 ':DOUBLE) (G-REF8762 ':DOUBLE)
    13318. 

  13318.                               (TAU-REF8763 ':DOUBLE))
    13319. 

  13319.     (COMMON-LISP:SETF (CFFI:MEM-REF I0-REF8744 :INT32) I0)
    13320. 

  13320.     (COMMON-LISP:SETF (CFFI:MEM-REF N0-REF8745 :INT32) N0)
    13321. 

  13321.     (COMMON-LISP:SETF (CFFI:MEM-REF PP-REF8747 :INT32) PP)
    13322. 

  13322.     (COMMON-LISP:SETF (CFFI:MEM-REF DMIN-REF8748 :DOUBLE) DMIN)
    13323. 

  13323.     (COMMON-LISP:SETF (CFFI:MEM-REF SIGMA-REF8749 :DOUBLE) SIGMA)
    13324. 

  13324.     (COMMON-LISP:SETF (CFFI:MEM-REF DESIG-REF8750 :DOUBLE) DESIG)
    13325. 

  13325.     (COMMON-LISP:SETF (CFFI:MEM-REF QMAX-REF8751 :DOUBLE) QMAX)
    13326. 

  13326.     (COMMON-LISP:SETF (CFFI:MEM-REF NFAIL-REF8752 :INT32) NFAIL)
    13327. 

  13327.     (COMMON-LISP:SETF (CFFI:MEM-REF ITER-REF8753 :INT32) ITER)
    13328. 

  13328.     (COMMON-LISP:SETF (CFFI:MEM-REF NDIV-REF8754 :INT32) NDIV)
    13329. 

  13329.     (COMMON-LISP:SETF (CFFI:MEM-REF IEEE-REF8755 :INT32) IEEE)
    13330. 

  13330.     (COMMON-LISP:SETF (CFFI:MEM-REF TTYPE-REF8756 :INT32) TTYPE)
    13331. 

  13331.     (COMMON-LISP:SETF (CFFI:MEM-REF DMIN1-REF8757 :DOUBLE) DMIN1)
    13332. 

  13332.     (COMMON-LISP:SETF (CFFI:MEM-REF DMIN2-REF8758 :DOUBLE) DMIN2)
    13333. 

  13333.     (COMMON-LISP:SETF (CFFI:MEM-REF DN-REF8759 :DOUBLE) DN)
    13334. 

  13334.     (COMMON-LISP:SETF (CFFI:MEM-REF DN1-REF8760 :DOUBLE) DN1)
    13335. 

  13335.     (COMMON-LISP:SETF (CFFI:MEM-REF DN2-REF8761 :DOUBLE) DN2)
    13336. 

  13336.     (COMMON-LISP:SETF (CFFI:MEM-REF G-REF8762 :DOUBLE) G)
    13337. 

  13337.     (COMMON-LISP:SETF (CFFI:MEM-REF TAU-REF8763 :DOUBLE) TAU)
    13338. 

  13338.     (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((Z-REF8746 Z))
    13339. 

  13339.       (%%DLASQ3 I0-REF8744 N0-REF8745 Z-REF8746 PP-REF8747 DMIN-REF8748
    13340. 

  13340.        SIGMA-REF8749 DESIG-REF8750 QMAX-REF8751 NFAIL-REF8752 ITER-REF8753
    13341. 

  13341.        NDIV-REF8754 IEEE-REF8755 TTYPE-REF8756 DMIN1-REF8757 DMIN2-REF8758
    13342. 

  13342.        DN-REF8759 DN1-REF8760 DN2-REF8761 G-REF8762 TAU-REF8763))))
    13343. 

  13343. 

  13344. (CFFI:DEFCFUN ("dlasq4_" %%DLASQ4 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    13345. 

  13345.     :VOID
    13346. 

  13346.   (I0 :POINTER)
    13347. 

  13347.   (N0 :POINTER)
    13348. 

  13348.   (Z :POINTER)
    13349. 

  13349.   (PP :POINTER)
    13350. 

  13350.   (N0IN :POINTER)
    13351. 

  13351.   (DMIN :POINTER)
    13352. 

  13352.   (DMIN1 :POINTER)
    13353. 

  13353.   (DMIN2 :POINTER)
    13354. 

  13354.   (DN :POINTER)
    13355. 

  13355.   (DN1 :POINTER)
    13356. 

  13356.   (DN2 :POINTER)
    13357. 

  13357.   (TAU :POINTER)
    13358. 

  13358.   (TTYPE :POINTER)
    13359. 

  13359.   (G :POINTER))
    13360. 

  13360. 

  13361. (COMMON-LISP:DEFUN %DLASQ4
    13362. 

  13362.                    (I0 N0 Z PP N0IN DMIN DMIN1 DMIN2 DN DN1 DN2 TAU TTYPE G)
    13363. 

  13363.   (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLASQ4)
    13364. 

  13364.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) I0)
    13365. 

  13365.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N0)
    13366. 

  13366.                        (COMMON-LISP:TYPE
    13367. 

  13367.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Z)
    13368. 

  13368.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) PP)
    13369. 

  13369.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N0IN)
    13370. 

  13370.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT DMIN)
    13371. 

  13371.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT DMIN1)
    13372. 

  13372.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT DMIN2)
    13373. 

  13373.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT DN)
    13374. 

  13374.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT DN1)
    13375. 

  13375.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT DN2)
    13376. 

  13376.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT TAU)
    13377. 

  13377.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) TTYPE)
    13378. 

  13378.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT G))
    13379. 

  13379.   (CFFI:WITH-FOREIGN-OBJECTS ((I0-REF8764 ':INT32) (N0-REF8765 ':INT32)
    13380. 

  13380.                               (PP-REF8767 ':INT32) (N0IN-REF8768 ':INT32)
    13381. 

  13381.                               (DMIN-REF8769 ':DOUBLE) (DMIN1-REF8770 ':DOUBLE)
    13382. 

  13382.                               (DMIN2-REF8771 ':DOUBLE) (DN-REF8772 ':DOUBLE)
    13383. 

  13383.                               (DN1-REF8773 ':DOUBLE) (DN2-REF8774 ':DOUBLE)
    13384. 

  13384.                               (TAU-REF8775 ':DOUBLE) (TTYPE-REF8776 ':INT32)
    13385. 

  13385.                               (G-REF8777 ':DOUBLE))
    13386. 

  13386.     (COMMON-LISP:SETF (CFFI:MEM-REF I0-REF8764 :INT32) I0)
    13387. 

  13387.     (COMMON-LISP:SETF (CFFI:MEM-REF N0-REF8765 :INT32) N0)
    13388. 

  13388.     (COMMON-LISP:SETF (CFFI:MEM-REF PP-REF8767 :INT32) PP)
    13389. 

  13389.     (COMMON-LISP:SETF (CFFI:MEM-REF N0IN-REF8768 :INT32) N0IN)
    13390. 

  13390.     (COMMON-LISP:SETF (CFFI:MEM-REF DMIN-REF8769 :DOUBLE) DMIN)
    13391. 

  13391.     (COMMON-LISP:SETF (CFFI:MEM-REF DMIN1-REF8770 :DOUBLE) DMIN1)
    13392. 

  13392.     (COMMON-LISP:SETF (CFFI:MEM-REF DMIN2-REF8771 :DOUBLE) DMIN2)
    13393. 

  13393.     (COMMON-LISP:SETF (CFFI:MEM-REF DN-REF8772 :DOUBLE) DN)
    13394. 

  13394.     (COMMON-LISP:SETF (CFFI:MEM-REF DN1-REF8773 :DOUBLE) DN1)
    13395. 

  13395.     (COMMON-LISP:SETF (CFFI:MEM-REF DN2-REF8774 :DOUBLE) DN2)
    13396. 

  13396.     (COMMON-LISP:SETF (CFFI:MEM-REF TAU-REF8775 :DOUBLE) TAU)
    13397. 

  13397.     (COMMON-LISP:SETF (CFFI:MEM-REF TTYPE-REF8776 :INT32) TTYPE)
    13398. 

  13398.     (COMMON-LISP:SETF (CFFI:MEM-REF G-REF8777 :DOUBLE) G)
    13399. 

  13399.     (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((Z-REF8766 Z))
    13400. 

  13400.       (%%DLASQ4 I0-REF8764 N0-REF8765 Z-REF8766 PP-REF8767 N0IN-REF8768
    13401. 

  13401.        DMIN-REF8769 DMIN1-REF8770 DMIN2-REF8771 DN-REF8772 DN1-REF8773
    13402. 

  13402.        DN2-REF8774 TAU-REF8775 TTYPE-REF8776 G-REF8777))))
    13403. 

  13403. 

  13404. (CFFI:DEFCFUN ("dlasq5_" %%DLASQ5 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    13405. 

  13405.     :VOID
    13406. 

  13406.   (I0 :POINTER)
    13407. 

  13407.   (N0 :POINTER)
    13408. 

  13408.   (Z :POINTER)
    13409. 

  13409.   (PP :POINTER)
    13410. 

  13410.   (TAU :POINTER)
    13411. 

  13411.   (SIGMA :POINTER)
    13412. 

  13412.   (DMIN :POINTER)
    13413. 

  13413.   (DMIN1 :POINTER)
    13414. 

  13414.   (DMIN2 :POINTER)
    13415. 

  13415.   (DN :POINTER)
    13416. 

  13416.   (DNM1 :POINTER)
    13417. 

  13417.   (DNM2 :POINTER)
    13418. 

  13418.   (IEEE :POINTER)
    13419. 

  13419.   (EPS :POINTER))
    13420. 

  13420. 

  13421. (COMMON-LISP:DEFUN %DLASQ5
    13422. 

  13422.                    (I0 N0 Z PP TAU SIGMA DMIN DMIN1 DMIN2 DN DNM1 DNM2 IEEE
    13423. 

  13423.                     EPS)
    13424. 

  13424.   (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLASQ5)
    13425. 

  13425.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) I0)
    13426. 

  13426.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N0)
    13427. 

  13427.                        (COMMON-LISP:TYPE
    13428. 

  13428.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Z)
    13429. 

  13429.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) PP)
    13430. 

  13430.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT TAU)
    13431. 

  13431.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SIGMA)
    13432. 

  13432.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT DMIN)
    13433. 

  13433.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT DMIN1)
    13434. 

  13434.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT DMIN2)
    13435. 

  13435.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT DN)
    13436. 

  13436.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT DNM1)
    13437. 

  13437.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT DNM2)
    13438. 

  13438.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IEEE)
    13439. 

  13439.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT EPS))
    13440. 

  13440.   (CFFI:WITH-FOREIGN-OBJECTS ((I0-REF8778 ':INT32) (N0-REF8779 ':INT32)
    13441. 

  13441.                               (PP-REF8781 ':INT32) (TAU-REF8782 ':DOUBLE)
    13442. 

  13442.                               (SIGMA-REF8783 ':DOUBLE) (DMIN-REF8784 ':DOUBLE)
    13443. 

  13443.                               (DMIN1-REF8785 ':DOUBLE) (DMIN2-REF8786 ':DOUBLE)
    13444. 

  13444.                               (DN-REF8787 ':DOUBLE) (DNM1-REF8788 ':DOUBLE)
    13445. 

  13445.                               (DNM2-REF8789 ':DOUBLE) (IEEE-REF8790 ':INT32)
    13446. 

  13446.                               (EPS-REF8791 ':DOUBLE))
    13447. 

  13447.     (COMMON-LISP:SETF (CFFI:MEM-REF I0-REF8778 :INT32) I0)
    13448. 

  13448.     (COMMON-LISP:SETF (CFFI:MEM-REF N0-REF8779 :INT32) N0)
    13449. 

  13449.     (COMMON-LISP:SETF (CFFI:MEM-REF PP-REF8781 :INT32) PP)
    13450. 

  13450.     (COMMON-LISP:SETF (CFFI:MEM-REF TAU-REF8782 :DOUBLE) TAU)
    13451. 

  13451.     (COMMON-LISP:SETF (CFFI:MEM-REF SIGMA-REF8783 :DOUBLE) SIGMA)
    13452. 

  13452.     (COMMON-LISP:SETF (CFFI:MEM-REF DMIN-REF8784 :DOUBLE) DMIN)
    13453. 

  13453.     (COMMON-LISP:SETF (CFFI:MEM-REF DMIN1-REF8785 :DOUBLE) DMIN1)
    13454. 

  13454.     (COMMON-LISP:SETF (CFFI:MEM-REF DMIN2-REF8786 :DOUBLE) DMIN2)
    13455. 

  13455.     (COMMON-LISP:SETF (CFFI:MEM-REF DN-REF8787 :DOUBLE) DN)
    13456. 

  13456.     (COMMON-LISP:SETF (CFFI:MEM-REF DNM1-REF8788 :DOUBLE) DNM1)
    13457. 

  13457.     (COMMON-LISP:SETF (CFFI:MEM-REF DNM2-REF8789 :DOUBLE) DNM2)
    13458. 

  13458.     (COMMON-LISP:SETF (CFFI:MEM-REF IEEE-REF8790 :INT32) IEEE)
    13459. 

  13459.     (COMMON-LISP:SETF (CFFI:MEM-REF EPS-REF8791 :DOUBLE) EPS)
    13460. 

  13460.     (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((Z-REF8780 Z))
    13461. 

  13461.       (%%DLASQ5 I0-REF8778 N0-REF8779 Z-REF8780 PP-REF8781 TAU-REF8782
    13462. 

  13462.        SIGMA-REF8783 DMIN-REF8784 DMIN1-REF8785 DMIN2-REF8786 DN-REF8787
    13463. 

  13463.        DNM1-REF8788 DNM2-REF8789 IEEE-REF8790 EPS-REF8791))))
    13464. 

  13464. 

  13465. (CFFI:DEFCFUN ("dlasq6_" %%DLASQ6 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    13466. 

  13466.     :VOID
    13467. 

  13467.   (I0 :POINTER)
    13468. 

  13468.   (N0 :POINTER)
    13469. 

  13469.   (Z :POINTER)
    13470. 

  13470.   (PP :POINTER)
    13471. 

  13471.   (DMIN :POINTER)
    13472. 

  13472.   (DMIN1 :POINTER)
    13473. 

  13473.   (DMIN2 :POINTER)
    13474. 

  13474.   (DN :POINTER)
    13475. 

  13475.   (DNM1 :POINTER)
    13476. 

  13476.   (DNM2 :POINTER))
    13477. 

  13477. 

  13478. (COMMON-LISP:DEFUN %DLASQ6 (I0 N0 Z PP DMIN DMIN1 DMIN2 DN DNM1 DNM2)
    13479. 

  13479.   (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLASQ6)
    13480. 

  13480.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) I0)
    13481. 

  13481.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N0)
    13482. 

  13482.                        (COMMON-LISP:TYPE
    13483. 

  13483.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Z)
    13484. 

  13484.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) PP)
    13485. 

  13485.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT DMIN)
    13486. 

  13486.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT DMIN1)
    13487. 

  13487.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT DMIN2)
    13488. 

  13488.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT DN)
    13489. 

  13489.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT DNM1)
    13490. 

  13490.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT DNM2))
    13491. 

  13491.   (CFFI:WITH-FOREIGN-OBJECTS ((I0-REF8792 ':INT32) (N0-REF8793 ':INT32)
    13492. 

  13492.                               (PP-REF8795 ':INT32) (DMIN-REF8796 ':DOUBLE)
    13493. 

  13493.                               (DMIN1-REF8797 ':DOUBLE) (DMIN2-REF8798 ':DOUBLE)
    13494. 

  13494.                               (DN-REF8799 ':DOUBLE) (DNM1-REF8800 ':DOUBLE)
    13495. 

  13495.                               (DNM2-REF8801 ':DOUBLE))
    13496. 

  13496.     (COMMON-LISP:SETF (CFFI:MEM-REF I0-REF8792 :INT32) I0)
    13497. 

  13497.     (COMMON-LISP:SETF (CFFI:MEM-REF N0-REF8793 :INT32) N0)
    13498. 

  13498.     (COMMON-LISP:SETF (CFFI:MEM-REF PP-REF8795 :INT32) PP)
    13499. 

  13499.     (COMMON-LISP:SETF (CFFI:MEM-REF DMIN-REF8796 :DOUBLE) DMIN)
    13500. 

  13500.     (COMMON-LISP:SETF (CFFI:MEM-REF DMIN1-REF8797 :DOUBLE) DMIN1)
    13501. 

  13501.     (COMMON-LISP:SETF (CFFI:MEM-REF DMIN2-REF8798 :DOUBLE) DMIN2)
    13502. 

  13502.     (COMMON-LISP:SETF (CFFI:MEM-REF DN-REF8799 :DOUBLE) DN)
    13503. 

  13503.     (COMMON-LISP:SETF (CFFI:MEM-REF DNM1-REF8800 :DOUBLE) DNM1)
    13504. 

  13504.     (COMMON-LISP:SETF (CFFI:MEM-REF DNM2-REF8801 :DOUBLE) DNM2)
    13505. 

  13505.     (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((Z-REF8794 Z))
    13506. 

  13506.       (%%DLASQ6 I0-REF8792 N0-REF8793 Z-REF8794 PP-REF8795 DMIN-REF8796
    13507. 

  13507.        DMIN1-REF8797 DMIN2-REF8798 DN-REF8799 DNM1-REF8800 DNM2-REF8801))))
    13508. 

  13508. 

  13509. (CFFI:DEFCFUN ("dlasr_" %%DLASR :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    13510. 

  13510.     :VOID
    13511. 

  13511.   (SIDE :STRING)
    13512. 

  13512.   (PIVOT :STRING)
    13513. 

  13513.   (DIRECT :STRING)
    13514. 

  13514.   (M :POINTER)
    13515. 

  13515.   (N :POINTER)
    13516. 

  13516.   (C :POINTER)
    13517. 

  13517.   (S :POINTER)
    13518. 

  13518.   (A :POINTER)
    13519. 

  13519.   (LDA :POINTER))
    13520. 

  13520. 

  13521. (COMMON-LISP:DEFUN %DLASR (SIDE PIVOT DIRECT M N C S A LDA)
    13522. 

  13522.   (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLASR)
    13523. 

  13523.                        (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
    13524. 

  13524.                        (COMMON-LISP:TYPE COMMON-LISP:STRING PIVOT)
    13525. 

  13525.                        (COMMON-LISP:TYPE COMMON-LISP:STRING DIRECT)
    13526. 

  13526.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
    13527. 

  13527.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
    13528. 

  13528.                        (COMMON-LISP:TYPE
    13529. 

  13529.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
    13530. 

  13530.                        (COMMON-LISP:TYPE
    13531. 

  13531.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) S)
    13532. 

  13532.                        (COMMON-LISP:TYPE
    13533. 

  13533.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
    13534. 

  13534.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA))
    13535. 

  13535.   (CFFI:WITH-FOREIGN-OBJECTS ((M-REF8805 ':INT32) (N-REF8806 ':INT32)
    13536. 

  13536.                               (LDA-REF8810 ':INT32))
    13537. 

  13537.     (COMMON-LISP:SETF (CFFI:MEM-REF M-REF8805 :INT32) M)
    13538. 

  13538.     (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8806 :INT32) N)
    13539. 

  13539.     (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF8810 :INT32) LDA)
    13540. 

  13540.     (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((C-REF8807 C) (S-REF8808 S)
    13541. 

  13541.                                             (A-REF8809 A))
    13542. 

  13542.       (%%DLASR SIDE PIVOT DIRECT M-REF8805 N-REF8806 C-REF8807 S-REF8808
    13543. 

  13543.        A-REF8809 LDA-REF8810))))
    13544. 

  13544. 

  13545. (CFFI:DEFCFUN ("dlasrt_" %%DLASRT :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    13546. 

  13546.     :VOID
    13547. 

  13547.   (ID :STRING)
    13548. 

  13548.   (N :POINTER)
    13549. 

  13549.   (D :POINTER)
    13550. 

  13550.   (INFO :POINTER))
    13551. 

  13551. 

  13552. (COMMON-LISP:DEFUN %DLASRT (ID N D INFO)
    13553. 

  13553.   (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLASRT)
    13554. 

  13554.                        (COMMON-LISP:TYPE COMMON-LISP:STRING ID)
    13555. 

  13555.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
    13556. 

  13556.                        (COMMON-LISP:TYPE
    13557. 

  13557.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
    13558. 

  13558.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
    13559. 

  13559.   (CFFI:WITH-FOREIGN-OBJECTS ((N-REF8812 ':INT32) (INFO-REF8814 ':INT32))
    13560. 

  13560.     (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8812 :INT32) N)
    13561. 

  13561.     (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF8814 :INT32) INFO)
    13562. 

  13562.     (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF8813 D))
    13563. 

  13563.       (%%DLASRT ID N-REF8812 D-REF8813 INFO-REF8814))))
    13564. 

  13564. 

  13565. (CFFI:DEFCFUN ("dlassq_" %%DLASSQ :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    13566. 

  13566.     :VOID
    13567. 

  13567.   (N :POINTER)
    13568. 

  13568.   (X :POINTER)
    13569. 

  13569.   (INCX :POINTER)
    13570. 

  13570.   (SCALE :POINTER)
    13571. 

  13571.   (SUMSQ :POINTER))
    13572. 

  13572. 

  13573. (COMMON-LISP:DEFUN %DLASSQ (N X INCX SCALE SUMSQ)
    13574. 

  13574.   (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLASSQ)
    13575. 

  13575.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
    13576. 

  13576.                        (COMMON-LISP:TYPE
    13577. 

  13577.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) X)
    13578. 

  13578.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)
    13579. 

  13579.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SCALE)
    13580. 

  13580.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SUMSQ))
    13581. 

  13581.   (CFFI:WITH-FOREIGN-OBJECTS ((N-REF8815 ':INT32) (INCX-REF8817 ':INT32)
    13582. 

  13582.                               (SCALE-REF8818 ':DOUBLE) (SUMSQ-REF8819 ':DOUBLE))
    13583. 

  13583.     (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8815 :INT32) N)
    13584. 

  13584.     (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF8817 :INT32) INCX)
    13585. 

  13585.     (COMMON-LISP:SETF (CFFI:MEM-REF SCALE-REF8818 :DOUBLE) SCALE)
    13586. 

  13586.     (COMMON-LISP:SETF (CFFI:MEM-REF SUMSQ-REF8819 :DOUBLE) SUMSQ)
    13587. 

  13587.     (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF8816 X))
    13588. 

  13588.       (%%DLASSQ N-REF8815 X-REF8816 INCX-REF8817 SCALE-REF8818 SUMSQ-REF8819))))
    13589. 

  13589. 

  13590. (CFFI:DEFCFUN ("dlasv2_" %%DLASV2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    13591. 

  13591.     :VOID
    13592. 

  13592.   (F :POINTER)
    13593. 

  13593.   (G :POINTER)
    13594. 

  13594.   (H :POINTER)
    13595. 

  13595.   (SSMIN :POINTER)
    13596. 

  13596.   (SSMAX :POINTER)
    13597. 

  13597.   (SNR :POINTER)
    13598. 

  13598.   (CSR :POINTER)
    13599. 

  13599.   (SNL :POINTER)
    13600. 

  13600.   (CSL :POINTER))
    13601. 

  13601. 

  13602. (COMMON-LISP:DEFUN %DLASV2 (F G H SSMIN SSMAX SNR CSR SNL CSL)
    13603. 

  13603.   (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLASV2)
    13604. 

  13604.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT F)
    13605. 

  13605.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT G)
    13606. 

  13606.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT H)
    13607. 

  13607.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SSMIN)
    13608. 

  13608.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SSMAX)
    13609. 

  13609.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SNR)
    13610. 

  13610.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT CSR)
    13611. 

  13611.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SNL)
    13612. 

  13612.                        (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT CSL))
    13613. 

  13613.   (CFFI:WITH-FOREIGN-OBJECTS ((F-REF8820 ':DOUBLE) (G-REF8821 ':DOUBLE)
    13614. 

  13614.                               (H-REF8822 ':DOUBLE) (SSMIN-REF8823 ':DOUBLE)
    13615. 

  13615.                               (SSMAX-REF8824 ':DOUBLE) (SNR-REF8825 ':DOUBLE)
    13616. 

  13616.                               (CSR-REF8826 ':DOUBLE) (SNL-REF8827 ':DOUBLE)
    13617. 

  13617.                               (CSL-REF8828 ':DOUBLE))
    13618. 

  13618.     (COMMON-LISP:SETF (CFFI:MEM-REF F-REF8820 :DOUBLE) F)
    13619. 

  13619.     (COMMON-LISP:SETF (CFFI:MEM-REF G-REF8821 :DOUBLE) G)
    13620. 

  13620.     (COMMON-LISP:SETF (CFFI:MEM-REF H-REF8822 :DOUBLE) H)
    13621. 

  13621.     (COMMON-LISP:SETF (CFFI:MEM-REF SSMIN-REF8823 :DOUBLE) SSMIN)
    13622. 

  13622.     (COMMON-LISP:SETF (CFFI:MEM-REF SSMAX-REF8824 :DOUBLE) SSMAX)
    13623. 

  13623.     (COMMON-LISP:SETF (CFFI:MEM-REF SNR-REF8825 :DOUBLE) SNR)
    13624. 

  13624.     (COMMON-LISP:SETF (CFFI:MEM-REF CSR-REF8826 :DOUBLE) CSR)
    13625. 

  13625.     (COMMON-LISP:SETF (CFFI:MEM-REF SNL-REF8827 :DOUBLE) SNL)
    13626. 

  13626.     (COMMON-LISP:SETF (CFFI:MEM-REF CSL-REF8828 :DOUBLE) CSL)
    13627. 

  13627.     (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS COMMON-LISP:NIL
    13628. 

  13628.       (%%DLASV2 F-REF8820 G-REF8821 H-REF8822 SSMIN-REF8823 SSMAX-REF8824
    13629. 

  13629.        SNR-REF8825 CSR-REF8826 SNL-REF8827 CSL-REF8828))))
    13630. 

  13630. 

  13631. (CFFI:DEFCFUN ("dlaswlq_" %%DLASWLQ :LIBRARY
    13632. 

  13632.                MAGICL.FOREIGN-LIBRARIES::LIBLAPACK)
    13633. 

  13633.     :VOID
    13634. 

  13634.   (M :POINTER)
    13635. 

  13635.   (N :POINTER)
    13636. 

  13636.   (MB :POINTER)
    13637. 

  13637.   (NB :POINTER)
    13638. 

  13638.   (A :POINTER)
    13639. 

  13639.   (LDA :POINTER)
    13640. 

  13640.   (T :POINTER)
    13641. 

  13641.   (LDT :POINTER)
    13642. 

  13642.   (WORK :POINTER)
    13643. 

  13643.   (LWORK :POINTER)
    13644. 

  13644.   (INFO :POINTER))
    13645. 

  13645. 

  13646. (COMMON-LISP:DEFUN %DLASWLQ (M N MB NB A LDA T LDT WORK LWORK INFO)
    13647. 

  13647.   (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLASWLQ)
    13648. 

  13648.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
    13649. 

  13649.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
    13650. 

  13650.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) MB)
    13651. 

  13651.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NB)
    13652. 

  13652.                        (COMMON-LISP:TYPE
    13653. 

  13653.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
    13654. 

  13654.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
    13655. 

  13655.                        (COMMON-LISP:TYPE
    13656. 

  13656.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) T)
    13657. 

  13657.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
    13658. 

  13658.                        (COMMON-LISP:TYPE
    13659. 

  13659.                         (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
    13660. 

  13660.                         WORK)
    13661. 

  13661.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
    13662. 

  13662.                        (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
    13663. 

  13663.   (CFFI:WITH-FOREIGN-OBJECTS ((M-REF8829 ':INT32) (N-REF8830 ':INT32)
    13664. 

  13664.                               (MB-REF8831 ':INT32) (NB-REF8832 ':INT32)
    13665. 

  13665.                               (LDA-REF8834 ':INT32) (LDT-REF8836 ':INT32)
    13666. 

  13666.                               (LWORK-REF8838 ':INT32) (INFO-REF8839 ':INT32))
    13667. 

  13667.     (COMMON-LISP:SETF (CFFI:MEM-REF M-REF8829 :INT32) M)
    13668. 

  13668.     (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8830 :INT32) N)
    13669. 

  13669.     (COMMON-LISP:SETF (CFFI:MEM-REF MB-REF8831 :INT32) MB)
    13670. 

  13670.     (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF8832 :INT32) NB)
    13671. 

  13671.     (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF8834 :INT32) LDA)
    13672. 

  13672.     (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF8836 :INT32) LDT)
    13673. 

  13673.     (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF8838 :INT32) LWORK)
    13674. 

  13674.     (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF8839 :INT32) INFO)
    13675. 

  13675.     (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF8833 A) (T-REF8835 T)
    13676. 

  13676.                                             (WORK-REF8837 WORK))
    13677. 

  13677.       (%%DLASWLQ M-REF8829 N-REF8830 MB-REF8831 NB-REF8832 A-REF8833
    13678. 

  13678.        LDA-REF8834 T-REF8835 LDT-REF8836 WORK-REF8837 LWORK-REF8838
    13679. 

  13679.        INFO-REF8839))))
    13680. 

  13680. 

  13681. (COMMON-LISP:DECLAIM
    13682. 

  13682.  (COMMON-LISP:NOTINLINE %%DGBBRD %DGBBRD %%DGBCON %DGBCON %%DGBEQU %DGBEQU
    13683. 

  13683.   %%DGBEQUB %DGBEQUB %%DGBRFS %DGBRFS %%DGBRFSX %DGBRFSX %%DGBSV %DGBSV
    13684. 

  13684.   %%DGBSVX %DGBSVX %%DGBSVXX %DGBSVXX %%DGBTF2 %DGBTF2 %%DGBTRF %DGBTRF
    13685. 

  13685.   %%DGBTRS %DGBTRS %%DGEBAK %DGEBAK %%DGEBAL %DGEBAL %%DGEBD2 %DGEBD2 %%DGEBRD
    13686. 

  13686.   %DGEBRD %%DGECON %DGECON %%DGEEQU %DGEEQU %%DGEEQUB %DGEEQUB %%DGEES %DGEES
    13687. 

  13687.   %%DGEESX %DGEESX %%DGEEV %DGEEV %%DGEEVX %DGEEVX %%DGEHD2 %DGEHD2 %%DGEHRD
    13688. 

  13688.   %DGEHRD %%DGEJSV %DGEJSV %%DGELQ %DGELQ %%DGELQ2 %DGELQ2 %%DGELQF %DGELQF
    13689. 

  13689.   %%DGELQT %DGELQT %%DGELQT3 %DGELQT3 %%DGELS %DGELS %%DGELSD %DGELSD %%DGELSS
    13690. 

  13690.   %DGELSS %%DGELSY %DGELSY %%DGEMLQ %DGEMLQ %%DGEMLQT %DGEMLQT %%DGEMQR %DGEMQR
    13691. 

  13691.   %%DGEMQRT %DGEMQRT %%DGEQL2 %DGEQL2 %%DGEQLF %DGEQLF %%DGEQP3 %DGEQP3 %%DGEQR
    13692. 

  13692.   %DGEQR %%DGEQR2 %DGEQR2 %%DGEQR2P %DGEQR2P %%DGEQRF %DGEQRF %%DGEQRFP
    13693. 

  13693.   %DGEQRFP %%DGEQRT %DGEQRT %%DGEQRT2 %DGEQRT2 %%DGEQRT3 %DGEQRT3 %%DGERFS
    13694. 

  13694.   %DGERFS %%DGERFSX %DGERFSX %%DGERQ2 %DGERQ2 %%DGERQF %DGERQF %%DGESC2 %DGESC2
    13695. 

  13695.   %%DGESDD %DGESDD %%DGESV %DGESV %%DGESVD %DGESVD %%DGESVDQ %DGESVDQ %%DGESVDX
    13696. 

  13696.   %DGESVDX %%DGESVJ %DGESVJ %%DGESVX %DGESVX %%DGESVXX %DGESVXX %%DGETC2
    13697. 

  13697.   %DGETC2 %%DGETF2 %DGETF2 %%DGETRF %DGETRF %%DGETRF2 %DGETRF2 %%DGETRI %DGETRI
    13698. 

  13698.   %%DGETRS %DGETRS %%DGETSLS %DGETSLS %%DGGBAK %DGGBAK %%DGGBAL %DGGBAL %%DGGES
    13699. 

  13699.   %DGGES %%DGGES3 %DGGES3 %%DGGESX %DGGESX %%DGGEV %DGGEV %%DGGEV3 %DGGEV3
    13700. 

  13700.   %%DGGEVX %DGGEVX %%DGGGLM %DGGGLM %%DGGHD3 %DGGHD3 %%DGGHRD %DGGHRD %%DGGLSE
    13701. 

  13701.   %DGGLSE %%DGGQRF %DGGQRF %%DGGRQF %DGGRQF %%DGGSVD3 %DGGSVD3 %%DGGSVP3
    13702. 

  13702.   %DGGSVP3 %%DGSVJ0 %DGSVJ0 %%DGSVJ1 %DGSVJ1 %%DGTCON %DGTCON %%DGTRFS %DGTRFS
    13703. 

  13703.   %%DGTSV %DGTSV %%DGTSVX %DGTSVX %%DGTTRF %DGTTRF %%DGTTRS %DGTTRS %%DGTTS2
    13704. 

  13704.   %DGTTS2 %%DHGEQZ %DHGEQZ %%DHSEIN %DHSEIN %%DHSEQR %DHSEQR %%DISNAN %DISNAN
    13705. 

  13705.   %%DLA_GBAMV %DLA_GBAMV %%DLA_GBRCOND %DLA_GBRCOND %%DLA_GBRFSX_EXTENDED
    13706. 

  13706.   %DLA_GBRFSX_EXTENDED %%DLA_GBRPVGRW %DLA_GBRPVGRW %%DLA_GEAMV %DLA_GEAMV
    13707. 

  13707.   %%DLA_GERCOND %DLA_GERCOND %%DLA_GERFSX_EXTENDED %DLA_GERFSX_EXTENDED
    13708. 

  13708.   %%DLA_GERPVGRW %DLA_GERPVGRW %%DLA_LIN_BERR %DLA_LIN_BERR %%DLA_PORCOND
    13709. 

  13709.   %DLA_PORCOND %%DLA_PORFSX_EXTENDED %DLA_PORFSX_EXTENDED %%DLA_PORPVGRW
    13710. 

  13710.   %DLA_PORPVGRW %%DLA_SYAMV %DLA_SYAMV %%DLA_SYRCOND %DLA_SYRCOND
    13711. 

  13711.   %%DLA_SYRFSX_EXTENDED %DLA_SYRFSX_EXTENDED %%DLA_SYRPVGRW %DLA_SYRPVGRW
    13712. 

  13712.   %%DLA_WWADDW %DLA_WWADDW %%DLABAD %DLABAD %%DLABRD %DLABRD %%DLACN2 %DLACN2
    13713. 

  13713.   %%DLACON %DLACON %%DLACPY %DLACPY %%DLADIV %DLADIV %%DLAE2 %DLAE2 %%DLAEBZ
    13714. 

  13714.   %DLAEBZ %%DLAED0 %DLAED0 %%DLAED1 %DLAED1 %%DLAED2 %DLAED2 %%DLAED3 %DLAED3
    13715. 

  13715.   %%DLAED4 %DLAED4 %%DLAED5 %DLAED5 %%DLAED6 %DLAED6 %%DLAED7 %DLAED7 %%DLAED8
    13716. 

  13716.   %DLAED8 %%DLAED9 %DLAED9 %%DLAEDA %DLAEDA %%DLAEIN %DLAEIN %%DLAEV2 %DLAEV2
    13717. 

  13717.   %%DLAEXC %DLAEXC %%DLAG2 %DLAG2 %%DLAG2S %DLAG2S %%DLAGS2 %DLAGS2 %%DLAGTF
    13718. 

  13718.   %DLAGTF %%DLAGTM %DLAGTM %%DLAGTS %DLAGTS %%DLAGV2 %DLAGV2 %%DLAHQR %DLAHQR
    13719. 

  13719.   %%DLAHR2 %DLAHR2 %%DLAIC1 %DLAIC1 %%DLAISNAN %DLAISNAN %%DLALN2 %DLALN2
    13720. 

  13720.   %%DLALS0 %DLALS0 %%DLALSA %DLALSA %%DLALSD %DLALSD %%DLAMRG %DLAMRG
    13721. 

  13721.   %%DLAMSWLQ %DLAMSWLQ %%DLAMTSQR %DLAMTSQR %%DLANEG %DLANEG %%DLANGB %DLANGB
    13722. 

  13722.   %%DLANGE %DLANGE %%DLANGT %DLANGT %%DLANHS %DLANHS %%DLANSB %DLANSB %%DLANSF
    13723. 

  13723.   %DLANSF %%DLANSP %DLANSP %%DLANST %DLANST %%DLANSY %DLANSY %%DLANTB %DLANTB
    13724. 

  13724.   %%DLANTP %DLANTP %%DLANTR %DLANTR %%DLANV2 %DLANV2 %%DLAORHR_COL_GETRFNP
    13725. 

  13725.   %DLAORHR_COL_GETRFNP %%DLAORHR_COL_GETRFNP2 %DLAORHR_COL_GETRFNP2 %%DLAPLL
    13726. 

  13726.   %DLAPLL %%DLAPMR %DLAPMR %%DLAPMT %DLAPMT %%DLAPY2 %DLAPY2 %%DLAPY3 %DLAPY3
    13727. 

  13727.   %%DLAQGB %DLAQGB %%DLAQGE %DLAQGE %%DLAQP2 %DLAQP2 %%DLAQPS %DLAQPS %%DLAQR0
    13728. 

  13728.   %DLAQR0 %%DLAQR1 %DLAQR1 %%DLAQR2 %DLAQR2 %%DLAQR3 %DLAQR3 %%DLAQR4 %DLAQR4
    13729. 

  13729.   %%DLAQR5 %DLAQR5 %%DLAQSB %DLAQSB %%DLAQSP %DLAQSP %%DLAQSY %DLAQSY %%DLAQTR
    13730. 

  13730.   %DLAQTR %%DLAR1V %DLAR1V %%DLAR2V %DLAR2V %%DLARF %DLARF %%DLARFB %DLARFB
    13731. 

  13731.   %%DLARFG %DLARFG %%DLARFGP %DLARFGP %%DLARFT %DLARFT %%DLARFX %DLARFX
    13732. 

  13732.   %%DLARFY %DLARFY %%DLARGV %DLARGV %%DLARNV %DLARNV %%DLARRA %DLARRA %%DLARRB
    13733. 

  13733.   %DLARRB %%DLARRC %DLARRC %%DLARRD %DLARRD %%DLARRE %DLARRE %%DLARRF %DLARRF
    13734. 

  13734.   %%DLARRJ %DLARRJ %%DLARRK %DLARRK %%DLARRR %DLARRR %%DLARRV %DLARRV
    13735. 

  13735.   %%DLARSCL2 %DLARSCL2 %%DLARTG %DLARTG %%DLARTGP %DLARTGP %%DLARTGS %DLARTGS
    13736. 

  13736.   %%DLARTV %DLARTV %%DLARUV %DLARUV %%DLARZ %DLARZ %%DLARZB %DLARZB %%DLARZT
    13737. 

  13737.   %DLARZT %%DLAS2 %DLAS2 %%DLASCL %DLASCL %%DLASCL2 %DLASCL2 %%DLASD0 %DLASD0
    13738. 

  13738.   %%DLASD1 %DLASD1 %%DLASD2 %DLASD2 %%DLASD3 %DLASD3 %%DLASD4 %DLASD4 %%DLASD5
    13739. 

  13739.   %DLASD5 %%DLASD6 %DLASD6 %%DLASD7 %DLASD7 %%DLASD8 %DLASD8 %%DLASDA %DLASDA
    13740. 

  13740.   %%DLASDQ %DLASDQ %%DLASDT %DLASDT %%DLASET %DLASET %%DLASQ1 %DLASQ1 %%DLASQ2
    13741. 

  13741.   %DLASQ2 %%DLASQ3 %DLASQ3 %%DLASQ4 %DLASQ4 %%DLASQ5 %DLASQ5 %%DLASQ6 %DLASQ6
    13742. 

  13742.   %%DLASR %DLASR %%DLASRT %DLASRT %%DLASSQ %DLASSQ %%DLASV2 %DLASV2 %%DLASWLQ
    13743. 

  13743.   %DLASWLQ))
    13744. 

  13744. 

  13745. (MAGICL.FOREIGN-LIBRARIES:TRACK-SYMBOLS 'MAGICL.FOREIGN-LIBRARIES::LIBLAPACK
    13746. 

  13746.                                         '(("DGBBRD" "dgbbrd_" %%DGBBRD %DGBBRD)
    13747. 

  13747.                                           ("DGBCON" "dgbcon_" %%DGBCON %DGBCON)
    13748. 

  13748.                                           ("DGBEQU" "dgbequ_" %%DGBEQU %DGBEQU)
    13749. 

  13749.                                           ("DGBEQUB" "dgbequb_" %%DGBEQUB
    13750. 

  13750.                                            %DGBEQUB)
    13751. 

  13751.                                           ("DGBRFS" "dgbrfs_" %%DGBRFS %DGBRFS)
    13752. 

  13752.                                           ("DGBRFSX" "dgbrfsx_" %%DGBRFSX
    13753. 

  13753.                                            %DGBRFSX)
    13754. 

  13754.                                           ("DGBSV" "dgbsv_" %%DGBSV %DGBSV)
    13755. 

  13755.                                           ("DGBSVX" "dgbsvx_" %%DGBSVX %DGBSVX)
    13756. 

  13756.                                           ("DGBSVXX" "dgbsvxx_" %%DGBSVXX
    13757. 

  13757.                                            %DGBSVXX)
    13758. 

  13758.                                           ("DGBTF2" "dgbtf2_" %%DGBTF2 %DGBTF2)
    13759. 

  13759.                                           ("DGBTRF" "dgbtrf_" %%DGBTRF %DGBTRF)
    13760. 

  13760.                                           ("DGBTRS" "dgbtrs_" %%DGBTRS %DGBTRS)
    13761. 

  13761.                                           ("DGEBAK" "dgebak_" %%DGEBAK %DGEBAK)
    13762. 

  13762.                                           ("DGEBAL" "dgebal_" %%DGEBAL %DGEBAL)
    13763. 

  13763.                                           ("DGEBD2" "dgebd2_" %%DGEBD2 %DGEBD2)
    13764. 

  13764.                                           ("DGEBRD" "dgebrd_" %%DGEBRD %DGEBRD)
    13765. 

  13765.                                           ("DGECON" "dgecon_" %%DGECON %DGECON)
    13766. 

  13766.                                           ("DGEEQU" "dgeequ_" %%DGEEQU %DGEEQU)
    13767. 

  13767.                                           ("DGEEQUB" "dgeequb_" %%DGEEQUB
    13768. 

  13768.                                            %DGEEQUB)
    13769. 

  13769.                                           ("DGEES" "dgees_" %%DGEES %DGEES)
    13770. 

  13770.                                           ("DGEESX" "dgeesx_" %%DGEESX %DGEESX)
    13771. 

  13771.                                           ("DGEEV" "dgeev_" %%DGEEV %DGEEV)
    13772. 

  13772.                                           ("DGEEVX" "dgeevx_" %%DGEEVX %DGEEVX)
    13773. 

  13773.                                           ("DGEHD2" "dgehd2_" %%DGEHD2 %DGEHD2)
    13774. 

  13774.                                           ("DGEHRD" "dgehrd_" %%DGEHRD %DGEHRD)
    13775. 

  13775.                                           ("DGEJSV" "dgejsv_" %%DGEJSV %DGEJSV)
    13776. 

  13776.                                           ("DGELQ" "dgelq_" %%DGELQ %DGELQ)
    13777. 

  13777.                                           ("DGELQ2" "dgelq2_" %%DGELQ2 %DGELQ2)
    13778. 

  13778.                                           ("DGELQF" "dgelqf_" %%DGELQF %DGELQF)
    13779. 

  13779.                                           ("DGELQT" "dgelqt_" %%DGELQT %DGELQT)
    13780. 

  13780.                                           ("DGELQT3" "dgelqt3_" %%DGELQT3
    13781. 

  13781.                                            %DGELQT3)
    13782. 

  13782.                                           ("DGELS" "dgels_" %%DGELS %DGELS)
    13783. 

  13783.                                           ("DGELSD" "dgelsd_" %%DGELSD %DGELSD)
    13784. 

  13784.                                           ("DGELSS" "dgelss_" %%DGELSS %DGELSS)
    13785. 

  13785.                                           ("DGELSY" "dgelsy_" %%DGELSY %DGELSY)
    13786. 

  13786.                                           ("DGEMLQ" "dgemlq_" %%DGEMLQ %DGEMLQ)
    13787. 

  13787.                                           ("DGEMLQT" "dgemlqt_" %%DGEMLQT
    13788. 

  13788.                                            %DGEMLQT)
    13789. 

  13789.                                           ("DGEMQR" "dgemqr_" %%DGEMQR %DGEMQR)
    13790. 

  13790.                                           ("DGEMQRT" "dgemqrt_" %%DGEMQRT
    13791. 

  13791.                                            %DGEMQRT)
    13792. 

  13792.                                           ("DGEQL2" "dgeql2_" %%DGEQL2 %DGEQL2)
    13793. 

  13793.                                           ("DGEQLF" "dgeqlf_" %%DGEQLF %DGEQLF)
    13794. 

  13794.                                           ("DGEQP3" "dgeqp3_" %%DGEQP3 %DGEQP3)
    13795. 

  13795.                                           ("DGEQR" "dgeqr_" %%DGEQR %DGEQR)
    13796. 

  13796.                                           ("DGEQR2" "dgeqr2_" %%DGEQR2 %DGEQR2)
    13797. 

  13797.                                           ("DGEQR2P" "dgeqr2p_" %%DGEQR2P
    13798. 

  13798.                                            %DGEQR2P)
    13799. 

  13799.                                           ("DGEQRF" "dgeqrf_" %%DGEQRF %DGEQRF)
    13800. 

  13800.                                           ("DGEQRFP" "dgeqrfp_" %%DGEQRFP
    13801. 

  13801.                                            %DGEQRFP)
    13802. 

  13802.                                           ("DGEQRT" "dgeqrt_" %%DGEQRT %DGEQRT)
    13803. 

  13803.                                           ("DGEQRT2" "dgeqrt2_" %%DGEQRT2
    13804. 

  13804.                                            %DGEQRT2)
    13805. 

  13805.                                           ("DGEQRT3" "dgeqrt3_" %%DGEQRT3
    13806. 

  13806.                                            %DGEQRT3)
    13807. 

  13807.                                           ("DGERFS" "dgerfs_" %%DGERFS %DGERFS)
    13808. 

  13808.                                           ("DGERFSX" "dgerfsx_" %%DGERFSX
    13809. 

  13809.                                            %DGERFSX)
    13810. 

  13810.                                           ("DGERQ2" "dgerq2_" %%DGERQ2 %DGERQ2)
    13811. 

  13811.                                           ("DGERQF" "dgerqf_" %%DGERQF %DGERQF)
    13812. 

  13812.                                           ("DGESC2" "dgesc2_" %%DGESC2 %DGESC2)
    13813. 

  13813.                                           ("DGESDD" "dgesdd_" %%DGESDD %DGESDD)
    13814. 

  13814.                                           ("DGESV" "dgesv_" %%DGESV %DGESV)
    13815. 

  13815.                                           ("DGESVD" "dgesvd_" %%DGESVD %DGESVD)
    13816. 

  13816.                                           ("DGESVDQ" "dgesvdq_" %%DGESVDQ
    13817. 

  13817.                                            %DGESVDQ)
    13818. 

  13818.                                           ("DGESVDX" "dgesvdx_" %%DGESVDX
    13819. 

  13819.                                            %DGESVDX)
    13820. 

  13820.                                           ("DGESVJ" "dgesvj_" %%DGESVJ %DGESVJ)
    13821. 

  13821.                                           ("DGESVX" "dgesvx_" %%DGESVX %DGESVX)
    13822. 

  13822.                                           ("DGESVXX" "dgesvxx_" %%DGESVXX
    13823. 

  13823.                                            %DGESVXX)
    13824. 

  13824.                                           ("DGETC2" "dgetc2_" %%DGETC2 %DGETC2)
    13825. 

  13825.                                           ("DGETF2" "dgetf2_" %%DGETF2 %DGETF2)
    13826. 

  13826.                                           ("DGETRF" "dgetrf_" %%DGETRF %DGETRF)
    13827. 

  13827.                                           ("DGETRF2" "dgetrf2_" %%DGETRF2
    13828. 

  13828.                                            %DGETRF2)
    13829. 

  13829.                                           ("DGETRI" "dgetri_" %%DGETRI %DGETRI)
    13830. 

  13830.                                           ("DGETRS" "dgetrs_" %%DGETRS %DGETRS)
    13831. 

  13831.                                           ("DGETSLS" "dgetsls_" %%DGETSLS
    13832. 

  13832.                                            %DGETSLS)
    13833. 

  13833.                                           ("DGGBAK" "dggbak_" %%DGGBAK %DGGBAK)
    13834. 

  13834.                                           ("DGGBAL" "dggbal_" %%DGGBAL %DGGBAL)
    13835. 

  13835.                                           ("DGGES" "dgges_" %%DGGES %DGGES)
    13836. 

  13836.                                           ("DGGES3" "dgges3_" %%DGGES3 %DGGES3)
    13837. 

  13837.                                           ("DGGESX" "dggesx_" %%DGGESX %DGGESX)
    13838. 

  13838.                                           ("DGGEV" "dggev_" %%DGGEV %DGGEV)
    13839. 

  13839.                                           ("DGGEV3" "dggev3_" %%DGGEV3 %DGGEV3)
    13840. 

  13840.                                           ("DGGEVX" "dggevx_" %%DGGEVX %DGGEVX)
    13841. 

  13841.                                           ("DGGGLM" "dggglm_" %%DGGGLM %DGGGLM)
    13842. 

  13842.                                           ("DGGHD3" "dgghd3_" %%DGGHD3 %DGGHD3)
    13843. 

  13843.                                           ("DGGHRD" "dgghrd_" %%DGGHRD %DGGHRD)
    13844. 

  13844.                                           ("DGGLSE" "dgglse_" %%DGGLSE %DGGLSE)
    13845. 

  13845.                                           ("DGGQRF" "dggqrf_" %%DGGQRF %DGGQRF)
    13846. 

  13846.                                           ("DGGRQF" "dggrqf_" %%DGGRQF %DGGRQF)
    13847. 

  13847.                                           ("DGGSVD3" "dggsvd3_" %%DGGSVD3
    13848. 

  13848.                                            %DGGSVD3)
    13849. 

  13849.                                           ("DGGSVP3" "dggsvp3_" %%DGGSVP3
    13850. 

  13850.                                            %DGGSVP3)
    13851. 

  13851.                                           ("DGSVJ0" "dgsvj0_" %%DGSVJ0 %DGSVJ0)
    13852. 

  13852.                                           ("DGSVJ1" "dgsvj1_" %%DGSVJ1 %DGSVJ1)
    13853. 

  13853.                                           ("DGTCON" "dgtcon_" %%DGTCON %DGTCON)
    13854. 

  13854.                                           ("DGTRFS" "dgtrfs_" %%DGTRFS %DGTRFS)
    13855. 

  13855.                                           ("DGTSV" "dgtsv_" %%DGTSV %DGTSV)
    13856. 

  13856.                                           ("DGTSVX" "dgtsvx_" %%DGTSVX %DGTSVX)
    13857. 

  13857.                                           ("DGTTRF" "dgttrf_" %%DGTTRF %DGTTRF)
    13858. 

  13858.                                           ("DGTTRS" "dgttrs_" %%DGTTRS %DGTTRS)
    13859. 

  13859.                                           ("DGTTS2" "dgtts2_" %%DGTTS2 %DGTTS2)
    13860. 

  13860.                                           ("DHGEQZ" "dhgeqz_" %%DHGEQZ %DHGEQZ)
    13861. 

  13861.                                           ("DHSEIN" "dhsein_" %%DHSEIN %DHSEIN)
    13862. 

  13862.                                           ("DHSEQR" "dhseqr_" %%DHSEQR %DHSEQR)
    13863. 

  13863.                                           ("DISNAN" "disnan_" %%DISNAN %DISNAN)
    13864. 

  13864.                                           ("DLA_GBAMV" "dla_gbamv_" %%DLA_GBAMV
    13865. 

  13865.                                            %DLA_GBAMV)
    13866. 

  13866.                                           ("DLA_GBRCOND" "dla_gbrcond_"
    13867. 

  13867.                                            %%DLA_GBRCOND %DLA_GBRCOND)
    13868. 

  13868.                                           ("DLA_GBRFSX_EXTENDED"
    13869. 

  13869.                                            "dla_gbrfsx_extended_"
    13870. 

  13870.                                            %%DLA_GBRFSX_EXTENDED
    13871. 

  13871.                                            %DLA_GBRFSX_EXTENDED)
    13872. 

  13872.                                           ("DLA_GBRPVGRW" "dla_gbrpvgrw_"
    13873. 

  13873.                                            %%DLA_GBRPVGRW %DLA_GBRPVGRW)
    13874. 

  13874.                                           ("DLA_GEAMV" "dla_geamv_" %%DLA_GEAMV
    13875. 

  13875.                                            %DLA_GEAMV)
    13876. 

  13876.                                           ("DLA_GERCOND" "dla_gercond_"
    13877. 

  13877.                                            %%DLA_GERCOND %DLA_GERCOND)
    13878. 

  13878.                                           ("DLA_GERFSX_EXTENDED"
    13879. 

  13879.                                            "dla_gerfsx_extended_"
    13880. 

  13880.                                            %%DLA_GERFSX_EXTENDED
    13881. 

  13881.                                            %DLA_GERFSX_EXTENDED)
    13882. 

  13882.                                           ("DLA_GERPVGRW" "dla_gerpvgrw_"
    13883. 

  13883.                                            %%DLA_GERPVGRW %DLA_GERPVGRW)
    13884. 

  13884.                                           ("DLA_LIN_BERR" "dla_lin_berr_"
    13885. 

  13885.                                            %%DLA_LIN_BERR %DLA_LIN_BERR)
    13886. 

  13886.                                           ("DLA_PORCOND" "dla_porcond_"
    13887. 

  13887.                                            %%DLA_PORCOND %DLA_PORCOND)
    13888. 

  13888.                                           ("DLA_PORFSX_EXTENDED"
    13889. 

  13889.                                            "dla_porfsx_extended_"
    13890. 

  13890.                                            %%DLA_PORFSX_EXTENDED
    13891. 

  13891.                                            %DLA_PORFSX_EXTENDED)
    13892. 

  13892.                                           ("DLA_PORPVGRW" "dla_porpvgrw_"
    13893. 

  13893.                                            %%DLA_PORPVGRW %DLA_PORPVGRW)
    13894. 

  13894.                                           ("DLA_SYAMV" "dla_syamv_" %%DLA_SYAMV
    13895. 

  13895.                                            %DLA_SYAMV)
    13896. 

  13896.                                           ("DLA_SYRCOND" "dla_syrcond_"
    13897. 

  13897.                                            %%DLA_SYRCOND %DLA_SYRCOND)
    13898. 

  13898.                                           ("DLA_SYRFSX_EXTENDED"
    13899. 

  13899.                                            "dla_syrfsx_extended_"
    13900. 

  13900.                                            %%DLA_SYRFSX_EXTENDED
    13901. 

  13901.                                            %DLA_SYRFSX_EXTENDED)
    13902. 

  13902.                                           ("DLA_SYRPVGRW" "dla_syrpvgrw_"
    13903. 

  13903.                                            %%DLA_SYRPVGRW %DLA_SYRPVGRW)
    13904. 

  13904.                                           ("DLA_WWADDW" "dla_wwaddw_"
    13905. 

  13905.                                            %%DLA_WWADDW %DLA_WWADDW)
    13906. 

  13906.                                           ("DLABAD" "dlabad_" %%DLABAD %DLABAD)
    13907. 

  13907.                                           ("DLABRD" "dlabrd_" %%DLABRD %DLABRD)
    13908. 

  13908.                                           ("DLACN2" "dlacn2_" %%DLACN2 %DLACN2)
    13909. 

  13909.                                           ("DLACON" "dlacon_" %%DLACON %DLACON)
    13910. 

  13910.                                           ("DLACPY" "dlacpy_" %%DLACPY %DLACPY)
    13911. 

  13911.                                           ("DLADIV" "dladiv_" %%DLADIV %DLADIV)
    13912. 

  13912.                                           ("DLAE2" "dlae2_" %%DLAE2 %DLAE2)
    13913. 

  13913.                                           ("DLAEBZ" "dlaebz_" %%DLAEBZ %DLAEBZ)
    13914. 

  13914.                                           ("DLAED0" "dlaed0_" %%DLAED0 %DLAED0)
    13915. 

  13915.                                           ("DLAED1" "dlaed1_" %%DLAED1 %DLAED1)
    13916. 

  13916.                                           ("DLAED2" "dlaed2_" %%DLAED2 %DLAED2)
    13917. 

  13917.                                           ("DLAED3" "dlaed3_" %%DLAED3 %DLAED3)
    13918. 

  13918.                                           ("DLAED4" "dlaed4_" %%DLAED4 %DLAED4)
    13919. 

  13919.                                           ("DLAED5" "dlaed5_" %%DLAED5 %DLAED5)
    13920. 

  13920.                                           ("DLAED6" "dlaed6_" %%DLAED6 %DLAED6)
    13921. 

  13921.                                           ("DLAED7" "dlaed7_" %%DLAED7 %DLAED7)
    13922. 

  13922.                                           ("DLAED8" "dlaed8_" %%DLAED8 %DLAED8)
    13923. 

  13923.                                           ("DLAED9" "dlaed9_" %%DLAED9 %DLAED9)
    13924. 

  13924.                                           ("DLAEDA" "dlaeda_" %%DLAEDA %DLAEDA)
    13925. 

  13925.                                           ("DLAEIN" "dlaein_" %%DLAEIN %DLAEIN)
    13926. 

  13926.                                           ("DLAEV2" "dlaev2_" %%DLAEV2 %DLAEV2)
    13927. 

  13927.                                           ("DLAEXC" "dlaexc_" %%DLAEXC %DLAEXC)
    13928. 

  13928.                                           ("DLAG2" "dlag2_" %%DLAG2 %DLAG2)
    13929. 

  13929.                                           ("DLAG2S" "dlag2s_" %%DLAG2S %DLAG2S)
    13930. 

  13930.                                           ("DLAGS2" "dlags2_" %%DLAGS2 %DLAGS2)
    13931. 

  13931.                                           ("DLAGTF" "dlagtf_" %%DLAGTF %DLAGTF)
    13932. 

  13932.                                           ("DLAGTM" "dlagtm_" %%DLAGTM %DLAGTM)
    13933. 

  13933.                                           ("DLAGTS" "dlagts_" %%DLAGTS %DLAGTS)
    13934. 

  13934.                                           ("DLAGV2" "dlagv2_" %%DLAGV2 %DLAGV2)
    13935. 

  13935.                                           ("DLAHQR" "dlahqr_" %%DLAHQR %DLAHQR)
    13936. 

  13936.                                           ("DLAHR2" "dlahr2_" %%DLAHR2 %DLAHR2)
    13937. 

  13937.                                           ("DLAIC1" "dlaic1_" %%DLAIC1 %DLAIC1)
    13938. 

  13938.                                           ("DLAISNAN" "dlaisnan_" %%DLAISNAN
    13939. 

  13939.                                            %DLAISNAN)
    13940. 

  13940.                                           ("DLALN2" "dlaln2_" %%DLALN2 %DLALN2)
    13941. 

  13941.                                           ("DLALS0" "dlals0_" %%DLALS0 %DLALS0)
    13942. 

  13942.                                           ("DLALSA" "dlalsa_" %%DLALSA %DLALSA)
    13943. 

  13943.                                           ("DLALSD" "dlalsd_" %%DLALSD %DLALSD)
    13944. 

  13944.                                           ("DLAMRG" "dlamrg_" %%DLAMRG %DLAMRG)
    13945. 

  13945.                                           ("DLAMSWLQ" "dlamswlq_" %%DLAMSWLQ
    13946. 

  13946.                                            %DLAMSWLQ)
    13947. 

  13947.                                           ("DLAMTSQR" "dlamtsqr_" %%DLAMTSQR
    13948. 

  13948.                                            %DLAMTSQR)
    13949. 

  13949.                                           ("DLANEG" "dlaneg_" %%DLANEG %DLANEG)
    13950. 

  13950.                                           ("DLANGB" "dlangb_" %%DLANGB %DLANGB)
    13951. 

  13951.                                           ("DLANGE" "dlange_" %%DLANGE %DLANGE)
    13952. 

  13952.                                           ("DLANGT" "dlangt_" %%DLANGT %DLANGT)
    13953. 

  13953.                                           ("DLANHS" "dlanhs_" %%DLANHS %DLANHS)
    13954. 

  13954.                                           ("DLANSB" "dlansb_" %%DLANSB %DLANSB)
    13955. 

  13955.                                           ("DLANSF" "dlansf_" %%DLANSF %DLANSF)
    13956. 

  13956.                                           ("DLANSP" "dlansp_" %%DLANSP %DLANSP)
    13957. 

  13957.                                           ("DLANST" "dlanst_" %%DLANST %DLANST)
    13958. 

  13958.                                           ("DLANSY" "dlansy_" %%DLANSY %DLANSY)
    13959. 

  13959.                                           ("DLANTB" "dlantb_" %%DLANTB %DLANTB)
    13960. 

  13960.                                           ("DLANTP" "dlantp_" %%DLANTP %DLANTP)
    13961. 

  13961.                                           ("DLANTR" "dlantr_" %%DLANTR %DLANTR)
    13962. 

  13962.                                           ("DLANV2" "dlanv2_" %%DLANV2 %DLANV2)
    13963. 

  13963.                                           ("DLAORHR_COL_GETRFNP"
    13964. 

  13964.                                            "dlaorhr_col_getrfnp_"
    13965. 

  13965.                                            %%DLAORHR_COL_GETRFNP
    13966. 

  13966.                                            %DLAORHR_COL_GETRFNP)
    13967. 

  13967.                                           ("DLAORHR_COL_GETRFNP2"
    13968. 

  13968.                                            "dlaorhr_col_getrfnp2_"
    13969. 

  13969.                                            %%DLAORHR_COL_GETRFNP2
    13970. 

  13970.                                            %DLAORHR_COL_GETRFNP2)
    13971. 

  13971.                                           ("DLAPLL" "dlapll_" %%DLAPLL %DLAPLL)
    13972. 

  13972.                                           ("DLAPMR" "dlapmr_" %%DLAPMR %DLAPMR)
    13973. 

  13973.                                           ("DLAPMT" "dlapmt_" %%DLAPMT %DLAPMT)
    13974. 

  13974.                                           ("DLAPY2" "dlapy2_" %%DLAPY2 %DLAPY2)
    13975. 

  13975.                                           ("DLAPY3" "dlapy3_" %%DLAPY3 %DLAPY3)
    13976. 

  13976.                                           ("DLAQGB" "dlaqgb_" %%DLAQGB %DLAQGB)
    13977. 

  13977.                                           ("DLAQGE" "dlaqge_" %%DLAQGE %DLAQGE)
    13978. 

  13978.                                           ("DLAQP2" "dlaqp2_" %%DLAQP2 %DLAQP2)
    13979. 

  13979.                                           ("DLAQPS" "dlaqps_" %%DLAQPS %DLAQPS)
    13980. 

  13980.                                           ("DLAQR0" "dlaqr0_" %%DLAQR0 %DLAQR0)
    13981. 

  13981.                                           ("DLAQR1" "dlaqr1_" %%DLAQR1 %DLAQR1)
    13982. 

  13982.                                           ("DLAQR2" "dlaqr2_" %%DLAQR2 %DLAQR2)
    13983. 

  13983.                                           ("DLAQR3" "dlaqr3_" %%DLAQR3 %DLAQR3)
    13984. 

  13984.                                           ("DLAQR4" "dlaqr4_" %%DLAQR4 %DLAQR4)
    13985. 

  13985.                                           ("DLAQR5" "dlaqr5_" %%DLAQR5 %DLAQR5)
    13986. 

  13986.                                           ("DLAQSB" "dlaqsb_" %%DLAQSB %DLAQSB)
    13987. 

  13987.                                           ("DLAQSP" "dlaqsp_" %%DLAQSP %DLAQSP)
    13988. 

  13988.                                           ("DLAQSY" "dlaqsy_" %%DLAQSY %DLAQSY)
    13989. 

  13989.                                           ("DLAQTR" "dlaqtr_" %%DLAQTR %DLAQTR)
    13990. 

  13990.                                           ("DLAR1V" "dlar1v_" %%DLAR1V %DLAR1V)
    13991. 

  13991.                                           ("DLAR2V" "dlar2v_" %%DLAR2V %DLAR2V)
    13992. 

  13992.                                           ("DLARF" "dlarf_" %%DLARF %DLARF)
    13993. 

  13993.                                           ("DLARFB" "dlarfb_" %%DLARFB %DLARFB)
    13994. 

  13994.                                           ("DLARFG" "dlarfg_" %%DLARFG %DLARFG)
    13995. 

  13995.                                           ("DLARFGP" "dlarfgp_" %%DLARFGP
    13996. 

  13996.                                            %DLARFGP)
    13997. 

  13997.                                           ("DLARFT" "dlarft_" %%DLARFT %DLARFT)
    13998. 

  13998.                                           ("DLARFX" "dlarfx_" %%DLARFX %DLARFX)
    13999. 

  13999.                                           ("DLARFY" "dlarfy_" %%DLARFY %DLARFY)
    14000. 

  14000.                                           ("DLARGV" "dlargv_" %%DLARGV %DLARGV)
    14001. 

  14001.                                           ("DLARNV" "dlarnv_" %%DLARNV %DLARNV)
    14002. 

  14002.                                           ("DLARRA" "dlarra_" %%DLARRA %DLARRA)
    14003. 

  14003.                                           ("DLARRB" "dlarrb_" %%DLARRB %DLARRB)
    14004. 

  14004.                                           ("DLARRC" "dlarrc_" %%DLARRC %DLARRC)
    14005. 

  14005.                                           ("DLARRD" "dlarrd_" %%DLARRD %DLARRD)
    14006. 

  14006.                                           ("DLARRE" "dlarre_" %%DLARRE %DLARRE)
    14007. 

  14007.                                           ("DLARRF" "dlarrf_" %%DLARRF %DLARRF)
    14008. 

  14008.                                           ("DLARRJ" "dlarrj_" %%DLARRJ %DLARRJ)
    14009. 

  14009.                                           ("DLARRK" "dlarrk_" %%DLARRK %DLARRK)
    14010. 

  14010.                                           ("DLARRR" "dlarrr_" %%DLARRR %DLARRR)
    14011. 

  14011.                                           ("DLARRV" "dlarrv_" %%DLARRV %DLARRV)
    14012. 

  14012.                                           ("DLARSCL2" "dlarscl2_" %%DLARSCL2
    14013. 

  14013.                                            %DLARSCL2)
    14014. 

  14014.                                           ("DLARTG" "dlartg_" %%DLARTG %DLARTG)
    14015. 

  14015.                                           ("DLARTGP" "dlartgp_" %%DLARTGP
    14016. 

  14016.                                            %DLARTGP)
    14017. 

  14017.                                           ("DLARTGS" "dlartgs_" %%DLARTGS
    14018. 

  14018.                                            %DLARTGS)
    14019. 

  14019.                                           ("DLARTV" "dlartv_" %%DLARTV %DLARTV)
    14020. 

  14020.                                           ("DLARUV" "dlaruv_" %%DLARUV %DLARUV)
    14021. 

  14021.                                           ("DLARZ" "dlarz_" %%DLARZ %DLARZ)
    14022. 

  14022.                                           ("DLARZB" "dlarzb_" %%DLARZB %DLARZB)
    14023. 

  14023.                                           ("DLARZT" "dlarzt_" %%DLARZT %DLARZT)
    14024. 

  14024.                                           ("DLAS2" "dlas2_" %%DLAS2 %DLAS2)
    14025. 

  14025.                                           ("DLASCL" "dlascl_" %%DLASCL %DLASCL)
    14026. 

  14026.                                           ("DLASCL2" "dlascl2_" %%DLASCL2
    14027. 

  14027.                                            %DLASCL2)
    14028. 

  14028.                                           ("DLASD0" "dlasd0_" %%DLASD0 %DLASD0)
    14029. 

  14029.                                           ("DLASD1" "dlasd1_" %%DLASD1 %DLASD1)
    14030. 

  14030.                                           ("DLASD2" "dlasd2_" %%DLASD2 %DLASD2)
    14031. 

  14031.                                           ("DLASD3" "dlasd3_" %%DLASD3 %DLASD3)
    14032. 

  14032.                                           ("DLASD4" "dlasd4_" %%DLASD4 %DLASD4)
    14033. 

  14033.                                           ("DLASD5" "dlasd5_" %%DLASD5 %DLASD5)
    14034. 

  14034.                                           ("DLASD6" "dlasd6_" %%DLASD6 %DLASD6)
    14035. 

  14035.                                           ("DLASD7" "dlasd7_" %%DLASD7 %DLASD7)
    14036. 

  14036.                                           ("DLASD8" "dlasd8_" %%DLASD8 %DLASD8)
    14037. 

  14037.                                           ("DLASDA" "dlasda_" %%DLASDA %DLASDA)
    14038. 

  14038.                                           ("DLASDQ" "dlasdq_" %%DLASDQ %DLASDQ)
    14039. 

  14039.                                           ("DLASDT" "dlasdt_" %%DLASDT %DLASDT)
    14040. 

  14040.                                           ("DLASET" "dlaset_" %%DLASET %DLASET)
    14041. 

  14041.                                           ("DLASQ1" "dlasq1_" %%DLASQ1 %DLASQ1)
    14042. 

  14042.                                           ("DLASQ2" "dlasq2_" %%DLASQ2 %DLASQ2)
    14043. 

  14043.                                           ("DLASQ3" "dlasq3_" %%DLASQ3 %DLASQ3)
    14044. 

  14044.                                           ("DLASQ4" "dlasq4_" %%DLASQ4 %DLASQ4)
    14045. 

  14045.                                           ("DLASQ5" "dlasq5_" %%DLASQ5 %DLASQ5)
    14046. 

  14046.                                           ("DLASQ6" "dlasq6_" %%DLASQ6 %DLASQ6)
    14047. 

  14047.                                           ("DLASR" "dlasr_" %%DLASR %DLASR)
    14048. 

  14048.                                           ("DLASRT" "dlasrt_" %%DLASRT %DLASRT)
    14049. 

  14049.                                           ("DLASSQ" "dlassq_" %%DLASSQ %DLASSQ)
    14050. 

  14050.                                           ("DLASV2" "dlasv2_" %%DLASV2 %DLASV2)
    14051. 

  14051.                                           ("DLASWLQ" "dlaswlq_" %%DLASWLQ
    14052. 

  14052.                                            %DLASWLQ)))
    14053. 

  14053. 

  14054. (COMMON-LISP:EXPORT
    14055. 

  14055.  '(%DGBBRD %DGBCON %DGBEQU %DGBEQUB %DGBRFS %DGBRFSX %DGBSV %DGBSVX %DGBSVXX
    14056. 

  14056.    %DGBTF2 %DGBTRF %DGBTRS %DGEBAK %DGEBAL %DGEBD2 %DGEBRD %DGECON %DGEEQU
    14057. 

  14057.    %DGEEQUB %DGEES %DGEESX %DGEEV %DGEEVX %DGEHD2 %DGEHRD %DGEJSV %DGELQ
    14058. 

  14058.    %DGELQ2 %DGELQF %DGELQT %DGELQT3 %DGELS %DGELSD %DGELSS %DGELSY %DGEMLQ
    14059. 

  14059.    %DGEMLQT %DGEMQR %DGEMQRT %DGEQL2 %DGEQLF %DGEQP3 %DGEQR %DGEQR2 %DGEQR2P
    14060. 

  14060.    %DGEQRF %DGEQRFP %DGEQRT %DGEQRT2 %DGEQRT3 %DGERFS %DGERFSX %DGERQ2 %DGERQF
    14061. 

  14061.    %DGESC2 %DGESDD %DGESV %DGESVD %DGESVDQ %DGESVDX %DGESVJ %DGESVX %DGESVXX
    14062. 

  14062.    %DGETC2 %DGETF2 %DGETRF %DGETRF2 %DGETRI %DGETRS %DGETSLS %DGGBAK %DGGBAL
    14063. 

  14063.    %DGGES %DGGES3 %DGGESX %DGGEV %DGGEV3 %DGGEVX %DGGGLM %DGGHD3 %DGGHRD
    14064. 

  14064.    %DGGLSE %DGGQRF %DGGRQF %DGGSVD3 %DGGSVP3 %DGSVJ0 %DGSVJ1 %DGTCON %DGTRFS
    14065. 

  14065.    %DGTSV %DGTSVX %DGTTRF %DGTTRS %DGTTS2 %DHGEQZ %DHSEIN %DHSEQR %DISNAN
    14066. 

  14066.    %DLA_GBAMV %DLA_GBRCOND %DLA_GBRFSX_EXTENDED %DLA_GBRPVGRW %DLA_GEAMV
    14067. 

  14067.    %DLA_GERCOND %DLA_GERFSX_EXTENDED %DLA_GERPVGRW %DLA_LIN_BERR %DLA_PORCOND
    14068. 

  14068.    %DLA_PORFSX_EXTENDED %DLA_PORPVGRW %DLA_SYAMV %DLA_SYRCOND
    14069. 

  14069.    %DLA_SYRFSX_EXTENDED %DLA_SYRPVGRW %DLA_WWADDW %DLABAD %DLABRD %DLACN2
    14070. 

  14070.    %DLACON %DLACPY %DLADIV %DLAE2 %DLAEBZ %DLAED0 %DLAED1 %DLAED2 %DLAED3
    14071. 

  14071.    %DLAED4 %DLAED5 %DLAED6 %DLAED7 %DLAED8 %DLAED9 %DLAEDA %DLAEIN %DLAEV2
    14072. 

  14072.    %DLAEXC %DLAG2 %DLAG2S %DLAGS2 %DLAGTF %DLAGTM %DLAGTS %DLAGV2 %DLAHQR
    14073. 

  14073.    %DLAHR2 %DLAIC1 %DLAISNAN %DLALN2 %DLALS0 %DLALSA %DLALSD %DLAMRG %DLAMSWLQ
    14074. 

  14074.    %DLAMTSQR %DLANEG %DLANGB %DLANGE %DLANGT %DLANHS %DLANSB %DLANSF %DLANSP
    14075. 

  14075.    %DLANST %DLANSY %DLANTB %DLANTP %DLANTR %DLANV2 %DLAORHR_COL_GETRFNP
    14076. 

  14076.    %DLAORHR_COL_GETRFNP2 %DLAPLL %DLAPMR %DLAPMT %DLAPY2 %DLAPY3 %DLAQGB
    14077. 

  14077.    %DLAQGE %DLAQP2 %DLAQPS %DLAQR0 %DLAQR1 %DLAQR2 %DLAQR3 %DLAQR4 %DLAQR5
    14078. 

  14078.    %DLAQSB %DLAQSP %DLAQSY %DLAQTR %DLAR1V %DLAR2V %DLARF %DLARFB %DLARFG
    14079. 

  14079.    %DLARFGP %DLARFT %DLARFX %DLARFY %DLARGV %DLARNV %DLARRA %DLARRB %DLARRC
    14080. 

  14080.    %DLARRD %DLARRE %DLARRF %DLARRJ %DLARRK %DLARRR %DLARRV %DLARSCL2 %DLARTG
    14081. 

  14081.    %DLARTGP %DLARTGS %DLARTV %DLARUV %DLARZ %DLARZB %DLARZT %DLAS2 %DLASCL
    14082. 

  14082.    %DLASCL2 %DLASD0 %DLASD1 %DLASD2 %DLASD3 %DLASD4 %DLASD5 %DLASD6 %DLASD7
    14083. 

  14083.    %DLASD8 %DLASDA %DLASDQ %DLASDT %DLASET %DLASQ1 %DLASQ2 %DLASQ3 %DLASQ4
    14084. 

  14084.    %DLASQ5 %DLASQ6 %DLASR %DLASRT %DLASSQ %DLASV2 %DLASWLQ)
    14085. 

  14085.  '#:MAGICL.LAPACK-CFFI)
    14086. 

    14087. 

  14087. ;;; End of file.
    14088.