/*
 * 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 <at1_l.hxx>

void AristaT1_list::write (ostream& os) 
{
  int num=0;
  num=this->num_elem();
  AristaT1_link* aux;
  aux=begin;
  os<<endl
    <<"     **********   ARISTAS T1 ***********"<<endl
    <<"                  -------"<<endl<<endl;
  os<<"Numero de Aristas:"<<num<<endl
    <<endl;
  while (aux) {
    os<<aux<<" "<<(*(aux->a))<<endl;
    aux=aux->suc;
  }
  
}
ostream& operator<<(ostream& os, AristaT1_list& al)
{al.write(os); return os;}

