function listdcb
% list receiver dcb

[sta,rcv]=readrcv('k:\gps\pos\igs04P1299.snx');
dcb=readdcb(caltomjd([2004,12,1]),0,sta,'k:\gps\ion\%Y%m');
[rcv,i]=sort(rcv); sta=sta(i); dcb=dcb(i);
for n=1:length(rcv)
    if isnan(dcb(n)), continue, end
    disp(sprintf('%5s : %-20s %6.2f m',sta{n},rcv{n},dcb(n)));
end

% read receiver types ----------------------------------------------------------
function [sta,rcv]=readrcv(file)
sta={}; rcv={}; b=0;
f=fopen(file,'rt');
while 1
    s=fgetl(f);
    if ~isstr(s)|findstr(s,'-SITE/RECEIVER'), break; end
    if findstr(s,'+SITE/RECEIVER'), b=1; elseif s(1)=='*', continue; end
    if b, sta={sta{:},s(2:5)}; rcv={rcv{:},deblank(s(43:59))}; end
end
fclose(f);
