The R Project SVN – R – Diff – /trunk/src/extra/blas/blas.f



      SUBROUTINE DGBMV ( TRANS, M, N, KL, KU, ALPHA, A, LDA, X, INCX,
     $                   BETA, Y, INCY )
*     .. Scalar Arguments ..
      DOUBLE PRECISION   ALPHA, BETA
      INTEGER            INCX, INCY, KL, KU, LDA, M, N
      CHARACTER          TRANS
*     .. Array Arguments ..
      DOUBLE PRECISION   A( LDA, * ), X( * ), Y( * )
*     ..
*
*  Purpose

*
      END
      SUBROUTINE DGEMM ( TRANSA, TRANSB, M, N, K, ALPHA, A, LDA, B, LDB,
     $                   BETA, C, LDC )
*     .. Scalar Arguments ..
      CHARACTER          TRANSA, TRANSB
      INTEGER            M, N, K, LDA, LDB, LDC
      DOUBLE PRECISION   ALPHA, BETA
*     .. Array Arguments ..
      DOUBLE PRECISION   A( LDA, * ), B( LDB, * ), C( LDC, * )
*     ..

      SUBROUTINE DGEMV ( TRANS, M, N, ALPHA, A, LDA, X, INCX,
     $                   BETA, Y, INCY )
*     .. Scalar Arguments ..
      DOUBLE PRECISION   ALPHA, BETA
      INTEGER            INCX, INCY, LDA, M, N
      CHARACTER          TRANS
*     .. Array Arguments ..
      DOUBLE PRECISION   A( LDA, * ), X( * ), Y( * )
*     ..
*
*  Purpose

      SUBROUTINE DSBMV ( UPLO, N, K, ALPHA, A, LDA, X, INCX,
     $                   BETA, Y, INCY )
*     .. Scalar Arguments ..
      DOUBLE PRECISION   ALPHA, BETA
      INTEGER            INCX, INCY, K, LDA, N
      CHARACTER          UPLO
*     .. Array Arguments ..
      DOUBLE PRECISION   A( LDA, * ), X( * ), Y( * )
*     ..
*
*  Purpose

      END
      SUBROUTINE DSPMV ( UPLO, N, ALPHA, AP, X, INCX, BETA, Y, INCY )
*     .. Scalar Arguments ..
      DOUBLE PRECISION   ALPHA, BETA
      INTEGER            INCX, INCY, N
      CHARACTER          UPLO
*     .. Array Arguments ..
      DOUBLE PRECISION   AP( * ), X( * ), Y( * )
*     ..
*
*  Purpose

      END
      SUBROUTINE DSPR  ( UPLO, N, ALPHA, X, INCX, AP )
*     .. Scalar Arguments ..
      DOUBLE PRECISION   ALPHA
      INTEGER            INCX, N
      CHARACTER          UPLO
*     .. Array Arguments ..
      DOUBLE PRECISION   AP( * ), X( * )
*     ..
*
*  Purpose

      END
      SUBROUTINE DSPR2 ( UPLO, N, ALPHA, X, INCX, Y, INCY, AP )
*     .. Scalar Arguments ..
      DOUBLE PRECISION   ALPHA
      INTEGER            INCX, INCY, N
      CHARACTER          UPLO
*     .. Array Arguments ..
      DOUBLE PRECISION   AP( * ), X( * ), Y( * )
*     ..
*
*  Purpose

      return
      end
      SUBROUTINE DSYMM ( SIDE, UPLO, M, N, ALPHA, A, LDA, B, LDB,
     $                   BETA, C, LDC )
*     .. Scalar Arguments ..
      CHARACTER          SIDE, UPLO
      INTEGER            M, N, LDA, LDB, LDC
      DOUBLE PRECISION   ALPHA, BETA
*     .. Array Arguments ..
      DOUBLE PRECISION   A( LDA, * ), B( LDB, * ), C( LDC, * )
*     ..

      SUBROUTINE DSYMV ( UPLO, N, ALPHA, A, LDA, X, INCX,
     $                   BETA, Y, INCY )
*     .. Scalar Arguments ..
      DOUBLE PRECISION   ALPHA, BETA
      INTEGER            INCX, INCY, LDA, N
      CHARACTER          UPLO
