3 INTEGER,
PARAMETER :: SP=kind(1.0), dp=kind(1.0d0)
7 SUBROUTINE sgbfa (ABD, LDA, N, ML, MU, IPVT, INFO)
8 INTEGER,
PARAMETER :: SP=kind(1.0)
9 INTEGER LDA, N, ML, MU, INFO
10 INTEGER,
DIMENSION(N) :: IPVT
11 REAL(SP),
DIMENSION(LDA,N) :: ABD
14 SUBROUTINE dgbfa (ABD, LDA, N, ML, MU, IPVT, INFO)
15 INTEGER,
PARAMETER :: DP=kind(1.0d0)
16 INTEGER LDA, N, ML, MU, INFO
17 INTEGER,
DIMENSION(N) :: IPVT
18 REAL(DP),
DIMENSION(LDA,N) :: ABD
21 SUBROUTINE sgbfa1 (ABD, LDA, N, ML, MU, IPVT, INFO)
22 INTEGER,
PARAMETER :: SP=kind(1.0)
23 INTEGER LDA, N, ML, MU, INFO
24 INTEGER,
DIMENSION(N) :: IPVT
25 REAL(SP),
DIMENSION(*) :: ABD
28 SUBROUTINE dgbfa1 (ABD, LDA, N, ML, MU, IPVT, INFO)
29 INTEGER,
PARAMETER :: DP=kind(1.0d0)
30 INTEGER LDA, N, ML, MU, INFO
31 INTEGER,
DIMENSION(N) :: IPVT
32 REAL(DP),
DIMENSION(*) :: ABD
39 SUBROUTINE sgbsl (ABD, LDA, N, ML, MU, IPVT, B, JOB)
40 INTEGER,
PARAMETER :: SP=kind(1.0)
41 INTEGER LDA, N, ML, MU, JOB
42 INTEGER,
DIMENSION(N) :: IPVT
43 REAL(SP),
DIMENSION(LDA,N) :: ABD
44 REAL(SP),
DIMENSION(N) :: B
47 SUBROUTINE sgbsl1 (ABD, LDA, N, ML, MU, IPVT, B, JOB)
48 INTEGER,
PARAMETER :: SP=kind(1.0)
49 INTEGER LDA, N, ML, MU, JOB
50 INTEGER,
DIMENSION(N) :: IPVT
51 REAL(SP),
DIMENSION(*) :: ABD
52 REAL(SP),
DIMENSION(N) :: B
55 SUBROUTINE dgbsl (ABD, LDA, N, ML, MU, IPVT, B, JOB)
56 INTEGER,
PARAMETER :: DP=kind(1.0d0)
57 INTEGER LDA, N, ML, MU, JOB
58 INTEGER,
DIMENSION(N) :: IPVT
59 REAL(DP),
DIMENSION(LDA,N) :: ABD
60 REAL(DP),
DIMENSION(N) :: B
63 SUBROUTINE dgbsl1 (ABD, LDA, N, ML, MU, IPVT, B, JOB)
64 INTEGER,
PARAMETER :: DP=kind(1.0d0)
65 INTEGER LDA, N, ML, MU, JOB
66 INTEGER,
DIMENSION(N) :: IPVT
67 REAL(DP),
DIMENSION(*) :: ABD
68 REAL(DP),
DIMENSION(N) :: B
75 SUBROUTINE sgefa (A, LDA, N, IPVT, INFO)
76 INTEGER,
PARAMETER :: SP=kind(1.0)
78 INTEGER,
DIMENSION(N) :: IPVT
79 REAL(SP),
DIMENSION(LDA,N) :: A
82 SUBROUTINE dgefa (A, LDA, N, IPVT, INFO)
83 INTEGER,
PARAMETER :: DP=kind(1.0d0)
85 INTEGER,
DIMENSION(N) :: IPVT
86 REAL(DP),
DIMENSION(LDA,N) :: A
89 SUBROUTINE sgefa1 (A, LDA, N, IPVT, INFO)
90 INTEGER,
PARAMETER :: SP=kind(1.0)
92 INTEGER,
DIMENSION(N) :: IPVT
93 REAL(SP),
DIMENSION(*) :: A
96 SUBROUTINE dgefa1 (A, LDA, N, IPVT, INFO)
97 INTEGER,
PARAMETER :: DP=kind(1.0d0)
99 INTEGER,
DIMENSION(N) :: IPVT
100 REAL(DP),
DIMENSION(*) :: A
101 END SUBROUTINE dgefa1
107 SUBROUTINE sgesl (A, LDA, N, IPVT, B, JOB)
108 INTEGER,
PARAMETER :: SP=kind(1.0)
109 INTEGER,
INTENT(IN) :: LDA, N, JOB
110 INTEGER,
DIMENSION(N),
INTENT(IN) :: IPVT
111 REAL(SP),
DIMENSION(LDA,N),
INTENT(IN) :: A
112 REAL(SP),
DIMENSION(N),
INTENT(INOUT) :: B
115 SUBROUTINE sgesl1 (A, LDA, N, IPVT, B, JOB)
116 INTEGER,
PARAMETER :: SP=kind(1.0)
117 INTEGER,
INTENT(IN) :: LDA, N, JOB
118 INTEGER,
DIMENSION(N),
INTENT(IN) :: IPVT
119 REAL(SP),
DIMENSION(*),
INTENT(IN) :: A
120 REAL(SP),
DIMENSION(N),
INTENT(INOUT) :: B
121 END SUBROUTINE sgesl1
123 SUBROUTINE dgesl (A, LDA, N, IPVT, B, JOB)
124 INTEGER,
PARAMETER :: DP=kind(1.0d0)
125 INTEGER,
INTENT(IN) :: LDA, N, JOB
126 INTEGER,
DIMENSION(N),
INTENT(IN) :: IPVT
127 REAL(DP),
DIMENSION(LDA,N),
INTENT(IN) :: A
128 REAL(DP),
DIMENSION(N),
INTENT(INOUT) :: B
131 SUBROUTINE dgesl1 (A, LDA, N, IPVT, B, JOB)
132 INTEGER,
PARAMETER :: DP=kind(1.0d0)
133 INTEGER,
INTENT(IN) :: LDA, N, JOB
134 INTEGER,
DIMENSION(N),
INTENT(IN) :: IPVT
135 REAL(DP),
DIMENSION(*),
INTENT(IN) :: A
136 REAL(DP),
DIMENSION(N),
INTENT(INOUT) :: B
137 END SUBROUTINE dgesl1