Searched defs:DGGGLM_F95 (Results 1 – 1 of 1) sorted by relevance
| /dports/math/lapack95/LAPACK95/SRC/ |
| H A D | la_dggglm.f90 | 1 SUBROUTINE DGGGLM_F95( A, B, D, X, Y, INFO ) subroutine
14 INTEGER, INTENT(OUT), OPTIONAL :: INFO
16 REAL(WP), INTENT(INOUT) :: A(:,:), B(:,:), D(:)
17 REAL(WP), INTENT(OUT) :: X(:), Y(:)
75 CHARACTER(LEN=8), PARAMETER :: SRNAME = 'LA_GGGLM'
77 INTEGER :: LINFO, ISTAT, ISTAT1, N, M, MN, P local
79 INTEGER, SAVE :: LWORK = 0
81 REAL(WP), POINTER :: WORK(:)
|