Home My Page Projects Code Snippets Project Openings SML/NJ
Summary Activity Forums Tracker Lists Tasks Docs Surveys News SCM Files

SCM Repository

[smlnj] View of /sml/trunk/benchmarks/programs/b-hut/main2.sml
ViewVC logotype

View of /sml/trunk/benchmarks/programs/b-hut/main2.sml

Parent Directory Parent Directory | Revision Log Revision Log


Revision 193 - (download) (annotate)
Fri Nov 20 17:43:59 1998 UTC (22 years, 8 months ago) by monnier
File size: 396 byte(s)
Initial revision
structure Main : BMARK =
  struct
    structure M3 = Main(Vector3);

    val name = "Barnes-Hut (3d)"

    fun testit strm = ()

    fun doit () = (
	  M3.srand 123;
	  M3.go {
	      output = fn _ => (),
	      bodies = M3.testdata 128,
	      tnow = 0.0, tstop = 2.0,
	      dtime = 0.025, eps = 0.05, tol = 1.0,
	      rmin = M3.S.V.tabulate (fn _ => ~2.0),
	      rsize = 4.0
	    })

  end;

root@smlnj-gforge.cs.uchicago.edu
ViewVC Help
Powered by ViewVC 1.0.0