68: -- Y. INCY must not be zero.
69: -- Unchanged on exit.
70:
71: PROCEDURE blas_swap(n IN POSITIVEN,
72: x IN OUT utl_nla_array_dbl,
73: incx IN POSITIVEN,
74: y IN OUT utl_nla_array_dbl,
75: incy IN POSITIVEN);
76:
70:
71: PROCEDURE blas_swap(n IN POSITIVEN,
72: x IN OUT utl_nla_array_dbl,
73: incx IN POSITIVEN,
74: y IN OUT utl_nla_array_dbl,
75: incy IN POSITIVEN);
76:
77: PROCEDURE blas_swap(n IN POSITIVEN,
78: x IN OUT UTL_NLA_ARRAY_FLT,
103: -- Unchanged on exit.
104:
105: PROCEDURE blas_scal(n IN POSITIVEN,
106: alpha IN scalar_double,
107: x IN OUT utl_nla_array_dbl,
108: incx IN POSITIVEN);
109:
110: PROCEDURE blas_scal(n IN POSITIVEN,
111: alpha IN scalar_float,
137: -- Y. INCY must not be zero.
138: -- Unchanged on exit.
139:
140: PROCEDURE blas_copy(n IN POSITIVEN,
141: x IN utl_nla_array_dbl,
142: incx IN POSITIVEN,
143: y IN OUT utl_nla_array_dbl,
144: incy IN POSITIVEN);
145:
139:
140: PROCEDURE blas_copy(n IN POSITIVEN,
141: x IN utl_nla_array_dbl,
142: incx IN POSITIVEN,
143: y IN OUT utl_nla_array_dbl,
144: incy IN POSITIVEN);
145:
146: PROCEDURE blas_copy(n IN POSITIVEN,
147: x IN UTL_NLA_ARRAY_FLT,
179: -- Unchanged on exit.
180:
181: PROCEDURE blas_axpy(n IN POSITIVEN,
182: alpha IN scalar_double,
183: x IN utl_nla_array_dbl,
184: incx IN POSITIVEN,
185: y IN OUT utl_nla_array_dbl,
186: incy IN POSITIVEN);
187:
181: PROCEDURE blas_axpy(n IN POSITIVEN,
182: alpha IN scalar_double,
183: x IN utl_nla_array_dbl,
184: incx IN POSITIVEN,
185: y IN OUT utl_nla_array_dbl,
186: incy IN POSITIVEN);
187:
188: PROCEDURE blas_axpy(n IN POSITIVEN,
189: alpha IN scalar_float,
219: -- Y. INCY must not be zero.
220: -- Unchanged on exit.
221:
222: FUNCTION blas_dot(n IN POSITIVEN,
223: x IN utl_nla_array_dbl,
224: incx IN POSITIVEN,
225: y IN utl_nla_array_dbl,
226: incy IN POSITIVEN) RETURN BINARY_DOUBLE;
227:
221:
222: FUNCTION blas_dot(n IN POSITIVEN,
223: x IN utl_nla_array_dbl,
224: incx IN POSITIVEN,
225: y IN utl_nla_array_dbl,
226: incy IN POSITIVEN) RETURN BINARY_DOUBLE;
227:
228: FUNCTION blas_dot(n IN POSITIVEN,
229: x IN UTL_NLA_ARRAY_FLT,
251: -- X. INCX must not be zero.
252: -- Unchanged on exit.
253:
254: FUNCTION blas_nrm2(n IN POSITIVEN,
255: x IN utl_nla_array_dbl,
256: incx IN POSITIVEN) RETURN BINARY_DOUBLE;
257:
258: FUNCTION blas_nrm2(n IN POSITIVEN,
259: x IN UTL_NLA_ARRAY_FLT,
279: -- X. INCX must not be zero.
280: -- Unchanged on exit.
281:
282: FUNCTION blas_asum(n IN POSITIVEN,
283: x IN utl_nla_array_dbl,
284: incx IN POSITIVEN) RETURN BINARY_DOUBLE;
285:
286: FUNCTION blas_asum(n IN POSITIVEN,
287: x IN UTL_NLA_ARRAY_FLT,
308: -- X. INCX must not be zero.
309: -- Unchanged on exit.
310:
311: FUNCTION blas_iamax(n IN POSITIVEN,
312: x IN utl_nla_array_dbl,
313: incx IN POSITIVEN) RETURN POSITIVEN;
314:
315: FUNCTION blas_iamax(n IN POSITIVEN,
316: x IN UTL_NLA_ARRAY_FLT,
347: -- On entry, S specifies the scalar S.
348: -- Unchanged on exit.
349:
350: PROCEDURE blas_rot(n IN POSITIVEN,
351: x IN OUT utl_nla_array_dbl,
352: incx IN POSITIVEN,
353: y IN OUT utl_nla_array_dbl,
354: incy IN POSITIVEN,
355: c IN scalar_double,
349:
350: PROCEDURE blas_rot(n IN POSITIVEN,
351: x IN OUT utl_nla_array_dbl,
352: incx IN POSITIVEN,
353: y IN OUT utl_nla_array_dbl,
354: incy IN POSITIVEN,
355: c IN scalar_double,
356: s IN scalar_double);
357:
466: PROCEDURE blas_gemv(trans IN flag,
467: m IN POSITIVEN,
468: n IN POSITIVEN,
469: alpha IN scalar_double,
470: a IN utl_nla_array_dbl,
471: lda IN POSITIVEN,
472: x IN utl_nla_array_dbl,
473: incx IN POSITIVEN,
474: beta IN scalar_double,
468: n IN POSITIVEN,
469: alpha IN scalar_double,
470: a IN utl_nla_array_dbl,
471: lda IN POSITIVEN,
472: x IN utl_nla_array_dbl,
473: incx IN POSITIVEN,
474: beta IN scalar_double,
475: y IN OUT utl_nla_array_dbl,
476: incy IN POSITIVEN,
471: lda IN POSITIVEN,
472: x IN utl_nla_array_dbl,
473: incx IN POSITIVEN,
474: beta IN scalar_double,
475: y IN OUT utl_nla_array_dbl,
476: incy IN POSITIVEN,
477: pack IN flag DEFAULT 'C');
478:
479: PROCEDURE blas_gemv(trans IN flag,
577: n IN POSITIVEN,
578: kl IN NATURALN,
579: ku IN NATURALN,
580: alpha IN scalar_double,
581: a IN utl_nla_array_dbl,
582: lda IN POSITIVEN,
583: x IN utl_nla_array_dbl,
584: incx IN POSITIVEN,
585: beta IN scalar_double,
579: ku IN NATURALN,
580: alpha IN scalar_double,
581: a IN utl_nla_array_dbl,
582: lda IN POSITIVEN,
583: x IN utl_nla_array_dbl,
584: incx IN POSITIVEN,
585: beta IN scalar_double,
586: y IN OUT utl_nla_array_dbl,
587: incy IN POSITIVEN,
582: lda IN POSITIVEN,
583: x IN utl_nla_array_dbl,
584: incx IN POSITIVEN,
585: beta IN scalar_double,
586: y IN OUT utl_nla_array_dbl,
587: incy IN POSITIVEN,
588: pack IN flag DEFAULT 'C');
589:
590: PROCEDURE blas_gbmv(trans IN flag,
673:
674: PROCEDURE blas_symv(uplo IN flag,
675: n IN POSITIVEN,
676: alpha IN scalar_double,
677: a IN utl_nla_array_dbl,
678: lda IN POSITIVEN,
679: x IN utl_nla_array_dbl,
680: incx IN POSITIVEN,
681: beta IN scalar_double,
675: n IN POSITIVEN,
676: alpha IN scalar_double,
677: a IN utl_nla_array_dbl,
678: lda IN POSITIVEN,
679: x IN utl_nla_array_dbl,
680: incx IN POSITIVEN,
681: beta IN scalar_double,
682: y IN OUT utl_nla_array_dbl,
683: incy IN POSITIVEN,
678: lda IN POSITIVEN,
679: x IN utl_nla_array_dbl,
680: incx IN POSITIVEN,
681: beta IN scalar_double,
682: y IN OUT utl_nla_array_dbl,
683: incy IN POSITIVEN,
684: pack IN flag DEFAULT 'C');
685:
686: PROCEDURE blas_symv(uplo IN flag,
775: PROCEDURE blas_sbmv(uplo IN flag,
776: n IN POSITIVEN,
777: k IN NATURALN,
778: alpha IN scalar_double,
779: a IN utl_nla_array_dbl,
780: lda IN POSITIVEN,
781: x IN utl_nla_array_dbl,
782: incx IN POSITIVEN,
783: beta IN scalar_double,
777: k IN NATURALN,
778: alpha IN scalar_double,
779: a IN utl_nla_array_dbl,
780: lda IN POSITIVEN,
781: x IN utl_nla_array_dbl,
782: incx IN POSITIVEN,
783: beta IN scalar_double,
784: y IN OUT utl_nla_array_dbl,
785: incy IN POSITIVEN,
780: lda IN POSITIVEN,
781: x IN utl_nla_array_dbl,
782: incx IN POSITIVEN,
783: beta IN scalar_double,
784: y IN OUT utl_nla_array_dbl,
785: incy IN POSITIVEN,
786: pack IN flag DEFAULT 'C');
787:
788: PROCEDURE blas_sbmv(uplo IN flag,
867:
868: PROCEDURE blas_spmv(uplo IN flag,
869: n IN POSITIVEN,
870: alpha IN scalar_double,
871: ap IN utl_nla_array_dbl,
872: x IN utl_nla_array_dbl,
873: incx IN POSITIVEN,
874: beta IN scalar_double,
875: y IN OUT utl_nla_array_dbl,
868: PROCEDURE blas_spmv(uplo IN flag,
869: n IN POSITIVEN,
870: alpha IN scalar_double,
871: ap IN utl_nla_array_dbl,
872: x IN utl_nla_array_dbl,
873: incx IN POSITIVEN,
874: beta IN scalar_double,
875: y IN OUT utl_nla_array_dbl,
876: incy IN POSITIVEN,
871: ap IN utl_nla_array_dbl,
872: x IN utl_nla_array_dbl,
873: incx IN POSITIVEN,
874: beta IN scalar_double,
875: y IN OUT utl_nla_array_dbl,
876: incy IN POSITIVEN,
877: pack IN flag DEFAULT 'C');
878:
879: PROCEDURE blas_spmv(uplo IN flag,
956: PROCEDURE blas_trmv(uplo IN flag,
957: trans IN flag,
958: diag IN flag,
959: n IN POSITIVEN,
960: a IN utl_nla_array_dbl,
961: lda IN POSITIVEN,
962: x IN OUT utl_nla_array_dbl,
963: incx IN POSITIVEN,
964: pack IN flag DEFAULT 'C');
958: diag IN flag,
959: n IN POSITIVEN,
960: a IN utl_nla_array_dbl,
961: lda IN POSITIVEN,
962: x IN OUT utl_nla_array_dbl,
963: incx IN POSITIVEN,
964: pack IN flag DEFAULT 'C');
965:
966: PROCEDURE blas_trmv(uplo IN flag,
1057: trans IN flag,
1058: diag IN flag,
1059: n IN POSITIVEN,
1060: k IN NATURALN,
1061: a IN utl_nla_array_dbl,
1062: lda IN POSITIVEN,
1063: x IN OUT utl_nla_array_dbl,
1064: incx IN POSITIVEN,
1065: pack IN flag DEFAULT 'C');
1059: n IN POSITIVEN,
1060: k IN NATURALN,
1061: a IN utl_nla_array_dbl,
1062: lda IN POSITIVEN,
1063: x IN OUT utl_nla_array_dbl,
1064: incx IN POSITIVEN,
1065: pack IN flag DEFAULT 'C');
1066:
1067: PROCEDURE blas_tbmv(uplo IN flag,
1142: PROCEDURE blas_tpmv(uplo IN flag,
1143: trans IN flag,
1144: diag IN flag,
1145: n IN POSITIVEN,
1146: ap IN utl_nla_array_dbl,
1147: x IN OUT utl_nla_array_dbl,
1148: incx IN POSITIVEN,
1149: pack IN flag DEFAULT 'C');
1150:
1143: trans IN flag,
1144: diag IN flag,
1145: n IN POSITIVEN,
1146: ap IN utl_nla_array_dbl,
1147: x IN OUT utl_nla_array_dbl,
1148: incx IN POSITIVEN,
1149: pack IN flag DEFAULT 'C');
1150:
1151: PROCEDURE blas_tpmv(uplo IN flag,
1228: PROCEDURE blas_trsv(uplo IN flag,
1229: trans IN flag,
1230: diag IN flag,
1231: n IN POSITIVEN,
1232: a IN utl_nla_array_dbl,
1233: lda IN POSITIVEN,
1234: x IN OUT utl_nla_array_dbl,
1235: incx IN POSITIVEN,
1236: pack IN flag DEFAULT 'C');
1230: diag IN flag,
1231: n IN POSITIVEN,
1232: a IN utl_nla_array_dbl,
1233: lda IN POSITIVEN,
1234: x IN OUT utl_nla_array_dbl,
1235: incx IN POSITIVEN,
1236: pack IN flag DEFAULT 'C');
1237:
1238: PROCEDURE blas_trsv(uplo IN flag,
1332: trans IN flag,
1333: diag IN flag,
1334: n IN POSITIVEN,
1335: k IN NATURALN,
1336: a IN utl_nla_array_dbl,
1337: lda IN POSITIVEN,
1338: x IN OUT utl_nla_array_dbl,
1339: incx IN POSITIVEN,
1340: pack IN flag DEFAULT 'C');
1334: n IN POSITIVEN,
1335: k IN NATURALN,
1336: a IN utl_nla_array_dbl,
1337: lda IN POSITIVEN,
1338: x IN OUT utl_nla_array_dbl,
1339: incx IN POSITIVEN,
1340: pack IN flag DEFAULT 'C');
1341:
1342: PROCEDURE blas_tbsv(uplo IN flag,
1419: PROCEDURE blas_tpsv(uplo IN flag,
1420: trans IN flag,
1421: diag IN flag,
1422: n IN POSITIVEN,
1423: ap IN utl_nla_array_dbl,
1424: x IN OUT utl_nla_array_dbl,
1425: incx IN POSITIVEN,
1426: pack IN flag DEFAULT 'C');
1427:
1420: trans IN flag,
1421: diag IN flag,
1422: n IN POSITIVEN,
1423: ap IN utl_nla_array_dbl,
1424: x IN OUT utl_nla_array_dbl,
1425: incx IN POSITIVEN,
1426: pack IN flag DEFAULT 'C');
1427:
1428: PROCEDURE blas_tpsv(uplo IN flag,
1490:
1491: PROCEDURE blas_ger(m IN POSITIVEN,
1492: n IN POSITIVEN,
1493: alpha IN scalar_double,
1494: x IN utl_nla_array_dbl,
1495: incx IN POSITIVEN,
1496: y IN utl_nla_array_dbl,
1497: incy IN POSITIVEN,
1498: a IN OUT utl_nla_array_dbl,
1492: n IN POSITIVEN,
1493: alpha IN scalar_double,
1494: x IN utl_nla_array_dbl,
1495: incx IN POSITIVEN,
1496: y IN utl_nla_array_dbl,
1497: incy IN POSITIVEN,
1498: a IN OUT utl_nla_array_dbl,
1499: lda IN POSITIVEN,
1500: pack IN flag DEFAULT 'C');
1494: x IN utl_nla_array_dbl,
1495: incx IN POSITIVEN,
1496: y IN utl_nla_array_dbl,
1497: incy IN POSITIVEN,
1498: a IN OUT utl_nla_array_dbl,
1499: lda IN POSITIVEN,
1500: pack IN flag DEFAULT 'C');
1501:
1502: PROCEDURE blas_ger(m IN POSITIVEN,
1571:
1572: PROCEDURE blas_syr(uplo IN flag,
1573: n IN POSITIVEN,
1574: alpha IN scalar_double,
1575: x IN utl_nla_array_dbl,
1576: incx IN POSITIVEN,
1577: a IN OUT utl_nla_array_dbl,
1578: lda IN POSITIVEN,
1579: pack IN flag DEFAULT 'C');
1573: n IN POSITIVEN,
1574: alpha IN scalar_double,
1575: x IN utl_nla_array_dbl,
1576: incx IN POSITIVEN,
1577: a IN OUT utl_nla_array_dbl,
1578: lda IN POSITIVEN,
1579: pack IN flag DEFAULT 'C');
1580:
1581: PROCEDURE blas_syr(uplo IN flag,
1646:
1647: PROCEDURE blas_spr(uplo IN flag,
1648: n IN POSITIVEN,
1649: alpha IN scalar_double,
1650: x IN utl_nla_array_dbl,
1651: incx IN POSITIVEN,
1652: ap IN OUT utl_nla_array_dbl,
1653: pack IN flag DEFAULT 'C');
1654:
1648: n IN POSITIVEN,
1649: alpha IN scalar_double,
1650: x IN utl_nla_array_dbl,
1651: incx IN POSITIVEN,
1652: ap IN OUT utl_nla_array_dbl,
1653: pack IN flag DEFAULT 'C');
1654:
1655: PROCEDURE blas_spr(uplo IN flag,
1656: n IN POSITIVEN,
1730:
1731: PROCEDURE blas_syr2(uplo IN flag,
1732: n IN POSITIVEN,
1733: alpha IN scalar_double,
1734: x IN utl_nla_array_dbl,
1735: incx IN POSITIVEN,
1736: y IN utl_nla_array_dbl,
1737: incy IN POSITIVEN,
1738: a IN OUT utl_nla_array_dbl,
1732: n IN POSITIVEN,
1733: alpha IN scalar_double,
1734: x IN utl_nla_array_dbl,
1735: incx IN POSITIVEN,
1736: y IN utl_nla_array_dbl,
1737: incy IN POSITIVEN,
1738: a IN OUT utl_nla_array_dbl,
1739: lda IN POSITIVEN,
1740: pack IN flag DEFAULT 'C');
1734: x IN utl_nla_array_dbl,
1735: incx IN POSITIVEN,
1736: y IN utl_nla_array_dbl,
1737: incy IN POSITIVEN,
1738: a IN OUT utl_nla_array_dbl,
1739: lda IN POSITIVEN,
1740: pack IN flag DEFAULT 'C');
1741:
1742: PROCEDURE blas_syr2(uplo IN flag,
1818:
1819: PROCEDURE blas_spr2(uplo IN flag,
1820: n IN POSITIVEN,
1821: alpha IN scalar_double,
1822: x IN utl_nla_array_dbl,
1823: incx IN POSITIVEN,
1824: y IN utl_nla_array_dbl,
1825: incy IN POSITIVEN,
1826: ap IN OUT utl_nla_array_dbl,
1820: n IN POSITIVEN,
1821: alpha IN scalar_double,
1822: x IN utl_nla_array_dbl,
1823: incx IN POSITIVEN,
1824: y IN utl_nla_array_dbl,
1825: incy IN POSITIVEN,
1826: ap IN OUT utl_nla_array_dbl,
1827: pack IN flag DEFAULT 'C');
1828:
1822: x IN utl_nla_array_dbl,
1823: incx IN POSITIVEN,
1824: y IN utl_nla_array_dbl,
1825: incy IN POSITIVEN,
1826: ap IN OUT utl_nla_array_dbl,
1827: pack IN flag DEFAULT 'C');
1828:
1829: PROCEDURE blas_spr2(uplo IN flag,
1830: n IN POSITIVEN,
1935: m IN POSITIVEN,
1936: n IN POSITIVEN,
1937: k IN POSITIVEN,
1938: alpha IN scalar_double,
1939: a IN utl_nla_array_dbl,
1940: lda IN POSITIVEN,
1941: b IN utl_nla_array_dbl,
1942: ldb IN POSITIVEN,
1943: beta IN scalar_double,
1937: k IN POSITIVEN,
1938: alpha IN scalar_double,
1939: a IN utl_nla_array_dbl,
1940: lda IN POSITIVEN,
1941: b IN utl_nla_array_dbl,
1942: ldb IN POSITIVEN,
1943: beta IN scalar_double,
1944: c IN OUT utl_nla_array_dbl,
1945: ldc IN POSITIVEN,
1940: lda IN POSITIVEN,
1941: b IN utl_nla_array_dbl,
1942: ldb IN POSITIVEN,
1943: beta IN scalar_double,
1944: c IN OUT utl_nla_array_dbl,
1945: ldc IN POSITIVEN,
1946: pack IN flag DEFAULT 'C');
1947:
1948: PROCEDURE blas_gemm(transa IN flag,
2061: uplo IN flag,
2062: m IN POSITIVEN,
2063: n IN POSITIVEN,
2064: alpha IN scalar_double,
2065: a IN utl_nla_array_dbl,
2066: lda IN POSITIVEN,
2067: b IN utl_nla_array_dbl,
2068: ldb IN POSITIVEN,
2069: beta IN scalar_double,
2063: n IN POSITIVEN,
2064: alpha IN scalar_double,
2065: a IN utl_nla_array_dbl,
2066: lda IN POSITIVEN,
2067: b IN utl_nla_array_dbl,
2068: ldb IN POSITIVEN,
2069: beta IN scalar_double,
2070: c IN OUT utl_nla_array_dbl,
2071: ldc IN POSITIVEN,
2066: lda IN POSITIVEN,
2067: b IN utl_nla_array_dbl,
2068: ldb IN POSITIVEN,
2069: beta IN scalar_double,
2070: c IN OUT utl_nla_array_dbl,
2071: ldc IN POSITIVEN,
2072: pack IN flag DEFAULT 'C');
2073:
2074: PROCEDURE blas_symm(side IN flag,
2174: diag IN flag,
2175: m IN POSITIVEN,
2176: n IN POSITIVEN,
2177: alpha IN scalar_double,
2178: a IN utl_nla_array_dbl,
2179: lda IN POSITIVEN,
2180: b IN OUT utl_nla_array_dbl,
2181: ldb IN POSITIVEN,
2182: pack IN flag DEFAULT 'C');
2176: n IN POSITIVEN,
2177: alpha IN scalar_double,
2178: a IN utl_nla_array_dbl,
2179: lda IN POSITIVEN,
2180: b IN OUT utl_nla_array_dbl,
2181: ldb IN POSITIVEN,
2182: pack IN flag DEFAULT 'C');
2183:
2184: PROCEDURE blas_trmm(side IN flag,
2285: diag IN flag,
2286: m IN POSITIVEN,
2287: n IN POSITIVEN,
2288: alpha IN scalar_double,
2289: a IN utl_nla_array_dbl,
2290: lda IN POSITIVEN,
2291: b IN OUT utl_nla_array_dbl,
2292: ldb IN POSITIVEN,
2293: pack IN flag DEFAULT 'C');
2287: n IN POSITIVEN,
2288: alpha IN scalar_double,
2289: a IN utl_nla_array_dbl,
2290: lda IN POSITIVEN,
2291: b IN OUT utl_nla_array_dbl,
2292: ldb IN POSITIVEN,
2293: pack IN flag DEFAULT 'C');
2294:
2295: PROCEDURE blas_trsm(side IN flag,
2390: trans IN flag,
2391: n IN POSITIVEN,
2392: k IN POSITIVEN,
2393: alpha IN scalar_double,
2394: a IN utl_nla_array_dbl,
2395: lda IN POSITIVEN,
2396: beta IN scalar_double,
2397: c IN OUT utl_nla_array_dbl,
2398: ldc IN POSITIVEN,
2393: alpha IN scalar_double,
2394: a IN utl_nla_array_dbl,
2395: lda IN POSITIVEN,
2396: beta IN scalar_double,
2397: c IN OUT utl_nla_array_dbl,
2398: ldc IN POSITIVEN,
2399: pack IN flag DEFAULT 'C');
2400:
2401: PROCEDURE blas_syrk(uplo IN flag,
2511: trans IN flag,
2512: n IN POSITIVEN,
2513: k IN POSITIVEN,
2514: alpha IN scalar_double,
2515: a IN utl_nla_array_dbl,
2516: lda IN POSITIVEN,
2517: b IN utl_nla_array_dbl,
2518: ldb IN POSITIVEN,
2519: beta IN scalar_double,
2513: k IN POSITIVEN,
2514: alpha IN scalar_double,
2515: a IN utl_nla_array_dbl,
2516: lda IN POSITIVEN,
2517: b IN utl_nla_array_dbl,
2518: ldb IN POSITIVEN,
2519: beta IN scalar_double,
2520: c IN OUT utl_nla_array_dbl,
2521: ldc IN POSITIVEN,
2516: lda IN POSITIVEN,
2517: b IN utl_nla_array_dbl,
2518: ldb IN POSITIVEN,
2519: beta IN scalar_double,
2520: c IN OUT utl_nla_array_dbl,
2521: ldc IN POSITIVEN,
2522: pack IN flag DEFAULT 'C');
2523:
2524: PROCEDURE blas_syr2k(uplo IN flag,
2597: -- 'R': row-major
2598:
2599: PROCEDURE lapack_gesv(n IN POSITIVEN,
2600: nrhs IN POSITIVEN,
2601: a IN OUT utl_nla_array_dbl,
2602: lda IN POSITIVEN,
2603: ipiv IN OUT UTL_NLA_ARRAY_INT,
2604: b IN OUT utl_nla_array_dbl,
2605: ldb IN POSITIVEN,
2600: nrhs IN POSITIVEN,
2601: a IN OUT utl_nla_array_dbl,
2602: lda IN POSITIVEN,
2603: ipiv IN OUT UTL_NLA_ARRAY_INT,
2604: b IN OUT utl_nla_array_dbl,
2605: ldb IN POSITIVEN,
2606: info OUT integer,
2607: pack IN flag DEFAULT 'C');
2608:
2688: PROCEDURE lapack_gbsv (n IN POSITIVEN,
2689: kl IN NATURALN,
2690: ku IN NATURALN,
2691: nrhs IN POSITIVEN,
2692: ab IN OUT utl_nla_array_dbl,
2693: ldab IN POSITIVEN,
2694: ipiv IN OUT UTL_NLA_ARRAY_INT,
2695: b IN OUT utl_nla_array_dbl,
2696: ldb IN POSITIVEN,
2691: nrhs IN POSITIVEN,
2692: ab IN OUT utl_nla_array_dbl,
2693: ldab IN POSITIVEN,
2694: ipiv IN OUT UTL_NLA_ARRAY_INT,
2695: b IN OUT utl_nla_array_dbl,
2696: ldb IN POSITIVEN,
2697: info OUT integer,
2698: pack IN flag DEFAULT 'C');
2699:
2772: -- 'R': row-major
2773:
2774: PROCEDURE lapack_gtsv (n IN POSITIVEN,
2775: nrhs IN POSITIVEN,
2776: dl IN OUT utl_nla_array_dbl,
2777: d IN OUT utl_nla_array_dbl,
2778: du IN OUT utl_nla_array_dbl,
2779: b IN OUT utl_nla_array_dbl,
2780: ldb IN POSITIVEN,
2773:
2774: PROCEDURE lapack_gtsv (n IN POSITIVEN,
2775: nrhs IN POSITIVEN,
2776: dl IN OUT utl_nla_array_dbl,
2777: d IN OUT utl_nla_array_dbl,
2778: du IN OUT utl_nla_array_dbl,
2779: b IN OUT utl_nla_array_dbl,
2780: ldb IN POSITIVEN,
2781: info OUT integer,
2774: PROCEDURE lapack_gtsv (n IN POSITIVEN,
2775: nrhs IN POSITIVEN,
2776: dl IN OUT utl_nla_array_dbl,
2777: d IN OUT utl_nla_array_dbl,
2778: du IN OUT utl_nla_array_dbl,
2779: b IN OUT utl_nla_array_dbl,
2780: ldb IN POSITIVEN,
2781: info OUT integer,
2782: pack IN flag DEFAULT 'C');
2775: nrhs IN POSITIVEN,
2776: dl IN OUT utl_nla_array_dbl,
2777: d IN OUT utl_nla_array_dbl,
2778: du IN OUT utl_nla_array_dbl,
2779: b IN OUT utl_nla_array_dbl,
2780: ldb IN POSITIVEN,
2781: info OUT integer,
2782: pack IN flag DEFAULT 'C');
2783:
2857:
2858: PROCEDURE lapack_posv (uplo IN flag,
2859: n IN POSITIVEN,
2860: nrhs IN POSITIVEN,
2861: a IN OUT utl_nla_array_dbl,
2862: lda IN POSITIVEN,
2863: b IN OUT utl_nla_array_dbl,
2864: ldb IN POSITIVEN,
2865: info OUT integer,
2859: n IN POSITIVEN,
2860: nrhs IN POSITIVEN,
2861: a IN OUT utl_nla_array_dbl,
2862: lda IN POSITIVEN,
2863: b IN OUT utl_nla_array_dbl,
2864: ldb IN POSITIVEN,
2865: info OUT integer,
2866: pack IN flag DEFAULT 'C');
2867:
2939:
2940: PROCEDURE lapack_ppsv (uplo IN flag,
2941: n IN POSITIVEN,
2942: nrhs IN POSITIVEN,
2943: ap IN OUT utl_nla_array_dbl,
2944: b IN OUT utl_nla_array_dbl,
2945: ldb IN POSITIVEN,
2946: info OUT integer,
2947: pack IN flag DEFAULT 'C');
2940: PROCEDURE lapack_ppsv (uplo IN flag,
2941: n IN POSITIVEN,
2942: nrhs IN POSITIVEN,
2943: ap IN OUT utl_nla_array_dbl,
2944: b IN OUT utl_nla_array_dbl,
2945: ldb IN POSITIVEN,
2946: info OUT integer,
2947: pack IN flag DEFAULT 'C');
2948:
3028: PROCEDURE lapack_pbsv (uplo IN flag,
3029: n IN POSITIVEN,
3030: kd IN NATURALN,
3031: nrhs IN POSITIVEN,
3032: ab IN OUT utl_nla_array_dbl,
3033: ldab IN POSITIVEN,
3034: b IN OUT utl_nla_array_dbl,
3035: ldb IN POSITIVEN,
3036: info OUT integer,
3030: kd IN NATURALN,
3031: nrhs IN POSITIVEN,
3032: ab IN OUT utl_nla_array_dbl,
3033: ldab IN POSITIVEN,
3034: b IN OUT utl_nla_array_dbl,
3035: ldb IN POSITIVEN,
3036: info OUT integer,
3037: pack IN flag DEFAULT 'C');
3038:
3100: -- 'R': row-major
3101:
3102: PROCEDURE lapack_ptsv (n IN POSITIVEN,
3103: nrhs IN POSITIVEN,
3104: d IN OUT utl_nla_array_dbl,
3105: e IN OUT utl_nla_array_dbl,
3106: b IN OUT utl_nla_array_dbl,
3107: ldb IN POSITIVEN,
3108: info OUT integer,
3101:
3102: PROCEDURE lapack_ptsv (n IN POSITIVEN,
3103: nrhs IN POSITIVEN,
3104: d IN OUT utl_nla_array_dbl,
3105: e IN OUT utl_nla_array_dbl,
3106: b IN OUT utl_nla_array_dbl,
3107: ldb IN POSITIVEN,
3108: info OUT integer,
3109: pack IN flag DEFAULT 'C');
3102: PROCEDURE lapack_ptsv (n IN POSITIVEN,
3103: nrhs IN POSITIVEN,
3104: d IN OUT utl_nla_array_dbl,
3105: e IN OUT utl_nla_array_dbl,
3106: b IN OUT utl_nla_array_dbl,
3107: ldb IN POSITIVEN,
3108: info OUT integer,
3109: pack IN flag DEFAULT 'C');
3110:
3197:
3198: PROCEDURE lapack_sysv (uplo IN flag,
3199: n IN POSITIVEN,
3200: nrhs IN POSITIVEN,
3201: a IN OUT utl_nla_array_dbl,
3202: lda IN POSITIVEN,
3203: ipiv IN OUT UTL_NLA_ARRAY_INT,
3204: b IN OUT utl_nla_array_dbl,
3205: ldb IN POSITIVEN,
3200: nrhs IN POSITIVEN,
3201: a IN OUT utl_nla_array_dbl,
3202: lda IN POSITIVEN,
3203: ipiv IN OUT UTL_NLA_ARRAY_INT,
3204: b IN OUT utl_nla_array_dbl,
3205: ldb IN POSITIVEN,
3206: info OUT integer,
3207: pack IN flag DEFAULT 'C');
3208:
3294:
3295: PROCEDURE lapack_spsv (uplo IN flag,
3296: n IN POSITIVEN,
3297: nrhs IN POSITIVEN,
3298: ap IN OUT utl_nla_array_dbl,
3299: ipiv IN OUT UTL_NLA_ARRAY_INT,
3300: b IN OUT utl_nla_array_dbl,
3301: ldb IN POSITIVEN,
3302: info OUT integer,
3296: n IN POSITIVEN,
3297: nrhs IN POSITIVEN,
3298: ap IN OUT utl_nla_array_dbl,
3299: ipiv IN OUT UTL_NLA_ARRAY_INT,
3300: b IN OUT utl_nla_array_dbl,
3301: ldb IN POSITIVEN,
3302: info OUT integer,
3303: pack IN flag DEFAULT 'C');
3304:
3409: PROCEDURE lapack_gels(trans IN flag,
3410: m IN POSITIVEN,
3411: n IN POSITIVEN,
3412: nrhs IN POSITIVEN,
3413: a IN OUT utl_nla_array_dbl,
3414: lda IN POSITIVEN,
3415: b IN OUT utl_nla_array_dbl,
3416: ldb IN POSITIVEN,
3417: info OUT integer,
3411: n IN POSITIVEN,
3412: nrhs IN POSITIVEN,
3413: a IN OUT utl_nla_array_dbl,
3414: lda IN POSITIVEN,
3415: b IN OUT utl_nla_array_dbl,
3416: ldb IN POSITIVEN,
3417: info OUT integer,
3418: pack IN flag DEFAULT 'C');
3419:
3483:
3484: PROCEDURE lapack_syev(jobz IN flag,
3485: uplo IN flag,
3486: n IN POSITIVEN,
3487: a IN OUT utl_nla_array_dbl,
3488: lda IN POSITIVEN,
3489: w IN OUT utl_nla_array_dbl,
3490: info OUT integer,
3491: pack IN flag DEFAULT 'C');
3485: uplo IN flag,
3486: n IN POSITIVEN,
3487: a IN OUT utl_nla_array_dbl,
3488: lda IN POSITIVEN,
3489: w IN OUT utl_nla_array_dbl,
3490: info OUT integer,
3491: pack IN flag DEFAULT 'C');
3492:
3493: PROCEDURE lapack_syev(jobz IN flag,
3556:
3557: PROCEDURE lapack_syevd(jobz IN flag,
3558: uplo IN flag,
3559: n IN POSITIVEN,
3560: a IN OUT utl_nla_array_dbl,
3561: lda IN POSITIVEN,
3562: w IN OUT utl_nla_array_dbl,
3563: info OUT integer,
3564: pack IN flag DEFAULT 'C');
3558: uplo IN flag,
3559: n IN POSITIVEN,
3560: a IN OUT utl_nla_array_dbl,
3561: lda IN POSITIVEN,
3562: w IN OUT utl_nla_array_dbl,
3563: info OUT integer,
3564: pack IN flag DEFAULT 'C');
3565:
3566: PROCEDURE lapack_syevd(jobz IN flag,
3634:
3635: PROCEDURE lapack_spev(jobz IN flag,
3636: uplo IN flag,
3637: n IN POSITIVEN,
3638: ap IN OUT utl_nla_array_dbl,
3639: w IN OUT utl_nla_array_dbl,
3640: z IN OUT utl_nla_array_dbl,
3641: ldz IN POSITIVEN,
3642: info OUT integer,
3635: PROCEDURE lapack_spev(jobz IN flag,
3636: uplo IN flag,
3637: n IN POSITIVEN,
3638: ap IN OUT utl_nla_array_dbl,
3639: w IN OUT utl_nla_array_dbl,
3640: z IN OUT utl_nla_array_dbl,
3641: ldz IN POSITIVEN,
3642: info OUT integer,
3643: pack IN flag DEFAULT 'C');
3636: uplo IN flag,
3637: n IN POSITIVEN,
3638: ap IN OUT utl_nla_array_dbl,
3639: w IN OUT utl_nla_array_dbl,
3640: z IN OUT utl_nla_array_dbl,
3641: ldz IN POSITIVEN,
3642: info OUT integer,
3643: pack IN flag DEFAULT 'C');
3644:
3718:
3719: PROCEDURE lapack_spevd(jobz IN flag,
3720: uplo IN flag,
3721: n IN POSITIVEN,
3722: ap IN OUT utl_nla_array_dbl,
3723: w IN OUT utl_nla_array_dbl,
3724: z IN OUT utl_nla_array_dbl,
3725: ldz IN POSITIVEN,
3726: info OUT integer,
3719: PROCEDURE lapack_spevd(jobz IN flag,
3720: uplo IN flag,
3721: n IN POSITIVEN,
3722: ap IN OUT utl_nla_array_dbl,
3723: w IN OUT utl_nla_array_dbl,
3724: z IN OUT utl_nla_array_dbl,
3725: ldz IN POSITIVEN,
3726: info OUT integer,
3727: pack IN flag DEFAULT 'C');
3720: uplo IN flag,
3721: n IN POSITIVEN,
3722: ap IN OUT utl_nla_array_dbl,
3723: w IN OUT utl_nla_array_dbl,
3724: z IN OUT utl_nla_array_dbl,
3725: ldz IN POSITIVEN,
3726: info OUT integer,
3727: pack IN flag DEFAULT 'C');
3728:
3807: PROCEDURE lapack_sbev(jobz IN flag,
3808: uplo IN flag,
3809: n IN POSITIVEN,
3810: kd IN NATURALN,
3811: ab IN OUT utl_nla_array_dbl,
3812: ldab IN POSITIVEN,
3813: w IN OUT utl_nla_array_dbl,
3814: z IN OUT utl_nla_array_dbl,
3815: ldz IN POSITIVEN,
3809: n IN POSITIVEN,
3810: kd IN NATURALN,
3811: ab IN OUT utl_nla_array_dbl,
3812: ldab IN POSITIVEN,
3813: w IN OUT utl_nla_array_dbl,
3814: z IN OUT utl_nla_array_dbl,
3815: ldz IN POSITIVEN,
3816: info OUT integer,
3817: pack IN flag DEFAULT 'C');
3810: kd IN NATURALN,
3811: ab IN OUT utl_nla_array_dbl,
3812: ldab IN POSITIVEN,
3813: w IN OUT utl_nla_array_dbl,
3814: z IN OUT utl_nla_array_dbl,
3815: ldz IN POSITIVEN,
3816: info OUT integer,
3817: pack IN flag DEFAULT 'C');
3818:
3903: PROCEDURE lapack_sbevd(jobz IN flag,
3904: uplo IN flag,
3905: n IN POSITIVEN,
3906: kd IN NATURALN,
3907: ab IN OUT utl_nla_array_dbl,
3908: ldab IN POSITIVEN,
3909: w IN OUT utl_nla_array_dbl,
3910: z IN OUT utl_nla_array_dbl,
3911: ldz IN POSITIVEN,
3905: n IN POSITIVEN,
3906: kd IN NATURALN,
3907: ab IN OUT utl_nla_array_dbl,
3908: ldab IN POSITIVEN,
3909: w IN OUT utl_nla_array_dbl,
3910: z IN OUT utl_nla_array_dbl,
3911: ldz IN POSITIVEN,
3912: info OUT integer,
3913: pack IN flag DEFAULT 'C');
3906: kd IN NATURALN,
3907: ab IN OUT utl_nla_array_dbl,
3908: ldab IN POSITIVEN,
3909: w IN OUT utl_nla_array_dbl,
3910: z IN OUT utl_nla_array_dbl,
3911: ldz IN POSITIVEN,
3912: info OUT integer,
3913: pack IN flag DEFAULT 'C');
3914:
3974: -- 'R': row-major
3975:
3976: PROCEDURE lapack_stev(jobz IN flag,
3977: n IN POSITIVEN,
3978: d IN OUT utl_nla_array_dbl,
3979: e IN OUT utl_nla_array_dbl,
3980: z IN OUT utl_nla_array_dbl,
3981: ldz IN POSITIVEN,
3982: info OUT integer,
3975:
3976: PROCEDURE lapack_stev(jobz IN flag,
3977: n IN POSITIVEN,
3978: d IN OUT utl_nla_array_dbl,
3979: e IN OUT utl_nla_array_dbl,
3980: z IN OUT utl_nla_array_dbl,
3981: ldz IN POSITIVEN,
3982: info OUT integer,
3983: pack IN flag DEFAULT 'C');
3976: PROCEDURE lapack_stev(jobz IN flag,
3977: n IN POSITIVEN,
3978: d IN OUT utl_nla_array_dbl,
3979: e IN OUT utl_nla_array_dbl,
3980: z IN OUT utl_nla_array_dbl,
3981: ldz IN POSITIVEN,
3982: info OUT integer,
3983: pack IN flag DEFAULT 'C');
3984:
4045: -- 'R': row-major
4046:
4047: PROCEDURE lapack_stevd(jobz IN flag,
4048: n IN POSITIVEN,
4049: d IN OUT utl_nla_array_dbl,
4050: e IN OUT utl_nla_array_dbl,
4051: z IN OUT utl_nla_array_dbl,
4052: ldz IN POSITIVEN,
4053: info OUT integer,
4046:
4047: PROCEDURE lapack_stevd(jobz IN flag,
4048: n IN POSITIVEN,
4049: d IN OUT utl_nla_array_dbl,
4050: e IN OUT utl_nla_array_dbl,
4051: z IN OUT utl_nla_array_dbl,
4052: ldz IN POSITIVEN,
4053: info OUT integer,
4054: pack IN flag DEFAULT 'C');
4047: PROCEDURE lapack_stevd(jobz IN flag,
4048: n IN POSITIVEN,
4049: d IN OUT utl_nla_array_dbl,
4050: e IN OUT utl_nla_array_dbl,
4051: z IN OUT utl_nla_array_dbl,
4052: ldz IN POSITIVEN,
4053: info OUT integer,
4054: pack IN flag DEFAULT 'C');
4055:
4131: -- 'R': row-major
4132:
4133: PROCEDURE lapack_gees(jobvs IN flag,
4134: n IN POSITIVEN,
4135: a IN OUT utl_nla_array_dbl,
4136: lda IN POSITIVEN,
4137: wr IN OUT utl_nla_array_dbl,
4138: wi IN OUT utl_nla_array_dbl,
4139: vs IN OUT utl_nla_array_dbl,
4133: PROCEDURE lapack_gees(jobvs IN flag,
4134: n IN POSITIVEN,
4135: a IN OUT utl_nla_array_dbl,
4136: lda IN POSITIVEN,
4137: wr IN OUT utl_nla_array_dbl,
4138: wi IN OUT utl_nla_array_dbl,
4139: vs IN OUT utl_nla_array_dbl,
4140: ldvs IN POSITIVEN,
4141: info OUT integer,
4134: n IN POSITIVEN,
4135: a IN OUT utl_nla_array_dbl,
4136: lda IN POSITIVEN,
4137: wr IN OUT utl_nla_array_dbl,
4138: wi IN OUT utl_nla_array_dbl,
4139: vs IN OUT utl_nla_array_dbl,
4140: ldvs IN POSITIVEN,
4141: info OUT integer,
4142: pack IN flag DEFAULT 'C');
4135: a IN OUT utl_nla_array_dbl,
4136: lda IN POSITIVEN,
4137: wr IN OUT utl_nla_array_dbl,
4138: wi IN OUT utl_nla_array_dbl,
4139: vs IN OUT utl_nla_array_dbl,
4140: ldvs IN POSITIVEN,
4141: info OUT integer,
4142: pack IN flag DEFAULT 'C');
4143:
4243:
4244: PROCEDURE lapack_geev(jobvl IN flag,
4245: jobvr IN flag,
4246: n IN POSITIVEN,
4247: a IN OUT utl_nla_array_dbl,
4248: lda IN POSITIVEN,
4249: wr IN OUT utl_nla_array_dbl,
4250: wi IN OUT utl_nla_array_dbl,
4251: vl IN OUT utl_nla_array_dbl,
4245: jobvr IN flag,
4246: n IN POSITIVEN,
4247: a IN OUT utl_nla_array_dbl,
4248: lda IN POSITIVEN,
4249: wr IN OUT utl_nla_array_dbl,
4250: wi IN OUT utl_nla_array_dbl,
4251: vl IN OUT utl_nla_array_dbl,
4252: ldvl IN POSITIVEN,
4253: vr IN OUT utl_nla_array_dbl,
4246: n IN POSITIVEN,
4247: a IN OUT utl_nla_array_dbl,
4248: lda IN POSITIVEN,
4249: wr IN OUT utl_nla_array_dbl,
4250: wi IN OUT utl_nla_array_dbl,
4251: vl IN OUT utl_nla_array_dbl,
4252: ldvl IN POSITIVEN,
4253: vr IN OUT utl_nla_array_dbl,
4254: ldvr IN POSITIVEN,
4247: a IN OUT utl_nla_array_dbl,
4248: lda IN POSITIVEN,
4249: wr IN OUT utl_nla_array_dbl,
4250: wi IN OUT utl_nla_array_dbl,
4251: vl IN OUT utl_nla_array_dbl,
4252: ldvl IN POSITIVEN,
4253: vr IN OUT utl_nla_array_dbl,
4254: ldvr IN POSITIVEN,
4255: info OUT integer,
4249: wr IN OUT utl_nla_array_dbl,
4250: wi IN OUT utl_nla_array_dbl,
4251: vl IN OUT utl_nla_array_dbl,
4252: ldvl IN POSITIVEN,
4253: vr IN OUT utl_nla_array_dbl,
4254: ldvr IN POSITIVEN,
4255: info OUT integer,
4256: pack IN flag DEFAULT 'C');
4257:
4378: PROCEDURE lapack_gesvd(jobu IN flag,
4379: jobvt IN flag,
4380: m IN POSITIVEN,
4381: n IN POSITIVEN,
4382: a IN OUT utl_nla_array_dbl,
4383: lda IN POSITIVEN,
4384: s IN OUT utl_nla_array_dbl,
4385: u IN OUT utl_nla_array_dbl,
4386: ldu IN POSITIVEN,
4380: m IN POSITIVEN,
4381: n IN POSITIVEN,
4382: a IN OUT utl_nla_array_dbl,
4383: lda IN POSITIVEN,
4384: s IN OUT utl_nla_array_dbl,
4385: u IN OUT utl_nla_array_dbl,
4386: ldu IN POSITIVEN,
4387: vt IN OUT utl_nla_array_dbl,
4388: ldvt IN POSITIVEN,
4381: n IN POSITIVEN,
4382: a IN OUT utl_nla_array_dbl,
4383: lda IN POSITIVEN,
4384: s IN OUT utl_nla_array_dbl,
4385: u IN OUT utl_nla_array_dbl,
4386: ldu IN POSITIVEN,
4387: vt IN OUT utl_nla_array_dbl,
4388: ldvt IN POSITIVEN,
4389: info OUT integer,
4383: lda IN POSITIVEN,
4384: s IN OUT utl_nla_array_dbl,
4385: u IN OUT utl_nla_array_dbl,
4386: ldu IN POSITIVEN,
4387: vt IN OUT utl_nla_array_dbl,
4388: ldvt IN POSITIVEN,
4389: info OUT integer,
4390: pack IN flag DEFAULT 'C');
4391:
4506:
4507: PROCEDURE lapack_gesdd(jobz IN flag,
4508: m IN POSITIVEN,
4509: n IN POSITIVEN,
4510: a IN OUT utl_nla_array_dbl,
4511: lda IN POSITIVEN,
4512: s IN OUT utl_nla_array_dbl,
4513: u IN OUT utl_nla_array_dbl,
4514: ldu IN POSITIVEN,
4508: m IN POSITIVEN,
4509: n IN POSITIVEN,
4510: a IN OUT utl_nla_array_dbl,
4511: lda IN POSITIVEN,
4512: s IN OUT utl_nla_array_dbl,
4513: u IN OUT utl_nla_array_dbl,
4514: ldu IN POSITIVEN,
4515: vt IN OUT utl_nla_array_dbl,
4516: ldvt IN POSITIVEN,
4509: n IN POSITIVEN,
4510: a IN OUT utl_nla_array_dbl,
4511: lda IN POSITIVEN,
4512: s IN OUT utl_nla_array_dbl,
4513: u IN OUT utl_nla_array_dbl,
4514: ldu IN POSITIVEN,
4515: vt IN OUT utl_nla_array_dbl,
4516: ldvt IN POSITIVEN,
4517: info OUT INTEGER,
4511: lda IN POSITIVEN,
4512: s IN OUT utl_nla_array_dbl,
4513: u IN OUT utl_nla_array_dbl,
4514: ldu IN POSITIVEN,
4515: vt IN OUT utl_nla_array_dbl,
4516: ldvt IN POSITIVEN,
4517: info OUT INTEGER,
4518: pack IN flag DEFAULT 'C');
4519: