V3FIT
liprec.f
1  MODULE liprec
2 
3  INTEGER, PARAMETER :: SP=kind(1.0), dp=kind(1.0d0)
4 
5  INTERFACE li_gbfa
6 
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
12  END SUBROUTINE sgbfa
13 
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
19  END SUBROUTINE dgbfa
20 
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
26  END SUBROUTINE sgbfa1
27 
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
33  END SUBROUTINE dgbfa1
34 
35  END INTERFACE
36 
37  INTERFACE li_gbsl
38 
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
45  END SUBROUTINE sgbsl
46 
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
53  END SUBROUTINE sgbsl1
54 
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
61  END SUBROUTINE dgbsl
62 
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
69  END SUBROUTINE dgbsl1
70 
71  END INTERFACE
72 
73  INTERFACE li_gefa
74 
75  SUBROUTINE sgefa (A, LDA, N, IPVT, INFO)
76  INTEGER, PARAMETER :: SP=kind(1.0)
77  INTEGER LDA, N, INFO
78  INTEGER, DIMENSION(N) :: IPVT
79  REAL(SP), DIMENSION(LDA,N) :: A
80  END SUBROUTINE sgefa
81 
82  SUBROUTINE dgefa (A, LDA, N, IPVT, INFO)
83  INTEGER, PARAMETER :: DP=kind(1.0d0)
84  INTEGER LDA, N, INFO
85  INTEGER, DIMENSION(N) :: IPVT
86  REAL(DP), DIMENSION(LDA,N) :: A
87  END SUBROUTINE dgefa
88 
89  SUBROUTINE sgefa1 (A, LDA, N, IPVT, INFO)
90  INTEGER, PARAMETER :: SP=kind(1.0)
91  INTEGER LDA, N, INFO
92  INTEGER, DIMENSION(N) :: IPVT
93  REAL(SP), DIMENSION(*) :: A
94  END SUBROUTINE sgefa1
95 
96  SUBROUTINE dgefa1 (A, LDA, N, IPVT, INFO)
97  INTEGER, PARAMETER :: DP=kind(1.0d0)
98  INTEGER LDA, N, INFO
99  INTEGER, DIMENSION(N) :: IPVT
100  REAL(DP), DIMENSION(*) :: A
101  END SUBROUTINE dgefa1
102 
103  END INTERFACE
104 
105  INTERFACE li_gesl
106 
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
113  END SUBROUTINE sgesl
114 
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
122 
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
129  END SUBROUTINE dgesl
130 
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
138 
139  END INTERFACE
140 
141  END MODULE liprec
liprec::li_gbsl
Definition: liprec.f:37
liprec::li_gesl
Definition: liprec.f:105
liprec::li_gefa
Definition: liprec.f:73
liprec::li_gbfa
Definition: liprec.f:5