/*
 * ADAPT2D : a software for automatic mesh adaptation in 2D
 *
 * AUTHOR : Manuel J. Castro Diaz(e-mail:castro@gamba.cie.uma.es)
 * ADAPTED FOR FREEFEM : Prud'homme Christophe (e-mail:prudhomm@ann.jussieu.fr) 
 *
 * this code is public domain
 * 
 * You may copy freely these files and use it for    
 * teaching or research. These or part of these may   
 * not be sold or used for a commercial purpose without
 * our consent
 * 
 * Any problems should be reported to the AUTHOR
 * at the following address : castro@gamba.cie.uma.es
 */


#include <v_t1_dl.hxx>

void Vertice_T1_dlist::write (ostream& os) {
  int num=0;
  num=this->num_elem();
  Vertice_T1_dlink* aux;
  aux=begin;
  os <<endl<< "Numero de Vertices"<<num<<endl;
  os << endl
     << "       ***** VERTICES *****"<<endl
     << "             --------"<<endl;
  
  while (aux) {
    os <<aux<<" "<<(*(aux->s))<<endl;
    aux=aux->suc;
  }
}
ostream& operator<<(ostream& os, Vertice_T1_dlist& rrl)
{rrl.write(os); return os;}
