| /dports/math/openblas/OpenBLAS-0.3.18/lapack-netlib/SRC/ |
| H A D | dsytri_rook.f | 139 INTEGER INFO, LDA, N
143 DOUBLE PRECISION A( LDA, * ), WORK( * )
149 DOUBLE PRECISION ONE, ZERO
154 INTEGER K, KP, KSTEP
155 DOUBLE PRECISION AK, AKKP1, AKP1, D, T, TEMP
200 10 CONTINUE
208 20 CONTINUE
220 30 CONTINUE
326 40 CONTINUE
336 50 CONTINUE
[all …]
|
| /dports/math/xlife++/xlifepp-sources-v2.0.1-2018-05-09/ext/LAPACKBLAS/SRC/ |
| H A D | dsytri_rook.f | 130 SUBROUTINE DSYTRI_ROOK( UPLO, N, A, LDA, IPIV, WORK, INFO ) subroutine
200 10 CONTINUE
208 20 CONTINUE
220 30 CONTINUE
326 40 CONTINUE
336 50 CONTINUE
448 * End of DSYTRI_ROOK argument
|
| /dports/math/xlapack/lapack-3.10.0/SRC/ |
| H A D | dsytri_rook.f | 128 SUBROUTINE DSYTRI_ROOK( UPLO, N, A, LDA, IPIV, WORK, INFO ) subroutine
197 10 CONTINUE
205 20 CONTINUE
217 30 CONTINUE
323 40 CONTINUE
333 50 CONTINUE
445 * End of DSYTRI_ROOK argument
|
| /dports/math/blas/lapack-3.10.0/SRC/ |
| H A D | dsytri_rook.f | 128 SUBROUTINE DSYTRI_ROOK( UPLO, N, A, LDA, IPIV, WORK, INFO ) subroutine
197 10 CONTINUE
205 20 CONTINUE
217 30 CONTINUE
323 40 CONTINUE
333 50 CONTINUE
445 * End of DSYTRI_ROOK argument
|
| /dports/math/lapack/lapack-3.10.0/SRC/ |
| H A D | dsytri_rook.f | 128 SUBROUTINE DSYTRI_ROOK( UPLO, N, A, LDA, IPIV, WORK, INFO ) subroutine
197 10 CONTINUE
205 20 CONTINUE
217 30 CONTINUE
323 40 CONTINUE
333 50 CONTINUE
445 * End of DSYTRI_ROOK argument
|
| /dports/math/lapacke/lapack-3.10.0/SRC/ |
| H A D | dsytri_rook.f | 128 SUBROUTINE DSYTRI_ROOK( UPLO, N, A, LDA, IPIV, WORK, INFO ) subroutine
197 10 CONTINUE
205 20 CONTINUE
217 30 CONTINUE
323 40 CONTINUE
333 50 CONTINUE
445 * End of DSYTRI_ROOK argument
|
| /dports/math/cblas/lapack-3.10.0/SRC/ |
| H A D | dsytri_rook.f | 128 SUBROUTINE DSYTRI_ROOK( UPLO, N, A, LDA, IPIV, WORK, INFO ) subroutine
197 10 CONTINUE
205 20 CONTINUE
217 30 CONTINUE
323 40 CONTINUE
333 50 CONTINUE
445 * End of DSYTRI_ROOK argument
|