;
;
;

;
if (strmid(get_host(), 0, 4) eq 'isas') then nyd = 16 else nyd = 4
;
openw, lun, 'yd_use2.txt', /get_lun
printf, lun, 'YD_USE2.PRO  Ver 1.2  4-Mar-92
printf, lun, 'Program Run: ', !stime
printf, lun, 'Program Run on machine: ', get_host()
printf, lun, '   '
;
list = ['spr', 'sfr', 'ada', 'bda', 'hda', 'wda', 'cba', 'err']
nn = n_elements(list)
fmt ='(3x, 20x, ' + strtrim(nn,2) + 'a6)'
printf, lun, list, format=fmt
print, list, format=fmt
printf, lun, '  '
;
gtot_arr = fltarr(nn)
gdtot = 0.
for i=0,nyd+1 do begin
    dir = '/yd' + strtrim(i,2)
    if (i eq nyd) then dir = '/ydb'
    if (i eq nyd+1) then dir = '/ys'

    cmd = 'df ' + dir
    spawn, cmd, result
    if (result(0) eq '') then goto, skip
    df = str2arr(strcompress(result(2)), delim = ' ')
    str = '--------- Disk ' + dir + ' ------------- Free Space: ' + string(float(df(3))/1000, format='(f9.3)')
    print, str
    printf, lun, str
    ff = findfile(dir)
    if (ff(0) ne '') then begin
	dtot = 0
	tot_arr = fltarr(nn)
	for j=0,n_elements(ff)-1 do begin
	    temp = dir + '/' + ff(j)
	    arr = fltarr(nn)
	    for k=0,nn-1 do begin
		arr(k) = disktot(list(k), dir=temp, /sub)/1e+6
	    end	 
	    ;
	    d = disktot(dir=temp, /sub)/1e+6
	    fmt = '(' + strtrim(nn,2) + 'f6.1, f9.3)'
	    str = '   ' + strmid(temp+'                    ', 0, 20) + string(arr, d, format=fmt)
	    print, str
	    printf, lun, str
	    dtot = dtot + d		& gdtot = gdtot + d
	    tot_arr = tot_arr + arr	& gtot_arr = gtot_arr + arr
	end
	str = '   ' + strmid('Total                     ', 0, 20) + string(tot_arr, dtot, format=fmt)
	print, str
	printf, lun, str
    end
    skip:
end
printf, lun, ' '
str = '   ' + strmid('Grand Total                     ', 0, 20) + string(gtot_arr, gdtot, format=fmt)
print, str
printf, lun, str

free_lun, lun
end