| /dports/astro/pykep/pykep-2.6/src/third_party/cspice/ |
| H A D | zzsinutl.c | 14 /* Subroutine */ int zzsinutl_0_(int n__, integer *trgcde, integer *nsurf, in zzsinutl_0_() argument
440 bodvcd_(trgcde, "RADII", &c__3, &n, savrad, (ftnlen)5); in zzsinutl_0_()
633 savtrg = *trgcde; in zzsinutl_0_()
642 zzdsksph_(trgcde, &savnsf, savsrf, &savmnr, &savmxr); in zzsinutl_0_()
1338 /* Subroutine */ int zzsinutl_(integer *trgcde, integer *nsurf, integer * in zzsinutl_() argument
1343 return zzsinutl_0_(0, trgcde, nsurf, srflst, et, fixfid, vertex, raydir, in zzsinutl_()
1347 /* Subroutine */ int zzsuelin_(integer *trgcde) in zzsuelin_() argument
1349 return zzsinutl_0_(1, trgcde, (integer *)0, (integer *)0, (doublereal *)0, in zzsuelin_()
1355 /* Subroutine */ int zzsudski_(integer *trgcde, integer *nsurf, integer * in zzsudski_() argument
1358 return zzsinutl_0_(2, trgcde, nsurf, srflst, (doublereal *)0, fixfid, ( in zzsudski_()
|
| H A D | illum.c | 46 integer trgcde; in illum_() local
756 zzbods2c_(svctr1, svtarg, &svtcde, &svfnd1, target, &trgcde, &found, ( in illum_()
781 if (trgcde == obscde) { in illum_()
794 cidfrm_(&trgcde, &frcode, frname, &found, (ftnlen)80); in illum_()
809 spkez_(&trgcde, et, frname, abcorr, &obscde, tstate, <, (ftnlen)80, in illum_()
823 spkez_(&c__10, &tepoch, frname, abcorr, &trgcde, sstate, <s, (ftnlen)80, in illum_()
847 bodvcd_(&trgcde, "RADII", &c__3, &n, radii, (ftnlen)5); in illum_()
|
| H A D | subsol_pl02.c | 901 SpiceInt trgcde; in subsol_pl02() local
946 bods2c_c ( target, &trgcde, &found ); in subsol_pl02()
989 if ( trgcde == obscde ) in subsol_pl02()
1003 cidfrm_c ( trgcde, FRNMLN, &frcode, frname, &found ); in subsol_pl02()
1063 if ( centerID != trgcde ) in subsol_pl02()
1068 errint_c ( "#", trgcde ); in subsol_pl02()
1093 spkezp_c ( trgcde, et, frname, abcorr, obscde, trgpos, <targ ); in subsol_pl02()
|
| H A D | subpt_pl02.c | 929 SpiceInt trgcde; in subpt_pl02() local
975 bods2c_c ( target, &trgcde, &found ); in subpt_pl02()
1018 if ( trgcde == obscde ) in subpt_pl02()
1032 cidfrm_c ( trgcde, FRNMLN, &frcode, frname, &found ); in subpt_pl02()
1092 if ( centerID != trgcde ) in subpt_pl02()
1097 errint_c ( "#", trgcde ); in subpt_pl02()
1133 spkezp_c ( trgcde, et, frname, abcorr, obscde, trgpos, < ); in subpt_pl02()
|
| H A D | subslr.c | 81 integer fixfid, nradii, trgcde; in subslr_() local
1902 if (trgcde == 10) { in subslr_()
1931 if (fixctr != trgcde) { in subslr_()
1969 zzprsmet_(&trgcde, method, &c__100, shpstr, subtyp, &pri, &nsurf, in subslr_()
2039 zzsudski_(&trgcde, &nsurf, srflst, &fixfid); in subslr_()
2110 bodvcd_(&trgcde, "RADII", &c__3, &nradii, radii, (ftnlen)5); in subslr_()
2147 zzsbfxr_(&trgcde, &nsurf, srflst, trgepc, &fixfid, spos, dvec, in subslr_()
2288 spkssb_(&trgcde, trgepc, "J2000", ssbtst, (ftnlen)5); in subslr_()
2359 zzsbfxr_(&trgcde, &nsurf, srflst, trgepc, &fixfid, spos, dvec, in subslr_()
2410 zzsbfxr_(&trgcde, &nsurf, srflst, trgepc, &fixfid, spos, dvec, in subslr_()
[all …]
|
| H A D | illum_pl02.c | 1098 SpiceInt trgcde; in illum_pl02() local
1143 bods2c_c ( target, &trgcde, &found ); in illum_pl02()
1186 if ( trgcde == obscde ) in illum_pl02()
1200 cidfrm_c ( trgcde, FRNMLN, &frcode, frname, &found ); in illum_pl02()
1261 if ( centerID != trgcde ) in illum_pl02()
1266 errint_c ( "#", trgcde ); in illum_pl02()
1392 spkezp_c ( trgcde, et, frname, abcorr, obscde, trgpos, <targ ); in illum_pl02()
|
| H A D | subpt.c | 44 integer trgcde; in subpt_() local
632 zzbods2c_(svctr1, svtarg, &svtcde, &svfnd1, target, &trgcde, &found, ( in subpt_()
661 if (obscde == trgcde) { in subpt_()
672 bodvcd_(&trgcde, "RADII", &c__3, &nradii, radii, (ftnlen)5); in subpt_()
678 cidfrm_(&trgcde, &frcode, frname, &found, (ftnlen)80); in subpt_()
713 spkez_(&trgcde, et, frname, abcorr, &obscde, tstate, <, (ftnlen)80, in subpt_()
|
| H A D | dskxv.c | 35 static integer trgcde, fixfid; in dskxv_() local
1123 zzbods2c_(trgctr, svtnam, &svtcde, &svtfnd, target, &trgcde, &trgfnd, ( in dskxv_()
1141 newtrg = trgcde != prvtcd || first; in dskxv_()
1182 if (fxcent != trgcde) { in dskxv_()
1200 prvtcd = trgcde; in dskxv_()
1210 zzsbfxr_(&trgcde, nsurf, srflst, et, &fixfid, &vtxarr[i__ * 3 - 3], & in dskxv_()
|
| H A D | dskxsi.c | 38 static integer trgcde, fixfid; in dskxsi_() local
1276 zzbods2c_(trgctr, svtnam, &svtcde, &svtfnd, target, &trgcde, &trgfnd, ( in dskxsi_()
1294 newtrg = trgcde != prvtcd || first; in dskxsi_()
1335 if (fxcent != trgcde) { in dskxsi_()
1353 prvtcd = trgcde; in dskxsi_()
1361 zzsbfxri_(&trgcde, nsurf, srflst, et, &fixfid, vertex, raydir, xpt, in dskxsi_()
|
| H A D | subsol.c | 43 integer trgcde; in subsol_() local
610 zzbods2c_(svctr1, svtarg, &svtcde, &svfnd1, target, &trgcde, &found, ( in subsol_()
636 if (obscde == trgcde) { in subsol_()
647 bodvcd_(&trgcde, "RADII", &c__3, &nradii, radii, (ftnlen)5); in subsol_()
653 cidfrm_(&trgcde, &frcode, frname, &found, (ftnlen)80); in subsol_()
672 ltime_(et, &obscde, "<-", &trgcde, &ettarg, <, (ftnlen)2); in subsol_()
|
| H A D | zztanutl.c | 10 integer *shape, integer *trgcde, integer *nsurf, integer *srflst, in zztanutl_0_() argument
638 zzsuelin_(trgcde); in zztanutl_0_()
643 zzsudski_(trgcde, nsurf, srflst, fixfid); in zztanutl_0_()
906 shape, integer *trgcde, integer *nsurf, integer *srflst, integer * in zztanutl_() argument
910 return zztanutl_0_(0, curve, srcrad, shape, trgcde, nsurf, srflst, fixfid, in zztanutl_()
915 shape, integer *trgcde, integer *nsurf, integer *srflst, integer * in zztanini_() argument
918 return zztanutl_0_(1, curve, srcrad, shape, trgcde, nsurf, srflst, fixfid, in zztanini_()
|
| H A D | srfnrm.c | 70 integer trgcde; in srfnrm_() local
1401 zzbods2c_(svctr1, svtarg, &svtcde, &svfnd1, target, &trgcde, &fnd, ( in srfnrm_()
1440 if (fxcent != trgcde) { in srfnrm_()
1477 zzprsmet_(&trgcde, method, &c__100, shpstr, subtyp, &pri, &nsurf, in srfnrm_()
1524 if (trgcde != svprvt) { in srfnrm_()
1533 zzbodvcd_(&trgcde, "RADII", &c__3, svctr3, &n, svradi, (ftnlen)5); in srfnrm_()
1554 svprvt = trgcde; in srfnrm_()
1606 zzsbfnrm_(&trgcde, &nsurf, srflst, et, &fixfid, &srfpts[i__ * 3 - in srfnrm_()
|
| H A D | subpnt.c | 79 integer fixfid, nradii, trgcde; in subpnt_() local
2309 if (obscde == trgcde) { in subpnt_()
2339 if (fixctr != trgcde) { in subpnt_()
2373 zzprsmet_(&trgcde, method, &c__100, shpstr, subtyp, &pri, &nsurf, in subpnt_()
2443 zzsudski_(&trgcde, &nsurf, srflst, &fixfid); in subpnt_()
2515 bodvcd_(&trgcde, "RADII", &c__3, &nradii, radii, (ftnlen)5); in subpnt_()
2560 zzsbfxr_(&trgcde, &nsurf, srflst, trgepc, &fixfid, obspos, dvec, in subpnt_()
2615 zzsbfxr_(&trgcde, &nsurf, srflst, trgepc, &fixfid, obspos, dvec, in subpnt_()
2704 spkssb_(&trgcde, trgepc, "J2000", ssbtst, (ftnlen)5); in subpnt_()
2786 zzsbfxr_(&trgcde, &nsurf, srflst, trgepc, &fixfid, obspos, in subpnt_()
[all …]
|
| /dports/astro/py-pykep/pykep-2.6/src/third_party/cspice/ |
| H A D | zzsinutl.c | 14 /* Subroutine */ int zzsinutl_0_(int n__, integer *trgcde, integer *nsurf, in zzsinutl_0_() argument
440 bodvcd_(trgcde, "RADII", &c__3, &n, savrad, (ftnlen)5); in zzsinutl_0_()
633 savtrg = *trgcde; in zzsinutl_0_()
642 zzdsksph_(trgcde, &savnsf, savsrf, &savmnr, &savmxr); in zzsinutl_0_()
1338 /* Subroutine */ int zzsinutl_(integer *trgcde, integer *nsurf, integer * in zzsinutl_() argument
1343 return zzsinutl_0_(0, trgcde, nsurf, srflst, et, fixfid, vertex, raydir, in zzsinutl_()
1347 /* Subroutine */ int zzsuelin_(integer *trgcde) in zzsuelin_() argument
1349 return zzsinutl_0_(1, trgcde, (integer *)0, (integer *)0, (doublereal *)0, in zzsuelin_()
1355 /* Subroutine */ int zzsudski_(integer *trgcde, integer *nsurf, integer * in zzsudski_() argument
1358 return zzsinutl_0_(2, trgcde, nsurf, srflst, (doublereal *)0, fixfid, ( in zzsudski_()
|
| H A D | illum.c | 46 integer trgcde; in illum_() local
756 zzbods2c_(svctr1, svtarg, &svtcde, &svfnd1, target, &trgcde, &found, ( in illum_()
781 if (trgcde == obscde) { in illum_()
794 cidfrm_(&trgcde, &frcode, frname, &found, (ftnlen)80); in illum_()
809 spkez_(&trgcde, et, frname, abcorr, &obscde, tstate, <, (ftnlen)80, in illum_()
823 spkez_(&c__10, &tepoch, frname, abcorr, &trgcde, sstate, <s, (ftnlen)80, in illum_()
847 bodvcd_(&trgcde, "RADII", &c__3, &n, radii, (ftnlen)5); in illum_()
|
| H A D | subsol_pl02.c | 901 SpiceInt trgcde; in subsol_pl02() local
946 bods2c_c ( target, &trgcde, &found ); in subsol_pl02()
989 if ( trgcde == obscde ) in subsol_pl02()
1003 cidfrm_c ( trgcde, FRNMLN, &frcode, frname, &found ); in subsol_pl02()
1063 if ( centerID != trgcde ) in subsol_pl02()
1068 errint_c ( "#", trgcde ); in subsol_pl02()
1093 spkezp_c ( trgcde, et, frname, abcorr, obscde, trgpos, <targ ); in subsol_pl02()
|
| H A D | subpt_pl02.c | 929 SpiceInt trgcde; in subpt_pl02() local
975 bods2c_c ( target, &trgcde, &found ); in subpt_pl02()
1018 if ( trgcde == obscde ) in subpt_pl02()
1032 cidfrm_c ( trgcde, FRNMLN, &frcode, frname, &found ); in subpt_pl02()
1092 if ( centerID != trgcde ) in subpt_pl02()
1097 errint_c ( "#", trgcde ); in subpt_pl02()
1133 spkezp_c ( trgcde, et, frname, abcorr, obscde, trgpos, < ); in subpt_pl02()
|
| H A D | subslr.c | 81 integer fixfid, nradii, trgcde; in subslr_() local
1902 if (trgcde == 10) { in subslr_()
1931 if (fixctr != trgcde) { in subslr_()
1969 zzprsmet_(&trgcde, method, &c__100, shpstr, subtyp, &pri, &nsurf, in subslr_()
2039 zzsudski_(&trgcde, &nsurf, srflst, &fixfid); in subslr_()
2110 bodvcd_(&trgcde, "RADII", &c__3, &nradii, radii, (ftnlen)5); in subslr_()
2147 zzsbfxr_(&trgcde, &nsurf, srflst, trgepc, &fixfid, spos, dvec, in subslr_()
2288 spkssb_(&trgcde, trgepc, "J2000", ssbtst, (ftnlen)5); in subslr_()
2359 zzsbfxr_(&trgcde, &nsurf, srflst, trgepc, &fixfid, spos, dvec, in subslr_()
2410 zzsbfxr_(&trgcde, &nsurf, srflst, trgepc, &fixfid, spos, dvec, in subslr_()
[all …]
|
| H A D | illum_pl02.c | 1098 SpiceInt trgcde; in illum_pl02() local
1143 bods2c_c ( target, &trgcde, &found ); in illum_pl02()
1186 if ( trgcde == obscde ) in illum_pl02()
1200 cidfrm_c ( trgcde, FRNMLN, &frcode, frname, &found ); in illum_pl02()
1261 if ( centerID != trgcde ) in illum_pl02()
1266 errint_c ( "#", trgcde ); in illum_pl02()
1392 spkezp_c ( trgcde, et, frname, abcorr, obscde, trgpos, <targ ); in illum_pl02()
|
| H A D | subpt.c | 44 integer trgcde; in subpt_() local
632 zzbods2c_(svctr1, svtarg, &svtcde, &svfnd1, target, &trgcde, &found, ( in subpt_()
661 if (obscde == trgcde) { in subpt_()
672 bodvcd_(&trgcde, "RADII", &c__3, &nradii, radii, (ftnlen)5); in subpt_()
678 cidfrm_(&trgcde, &frcode, frname, &found, (ftnlen)80); in subpt_()
713 spkez_(&trgcde, et, frname, abcorr, &obscde, tstate, <, (ftnlen)80, in subpt_()
|
| H A D | subsol.c | 43 integer trgcde; in subsol_() local
610 zzbods2c_(svctr1, svtarg, &svtcde, &svfnd1, target, &trgcde, &found, ( in subsol_()
636 if (obscde == trgcde) { in subsol_()
647 bodvcd_(&trgcde, "RADII", &c__3, &nradii, radii, (ftnlen)5); in subsol_()
653 cidfrm_(&trgcde, &frcode, frname, &found, (ftnlen)80); in subsol_()
672 ltime_(et, &obscde, "<-", &trgcde, &ettarg, <, (ftnlen)2); in subsol_()
|
| H A D | dskxsi.c | 38 static integer trgcde, fixfid; in dskxsi_() local
1276 zzbods2c_(trgctr, svtnam, &svtcde, &svtfnd, target, &trgcde, &trgfnd, ( in dskxsi_()
1294 newtrg = trgcde != prvtcd || first; in dskxsi_()
1335 if (fxcent != trgcde) { in dskxsi_()
1353 prvtcd = trgcde; in dskxsi_()
1361 zzsbfxri_(&trgcde, nsurf, srflst, et, &fixfid, vertex, raydir, xpt, in dskxsi_()
|
| H A D | dskxv.c | 35 static integer trgcde, fixfid; in dskxv_() local
1123 zzbods2c_(trgctr, svtnam, &svtcde, &svtfnd, target, &trgcde, &trgfnd, ( in dskxv_()
1141 newtrg = trgcde != prvtcd || first; in dskxv_()
1182 if (fxcent != trgcde) { in dskxv_()
1200 prvtcd = trgcde; in dskxv_()
1210 zzsbfxr_(&trgcde, nsurf, srflst, et, &fixfid, &vtxarr[i__ * 3 - 3], & in dskxv_()
|
| H A D | zztanutl.c | 10 integer *shape, integer *trgcde, integer *nsurf, integer *srflst, in zztanutl_0_() argument
638 zzsuelin_(trgcde); in zztanutl_0_()
643 zzsudski_(trgcde, nsurf, srflst, fixfid); in zztanutl_0_()
906 shape, integer *trgcde, integer *nsurf, integer *srflst, integer * in zztanutl_() argument
910 return zztanutl_0_(0, curve, srcrad, shape, trgcde, nsurf, srflst, fixfid, in zztanutl_()
915 shape, integer *trgcde, integer *nsurf, integer *srflst, integer * in zztanini_() argument
918 return zztanutl_0_(1, curve, srcrad, shape, trgcde, nsurf, srflst, fixfid, in zztanini_()
|
| H A D | srfnrm.c | 70 integer trgcde; in srfnrm_() local
1401 zzbods2c_(svctr1, svtarg, &svtcde, &svfnd1, target, &trgcde, &fnd, ( in srfnrm_()
1440 if (fxcent != trgcde) { in srfnrm_()
1477 zzprsmet_(&trgcde, method, &c__100, shpstr, subtyp, &pri, &nsurf, in srfnrm_()
1524 if (trgcde != svprvt) { in srfnrm_()
1533 zzbodvcd_(&trgcde, "RADII", &c__3, svctr3, &n, svradi, (ftnlen)5); in srfnrm_()
1554 svprvt = trgcde; in srfnrm_()
1606 zzsbfnrm_(&trgcde, &nsurf, srflst, et, &fixfid, &srfpts[i__ * 3 - in srfnrm_()
|