代码搜索：F
找到约 10,000 项符合「F」的源代码
代码结果 10,000
www.eeworm.com/read/310272/3698887
f sgesdd.f
SUBROUTINE SGESDD( JOBZ, M, N, A, LDA, S, U, LDU, VT, LDVT, WORK,
$ LWORK, IWORK, INFO )
*
* -- LAPACK driver routine (instrumented to count ops, version 3.0) --
* Un
www.eeworm.com/read/310272/3698888
f chgeqz.f
SUBROUTINE CHGEQZ( JOB, COMPQ, COMPZ, N, ILO, IHI, A, LDA, B, LDB,
$ ALPHA, BETA, Q, LDQ, Z, LDZ, WORK, LWORK,
$ RWORK, INFO )
*
* -- LAPACK routin
www.eeworm.com/read/310272/3698889
f dtgevc.f
SUBROUTINE DTGEVC( SIDE, HOWMNY, SELECT, N, A, LDA, B, LDB, VL,
$ LDVL, VR, LDVR, MM, M, WORK, INFO )
*
* -- LAPACK routine (instrumented to count operations, version 3.0
www.eeworm.com/read/310272/3698892
f ctrevc.f
SUBROUTINE CTREVC( SIDE, HOWMNY, SELECT, N, T, LDT, VL, LDVL, VR,
$ LDVR, MM, M, WORK, RWORK, INFO )
*
* -- LAPACK routine (instrumented to count operations, version 3.0)
www.eeworm.com/read/310272/3698893
f dhgeqz.f
SUBROUTINE DHGEQZ( JOB, COMPQ, COMPZ, N, ILO, IHI, A, LDA, B, LDB,
$ ALPHAR, ALPHAI, BETA, Q, LDQ, Z, LDZ, WORK,
$ LWORK, INFO )
*
* -- LAPACK rout
www.eeworm.com/read/310272/3698895
f csteqr.f
SUBROUTINE CSTEQR( COMPZ, N, D, E, Z, LDZ, WORK, INFO )
*
* -- LAPACK routine (instrumented to count operations, version 3.0) --
* Univ. of Tennessee, Univ. of California Berkeley, NAG Ltd.
www.eeworm.com/read/310272/3698896
f dlarrb.f
SUBROUTINE DLARRB( N, D, L, LD, LLD, IFIRST, ILAST, SIGMA, RELTOL,
$ W, WGAP, WERR, WORK, IWORK, INFO )
*
* -- LAPACK auxiliary routine (instru to count ops, version 3.0)
www.eeworm.com/read/310272/3698899
f shseqr.f
SUBROUTINE SHSEQR( JOB, COMPZ, N, ILO, IHI, H, LDH, WR, WI, Z,
$ LDZ, WORK, LWORK, INFO )
*
* -- LAPACK routine (instrumented to count operations, version 3.0) --
* U
www.eeworm.com/read/307164/3726711
f flibchkf.f
SUBROUTINE FLIBCHK(A)
COMPLEX*16 A(*)
INTRINSIC DIMAG
*
* Perform complex arith and I/O to link in f77 libs
*
A(1) = (A(1) * A(2)) / A(3)
IF (DIMAG(A(1)) .EQ