% **************************************************************
% vertices : Lists the coordinates of the vertices of the 
%  elements
% **************************************************************
% BEM-LAP-MAT project
% Matlab/Freemat codes
% Copyright 2008- Stephen Kirkup
% John Tyndall Nuclear Research Institute
% School of Computing Engineering and Physical Sciences
% University of Central Lancashire - www.uclan.ac.uk 
% Westlakes Campus
% Samuel Lindow Building
% West Lakes Science and Technology Park
% Whitehaven
% Cumbria CA24 3JY
% United Kingdom
% smkirkup@uclan.ac.uk
%
% This open source code can be found at
% boundary-element-method.com/freematlab/vertices.m
%
%  Issued under the GNU General Public License 2007, see gpl.txt
%
%  Part of the the author's open source BEM packages. 
%  All codes and manuals can be downloaded from 
%  www.boundary-element-method.com
%
% **************************************************************

% function [qa,qb]=vertices 
% Returns a list of edges of the panels that make up the boundary
function [qa,qb] =vertices(n,vertpts,elemvert)
    for (i=1:n)
       elemverta=elemvert(1,i);
       elemvertb=elemvert(2,i);
       qa(i,:)=vertpts(elemverta,:);
       qb(i,:)=vertpts(elemvertb,:);
    end