pro sources
; Bo, May 24, 1994.
; pattern for the files
spawn, 'ls /l/tmp/lars_c/video/datafinal/sources/source?', one
spawn, "wc source? | awk '{print $1}' -", wc1
spawn, 'ls /l/tmp/lars_c/video/datafinal/sources/source??', two
spawn, "wc source?? | awk '{print $1}' -", wc2
t1 = size(one)
t2 = size(two)
len1 = t1(1)
len2 = t2(1)
reads, wc1, lines, words, chars, name
print, 'Converting ascii source files to explorer format'
print
for i=0, len1-1 do begin
reads, wc1(i), ndataf
ndata = fix(ndataf)
print, 'file: ', one(i), ' ndata: ', ndata
if (ndata gt 1) then ascii_to_bin, one(i), one(i), ndata, $
0.0, 10.0, 0.0, 360.0, -90.0, 90.0
endfor
for i=0, len2-1 do begin
reads, wc2(i), ndataf
ndata = fix(ndataf)
print, 'file: ', two(i), ' ndata: ', ndata
if (ndata gt 1) then ascii_to_bin, two(i), two(i), ndata, $
0.0, 10.0, 0.0, 360.0, -90.0, 90.0
endfor
end