function [YEAR,jday,ARRAY,mst,time,angle,xT,ifin,afin] = ...
         readpick(fnamepick)


fid = fopen(fnamepick,'r');

YEAR = fscanf(fid,'%s',1);
jday = fscanf(fid,'%d',1);
ARRAY = fscanf(fid,'%s\n',1);
mstla = fscanf(fid,'%f',1);
mstlo = fscanf(fid,'%f\n',1);
stime = fscanf(fid,'%f',1);
dtime = fscanf(fid,'%f\n',1);
sang = fscanf(fid,'%f',1);
dang = fscanf(fid,'%f\n',1);
dumm = fscanf(fid,'%d',3);
xT = fscanf(fid,'%f',dumm(3));
ifin = zeros(dumm(1),dumm(2),dumm(3));
afin = zeros(dumm(1),dumm(2),dumm(3));
for i = 1:dumm(1)
    for j = 1:dumm(2)
        for k = 1:dumm(3)
            ifin(i,j,k)=fscanf(fid,'%d',1);
            afin(i,j,k)=fscanf(fid,'%e',1);
        end
    end
end

mst = [mstla,mstlo];
time = stime:dtime:dtime*(dumm(1)-1);
angle = sang:dang:dang*(dumm(2)-1);

fclose(fid);
