/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

Large files are truncated click here to view the full 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-BY…
    979.