*     .. Array Arguments ..
      DOUBLE PRECISION   A( LDA, * ), X( * ), Y( * )
*     ..
*
*  Purpose

      END
      SUBROUTINE DSYR  ( UPLO, N, ALPHA, X, INCX, A, LDA )
*     .. Scalar Arguments ..
      DOUBLE PRECISION   ALPHA
      INTEGER            INCX, LDA, N
      CHARACTER          UPLO
*     .. Array Arguments ..
      DOUBLE PRECISION   A( LDA, * ), X( * )
*     ..
*
*  Purpose

      END
      SUBROUTINE DSYR2 ( UPLO, N, ALPHA, X, INCX, Y, INCY, A, LDA )
*     .. Scalar Arguments ..
      DOUBLE PRECISION   ALPHA
      INTEGER            INCX, INCY, LDA, N
      CHARACTER          UPLO
*     .. Array Arguments ..
      DOUBLE PRECISION   A( LDA, * ), X( * ), Y( * )
*     ..
*
*  Purpose

*
      END
      SUBROUTINE DSYR2K( UPLO, TRANS, N, K, ALPHA, A, LDA, B, LDB,
     $                   BETA, C, LDC )
*     .. Scalar Arguments ..
      CHARACTER          UPLO, TRANS
      INTEGER            N, K, LDA, LDB, LDC
      DOUBLE PRECISION   ALPHA, BETA
*     .. Array Arguments ..
      DOUBLE PRECISION   A( LDA, * ), B( LDB, * ), C( LDC, * )
*     ..

*
      END
      SUBROUTINE DSYRK ( UPLO, TRANS, N, K, ALPHA, A, LDA,
     $                   BETA, C, LDC )
*     .. Scalar Arguments ..
      CHARACTER          UPLO, TRANS
      INTEGER            N, K, LDA, LDC
      DOUBLE PRECISION   ALPHA, BETA
*     .. Array Arguments ..
      DOUBLE PRECISION   A( LDA, * ), C( LDC, * )
*     ..

*
      END
      SUBROUTINE DTBMV ( UPLO, TRANS, DIAG, N, K, A, LDA, X, INCX )
*     .. Scalar Arguments ..
      INTEGER            INCX, K, LDA, N
      CHARACTER          DIAG, TRANS, UPLO
*     .. Array Arguments ..
      DOUBLE PRECISION   A( LDA, * ), X( * )
*     ..
*
*  Purpose

*
      END
      SUBROUTINE DTBSV ( UPLO, TRANS, DIAG, N, K, A, LDA, X, INCX )
*     .. Scalar Arguments ..
      INTEGER            INCX, K, LDA, N
      CHARACTER          DIAG, TRANS, UPLO
*     .. Array Arguments ..
      DOUBLE PRECISION   A( LDA, * ), X( * )
*     ..
*
*  Purpose

*
      END
      SUBROUTINE DTPMV ( UPLO, TRANS, DIAG, N, AP, X, INCX )
*     .. Scalar Arguments ..
      INTEGER            INCX, N
      CHARACTER          DIAG, TRANS, UPLO
*     .. Array Arguments ..
      DOUBLE PRECISION   AP( * ), X( * )
*     ..
*
*  Purpose

*
      END
      SUBROUTINE DTPSV ( UPLO, TRANS, DIAG, N, AP, X, INCX )
*     .. Scalar Arguments ..
      INTEGER            INCX, N
      CHARACTER          DIAG, TRANS, UPLO
*     .. Array Arguments ..
      DOUBLE PRECISION   AP( * ), X( * )
*     ..
*
*  Purpose

*
      END
      SUBROUTINE DTRMM ( SIDE, UPLO, TRANSA, DIAG, M, N, ALPHA, A, LDA,
     $                   B, LDB )
*     .. Scalar Arguments ..
      CHARACTER          SIDE, UPLO, TRANSA, DIAG
      INTEGER            M, N, LDA, LDB
      DOUBLE PRECISION   ALPHA
*     .. Array Arguments ..
      DOUBLE PRECISION   A( LDA, * ), B( LDB, * )
*     ..

*
      END
      SUBROUTINE DTRMV ( UPLO, TRANS, DIAG, N, A, LDA, X, INCX )
