NRI : First integration.

[modules/smesh.git] / src / MEFISTO2 / areteideale.f

diff --git a/src/MEFISTO2/areteideale.f b/src/MEFISTO2/areteideale.f
new file mode 100755 (executable)
index 0000000..cabc8d4
--- /dev/null
+++ b/src/MEFISTO2/areteideale.f
@@ -0,0 +1,5 @@
+      double precision function areteideale( xyz, direction )
+      double precision xyz(3), direction(3)
+      areteideale = 10
+      return
+      end