@@ -5,7 +5,7 @@ type RemoteElementalMatrix
55end
66
77function toback {T<:BlasFloat,S<:StridedMatrix} (A:: DArray{T,2,S} )
8- rs = Array ( Any, size (procs (A)))
8+ rs = Array { Any} ( size (procs (A)))
99 @sync for p in eachindex (procs (A))
1010 ind = A. indexes[p]
1111 @async rs[p] = remotecall (procs (A)[p]) do
@@ -25,7 +25,7 @@ function toback{T<:BlasFloat,S<:StridedMatrix}(A::DArray{T,2,S})
2525end
2626
2727function tofront (r:: Base.Matrix )
28- tt = Array ( Any, length (r))
28+ tt = Array { Any} ( length (r))
2929 for i = 1 : length (r)
3030 tt[i] = remotecall (r[i]. where, r[i]) do t
3131 typeof (fetch (t))
@@ -75,7 +75,7 @@ function (\){T<:BlasFloat,S}(A::DArray{T,2,S}, B::DArray{T,2,S})
7575 rA = toback (A)
7676 rB = toback (B)
7777 pidsAB = union (A. pids, B. pids)
78- rvals = Array ( Any, length (pidsAB))
78+ rvals = Vector { Any} ( length (pidsAB))
7979 @sync for i = 1 : length (pidsAB)
8080 @async rvals[i] = remotecall_wait (pidsAB[i], rA[i], rB[i]) do t1,t2
8181 solve! (fetch (t1), fetch (t2))
8686
8787function eigvals {T<:BlasFloat} (A:: Hermitian{T,DArray{T,2,Array{T,2}}} )
8888 rA = toback (A. data)
89- rvals = Array ( Any, size (procs (A. data)))
89+ rvals = Array { Any} ( size (procs (A. data)))
9090 uplo = A. uplo == ' U' ? UPPER : LOWER
9191 @sync for i in eachindex (rvals)
9292 @async rvals[i] = remotecall_wait (rA[i]. where, rA[i]) do t
9898
9999function svdvals {T<:BlasFloat} (A:: DArray{T,2} )
100100 rA = toback (A)
101- rvals = Array ( Any, size (procs (A)))
101+ rvals = Array { Any} ( size (procs (A)))
102102 @sync for i in eachindex (rvals)
103103 @async rvals[i] = remotecall_wait (rA[i]. where, rA[i]) do t
104104 svdvals (fetch (t))
109109
110110function inv! {T<:BlasFloat} (A:: DArray{T,2} )
111111 rA = toback (A)
112- rvals = Array ( Any, size (procs (A)))
112+ rvals = Array { Any} ( size (procs (A)))
113113 @sync for j = 1 : size (rvals, 2 )
114114 for i = 1 : size (rvals, 1 )
115115 @async rvals[i,j] = remotecall_wait (t -> inverse! (fetch (t)), rA[i,j]. where, rA[i,j])
@@ -122,7 +122,7 @@ inv{T<:BlasFloat}(A::DArray{T,2}) = inv!(copy(A))
122122
123123function logdet {T<:BlasFloat} (A:: DArray{T,2} )
124124 rA = toback (A)
125- rvals = Array ( Any, size (procs (A)))
125+ rvals = Array { Any} ( size (procs (A)))
126126 @sync for i in eachindex (rvals)
127127 @async rvals[i] = remotecall_wait (rA[i]. where, rA[i]) do t
128128 d = safeHPDDeterminant (Elemental. LOWER, fetch (t))
@@ -137,7 +137,7 @@ function spectralPortrait{T<:BlasReal}(A::DArray{T,2},
137137 imagSize:: Integer ,
138138 psCtrl:: PseudospecCtrl{T} = PseudospecCtrl (T))
139139 rA = toback (A)
140- rvals = Array ( Any, size (procs (A)))
140+ rvals = Array { Any} ( size (procs (A)))
141141 @sync for i in eachindex (rvals)
142142 @async rvals[i] = remotecall_wait (rA[i]. where, rA[i]) do t
143143 spectralPortrait (fetch (t), ElInt (realSize), ElInt (imagSize), psCtrl)[1 ]
@@ -151,7 +151,7 @@ function spectralPortrait{T<:BlasReal}(A::DArray{Complex{T},2},
151151 imagSize:: Integer ,
152152 psCtrl:: PseudospecCtrl{T} = PseudospecCtrl (T))
153153 rA = toback (A)
154- rvals = Array ( Any, size (procs (A)))
154+ rvals = Array { Any} ( size (procs (A)))
155155 @sync for i in eachindex (rvals)
156156 @async rvals[i,j] = remotecall_wait (rA[i]. where, rA[i]) do t
157157 spectralPortrait (fetch (t), ElInt (realSize), ElInt (imagSize), psCtrl)[1 ]
@@ -168,7 +168,7 @@ function spectralWindow{T<:BlasReal}(A::DArray{T,2},
168168 imagSize:: Integer ,
169169 psCtrl:: PseudospecCtrl{T} = PseudospecCtrl (T))
170170 rA = toback (A)
171- rvals = Array ( Any, size (procs (A)))
171+ rvals = Array { Any} ( size (procs (A)))
172172 @sync for i in eachindex (rvals)
173173 @async rvals[i] = remotecall_wait (rA[i]. where, rA[i]) do t
174174 spectralWindow (fetch (t), center, realWidth, imagWidth,
@@ -186,7 +186,7 @@ function spectralWindow{T<:BlasReal}(A::DArray{Complex{T},2},
186186 imagSize:: Integer ,
187187 psCtrl:: PseudospecCtrl{T} = PseudospecCtrl (T))
188188 rA = toback (A)
189- rvals = Array ( Any, size (procs (A)))
189+ rvals = Array { Any} ( size (procs (A)))
190190 @sync for i in eachindex (rvals)
191191 @async rvals[i] = remotecall_wait (rA[i,j]. where, rA[i]) do t
192192 spectralWindow (fetch (t), center, realWidth, imagWidth,
198198
199199function foxLi {T<:BlasComplex} (:: Type{T} , n:: Integer , ω:: Real )
200200 sz = tuple (DistributedArrays. defaultdist ((n,n), workers ())... )
201- rvals = Array ( Any, sz)
201+ rvals = Array { Any} ( sz)
202202 @sync for j = 1 : size (rvals, 2 ), i = 1 : size (rvals, 1 )
203203 @async rvals[i,j] = remotecall_wait (workers ()[sub2ind (sz, i, j)]) do
204204 A = Elemental. DistMatrix (T)
0 commit comments