Salome HOME
IPAL9153, IPAL9148, IPAL9150
[modules/smesh.git] / src / MEFISTO2 / areteideale.f
1 c  MEFISTO : library to compute 2D triangulation from segmented boundaries
2 c
3 c  Copyright (C) 2003  Laboratoire J.-L. Lions UPMC Paris
4 c
5 c  This library is free software; you can redistribute it and/or
6 c  modify it under the terms of the GNU Lesser General Public
7 c  License as published by the Free Software Foundation; either
8 c  version 2.1 of the License.
9 c
10 c  This library is distributed in the hope that it will be useful,
11 c  but WITHOUT ANY WARRANTY; without even the implied warranty of
13 c  Lesser General Public License for more details.
14 c
15 c  You should have received a copy of the GNU Lesser General Public
16 c  License along with this library; if not, write to the Free Software
17 c  Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307 USA
18 c
19 c  See or email
20 c
21 c
22 c  File   : areteideale.f
23 c  Module : SMESH
24 c  Author: Alain PERRONNET
26       double precision function areteideale( xyz, direction )
27       double precision xyz(3), direction(3)
28       areteideale = 10
29       return
30       end