*     .. Scalar Arguments ..
      INTEGER            INCX, LDA, N
      CHARACTER          DIAG, TRANS, UPLO
*     .. Array Arguments ..
      DOUBLE PRECISION   A( LDA, * ), X( * )
*     ..
*
*  Purpose

*
      END
      SUBROUTINE DTRSM ( SIDE, UPLO, TRANSA, DIAG, M, N, ALPHA, A, LDA,
     $                   B, LDB )
*     .. Scalar Arguments ..
      CHARACTER          SIDE, UPLO, TRANSA, DIAG
      INTEGER            M, N, LDA, LDB
      DOUBLE PRECISION   ALPHA
*     .. Array Arguments ..
      DOUBLE PRECISION   A( LDA, * ), B( LDB, * )
*     ..

*
      END
      SUBROUTINE DTRSV ( UPLO, TRANS, DIAG, N, A, LDA, X, INCX )
*     .. Scalar Arguments ..
      INTEGER            INCX, LDA, N
      CHARACTER          DIAG, TRANS, UPLO
*     .. Array Arguments ..
      DOUBLE PRECISION   A( LDA, * ), X( * )
*     ..
*
*  Purpose

Rev 75210	Rev 75211
Line 191...	Line 191...
191	`SUBROUTINE DGBMV ( TRANS, M, N, KL, KU, ALPHA, A, LDA, X, INCX,`	191	`SUBROUTINE DGBMV ( TRANS, M, N, KL, KU, ALPHA, A, LDA, X, INCX,`
192	`$ BETA, Y, INCY )`	192	`$ BETA, Y, INCY )`
193	`* .. Scalar Arguments ..`	193	`* .. Scalar Arguments ..`
194	`DOUBLE PRECISION ALPHA, BETA`	194	`DOUBLE PRECISION ALPHA, BETA`
195	`INTEGER INCX, INCY, KL, KU, LDA, M, N`	195	`INTEGER INCX, INCY, KL, KU, LDA, M, N`
196	`CHARACTER*1 TRANS`	196	`CHARACTER TRANS`
197	`* .. Array Arguments ..`	197	`* .. Array Arguments ..`
198	`DOUBLE PRECISION A( LDA, * ), X( * ), Y( * )`	198	`DOUBLE PRECISION A( LDA, * ), X( * ), Y( * )`
199	`* ..`	199	`* ..`
200	`*`	200	`*`
201	`* Purpose`	201	`* Purpose`
Line 489...	Line 489...
489	`*`	489	`*`
490	`END`	490	`END`
491	`SUBROUTINE DGEMM ( TRANSA, TRANSB, M, N, K, ALPHA, A, LDA, B, LDB,`	491	`SUBROUTINE DGEMM ( TRANSA, TRANSB, M, N, K, ALPHA, A, LDA, B, LDB,`
492	`$ BETA, C, LDC )`	492	`$ BETA, C, LDC )`
493	`* .. Scalar Arguments ..`	493	`* .. Scalar Arguments ..`
494	`CHARACTER*1 TRANSA, TRANSB`	494	`CHARACTER TRANSA, TRANSB`
495	`INTEGER M, N, K, LDA, LDB, LDC`	495	`INTEGER M, N, K, LDA, LDB, LDC`
496	`DOUBLE PRECISION ALPHA, BETA`	496	`DOUBLE PRECISION ALPHA, BETA`
497	`* .. Array Arguments ..`	497	`* .. Array Arguments ..`
498	`DOUBLE PRECISION A( LDA, * ), B( LDB, * ), C( LDC, * )`	498	`DOUBLE PRECISION A( LDA, * ), B( LDB, * ), C( LDC, * )`
499	`* ..`	499	`* ..`
Line 804...	Line 804...
804	`SUBROUTINE DGEMV ( TRANS, M, N, ALPHA, A, LDA, X, INCX,`	804	`SUBROUTINE DGEMV ( TRANS, M, N, ALPHA, A, LDA, X, INCX,`
805	`$ BETA, Y, INCY )`	805	`$ BETA, Y, INCY )`
806	`* .. Scalar Arguments ..`	806	`* .. Scalar Arguments ..`
807	`DOUBLE PRECISION ALPHA, BETA`	807	`DOUBLE PRECISION ALPHA, BETA`
808	`INTEGER INCX, INCY, LDA, M, N`	808	`INTEGER INCX, INCY, LDA, M, N`
809	`CHARACTER*1 TRANS`	809	`CHARACTER TRANS`
810	`* .. Array Arguments ..`	810	`* .. Array Arguments ..`
811	`DOUBLE PRECISION A( LDA, * ), X( * ), Y( * )`	811	`DOUBLE PRECISION A( LDA, * ), X( * ), Y( * )`
812	`* ..`	812	`* ..`
813	`*`	813	`*`
814	`* Purpose`	814	`* Purpose`
Line 1636...	Line 1636...
1636	`SUBROUTINE DSBMV ( UPLO, N, K, ALPHA, A, LDA, X, INCX,`	1636	`SUBROUTINE DSBMV ( UPLO, N, K, ALPHA, A, LDA, X, INCX,`
1637	`$ BETA, Y, INCY )`	1637	`$ BETA, Y, INCY )`
1638	`* .. Scalar Arguments ..`	1638	`* .. Scalar Arguments ..`
1639	`DOUBLE PRECISION ALPHA, BETA`	1639	`DOUBLE PRECISION ALPHA, BETA`
1640	`INTEGER INCX, INCY, K, LDA, N`	1640	`INTEGER INCX, INCY, K, LDA, N`
1641	`CHARACTER*1 UPLO`	1641	`CHARACTER UPLO`
1642	`* .. Array Arguments ..`	1642	`* .. Array Arguments ..`
1643	`DOUBLE PRECISION A( LDA, * ), X( * ), Y( * )`	1643	`DOUBLE PRECISION A( LDA, * ), X( * ), Y( * )`
1644	`* ..`	1644	`* ..`
1645	`*`	1645	`*`
1646	`* Purpose`	1646	`* Purpose`
Line 2059...	Line 2059...
2059	`END`	2059	`END`
2060	`SUBROUTINE DSPMV ( UPLO, N, ALPHA, AP, X, INCX, BETA, Y, INCY )`	2060	`SUBROUTINE DSPMV ( UPLO, N, ALPHA, AP, X, INCX, BETA, Y, INCY )`
2061	`* .. Scalar Arguments ..`	2061	`* .. Scalar Arguments ..`
2062	`DOUBLE PRECISION ALPHA, BETA`	2062	`DOUBLE PRECISION ALPHA, BETA`
2063	`INTEGER INCX, INCY, N`	2063	`INTEGER INCX, INCY, N`
2064	`CHARACTER*1 UPLO`	2064	`CHARACTER UPLO`
2065	`* .. Array Arguments ..`	2065	`* .. Array Arguments ..`
2066	`DOUBLE PRECISION AP( * ), X( * ), Y( * )`	2066	`DOUBLE PRECISION AP( * ), X( * ), Y( * )`
2067	`* ..`	2067	`* ..`
2068	`*`	2068	`*`
2069	`* Purpose`	2069	`* Purpose`
Line 2321...	Line 2321...
2321	`END`	2321	`END`
2322	`SUBROUTINE DSPR ( UPLO, N, ALPHA, X, INCX, AP )`	2322	`SUBROUTINE DSPR ( UPLO, N, ALPHA, X, INCX, AP )`
2323	`* .. Scalar Arguments ..`	2323	`* .. Scalar Arguments ..`
2324	`DOUBLE PRECISION ALPHA`	2324	`DOUBLE PRECISION ALPHA`
2325	`INTEGER INCX, N`	2325	`INTEGER INCX, N`
2326	`CHARACTER*1 UPLO`	2326	`CHARACTER UPLO`
2327	`* .. Array Arguments ..`	2327	`* .. Array Arguments ..`
2328	`DOUBLE PRECISION AP( * ), X( * )`	2328	`DOUBLE PRECISION AP( * ), X( * )`
2329	`* ..`	2329	`* ..`
2330	`*`	2330	`*`
2331	`* Purpose`	2331	`* Purpose`
Line 2519...	Line 2519...
2519	`END`	2519	`END`
2520	`SUBROUTINE DSPR2 ( UPLO, N, ALPHA, X, INCX, Y, INCY, AP )`	2520	`SUBROUTINE DSPR2 ( UPLO, N, ALPHA, X, INCX, Y, INCY, AP )`
2521	`* .. Scalar Arguments ..`	2521	`* .. Scalar Arguments ..`
2522	`DOUBLE PRECISION ALPHA`	2522	`DOUBLE PRECISION ALPHA`
2523	`INTEGER INCX, INCY, N`	2523	`INTEGER INCX, INCY, N`
2524	`CHARACTER*1 UPLO`	2524	`CHARACTER UPLO`
2525	`* .. Array Arguments ..`	2525	`* .. Array Arguments ..`
2526	`DOUBLE PRECISION AP( * ), X( * ), Y( * )`	2526	`DOUBLE PRECISION AP( * ), X( * ), Y( * )`
2527	`* ..`	2527	`* ..`
2528	`*`	2528	`*`
2529	`* Purpose`	2529	`* Purpose`
Line 2803...	Line 2803...
2803	`return`	2803	`return`
2804	`end`	2804	`end`
2805	`SUBROUTINE DSYMM ( SIDE, UPLO, M, N, ALPHA, A, LDA, B, LDB,`	2805	`SUBROUTINE DSYMM ( SIDE, UPLO, M, N, ALPHA, A, LDA, B, LDB,`
2806	`$ BETA, C, LDC )`	2806	`$ BETA, C, LDC )`
2807	`* .. Scalar Arguments ..`	2807	`* .. Scalar Arguments ..`
2808	`CHARACTER*1 SIDE, UPLO`	2808	`CHARACTER SIDE, UPLO`
2809	`INTEGER M, N, LDA, LDB, LDC`	2809	`INTEGER M, N, LDA, LDB, LDC`
2810	`DOUBLE PRECISION ALPHA, BETA`	2810	`DOUBLE PRECISION ALPHA, BETA`
2811	`* .. Array Arguments ..`	2811	`* .. Array Arguments ..`
2812	`DOUBLE PRECISION A( LDA, * ), B( LDB, * ), C( LDC, * )`	2812	`DOUBLE PRECISION A( LDA, * ), B( LDB, * ), C( LDC, * )`
2813	`* ..`	2813	`* ..`
Line 3099...	Line 3099...
3099	`SUBROUTINE DSYMV ( UPLO, N, ALPHA, A, LDA, X, INCX,`	3099	`SUBROUTINE DSYMV ( UPLO, N, ALPHA, A, LDA, X, INCX,`
3100	`$ BETA, Y, INCY )`	3100	`$ BETA, Y, INCY )`
3101	`* .. Scalar Arguments ..`	3101	`* .. Scalar Arguments ..`
3102	`DOUBLE PRECISION ALPHA, BETA`	3102	`DOUBLE PRECISION ALPHA, BETA`
3103	`INTEGER INCX, INCY, LDA, N`	3103	`INTEGER INCX, INCY, LDA, N`
3104	`CHARACTER*1 UPLO`	3104	`CHARACTER UPLO`
3105	`* .. Array Arguments ..`	3105	`* .. Array Arguments ..`
3106	`DOUBLE PRECISION A( LDA, * ), X( * ), Y( * )`	3106	`DOUBLE PRECISION A( LDA, * ), X( * ), Y( * )`
3107	`* ..`	3107	`* ..`
3108	`*`	3108	`*`
3109	`* Purpose`	3109	`* Purpose`
Line 3360...	Line 3360...
3360	`END`	3360	`END`
3361	`SUBROUTINE DSYR ( UPLO, N, ALPHA, X, INCX, A, LDA )`	3361	`SUBROUTINE DSYR ( UPLO, N, ALPHA, X, INCX, A, LDA )`
3362	`* .. Scalar Arguments ..`	3362	`* .. Scalar Arguments ..`
3363	`DOUBLE PRECISION ALPHA`	3363	`DOUBLE PRECISION ALPHA`
3364	`INTEGER INCX, LDA, N`	3364	`INTEGER INCX, LDA, N`
3365	`CHARACTER*1 UPLO`	3365	`CHARACTER UPLO`
3366	`* .. Array Arguments ..`	3366	`* .. Array Arguments ..`
3367	`DOUBLE PRECISION A( LDA, * ), X( * )`	3367	`DOUBLE PRECISION A( LDA, * ), X( * )`
3368	`* ..`	3368	`* ..`
3369	`*`	3369	`*`
3370	`* Purpose`	3370	`* Purpose`
Line 3557...	Line 3557...
3557	`END`	3557	`END`
3558	`SUBROUTINE DSYR2 ( UPLO, N, ALPHA, X, INCX, Y, INCY, A, LDA )`	3558	`SUBROUTINE DSYR2 ( UPLO, N, ALPHA, X, INCX, Y, INCY, A, LDA )`
3559	`* .. Scalar Arguments ..`	3559	`* .. Scalar Arguments ..`
3560	`DOUBLE PRECISION ALPHA`	3560	`DOUBLE PRECISION ALPHA`
3561	`INTEGER INCX, INCY, LDA, N`	3561	`INTEGER INCX, INCY, LDA, N`
3562	`CHARACTER*1 UPLO`	3562	`CHARACTER UPLO`
3563	`* .. Array Arguments ..`	3563	`* .. Array Arguments ..`
3564	`DOUBLE PRECISION A( LDA, * ), X( * ), Y( * )`	3564	`DOUBLE PRECISION A( LDA, * ), X( * ), Y( * )`
3565	`* ..`	3565	`* ..`
3566	`*`	3566	`*`
3567	`* Purpose`	3567	`* Purpose`
Line 3786...	Line 3786...
3786	`*`	3786	`*`
3787	`END`	3787	`END`
3788	`SUBROUTINE DSYR2K( UPLO, TRANS, N, K, ALPHA, A, LDA, B, LDB,`	3788	`SUBROUTINE DSYR2K( UPLO, TRANS, N, K, ALPHA, A, LDA, B, LDB,`
3789	`$ BETA, C, LDC )`	3789	`$ BETA, C, LDC )`
3790	`* .. Scalar Arguments ..`	3790	`* .. Scalar Arguments ..`
3791	`CHARACTER*1 UPLO, TRANS`	3791	`CHARACTER UPLO, TRANS`
3792	`INTEGER N, K, LDA, LDB, LDC`	3792	`INTEGER N, K, LDA, LDB, LDC`
3793	`DOUBLE PRECISION ALPHA, BETA`	3793	`DOUBLE PRECISION ALPHA, BETA`
3794	`* .. Array Arguments ..`	3794	`* .. Array Arguments ..`
3795	`DOUBLE PRECISION A( LDA, * ), B( LDB, * ), C( LDC, * )`	3795	`DOUBLE PRECISION A( LDA, * ), B( LDB, * ), C( LDC, * )`
3796	`* ..`	3796	`* ..`
Line 4113...	Line 4113...
4113	`*`	4113	`*`
4114	`END`	4114	`END`
4115	`SUBROUTINE DSYRK ( UPLO, TRANS, N, K, ALPHA, A, LDA,`	4115	`SUBROUTINE DSYRK ( UPLO, TRANS, N, K, ALPHA, A, LDA,`
4116	`$ BETA, C, LDC )`	4116	`$ BETA, C, LDC )`
4117	`* .. Scalar Arguments ..`	4117	`* .. Scalar Arguments ..`
4118	`CHARACTER*1 UPLO, TRANS`	4118	`CHARACTER UPLO, TRANS`
4119	`INTEGER N, K, LDA, LDC`	4119	`INTEGER N, K, LDA, LDC`
4120	`DOUBLE PRECISION ALPHA, BETA`	4120	`DOUBLE PRECISION ALPHA, BETA`
4121	`* .. Array Arguments ..`	4121	`* .. Array Arguments ..`
4122	`DOUBLE PRECISION A( LDA, * ), C( LDC, * )`	4122	`DOUBLE PRECISION A( LDA, * ), C( LDC, * )`
4123	`* ..`	4123	`* ..`
Line 4407...	Line 4407...
4407	`*`	4407	`*`
4408	`END`	4408	`END`
4409	`SUBROUTINE DTBMV ( UPLO, TRANS, DIAG, N, K, A, LDA, X, INCX )`	4409	`SUBROUTINE DTBMV ( UPLO, TRANS, DIAG, N, K, A, LDA, X, INCX )`
4410	`* .. Scalar Arguments ..`	4410	`* .. Scalar Arguments ..`
4411	`INTEGER INCX, K, LDA, N`	4411	`INTEGER INCX, K, LDA, N`
4412	`CHARACTER*1 DIAG, TRANS, UPLO`	4412	`CHARACTER DIAG, TRANS, UPLO`
4413	`* .. Array Arguments ..`	4413	`* .. Array Arguments ..`
4414	`DOUBLE PRECISION A( LDA, * ), X( * )`	4414	`DOUBLE PRECISION A( LDA, * ), X( * )`
4415	`* ..`	4415	`* ..`
4416	`*`	4416	`*`
4417	`* Purpose`	4417	`* Purpose`
Line 4749...	Line 4749...
4749	`*`	4749	`*`
4750	`END`	4750	`END`
4751	`SUBROUTINE DTBSV ( UPLO, TRANS, DIAG, N, K, A, LDA, X, INCX )`	4751	`SUBROUTINE DTBSV ( UPLO, TRANS, DIAG, N, K, A, LDA, X, INCX )`
4752	`* .. Scalar Arguments ..`	4752	`* .. Scalar Arguments ..`
4753	`INTEGER INCX, K, LDA, N`	4753	`INTEGER INCX, K, LDA, N`
4754	`CHARACTER*1 DIAG, TRANS, UPLO`	4754	`CHARACTER DIAG, TRANS, UPLO`
4755	`* .. Array Arguments ..`	4755	`* .. Array Arguments ..`
4756	`DOUBLE PRECISION A( LDA, * ), X( * )`	4756	`DOUBLE PRECISION A( LDA, * ), X( * )`
4757	`* ..`	4757	`* ..`
4758	`*`	4758	`*`
4759	`* Purpose`	4759	`* Purpose`
Line 5095...	Line 5095...
5095	`*`	5095	`*`
5096	`END`	5096	`END`
5097	`SUBROUTINE DTPMV ( UPLO, TRANS, DIAG, N, AP, X, INCX )`	5097	`SUBROUTINE DTPMV ( UPLO, TRANS, DIAG, N, AP, X, INCX )`
5098	`* .. Scalar Arguments ..`	5098	`* .. Scalar Arguments ..`
5099	`INTEGER INCX, N`	5099	`INTEGER INCX, N`
5100	`CHARACTER*1 DIAG, TRANS, UPLO`	5100	`CHARACTER DIAG, TRANS, UPLO`
5101	`* .. Array Arguments ..`	5101	`* .. Array Arguments ..`
5102	`DOUBLE PRECISION AP( * ), X( * )`	5102	`DOUBLE PRECISION AP( * ), X( * )`
5103	`* ..`	5103	`* ..`
5104	`*`	5104	`*`
5105	`* Purpose`	5105	`* Purpose`
Line 5394...	Line 5394...
5394	`*`	5394	`*`
5395	`END`	5395	`END`
5396	`SUBROUTINE DTPSV ( UPLO, TRANS, DIAG, N, AP, X, INCX )`	5396	`SUBROUTINE DTPSV ( UPLO, TRANS, DIAG, N, AP, X, INCX )`
5397	`* .. Scalar Arguments ..`	5397	`* .. Scalar Arguments ..`
5398	`INTEGER INCX, N`	5398	`INTEGER INCX, N`
5399	`CHARACTER*1 DIAG, TRANS, UPLO`	5399	`CHARACTER DIAG, TRANS, UPLO`
5400	`* .. Array Arguments ..`	5400	`* .. Array Arguments ..`
5401	`DOUBLE PRECISION AP( * ), X( * )`	5401	`DOUBLE PRECISION AP( * ), X( * )`
5402	`* ..`	5402	`* ..`
5403	`*`	5403	`*`
5404	`* Purpose`	5404	`* Purpose`
Line 5696...	Line 5696...
5696	`*`	5696	`*`
5697	`END`	5697	`END`
5698	`SUBROUTINE DTRMM ( SIDE, UPLO, TRANSA, DIAG, M, N, ALPHA, A, LDA,`	5698	`SUBROUTINE DTRMM ( SIDE, UPLO, TRANSA, DIAG, M, N, ALPHA, A, LDA,`
5699	`$ B, LDB )`	5699	`$ B, LDB )`
5700	`* .. Scalar Arguments ..`	5700	`* .. Scalar Arguments ..`
5701	`CHARACTER*1 SIDE, UPLO, TRANSA, DIAG`	5701	`CHARACTER SIDE, UPLO, TRANSA, DIAG`
5702	`INTEGER M, N, LDA, LDB`	5702	`INTEGER M, N, LDA, LDB`
5703	`DOUBLE PRECISION ALPHA`	5703	`DOUBLE PRECISION ALPHA`
5704	`* .. Array Arguments ..`	5704	`* .. Array Arguments ..`
5705	`DOUBLE PRECISION A( LDA, * ), B( LDB, * )`	5705	`DOUBLE PRECISION A( LDA, * ), B( LDB, * )`
5706	`* ..`	5706	`* ..`
Line 6051...	Line 6051...
6051	`*`	6051	`*`
6052	`END`	6052	`END`
6053	`SUBROUTINE DTRMV ( UPLO, TRANS, DIAG, N, A, LDA, X, INCX )`	6053	`SUBROUTINE DTRMV ( UPLO, TRANS, DIAG, N, A, LDA, X, INCX )`
6054	`* .. Scalar Arguments ..`	6054	`* .. Scalar Arguments ..`
6055	`INTEGER INCX, LDA, N`	6055	`INTEGER INCX, LDA, N`
6056	`CHARACTER*1 DIAG, TRANS, UPLO`	6056	`CHARACTER DIAG, TRANS, UPLO`
6057	`* .. Array Arguments ..`	6057	`* .. Array Arguments ..`
6058	`DOUBLE PRECISION A( LDA, * ), X( * )`	6058	`DOUBLE PRECISION A( LDA, * ), X( * )`
6059	`* ..`	6059	`* ..`
6060	`*`	6060	`*`
6061	`* Purpose`	6061	`* Purpose`
Line 6337...	Line 6337...
6337	`*`	6337	`*`
6338	`END`	6338	`END`
6339	`SUBROUTINE DTRSM ( SIDE, UPLO, TRANSA, DIAG, M, N, ALPHA, A, LDA,`	6339	`SUBROUTINE DTRSM ( SIDE, UPLO, TRANSA, DIAG, M, N, ALPHA, A, LDA,`
6340	`$ B, LDB )`	6340	`$ B, LDB )`
6341	`* .. Scalar Arguments ..`	6341	`* .. Scalar Arguments ..`
6342	`CHARACTER*1 SIDE, UPLO, TRANSA, DIAG`	6342	`CHARACTER SIDE, UPLO, TRANSA, DIAG`
6343	`INTEGER M, N, LDA, LDB`	6343	`INTEGER M, N, LDA, LDB`
6344	`DOUBLE PRECISION ALPHA`	6344	`DOUBLE PRECISION ALPHA`
6345	`* .. Array Arguments ..`	6345	`* .. Array Arguments ..`
6346	`DOUBLE PRECISION A( LDA, * ), B( LDB, * )`	6346	`DOUBLE PRECISION A( LDA, * ), B( LDB, * )`
6347	`* ..`	6347	`* ..`
Line 6715...	Line 6715...
6715	`*`	6715	`*`
6716	`END`	6716	`END`
6717	`SUBROUTINE DTRSV ( UPLO, TRANS, DIAG, N, A, LDA, X, INCX )`	6717	`SUBROUTINE DTRSV ( UPLO, TRANS, DIAG, N, A, LDA, X, INCX )`
6718	`* .. Scalar Arguments ..`	6718	`* .. Scalar Arguments ..`
6719	`INTEGER INCX, LDA, N`	6719	`INTEGER INCX, LDA, N`
6720	`CHARACTER*1 DIAG, TRANS, UPLO`	6720	`CHARACTER DIAG, TRANS, UPLO`
6721	`* .. Array Arguments ..`	6721	`* .. Array Arguments ..`
6722	`DOUBLE PRECISION A( LDA, * ), X( * )`	6722	`DOUBLE PRECISION A( LDA, * ), X( * )`
6723	`* ..`	6723	`* ..`
6724	`*`	6724	`*`
6725	`* Purpose`	6725	`* Purpose`

The R Project SVN R

(root)/trunk/src/extra/blas/blas.f – Rev 75210 → 75211