Help for this page

Select Code to Download


  1. or download this
    package Seismic;
use Seismic::Station;
...
}

1;
  2. or download this
    package Seismic::Line;

...
}

1;
  3. or download this
    package Seismic::Station;
use strict;
...
}

1;
  4. or download this
    #! perl -slw
use strict;
...
        );
    }
}
  5. or download this
    package Station;
...
...
        ) / 3.0
    );
}
  6. or download this
        for my $stnID ( sort{$a<=>$b} keys %{ $line } ) {
        my $stn = $line->{ $stnID };

        $stn->adjustAttributes;
    }