function [k,FileTags] = GeoTiff(FileTags,FileName)

    % Upper right corner?
    m1=find(ismember(FileTags(:,2),'ModelTiepointTag'));
    % Cell size ?
    m2=find(ismember(FileTags(:,2),'ModelPixelScaleTag'));
    % number of columns?
    m3=find(ismember(FileTags(:,2),'ImageWidth'));
    % number of rows?
    m4=find(ismember(FileTags(:,2),'ImageLength'));

    if isempty(m1) || isempty(m2)
        [PATHSTR,NAME,EXT,VERSN] = fileparts(FileName);   
        EXT = '.tfw';
        NewName = [NAME EXT];
        fid=fopen(fullfile(PATHSTR,NewName));
        if fid ~= -1
            line1 = fgets(fid);
            line2 = fgets(fid);
            line3 = fgets(fid);
            line4 = fgets(fid);
            line5 = fgets(fid);
            line6 = fgets(fid);
            n=size(FileTags);
            FileTags{n(1)+1,2} = 'ModelPixelScaleTag';
            FileTags{n(1)+1,3} = [str2num(line1),str2num(line1)];
            FileTags{n(1)+2,2} = 'ModelTiepointTag';
            FileTags{n(1)+2,3} = [0 0 0 str2num(line5),str2num(line6)];
            % Upper right corner?
            m1=find(ismember(FileTags(:,2),'ModelTiepointTag'));
            % Cell size ?
            m2=find(ismember(FileTags(:,2),'ModelPixelScaleTag'));
        end
    end
    
    k = ~isempty(m1) && ~isempty(m2) && ~isempty(m2) && ~isempty(m2);