DUFFEE / Astro-Constants-0.15 / script / benchmarks / profile_short.pl 

            

              
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20

              
#!/usr/bin/perl -w
#
use strict;
use lib '../../lib';
#use Astro::Constants::MKS qw/:cosmology/;
use Astro::Constants::MKS qw/:planetary/;
my $count = shift || 100;
my ($force, );
print "Sanity checking calculations\n";
print "Long:  Fg = ", GRAVITATIONAL * MASS_SOLAR * MASS_EARTH / ASTRONOMICAL_UNIT**2, "\n";
print "\n";
for (my $i = 0; $i < $count; $i++) {
        $force = GRAVITATIONAL * MASS_SOLAR * MASS_EARTH / ASTRONOMICAL_UNIT**2;
}