function textin=DItext(xfp,yfp,DI,diropt,filtopt,DImin,islop)
%
%  Name: DItext
% 
%  Usage: textin=DItext(xfp,yfp,DI,diropt)
% 
%   Description:
%     -makes textin for DIresults.m
%   inputs:
%	
%
%  Version PJC960530
%
%  Author(s): P. Cornwell, cornwell@lanl.gov
%
%  Institution: Los Alamos National Laboratory,
%		ESA-EA
%
%  Copyright (c) 1996, The Regents of the University
%     	of California. (See top level of code for
%	full copyright statement.)

clear temp1
if islop==2
   xlist=xfp(:);
   ylist=yfp(:);
   zlist=DI(:);
else,
  if diropt==2
    xlist=xfp(:);
    ylist=(yfp*ones(1,size(xfp,1)))';
    ylist=ylist(:);
    zlist=DI(:);
  else,
    ylist=xfp(:);
    xlist=(yfp*ones(1,size(xfp,1)))';
    xlist=xlist(:);
    zlist=DI(:);
  end,
end,
if filtopt==1,
   for i=1:length(xlist);
     temp1(i,:)=sprintf('%8.2f   %8.2f   %7.4f ',xlist(i),ylist(i),zlist(i));
   end;
else,
   filtindex=find(abs(zlist)>DImin);
   for i=1:length(filtindex);
     temp1(i,:)=sprintf('%8.2f   %8.2f   %7.4f ',xlist(filtindex(i)),ylist(filtindex(i)),zlist(filtindex(i)));
   end;
end;
temp=('    x          y          DI');
textin=str2mat(temp,temp1);
