untabify

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

diff --git a/src/MEFISTO2/trte.f b/src/MEFISTO2/trte.f
index 273569def1c20288d24bbaea4f7f0567688b56b4..5b562b8efe630dbc3cd6d60cb391688679e29df5 100755 (executable)
--- a/src/MEFISTO2/trte.f
+++ b/src/MEFISTO2/trte.f
@@ -1294,7 +1294,7 @@ c        la direction pour le calcul de la longueur (inactif ici!)
          xyzd(2) = 0d0
          xyzd(3) = 0d0
 
-         longai = areteideale()
+         longai = areteideale(xyz,xyzd)
 c         (xyz,xyzd)
          if( longai .lt. 0d0 ) then
             write(imprim,10000) xyz