yfr : Merge with v1.2

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

      double precision function areteideale( xyz, direction )
      double precision xyz(3), direction(3)
      areteideale = 10
      return
      end