function pltvec = list2dof(DI,xfp,yfp,Nodes,nodevec)
%
%  Name:   list2dof
%
%  Usage:   pltvec = list2dof(DI,xfp,yfp,Nodes,nodevec)
%
%  Converts matrix DI into vector pltvec according to coordinate
%	matrices xfp and yfp and node ordering list 'nodevec'
%	'Nodes' is matrix of Node numbers and coordinates
%  

%  Version SWD970117
%
%  Author(s): Scott W. Doebling, doebling@lanl.gov
%
%  Institution: Los Alamos National Laboratory,
%               ESA-EA
%
%  Copyright (c) 1997, The Regents of the University
%       of California. (See top level of code for
%       full copyright statement.)
%

nr = size(DI,1);
nc = size(DI,2);

pltvec = zeros(nr*nc,1);

for i = 1:nr

   for j = 1:nc,

%  Find index of the node with these coordinates

    nrow = find(Nodes(:,2) == xfp(i,j) & Nodes(:,3) == yfp(i,j));

%  Locate this node in the nodevec ordering list

    nvrow = find(nodevec(:,1) == Nodes(nrow,1));

%  Assign the value from DI to the correct location in pltvec

    pltvec(nvrow,1) = DI(i,j);

   end

end

return
