| 查看: 980 | 回复: 10 | |||
| 当前主题已经存档。 | |||
| 当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖 | |||
落日照秋草木虫 (正式写手)
|
[交流]
【求助】求助LAPACK 问题！【已完结】 已有1人参与
|
||
|
请问哪位知道ＺＧＥＴＲＩ这个语句如何使用啊？ [ Last edited by 余泽成 on 2010-3-28 at 19:08 ] |
回复此楼» 猜你喜欢
食品工程专硕一志愿中海洋309求调剂
已经有8人回复
-
求调剂
已经有7人回复
-
311（085601）求调剂
已经有4人回复
-
305求调剂
已经有4人回复
-
一志愿北化085600材料专硕275|有文章专利｜求调剂
已经有7人回复
-
一志愿华理，数一英一285求A区调剂
已经有12人回复
-
289求调剂
已经有11人回复
-
生物学学硕，一志愿湖南大学，初试成绩338
已经有6人回复
-
321求调剂
已经有7人回复
-
343求调剂
已经有4人回复
dickli2008
银虫 (小有名气)
- 应助: 0 (幼儿园)
- 金币: 393.4
- 散金: 112
- 红花: 1
- 帖子: 236
- 在线: 114.5小时
- 虫号: 556129
- 注册: 2008-05-10
- 专业: 凝聚态物性 II ：电子结构
10楼2010-03-22 11:00:36
dic213
木虫 (著名写手)
第三军团儿童团团长
- 应助: 0 (幼儿园)
- 金币: 1777.4
- 散金: 5
- 帖子: 2476
- 在线: 37.1小时
- 虫号: 42931
- 注册: 2004-04-03
- 性别: GG
- 专业: 计算数学
★ ★ ★
小木虫(金币+0.5):给个红包，谢谢回帖交流
jjdg(金币+2):辛苦了 1-27 19:07
小木虫(金币+0.5):给个红包，谢谢回帖交流
jjdg(金币+2):辛苦了 1-27 19:07
|
SUBROUTINE ZGETRI( N, A, LDA, IPIV, WORK, LWORK, INFO ) 016: * Purpose 017: * ======= 018: * 019: * ZGETRI computes the inverse of a matrix using the LU factorization 020: * computed by ZGETRF. 021: * 022: * This method inverts U and then computes inv(A) by solving the system 023: * inv(A)*L = inv(U) for inv(A). 024: * 025: * Arguments 026: * ========= 027: * 028: * N (input) INTEGER 029: * The order of the matrix A. N >= 0. 030: * 031: * A (input/output) COMPLEX*16 array, dimension (LDA,N) 032: * On entry, the factors L and U from the factorization 033: * A = P*L*U as computed by ZGETRF. 034: * On exit, if INFO = 0, the inverse of the original matrix A. 035: * 036: * LDA (input) INTEGER 037: * The leading dimension of the array A. LDA >= max(1,N). 038: * 039: * IPIV (input) INTEGER array, dimension (N) 040: * The pivot indices from ZGETRF; for 1<=i<=N, row i of the 041: * matrix was interchanged with row IPIV(i). 042: * 043: * WORK (workspace/output) COMPLEX*16 array, dimension (MAX(1,LWORK)) 044: * On exit, if INFO=0, then WORK(1) returns the optimal LWORK. 045: * 046: * LWORK (input) INTEGER 047: * The dimension of the array WORK. LWORK >= max(1,N). 048: * For optimal performance LWORK >= N*NB, where NB is 049: * the optimal blocksize returned by ILAENV. 050: * 051: * If LWORK = -1, then a workspace query is assumed; the routine 052: * only calculates the optimal size of the WORK array, returns 053: * this value as the first entry of the WORK array, and no error 054: * message related to LWORK is issued by XERBLA. 055: * 056: * INFO (output) INTEGER 057: * = 0: successful exit 058: * < 0: if INFO = -i, the i-th argument had an illegal value 059: * > 0: if INFO = i, U(i,i) is exactly zero; the matrix is 060: * singular and its inverse could not be computed. 061: * 062: * ===================================================================== http://www.netlib.org/lapack/explore-html/zgetri.f.html |
2楼2010-01-27 17:14:25
落日照秋草
木虫 (正式写手)
- 应助: 8 (幼儿园)
- 金币: 2388.6
- 散金: 617
- 红花: 8
- 帖子: 670
- 在线: 912小时
- 虫号: 472183
- 注册: 2007-12-04
- 专业: 药物化学
3楼2010-01-27 17:33:22
dic213
木虫 (著名写手)
第三军团儿童团团长
- 应助: 0 (幼儿园)
- 金币: 1777.4
- 散金: 5
- 帖子: 2476
- 在线: 37.1小时
- 虫号: 42931
- 注册: 2004-04-03
- 性别: GG
- 专业: 计算数学
4楼2010-01-28 08:47:03
