Merging with WPdev

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

diff --git a/src/MEFISTO2/trte.f b/src/MEFISTO2/trte.f
index d33d0ebb6b71893e2ee541e10364866f0a160a23..36fb28d11c7c30d04e7899648deb168a7d573e6c 100755 (executable)
--- a/src/MEFISTO2/trte.f
+++ b/src/MEFISTO2/trte.f
@@ -1257,7 +1257,8 @@ c        la direction pour le calcul de la longueur (inactif ici!)
          xyzd(2) = 0d0
          xyzd(3) = 0d0
 
-         longai = areteideale(xyz,xyzd)
+         longai = areteideale()
+c         (xyz,xyzd)
          if( longai .lt. 0d0 ) then
             write(imprim,10000) xyz
 10000       format('attention: longueur de areteideale(',