use lib "../lib"; 

use Physics::Water::SoundSpeed;

use Data::Dumper; 


my $obj = new Physics::Water::SoundSpeed();

my $obj_us = new Physics::Water::SoundSpeed('units'=>'US');

my $pr = $obj->d2p_sea( 0 );
print "Pressure at surface $pr\n"; 

my $dp = [0,50,100,150,200,250,300,350,400,450,500,600,700,800,900,1000];
my $pr = $obj->d2p_sea( $dp );
print Dumper $pr;