Branch Coverage

lib/Astro/PAL.xs
Criterion Covered Total %
branch 190 540 35.1


line true false branch
97 0 1 XPUSHs(sv_2mortal(newSVnv(rc)));
98 0 1 XPUSHs(sv_2mortal(newSVnv(dc)));
125 0 1 XPUSHs(sv_2mortal(newSVnv(az)));
126 0 1 XPUSHs(sv_2mortal(newSVnv(azd)));
127 0 1 XPUSHs(sv_2mortal(newSVnv(azdd)));
128 0 1 XPUSHs(sv_2mortal(newSVnv(el)));
129 0 1 XPUSHs(sv_2mortal(newSVnv(eld)));
130 0 1 XPUSHs(sv_2mortal(newSVnv(eldd)));
131 0 1 XPUSHs(sv_2mortal(newSVnv(pa)));
132 0 1 XPUSHs(sv_2mortal(newSVnv(pad)));
133 0 1 XPUSHs(sv_2mortal(newSVnv(padd)));
146 0 0 XPUSHs(sv_2mortal(newSVnv(rm)));
147 0 0 XPUSHs(sv_2mortal(newSVnv(dm)));
162 0 0 XPUSHs(sv_2mortal(newSVnv(rm)));
163 0 0 XPUSHs(sv_2mortal(newSVnv(dm)));
189 0 3 XPUSHs(sv_2mortal(newSVnv(aob)));
190 0 3 XPUSHs(sv_2mortal(newSVnv(zob)));
191 0 3 XPUSHs(sv_2mortal(newSVnv(hob)));
192 0 3 XPUSHs(sv_2mortal(newSVnv(dob)));
193 0 3 XPUSHs(sv_2mortal(newSVnv(rob)));
214 0 14 RETVEC( aoprms, 14, nv );
14 1 RETVEC( aoprms, 14, nv );
231 0 1 XPUSHs(sv_2mortal(newSVnv(aoprms[13])));
246 0 0 XPUSHs(sv_2mortal(newSVnv(aob)));
247 0 0 XPUSHs(sv_2mortal(newSVnv(zob)));
248 0 0 XPUSHs(sv_2mortal(newSVnv(hob)));
249 0 0 XPUSHs(sv_2mortal(newSVnv(dob)));
250 0 0 XPUSHs(sv_2mortal(newSVnv(rob)));
266 0 1 XPUSHs(sv_2mortal(newSVnv(a2)));
267 0 1 XPUSHs(sv_2mortal(newSVnv(b2)));
279 0 0 XPUSHs(sv_2mortal(newSVnv(djm)));
280 0 0 XPUSHs(sv_2mortal(newSViv(j)));
292 0 5 XPUSHs(sv_2mortal(newSVnv(djm)));
293 0 5 XPUSHs(sv_2mortal(newSViv(status)));
305 0 5 XPUSHs(sv_2mortal(newSVnv(rad)));
306 0 5 XPUSHs(sv_2mortal(newSViv(j)));
321 0 3 XPUSHs(sv_2mortal(newSViv(nstrt)));
322 0 3 XPUSHs(sv_2mortal(newSVnv(dreslt)));
323 0 3 XPUSHs(sv_2mortal(newSViv(jf)));
346 0 0 RETMATRIX(rmat);
0 0 RETMATRIX(rmat);
0 0 RETMATRIX(rmat);
367 0 364 XPUSHs(sv_2mortal(newSVnv(a)));
368 0 364 XPUSHs(sv_2mortal(newSVnv(b)));
382 0 1 XPUSHs(sv_2mortal(newSVnv(xz)));
383 0 1 XPUSHs(sv_2mortal(newSVnv(yz)));
384 0 1 XPUSHs(sv_2mortal(newSVnv(xs)));
385 0 1 XPUSHs(sv_2mortal(newSVnv(ys)));
386 0 1 XPUSHs(sv_2mortal(newSVnv(perp)));
387 0 1 XPUSHs(sv_2mortal(newSVnv(orient)));
400 0 12 RETVEC( v, 3, nv );
12 4 RETVEC( v, 3, nv );
413 0 1 XPUSHs(sv_2mortal(newSVpvn(&sign, 1)));
414 0 4 RETVEC( ihmsf, 4, iv );
4 1 RETVEC( ihmsf, 4, iv );
428 0 1 XPUSHs(sv_2mortal(newSVnv(az)));
429 0 1 XPUSHs(sv_2mortal(newSVnv(el)));
443 0 0 RETMATRIX(rmat);
0 0 RETMATRIX(rmat);
0 0 RETMATRIX(rmat);
456 0 5 XPUSHs(sv_2mortal(newSViv(nstrt)));
457 0 5 XPUSHs(sv_2mortal(newSVnv(dreslt)));
458 0 5 XPUSHs(sv_2mortal(newSViv(jflag)));
472 0 0 XPUSHs(sv_2mortal(newSVnv(ha)));
473 0 0 XPUSHs(sv_2mortal(newSVnv(dec)));
486 0 0 VECTOMAT( dm, rmat );
0 0 VECTOMAT( dm, rmat );
488 0 0 RETVEC( vb, 3, nv );
0 0 RETVEC( vb, 3, nv );
501 0 0 XPUSHs(sv_2mortal(newSViv(j)));
502 0 0 RETVEC(iymdf, 4, iv);
0 0 RETVEC(iymdf, 4, iv);
517 0 1 XPUSHs(sv_2mortal(newSViv(iy)));
518 0 1 XPUSHs(sv_2mortal(newSViv(im)));
519 0 1 XPUSHs(sv_2mortal(newSViv(id)));
520 0 1 XPUSHs(sv_2mortal(newSVnv(fd)));
521 0 1 XPUSHs(sv_2mortal(newSViv(j)));
530 0 0 VECTOMAT( rmatv, rmat );
0 0 VECTOMAT( rmatv, rmat );
532 0 0 RETVEC( axvec, 3, nv );
0 0 RETVEC( axvec, 3, nv );
544 0 1086 RETVEC( pv, 6, nv );
1086 181 RETVEC( pv, 6, nv );
557 0 0 VECTOMAT( a, amat );
0 0 VECTOMAT( a, amat );
558 0 0 VECTOMAT( b, bmat );
0 0 VECTOMAT( b, bmat );
560 0 0 RETMATRIX(cmat);
0 0 RETMATRIX(cmat);
0 0 RETMATRIX(cmat);
570 1647 549 VECTOMAT( dm, dmat );
549 183 VECTOMAT( dm, dmat );
572 0 549 RETVEC( vb, 3, nv );
549 183 RETVEC( vb, 3, nv );
594 0 31 XPUSHs(sv_2mortal(newSVpvn(&sign, 1)));
595 0 124 RETVEC( idmsf, 4, iv );
124 31 RETVEC( idmsf, 4, iv );
608 0 29 XPUSHs(sv_2mortal(newSVpvn(&sign, 1)));
609 0 116 RETVEC( ihmsf, 4, iv );
116 29 RETVEC( ihmsf, 4, iv );
639 0 0 XPUSHs(sv_2mortal(newSVnv(xi)));
640 0 0 XPUSHs(sv_2mortal(newSVnv(eta)));
641 0 0 XPUSHs(sv_2mortal(newSViv(j)));
681 0 183 XPUSHs(sv_2mortal(newSVnv(days)));
682 0 183 XPUSHs(sv_2mortal(newSViv(j)));
696 0 5 XPUSHs(sv_2mortal(newSVnv(rad)));
697 0 5 XPUSHs(sv_2mortal(newSViv(j)));
711 0 0 XPUSHs(sv_2mortal(newSVnv(ra)));
712 0 0 XPUSHs(sv_2mortal(newSVnv(dec)));
728 0 0 XPUSHs(sv_2mortal(newSVnv(raz1)));
729 0 0 XPUSHs(sv_2mortal(newSVnv(decz1)));
730 0 0 XPUSHs(sv_2mortal(newSVnv(raz2)));
731 0 0 XPUSHs(sv_2mortal(newSVnv(decz2)));
732 0 0 XPUSHs(sv_2mortal(newSVnv(n)));
761 0 0 XPUSHs(sv_2mortal(newSVnv(vm)));
762 0 0 RETVEC(uv, 3, nv );
0 0 RETVEC(uv, 3, nv );
772 0 0 RETVEC(vc, 3, nv );
0 0 RETVEC(vc, 3, nv );
781 0 0 RETMATRIX(rmat);
0 0 RETMATRIX(rmat);
0 0 RETMATRIX(rmat);
793 0 1 XPUSHs(sv_2mortal(newSVnv(dr)));
794 0 1 XPUSHs(sv_2mortal(newSVnv(dd)));
862 0 0 XPUSHs( newRV_noinc((SV*)pph));
865 0 0 XPUSHs( newRV_noinc((SV*)pvh));
868 0 0 XPUSHs( newRV_noinc((SV*)ppb));
871 0 0 XPUSHs( newRV_noinc((SV*)pvb));
884 0 0 XPUSHs(sv_2mortal(newSVnv(dl)));
885 0 0 XPUSHs(sv_2mortal(newSVnv(db)));
906 0 0 XPUSHs(sv_2mortal(newSVnv(dl)));
907 0 0 XPUSHs(sv_2mortal(newSVnv(db)));
916 0 0 RETVEC(ev, 3, nv );
0 0 RETVEC(ev, 3, nv );
936 0 1 XPUSHs( newRV_noinc((SV*)pdvb));
939 0 1 XPUSHs( newRV_noinc((SV*)pdpb));
942 0 1 XPUSHs( newRV_noinc((SV*)pdvh));
945 0 1 XPUSHs( newRV_noinc((SV*)pdph));
958 0 4 XPUSHs(sv_2mortal(newSVnv(r2000)));
959 0 4 XPUSHs(sv_2mortal(newSVnv(d2000)));
980 0 0 XPUSHs(sv_2mortal(newSVnv(r1950)));
981 0 0 XPUSHs(sv_2mortal(newSVnv(d1950)));
982 0 0 XPUSHs(sv_2mortal(newSVnv(dr1950)));
983 0 0 XPUSHs(sv_2mortal(newSVnv(dd1950)));
984 0 0 XPUSHs(sv_2mortal(newSVnv(p1950)));
985 0 0 XPUSHs(sv_2mortal(newSVnv(v1950)));
999 0 0 XPUSHs(sv_2mortal(newSVnv(r1950)));
1000 0 0 XPUSHs(sv_2mortal(newSVnv(d1950)));
1001 0 0 XPUSHs(sv_2mortal(newSVnv(dr1950)));
1002 0 0 XPUSHs(sv_2mortal(newSVnv(dd1950)));
1018 32 0 ARRAYTOMAT(xye, mxye, np, 2);
32 16 ARRAYTOMAT(xye, mxye, np, 2);
16 2 ARRAYTOMAT(xye, mxye, np, 2);
1019 32 0 ARRAYTOMAT(xym, mxym, np, 2);
32 16 ARRAYTOMAT(xym, mxym, np, 2);
16 2 ARRAYTOMAT(xym, mxym, np, 2);
1023 0 2 XPUSHs(sv_2mortal(newSViv(j)));
1024 0 2 XPUSHs(newRV_noinc((SV*)pcoeffs));
1035 0 0 XPUSHs(sv_2mortal(newSVnv(dr)));
1036 0 0 XPUSHs(sv_2mortal(newSVnv(dd)));
1048 0 0 XPUSHs(sv_2mortal(newSVnv(dsl)));
1049 0 0 XPUSHs(sv_2mortal(newSVnv(dsb)));
1060 0 0 XPUSHs(sv_2mortal(newSVnv(dr)));
1061 0 0 XPUSHs(sv_2mortal(newSVnv(dd)));
1072 0 0 XPUSHs(sv_2mortal(newSVnv(r)));
1073 0 0 XPUSHs(sv_2mortal(newSVnv(z)));
1106 0 0 XPUSHs(sv_2mortal(newSVnv(r5)));
1107 0 0 XPUSHs(sv_2mortal(newSVnv(d5)));
1108 0 0 XPUSHs(sv_2mortal(newSVnv(dr5)));
1109 0 0 XPUSHs(sv_2mortal(newSVnv(dd5)));
1122 0 6 XPUSHs(sv_2mortal(newSViv(nstrt)));
1123 0 6 XPUSHs(sv_2mortal(newSViv(ireslt)));
1124 0 6 XPUSHs(sv_2mortal(newSViv(jflag)));
1137 0 1 XPUSHs(sv_2mortal(newSViv(j)));
1138 0 1 XPUSHs(newRV_noinc((SV*)pbkwds));
1155 0 1 XPUSHs(sv_2mortal(newSVnv(ra)));
1156 0 1 XPUSHs(sv_2mortal(newSVnv(da)));
1167 0 0 RETVEC( amprms, 21, nv );
0 0 RETVEC( amprms, 21, nv );
1183 0 0 XPUSHs(sv_2mortal(newSVnv(ra)));
1184 0 0 XPUSHs(sv_2mortal(newSVnv(da)));
1196 0 0 XPUSHs(sv_2mortal(newSVnv(ra)));
1197 0 0 XPUSHs(sv_2mortal(newSVnv(da)));
1206 0 9 RETMATRIX(rmatn);
9 3 RETMATRIX(rmatn);
3 1 RETMATRIX(rmatn);
1217 0 0 XPUSHs(sv_2mortal(newSVnv(dpsi)));
1218 0 0 XPUSHs(sv_2mortal(newSVnv(deps)));
1219 0 0 XPUSHs(sv_2mortal(newSVnv(eps0)));
1244 0 3 XPUSHs(sv_2mortal(newSVnv(rap)));
1245 0 3 XPUSHs(sv_2mortal(newSVnv(dap)));
1258 0 3 XPUSHs(sv_2mortal(newSVnv(rap)));
1259 0 3 XPUSHs(sv_2mortal(newSVnv(dap)));
1277 0 11 if (n<0) n = 0; /* palObs uses a size_t */
1280 9 2 if (j == 0) {
1281 0 9 XPUSHs(sv_2mortal(newSVpvn(ident, strlen(ident))));
1282 0 9 XPUSHs(sv_2mortal(newSVpvn(name, strlen(name))));
1283 0 9 XPUSHs(sv_2mortal(newSVnv(w)));
1284 0 9 XPUSHs(sv_2mortal(newSVnv(p)));
1285 0 9 XPUSHs(sv_2mortal(newSVnv(h)));
1307 0 2 XPUSHs(sv_2mortal(newSVnv(x)));
1308 0 2 XPUSHs(sv_2mortal(newSVnv(y)));
1335 0 2 XPUSHs(sv_2mortal(newSVnv(epoch1)));
1336 0 2 XPUSHs(sv_2mortal(newSVnv(orbi1)));
1337 0 2 XPUSHs(sv_2mortal(newSVnv(anode1)));
1338 0 2 XPUSHs(sv_2mortal(newSVnv(perih1)));
1339 0 2 XPUSHs(sv_2mortal(newSVnv(aorq1)));
1340 0 2 XPUSHs(sv_2mortal(newSVnv(e1)));
1341 0 2 XPUSHs(sv_2mortal(newSVnv(am1)));
1342 0 2 XPUSHs(sv_2mortal(newSViv(jstat)));
1355 0 0 XPUSHs(sv_2mortal(newSViv(jstat)));
1356 0 0 RETVEC( u, 13, nv );
0 0 RETVEC( u, 13, nv );
1375 0 0 XPUSHs(sv_2mortal(newSViv(jstat)));
1376 0 0 RETVEC( pv, 6, nv );
0 0 RETVEC( pv, 6, nv );
1387 0 540 XPUSHs(sv_2mortal(newSViv(jstat)));
1388 0 3240 RETVEC( pv, 6, nv );
3240 540 RETVEC( pv, 6, nv );
1411 0 1 XPUSHs(sv_2mortal(newSVnv(ra)));
1412 0 1 XPUSHs(sv_2mortal(newSVnv(dec)));
1413 0 1 XPUSHs(sv_2mortal(newSVnv(r)));
1414 0 1 XPUSHs(sv_2mortal(newSViv(jstat)));
1433 0 1 XPUSHs(sv_2mortal(newSVnv(r1)));
1434 0 1 XPUSHs(sv_2mortal(newSVnv(d1)));
1448 0 1 XPUSHs(sv_2mortal(newSVnv(elong)));
1449 0 1 XPUSHs(sv_2mortal(newSVnv(phi)));
1450 0 1 XPUSHs(sv_2mortal(newSVnv(daz)));
1460 0 9 RETMATRIX(rmatp);
9 3 RETMATRIX(rmatp);
3 1 RETMATRIX(rmatp);
1470 0 1629 RETMATRIX(rmatp);
1629 543 RETMATRIX(rmatp);
543 181 RETMATRIX(rmatp);
1486 0 2 XPUSHs(sv_2mortal(newSVnv(ra)));
1487 0 2 XPUSHs(sv_2mortal(newSVnv(dc)));
1497 0 0 RETMATRIX(rmatpn);
0 0 RETMATRIX(rmatpn);
0 0 RETMATRIX(rmatpn);
1508 0 6 RETVEC(pv, 6, nv);
6 1 RETVEC(pv, 6, nv);
1526 16 0 ARRAYTOMAT(xye, mxye, np, 2);
16 8 ARRAYTOMAT(xye, mxye, np, 2);
8 1 ARRAYTOMAT(xye, mxye, np, 2);
1527 16 0 ARRAYTOMAT(xym, mxym, np, 2);
16 8 ARRAYTOMAT(xym, mxym, np, 2);
8 1 ARRAYTOMAT(xym, mxym, np, 2);
1531 0 1 XPUSHs(newRV_noinc((SV*)pxyp));
1532 0 1 XPUSHs(sv_2mortal(newSVnv(xrms)));
1533 0 1 XPUSHs(sv_2mortal(newSVnv(yrms)));
1534 0 1 XPUSHs(sv_2mortal(newSVnv(rrms)));
1548 0 9 XPUSHs(sv_2mortal(newSVnv(ra)));
1549 0 9 XPUSHs(sv_2mortal(newSVnv(dec)));
1550 0 9 XPUSHs(sv_2mortal(newSVnv(diam)));
1567 0 2 XPUSHs(sv_2mortal(newSVnv(refa)));
1568 0 2 XPUSHs(sv_2mortal(newSVnv(refb)));
1581 0 3 XPUSHs(sv_2mortal(newSVnv(refa)));
1582 0 3 XPUSHs(sv_2mortal(newSVnv(refb)));
1599 0 2 XPUSHs(sv_2mortal(newSVnv(ref)));
1610 0 6 RETVEC( vr, 3, nv );
6 2 RETVEC( vr, 3, nv );
1622 0 2 XPUSHs(sv_2mortal(newSVnv(zr)));
1683 0 1 XPUSHs(sv_2mortal(newSVnv(rm)));
1684 0 1 XPUSHs(sv_2mortal(newSVnv(dm)));
1695 0 0 XPUSHs(sv_2mortal(newSVnv(dl)));
1696 0 0 XPUSHs(sv_2mortal(newSVnv(db)));
1709 0 2 XPUSHs(sv_2mortal(newSVnv(x)));
1710 0 2 XPUSHs(sv_2mortal(newSVnv(y)));
1721 0 1 XPUSHs(sv_2mortal(newSVnv(x2)));
1722 0 1 XPUSHs(sv_2mortal(newSVnv(y2)));