function [ meshnod,nlevels]=readv3r(filename)
% readv3r.m
% Read the files in to matlab in proper format
%   This reads   uvt50.v3r
% [ v3r,nlevels ]=readv3r('uvt50');
%  These files have all of the levels for each node
%  Thus to get a single level do:
% n = length(v3r); l = level:nlevel:n;
% uv = v3r(l,3:4);


fid = fopen([filename,'.v3r'],'rt');
if fid~=-1
fgets(fid)
fgets(fid)
nlevels = fscanf(fid,'%f',[1])';
meshnod = fscanf(fid,'%f',[5,inf])';
fclose(fid);
else
meshnod=[];
end

