?? 20000601-2.f
字號:
SUBROUTINE SGBTRF( M, KL, KU, AB, LDAB )* Slightly modified version of 20000601-1.f that still ICES with* CVS 20010118 g77 on mips-sgi-irix6.5/-mabi=64.** Originally derived from LAPACK 3.0 test suite failure.** David Billinghurst, (David.Billinghurst@riotinto.com.au)* 18 January 2001 INTEGER KL, KU, LDAB, M REAL AB( LDAB, * ) INTEGER J, JB, JJ, JP, KV, KM REAL WORK13(65,64), WORK31(65,64) KV = KU + KL DO J = 1, M JB = MIN( 1, M-J+1 ) DO JJ = J, J + JB - 1 KM = MIN( KL, M-JJ ) JP = MAX( KM+1, AB( KV+1, JJ ) ) CALL SSWAP( JB, AB( KV+1+JJ-J, J ), LDAB-1, $ AB( KV+JP+JJ-J, J ), LDAB-1 ) END DO END DO RETURN END
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -