function Dat_Loc=rm_oasis_header(fid)

token='#';%whatever marks the header

%Burn the header
while strncmp(token,'#',1)
    Dat_Loc=ftell(fid); %If no blank lines
    token=fgetl(fid);
end;

%Burn the blank lines
while length(token)==0
    space_test =1;
    Dat_Loc=ftell(fid);
    token=fgetl(fid);
end;

