From 051229fb5eaa7338cca05db487f55c3619832bf5 Mon Sep 17 00:00:00 2001 From: eap Date: Fri, 24 Jun 2011 11:38:08 +0000 Subject: [PATCH] IPAL21957: Max Element Area does not influence on resulting mesh for Triangle Mefisto revert modification done during WNT porting - longai = areteideale() + longai = areteideale(xyz,xyzd) --- src/MEFISTO2/trte.f | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/MEFISTO2/trte.f b/src/MEFISTO2/trte.f index 273569def..5b562b8ef 100755 --- 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 -- 2.30.2