代码搜索：array
找到约 10,000 项符合「array」的源代码
代码结果 10,000
www.eeworm.com/read/367160/9773373
f sspr.f
SUBROUTINE SSPR(UPLO,N,ALPHA,X,INCX,AP)
* .. Scalar Arguments ..
REAL ALPHA
INTEGER INCX,N
CHARACTER UPLO
* ..
* .. Array Arguments ..
REAL AP(*),X(*)
www.eeworm.com/read/367160/9773629
f dspr2.f
SUBROUTINE DSPR2(UPLO,N,ALPHA,X,INCX,Y,INCY,AP)
* .. Scalar Arguments ..
DOUBLE PRECISION ALPHA
INTEGER INCX,INCY,N
CHARACTER UPLO
* ..
* .. Array Arguments .
www.eeworm.com/read/367160/9777197
f ctpt03.f
SUBROUTINE CTPT03( UPLO, TRANS, DIAG, N, NRHS, AP, SCALE, CNORM,
$ TSCAL, X, LDX, B, LDB, WORK, RESID )
*
* -- LAPACK test routine (version 3.1) --
* Univ. of Ten
www.eeworm.com/read/367160/9777241
f stbt03.f
SUBROUTINE STBT03( UPLO, TRANS, DIAG, N, KD, NRHS, AB, LDAB,
$ SCALE, CNORM, TSCAL, X, LDX, B, LDB, WORK,
$ RESID )
*
* -- LAPACK test routine
www.eeworm.com/read/367160/9777290
f zgbt05.f
SUBROUTINE ZGBT05( TRANS, N, KL, KU, NRHS, AB, LDAB, B, LDB, X,
$ LDX, XACT, LDXACT, FERR, BERR, RESLTS )
*
* -- LAPACK test routine (version 3.1) --
* Univ. of T
www.eeworm.com/read/367160/9777339
f sgbt05.f
SUBROUTINE SGBT05( TRANS, N, KL, KU, NRHS, AB, LDAB, B, LDB, X,
$ LDX, XACT, LDXACT, FERR, BERR, RESLTS )
*
* -- LAPACK test routine (version 3.1) --
* Univ. of T
www.eeworm.com/read/367160/9777640
f ctbt03.f
SUBROUTINE CTBT03( UPLO, TRANS, DIAG, N, KD, NRHS, AB, LDAB,
$ SCALE, CNORM, TSCAL, X, LDX, B, LDB, WORK,
$ RESID )
*
* -- LAPACK test routine
www.eeworm.com/read/367160/9777950
f stpt03.f
SUBROUTINE STPT03( UPLO, TRANS, DIAG, N, NRHS, AP, SCALE, CNORM,
$ TSCAL, X, LDX, B, LDB, WORK, RESID )
*
* -- LAPACK test routine (version 3.1) --
* Univ. of Ten
www.eeworm.com/read/367160/9778353
f cgbt05.f
SUBROUTINE CGBT05( TRANS, N, KL, KU, NRHS, AB, LDAB, B, LDB, X,
$ LDX, XACT, LDXACT, FERR, BERR, RESLTS )
*
* -- LAPACK test routine (version 3.1) --
* Univ. of T
www.eeworm.com/read/415218/11080291
h heap.h
/* $Id: heap.h 800 2008-02-26 22:32:04Z mpf $ */
#ifndef __HEAP_H__
#define __HEAP_H__
#define swap_double(a,b) { double c; c = (a); (a) = (b); (b) = c; }
/*
\brief Perform the "sift" operation f