/*
 * 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
 */


#ifndef _aristaT0list_c 
#define _aristaT0list_c

#include <at0_l.hxx>

void AristaT0_list::write (ostream& os) 
    {  int num=0;
       num=this->num_elem();
       AristaT0_link* aux;
       aux=begin;
       os<<endl
           <<"     **********   ARISTAS T0 ***********"<<endl
           <<"                  -------"<<endl<<endl;
       os<<"Numero de Aristas:"<<num<<endl
           <<endl;
       while (aux) {
        os<<aux<<" "<<(*(aux->a))<<endl;
        aux=aux->suc;
       }

     }
ostream& operator<<(ostream& os, AristaT0_list& al)
  {al.write(os); return os;}
#endif
