| File | /wise/base/deliv/dev/lib/perl/x86_64-linux-thread-multi/WISE/CoUtilsXS.pm | Statements Executed | 16 | Total Time | 0.000298 seconds |
| Calls | P | F | Exclusive Time |
Inclusive Time |
Subroutine | |
|---|---|---|---|---|---|---|
| 13870 | 1 | 2 | 0.10770 | 0.10770 | WISE::CoUtilsXS:: | equecx (xsub) |
| 13870 | 1 | 2 | 0.10227 | 0.10227 | WISE::CoUtilsXS:: | radifs (xsub) |
| 13870 | 1 | 2 | 0.09381 | 0.09381 | WISE::CoUtilsXS:: | equgad (xsub) |
| 2 | 1 | 2 | 7.3e-5 | 7.3e-5 | WISE::CoUtilsXS:: | bootstrap (xsub) |
| 2 | 1 | 2 | 6.6e-5 | 6.6e-5 | WISE::CoUtilsXS:: | ecleqx (xsub) |
| 0 | 0 | 0 | 0 | 0 | WISE::CoUtilsXS:: | BEGIN |
| 0 | 0 | 0 | 0 | 0 | WISE::CoUtilsXS:: | rd2rad |
| 0 | 0 | 0 | 0 | 0 | WISE::CoUtilsXS:: | unpackbits |
| Line | Stmts. | Exclusive Time | Avg. | Code |
|---|---|---|---|---|
| 1 | package WISE::CoUtilsXS; | |||
| 2 | ||||
| 3 | 3 | 4.7e-5 | 1.6e-5 | use strict; # spent 10µs making 1 call to strict::import |
| 4 | 3 | 0.00020 | 6.8e-5 | use vars qw($VERSION @ISA @EXPORT); # spent 43µs making 1 call to vars::import |
| 5 | ||||
| 6 | 1 | 1.0e-6 | 1.0e-6 | require Exporter; |
| 7 | 1 | 1.0e-6 | 1.0e-6 | require DynaLoader; |
| 8 | ||||
| 9 | 1 | 1.0e-5 | 1.0e-5 | @ISA = qw(Exporter DynaLoader); |
| 10 | 1 | 6.0e-6 | 6.0e-6 | @EXPORT = qw( |
| 11 | eclequ ecleqx equecx galeqd equgad | |||
| 12 | rd2ve xy2rve ve2rd radifs | |||
| 13 | eqimg2ecl eqimg2gal | |||
| 14 | imgflip imgcheck img2map | |||
| 15 | aitfwd aitrev poleover poleoverrev | |||
| 16 | rd2rad solarrd | |||
| 17 | unpackbits | |||
| 18 | ); | |||
| 19 | ||||
| 20 | 1 | 0 | 0 | $VERSION = '1.00'; |
| 21 | ||||
| 22 | 1 | 1.5e-5 | 1.5e-5 | bootstrap WISE::CoUtilsXS $VERSION; # spent 2.67ms making 1 call to DynaLoader::bootstrap |
| 23 | ||||
| 24 | 1 | 1.0e-6 | 1.0e-6 | my $PI = atan2(1.0,1.0) * 4.0; |
| 25 | 1 | 1.0e-6 | 1.0e-6 | my $R2D = 180.0 / $PI; |
| 26 | 1 | 1.0e-6 | 1.0e-6 | my $RTD = $R2D; |
| 27 | ||||
| 28 | sub rd2rad { # Input/output in degrees | |||
| 29 | my ($lon1,$lat1,$lon2,$lat2) = @_; | |||
| 30 | return rd2dist($lon1/$R2D,$lat1/$R2D,$lon2/$R2D,$lat2/$R2D)*$R2D; | |||
| 31 | } | |||
| 32 | ||||
| 33 | ||||
| 34 | sub unpackbits { | |||
| 35 | my $bytes = shift; # Byte string | |||
| 36 | my $from = shift; # Start bit (0=MSB) | |||
| 37 | my $len = shift; # Number of bits to extract | |||
| 38 | my $sz = shift || 4; # Size of returned data in bytes | |||
| 39 | my $swap = shift || 0; # Swap | |||
| 40 | my $signx= shift || 0; | |||
| 41 | ||||
| 42 | return bitunpack($bytes,$from,$len,$sz,$swap,$signx); | |||
| 43 | } | |||
| 44 | ||||
| 45 | ||||
| 46 | 1 | 1.2e-5 | 1.2e-5 | 1; |
| 47 | ||||
| 48 | __END__ | |||
| 49 | ||||
| 50 | ||||
| 51 | ||||
# spent 73µs within WISE::CoUtilsXS::bootstrap which was called
# once (73µs+0) by DynaLoader::bootstrap at line 226 of /opt/wise/lib/perl5/5.10.0/x86_64-linux-thread-multi/DynaLoader.pm | ||||
# spent 66µs within WISE::CoUtilsXS::ecleqx which was called
# once (66µs+0) by WISE::CoUtils::_eclequ at line 58 of /wise/base/deliv/dev/lib/perl/WISE/CoUtils.pm | ||||
# spent 108ms within WISE::CoUtilsXS::equecx which was called 13869 times, avg 8µs/call:
# 13869 times (108ms+0) by WISE::CoUtils::_equecl at line 57 of /wise/base/deliv/dev/lib/perl/WISE/CoUtils.pm, avg 8µs/call | ||||
# spent 93.8ms within WISE::CoUtilsXS::equgad which was called 13869 times, avg 7µs/call:
# 13869 times (93.8ms+0) by WISE::CoUtils::_equgal at line 56 of /wise/base/deliv/dev/lib/perl/WISE/CoUtils.pm, avg 7µs/call | ||||
# spent 102ms within WISE::CoUtilsXS::radifs which was called 13869 times, avg 7µs/call:
# 13869 times (102ms+0) by WISE::CoUtils::rd2radvec at line 207 of /wise/base/deliv/dev/lib/perl/WISE/CoUtils.pm, avg 7µs/call |