$out = (( ($lat - $self->La1) / $self->LaInc ) * $self->Ni)
+ (($thislong ) / $self->LoInc);

return sprintf "%d", $out;

##</code><code>##

my $calc = sprintf "%d",(((63 - -90)/.6) * 601) + (360 /.6);
ok( $calc == 153855 ) or
    diag ("((63 - -90)/.6) * 601) + (360 /.6) = 153855 not $calc ");