| 查看: 986 | 回复: 10 | |||
| 当前主题已经存档。 | |||
| 当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖 | |||
落日照秋草木虫 (正式写手)
|
[交流]
【求助】求助LAPACK 问题！【已完结】 已有1人参与
|
||
|
请问哪位知道ＺＧＥＴＲＩ这个语句如何使用啊？ [ Last edited by 余泽成 on 2010-3-28 at 19:08 ] |
回复此楼» 猜你喜欢
0703化学调剂，求导师收
已经有10人回复
-
各位老师好，我的一志愿为北京科技大学085601材料专硕
已经有5人回复
-
一志愿太原理工安全工程300分，求调剂
已经有6人回复
-
0856求调剂
已经有4人回复
-
11408软件工程求调剂
已经有3人回复
-
一志愿211 初试270分 求调剂
已经有8人回复
-
300求调剂，材料科学英一数二
已经有6人回复
-
学硕274求调剂
已经有9人回复
-
本科双非材料，跨考一志愿华电085801电气，283求调剂，任何专业都可以
已经有7人回复
-
317分 一志愿南理工材料工程 本科湖工大 求调剂
已经有7人回复
lurencyj
木虫 (著名写手)
- 应助: 159 (高中生)
- 金币: 2869.2
- 散金: 520
- 红花: 8
- 沙发: 10
- 帖子: 1244
- 在线: 148.3小时
- 虫号: 888093
- 注册: 2009-10-29
- 性别: GG
- 专业: 凝聚态物性I:结构、力学和
5楼2010-01-28 09:04:14
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
