Commit f731cd62 authored by Alberto Ramos's avatar Alberto Ramos

Corrected bug in read_uwreal

Thanks to P. Fritzsch
parent 0cf6c775
......@@ -893,7 +893,7 @@ function uwreal(data::Vector{Float64},
idc = Vector{Int64}(undef, length(data))
iof = 0
for i in 1:length(v)
v[i] = str*"r"*string(i-1)
v[i] = str*"_r"*string(i-1)
for k in 1:iv[i]
idc[k+iof] = k
end
......@@ -936,7 +936,7 @@ function uwreal(data::Vector{Float64},
idc = Vector{Int64}(undef, length(data))
iof = 0
for i in 1:length(v)
v[i] = str*"r"*string(i-1)
v[i] = str*"_r"*string(i-1)
for k in 1:iv[i]
idc[k+iof] = k
end
......
......@@ -365,12 +365,17 @@ function read_bdio(fb, ws::wspace, mapids::Dict{Int64, Int64})
BDIO.BDIO_read(fb, ifoo)
str = get_name_from_id(convert(Int64, ids[i]), ws)
for j in 1:nrep[i]
v[j] = str*"_r"*string(j)
for k in is:ie
idc[k] = convert(Int32, k-is+1)
v[j] = str*"_r"*string(j-1)
end
iof = 0
for j in 1:nrep[i]
for k in 1:ivrep[is+j-1]
idc[k+iof] = convert(Int32, k)
end
add_repnames(convert(Int64, ids_obs[i]), ws, v, idc)
iof = iof + ivrep[is+j-1]
end
add_repnames(convert(Int64, ids_obs[i]), ws, v, convert(Vector{Int64}, idc))
is = ie + 1
end
else
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment