2 c=======================================================================
3 c front0 : reperage des frontieres pour la sortie
4 c-----------------------------------------------------------------------
5 c nrofro : numero global de la frontiere
6 c nrofrd : numero global pour chaque frontiere discrete
7 c nrofra : numero global pour chaque frontiere analytique
8 c-----------------------------------------------------------------------
9 integer nrofro, nrofrd(100), nrofra(100)
10 common /front0/ nrofro, nrofrd , nrofra