| /dports/science/py-scipy/scipy-1.7.1/scipy/linalg/src/id_dist/src/ |
| H A D | idz_id2svd.f | 44 complex*16 b(m,krank),proj(krank,n-krank),u(m,krank),
45 1 v(n,krank),w((krank+1)*(m+3*n+10)+9*krank**2)
73 lr3 = krank*krank
109 complex*16 b(m,krank),proj(krank,n-krank),p(krank,n),
110 1 r(krank,n),r2(krank,m),t(n,krank),r3(krank,krank),
111 2 u(m,krank),v(n,krank),work(8*krank**2+10*krank)
137 call idz_rearr(krank,ind,krank,krank,r)
158 call idz_rearr(krank,indt,krank,krank,r2)
164 call idz_matmulta(krank,krank,r,krank,r2,r3)
173 1 - (krank**2+2*krank+3*krank**2+4*krank)
[all …]
|
| H A D | idd_id2svd.f | 43 real*8 b(m,krank),proj(krank,n-krank),u(m,krank),v(n,krank),
44 1 w((krank+1)*(m+3*n)+26*krank**2),s(krank)
70 lr3 = krank*krank
105 real*8 b(m,krank),proj(krank,n-krank),p(krank,n),
106 1 r(krank,n),r2(krank,m),t(n,krank),r3(krank,krank),
107 2 u(m,krank),v(n,krank),s(krank),work(25*krank**2)
133 call idd_rearr(krank,ind,krank,krank,r)
154 call idd_rearr(krank,indt,krank,krank,r2)
160 call idd_matmultt(krank,krank,r,krank,r2,r3)
168 lwork = 25*krank**2-krank**2-4*krank
[all …]
|
| H A D | idz_svd.f | 79 call idz_permuter(krank,r,krank,n,r(io+1))
88 lwork = 2*(krank**2+2*krank+n)
93 1 v,ldvadj,r(io+krank*n+krank*krank+1),lwork,
94 2 r(io+krank*n+krank*krank+lwork+1),r,info)
108 u(j,k) = r(io+krank*n+j+krank*(k-1))
223 lwork = 2*(krank**2+2*krank+n)
227 ivi = io+krank*n+krank*krank+lwork+3*krank**2+4*krank+1
239 1 ldu,w(ivi),ldvadj,w(io+krank*n+krank*krank+1),
240 2 lwork,w(io+krank*n+krank*krank+lwork+1),w,info)
270 w(iu-1+j+krank*(k-1)) = w(io+krank*n+j+krank*(k-1))
[all …]
|
| H A D | idd_svd.f | 57 real*8 a(m,n),u(m,krank),v(n*krank),s(krank),r(*)
78 call idd_permuter(krank,r,krank,n,r(io+1))
87 lwork = 2*(3*krank**2+n+4*krank**2+4*krank)
92 1 v,ldvt,r(io+krank*n+krank*krank+1),lwork,r,info)
106 u(j,k) = r(io+krank*n+j+krank*(k-1))
210 call idd_permuter(krank,w,krank,n,w(io+1))
219 lwork = 2*(3*krank**2+n+4*krank**2+4*krank)
223 ivi = io+krank*n+krank*krank+lwork+1
235 1 ldu,w(ivi),ldvt,w(io+krank*n+krank*krank+1),
268 w(iu-1+j+krank*(k-1)) = w(io+krank*n+j+krank*(k-1))
[all …]
|
| H A D | idd_id.f | 102 do k = 1,krank
122 do k = 1,krank
234 do k = 1,krank
290 real*8 col(m,krank),proj(krank,n-krank),approx(m,n)
362 a(j,krank+k) = a(j,krank+k)-sum
371 a(j,krank+k) = a(j,krank+k)/a(j,j)
416 a(j+krank*(k-1)) = a(j+m*(krank+k-1))
461 integer m,n,krank,list(krank),j,k local
466 do j = 1,krank
505 real*8 proj(krank,n-krank),p(krank,n)
[all …]
|
| H A D | idz_id.f | 103 do k = 1,krank
123 do k = 1,krank
236 do k = 1,krank
292 complex*16 col(m,krank),proj(krank,n-krank),approx(m,n)
365 a(j,krank+k) = a(j,krank+k)-sum
373 rnumer = a(j,krank+k)*conjg(a(j,krank+k))
377 a(j,krank+k) = a(j,krank+k)/a(j,j)
422 a(j+krank*(k-1)) = a(j+m*(krank+k-1))
467 integer m,n,krank,list(krank),j,k local
511 complex*16 proj(krank,n-krank),p(krank,n)
[all …]
|
| H A D | idzr_asvd.f | 45 real*8 s(krank)
46 complex*16 a(m,n),u(m,krank),v(n,krank),
47 1 w((2*krank+22)*m+(6*krank+21)*n+8*krank**2
48 2 +10*krank+90)
64 lproj = krank*(n-krank)
68 lcol = m*krank
72 lwork = (krank+1)*(m+3*n+10)+9*krank**2
95 real*8 s(krank)
96 complex*16 a(m,n),u(m,krank),v(n,krank),
97 1 proj(krank,n-krank),col(m*krank),
[all …]
|
| H A D | iddr_asvd.f | 44 real*8 a(m,n),u(m,krank),v(n,krank),s(krank),
45 1 w((2*krank+28)*m+(6*krank+21)*n+25*krank**2+100)
53 lwinit = (2*krank+17)*n+27*m+100
61 lproj = krank*(n-krank)
65 lcol = m*krank
69 lwork = (krank+1)*(m+3*n)+26*krank**2
91 integer m,n,krank,list(n),ier local
92 real*8 a(m,n),u(m,krank),v(n,krank),s(krank),
93 1 proj(krank,n-krank),col(m*krank),
94 2 winit((2*krank+17)*n+27*m+100),
[all …]
|
| H A D | iddr_rsvd.f | 81 real*8 p1t,p2t,p3t,p4t,p1,p2,p3,p4,u(m,krank),v(n,krank),
82 1 s(krank),w((krank+1)*(2*m+4*n)+25*krank**2)
95 lproj = krank*(n-krank)
99 lcol = m*krank
103 lwork = (krank+1)*(m+3*n)+26*krank**2
108 1 matvec,p1,p2,p3,p4,krank,u,v,s,ier,
127 integer m,n,krank,list(n),ier,k local
128 real*8 p1t,p2t,p3t,p4t,p1,p2,p3,p4,u(m,krank),v(n,krank),
129 1 s(krank),proj(krank*(n-krank)),col(m*krank),
130 2 work((krank+1)*(m+3*n)+26*krank**2)
[all …]
|
| H A D | idzr_rsvd.f | 81 real*8 s(krank)
82 complex*16 p1t,p2t,p3t,p4t,p1,p2,p3,p4,u(m,krank),v(n,krank),
83 1 w((krank+1)*(2*m+4*n+10)+8*krank**2)
96 lproj = krank*(n-krank)
100 lcol = m*krank
104 lwork = (krank+1)*(m+3*n+10)+9*krank**2
129 real*8 s(krank)
130 complex*16 p1t,p2t,p3t,p4t,p1,p2,p3,p4,u(m,krank),v(n,krank),
131 1 proj(krank*(n-krank)),col(m*krank),
132 2 work((krank+1)*(m+3*n+10)+9*krank**2)
[all …]
|
| H A D | idz_qrpiv.f | 188 do k = krank,1,-1
251 do k = 1,krank
355 do k = 1,krank
510 krank = 0
514 1 .or. krank .ge. m .or. krank .ge. n) goto 2000
515 krank = krank+1
553 call idz_house(mm,a(krank,krank),a(krank,krank),
554 1 a(krank+1,krank),scal)
564 call idz_houseapp(mm,a(krank+1,krank),a(krank,k),
573 ss(k) = ss(k)-a(krank,k)*conjg(a(krank,k))
[all …]
|
| H A D | idd_qrpiv.f | 188 do k = krank,1,-1
250 do k = 1,krank
353 do k = 1,krank
507 krank = 0
511 1 .or. krank .ge. m .or. krank .ge. n) goto 2000
512 krank = krank+1
515 mm = m-krank+1
550 call idd_house(mm,a(krank,krank),a(krank,krank),
551 1 a(krank+1,krank),scal)
561 call idd_houseapp(mm,a(krank+1,krank),a(krank,k),
[all …]
|
| H A D | iddp_asvd.f | 85 if(krank .gt. 0) then
90 lproj = krank*(n-krank)
94 lcol = m*krank
98 lu = m*krank
102 lv = n*krank
106 ls = krank
110 lwork = (krank+1)*(m+3*n)+26*krank**2
163 integer m,n,krank,list(n),ier local
164 real*8 a(m,n),u(m,krank),v(n,krank),
165 1 s(krank),proj(krank,n-krank),col(m,krank),
[all …]
|
| H A D | idzp_asvd.f | 86 if(krank .gt. 0) then
91 lproj = krank*(n-krank)
95 lcol = m*krank
99 lu = m*krank
103 lv = n*krank
107 ls = krank
111 lwork = (krank+1)*(m+3*n+10)+9*krank**2
163 real*8 s(krank)
164 complex*16 a(m,n),u(m,krank),v(n,krank),
165 1 proj(krank,n-krank),col(m,krank),
[all …]
|
| H A D | iddr_aid.f | 15 subroutine iddr_aid(m,n,a,krank,w,list,proj) argument
58 integer m,n,krank,list(n),lw,ir,lr,lw2,iw local
59 real*8 a(m,n),proj(krank*(n-krank)),w((2*krank+17)*n+27*m+100)
71 lr = (krank+8)*2*n
92 real*8 a(m,n),r(krank+8,2*n),proj(krank,n-krank),
122 lproj = krank*(n-krank)
138 lproj = krank*(n-krank)
177 subroutine iddr_aidi(m,n,krank,w) argument
190 integer m,n,krank,l,n2 local
191 real*8 w((2*krank+17)*n+27*m+100)
[all …]
|
| H A D | idzr_aid.f | 15 subroutine idzr_aid(m,n,a,krank,w,list,proj) argument
59 complex*16 a(m,n),proj(krank*(n-krank)),
60 1 w((2*krank+17)*n+21*m+80)
72 lr = (krank+8)*2*n
93 complex*16 a(m,n),r(krank+8,2*n),proj(krank,n-krank),
123 lproj = krank*(n-krank)
139 lproj = krank*(n-krank)
178 subroutine idzr_aidi(m,n,krank,w) argument
191 integer m,n,krank,l,n2 local
192 complex*16 w((2*krank+17)*n+21*m+80)
[all …]
|
| H A D | iddp_aid.f | 72 integer m,n,list(n),krank,kranki,n2 local
123 integer m,n,krank,list(n),j,k local
170 integer n,n2,kranki,krank,list(n),j,k local
309 krank = 0
318 if(krank .gt. 0) then
325 do k = 1,krank
336 call idd_house(n-krank,rat(krank+1,krank+1),
337 1 residual,rat(1,krank+1),scal(krank+1))
341 krank = krank+1
346 1 .and. krank+nulls .lt. n)
[all …]
|
| H A D | idzp_aid.f | 72 integer m,n,list(n),krank,kranki,n2 local
124 integer m,n,krank,list(n),j,k local
172 integer n,n2,kranki,krank,list(n),j,k local
314 krank = 0
323 if(krank .gt. 0) then
330 do k = 1,krank
341 call idz_house(n-krank,rat(krank+1,krank+1),
342 1 residual,rat(1,krank+1),scal(krank+1))
345 krank = krank+1
350 1 .and. krank+nulls .lt. n)
[all …]
|
| H A D | idzp_rsvd.f | 119 if(krank .gt. 0) then
124 lproj = krank*(n-krank)
128 lcol = m*krank
132 lu = m*krank
136 lv = n*krank
140 ls = krank
144 lwork = (krank+1)*(m+3*n+10)+9*krank**2
199 real*8 s(krank)
200 complex*16 p1t,p2t,p3t,p4t,p1,p2,p3,p4,u(m,krank),v(n,krank),
201 1 proj(krank,n-krank),col(m*krank),
[all …]
|
| H A D | iddp_rsvd.f | 117 if(krank .gt. 0) then
122 lproj = krank*(n-krank)
126 lcol = m*krank
130 lu = m*krank
134 lv = n*krank
138 ls = krank
142 lwork = (krank+1)*(m+3*n)+26*krank**2
198 integer m,n,krank,list(n),ier local
199 real*8 p1t,p2t,p3t,p4t,p1,p2,p3,p4,u(m,krank),v(n,krank),
200 1 s(krank),proj(krank,n-krank),col(m*krank),
[all …]
|
| H A D | iddp_rid.f | 15 1 krank,list,proj,ier) argument
237 krank = 0
258 y(k) = ra(k,1,krank+1)
262 if(krank .eq. 0) then
277 if(krank .gt. 0) then
283 do k = 1,krank
293 call idd_house(n-krank,y(krank+1),
294 1 residual,ra(1,2,krank+1),scal(krank+1))
298 krank = krank+1
302 1 .and. krank .lt. m .and. krank .lt. n)
[all …]
|
| H A D | idzp_rid.f | 15 1 krank,list,proj,ier) argument
240 krank = 0
262 y(k) = ra(k,1,krank+1)
266 if(krank .eq. 0) then
281 if(krank .gt. 0) then
287 do k = 1,krank
297 call idz_house(n-krank,y(krank+1),
298 1 residual,ra(1,2,krank+1),scal(krank+1))
301 krank = krank+1
305 1 .and. krank .lt. m .and. krank .lt. n)
[all …]
|
| /dports/science/py-scipy/scipy-1.7.1/scipy/linalg/ |
| H A D | interpolative.pyf | 107 real*8, intent(in), depend(krank,n) :: proj(krank,n-krank)
135 real*8, intent(in), depend(krank,n) :: proj(krank,n-krank)
138 real*8, intent(out), depend(krank) :: s(krank)
178 …real*8, intent(in), optional, depend(m,n,krank) :: r((krank+2)*n+8*min(m,n)+15*pow(krank,2)+8*kran…
276 real*8, intent(out), depend(n,krank) :: proj(max(krank*(n-krank),1))
292 real*8, intent(in), depend(m,n,krank) :: w((2*krank+28)*m+(6*krank+21)*n+25*pow(krank,2)+100)
387 complex*16, intent(in), depend(krank,n) :: proj(krank,n-krank)
415 complex*16, intent(in), depend(krank,n) :: proj(krank,n-krank)
458 …complex*16, intent(in), optional, depend(m,n,krank) :: r((krank+2)*n+8*min(m,n)+6*pow(krank,2)+8*k…
560 complex*16, intent(out), depend(n,krank) :: proj(max(krank*(n-krank),1))
[all …]
|
| /dports/games/krank/krank-07/ |
| H A D | krank.iss | 5 AppName=krank
6 AppVerName=krank 07
9 AppSupportURL=http://krank.sourceforge.net
10 AppUpdatesURL=http://krank.sourceforge.net
11 DefaultDirName={pf}\krank
12 DefaultGroupName=krank
14 OutputBaseFilename=krank-setup
17 SetupIconFile=media\krank.ico
40 Name: "{group}\krank"; Filename: "{app}\krank.exe"; WorkingDir: "{app}"
42 Name: "{commondesktop}\krank"; Filename: "{app}\krank.exe"; WorkingDir: "{app}"; Tasks: desktopicon
[all …]
|
| H A D | runsetup.sh | 3 rm -rf krank.app dist build
6 mv dist/krank.app .
7 mv krank.app/Contents/MacOS/krank krank.app/Contents/MacOS/krank.hide
8 …on.framework/Versions/2.4/Resources/Python.app/Contents/MacOS/Python krank.app/Contents/MacOS/krank
|