| /dports/astro/py-pykep/pykep-2.6/src/third_party/cspice/ |
| H A D | syrenc.c | 14 /* Subroutine */ int syrenc_(char *old, char *new__, char *tabsym, integer * in syrenc_() argument
251 nsym = cardc_(tabsym, tabsym_len); in syrenc_()
252 oldloc = bsrchc_(old, &nsym, tabsym + tabsym_len * 6, old_len, tabsym_len) in syrenc_()
270 sydelc_(new__, tabsym, tabptr, tabval, new_len, tabsym_len, in syrenc_()
272 nsym = cardc_(tabsym, tabsym_len); in syrenc_()
273 oldloc = bsrchc_(old, &nsym, tabsym + tabsym_len * 6, old_len, in syrenc_()
279 newloc = lstlec_(new__, &nsym, tabsym + tabsym_len * 6, new_len, in syrenc_()
291 swapac_(&c__1, &oldloc, &c__0, &newloc, tabsym + tabsym_len * 6, in syrenc_()
297 s_copy(tabsym + (newloc + 5) * tabsym_len, new__, tabsym_len, new_len) in syrenc_()
|
| H A D | syrend.c | 14 /* Subroutine */ int syrend_(char *old, char *new__, char *tabsym, integer * in syrend_() argument
250 nsym = cardc_(tabsym, tabsym_len); in syrend_()
251 oldloc = bsrchc_(old, &nsym, tabsym + tabsym_len * 6, old_len, tabsym_len) in syrend_()
269 sydeld_(new__, tabsym, tabptr, tabval, new_len, tabsym_len); in syrend_()
270 nsym = cardc_(tabsym, tabsym_len); in syrend_()
271 oldloc = bsrchc_(old, &nsym, tabsym + tabsym_len * 6, old_len, in syrend_()
277 newloc = lstlec_(new__, &nsym, tabsym + tabsym_len * 6, new_len, in syrend_()
288 swapac_(&c__1, &oldloc, &c__0, &newloc, tabsym + tabsym_len * 6, in syrend_()
294 s_copy(tabsym + (newloc + 5) * tabsym_len, new__, tabsym_len, new_len) in syrend_()
|
| H A D | syreni.c | 14 /* Subroutine */ int syreni_(char *old, char *new__, char *tabsym, integer * in syreni_() argument
249 nsym = cardc_(tabsym, tabsym_len); in syreni_()
250 oldloc = bsrchc_(old, &nsym, tabsym + tabsym_len * 6, old_len, tabsym_len) in syreni_()
268 sydeli_(new__, tabsym, tabptr, tabval, new_len, tabsym_len); in syreni_()
269 nsym = cardc_(tabsym, tabsym_len); in syreni_()
270 oldloc = bsrchc_(old, &nsym, tabsym + tabsym_len * 6, old_len, in syreni_()
276 newloc = lstlec_(new__, &nsym, tabsym + tabsym_len * 6, new_len, in syreni_()
287 swapac_(&c__1, &oldloc, &c__0, &newloc, tabsym + tabsym_len * 6, in syreni_()
293 s_copy(tabsym + (newloc + 5) * tabsym_len, new__, tabsym_len, new_len) in syreni_()
|
| H A D | sydupd.c | 13 /* Subroutine */ int sydupd_(char *name__, char *copy, char *tabsym, integer * in sydupd_() argument
229 nsym = cardc_(tabsym, tabsym_len); in sydupd_()
235 locsym[0] = lstlec_(name__, &nsym, tabsym + tabsym_len * 6, name_len, in sydupd_()
237 locsym[1] = lstlec_(copy, &nsym, tabsym + tabsym_len * 6, copy_len, in sydupd_()
239 oldsym[0] = locsym[0] != 0 && s_cmp(tabsym + (locsym[0] + 5) * tabsym_len, in sydupd_()
241 oldsym[1] = locsym[1] != 0 && s_cmp(tabsym + (locsym[1] + 5) * tabsym_len, in sydupd_()
276 if (nsym + newsym > sizec_(tabsym, tabsym_len)) { in sydupd_()
309 inslac_(copy, &c__1, &i__1, tabsym + tabsym_len * 6, &nsym, in sydupd_()
311 scardc_(&nsym, tabsym, tabsym_len); in sydupd_()
|
| H A D | sydupi.c | 13 /* Subroutine */ int sydupi_(char *name__, char *copy, char *tabsym, integer * in sydupi_() argument
229 nsym = cardc_(tabsym, tabsym_len); in sydupi_()
235 locsym[0] = lstlec_(name__, &nsym, tabsym + tabsym_len * 6, name_len, in sydupi_()
237 locsym[1] = lstlec_(copy, &nsym, tabsym + tabsym_len * 6, copy_len, in sydupi_()
239 oldsym[0] = locsym[0] != 0 && s_cmp(tabsym + (locsym[0] + 5) * tabsym_len, in sydupi_()
241 oldsym[1] = locsym[1] != 0 && s_cmp(tabsym + (locsym[1] + 5) * tabsym_len, in sydupi_()
276 if (nsym + newsym > sizec_(tabsym, tabsym_len)) { in sydupi_()
309 inslac_(copy, &c__1, &i__1, tabsym + tabsym_len * 6, &nsym, in sydupi_()
311 scardc_(&nsym, tabsym, tabsym_len); in sydupi_()
|
| H A D | sydupc.c | 13 /* Subroutine */ int sydupc_(char *name__, char *copy, char *tabsym, integer * in sydupc_() argument
228 nsym = cardc_(tabsym, tabsym_len); in sydupc_()
234 locsym[0] = lstlec_(name__, &nsym, tabsym + tabsym_len * 6, name_len, in sydupc_()
236 locsym[1] = lstlec_(copy, &nsym, tabsym + tabsym_len * 6, copy_len, in sydupc_()
238 oldsym[0] = locsym[0] != 0 && s_cmp(tabsym + (locsym[0] + 5) * tabsym_len, in sydupc_()
240 oldsym[1] = locsym[1] != 0 && s_cmp(tabsym + (locsym[1] + 5) * tabsym_len, in sydupc_()
275 if (nsym + newsym > sizec_(tabsym, tabsym_len)) { in sydupc_()
309 inslac_(copy, &c__1, &i__1, tabsym + tabsym_len * 6, &nsym, in sydupc_()
311 scardc_(&nsym, tabsym, tabsym_len); in sydupc_()
|
| H A D | sysetd.c | 13 /* Subroutine */ int sysetd_(char *name__, doublereal *value, char *tabsym, in sysetd_() argument
242 nsym = cardc_(tabsym, tabsym_len); in sysetd_()
248 locsym = lstlec_(name__, &nsym, tabsym + tabsym_len * 6, name_len, in sysetd_()
250 oldsym = locsym != 0 && s_cmp(tabsym + (locsym + 5) * tabsym_len, name__, in sysetd_()
273 } else if (nsym >= sizec_(tabsym, tabsym_len)) { in sysetd_()
294 inslac_(name__, &c__1, &i__1, tabsym + tabsym_len * 6, &nsym, in sysetd_()
296 scardc_(&nsym, tabsym, tabsym_len); in sysetd_()
|
| H A D | syseti.c | 13 /* Subroutine */ int syseti_(char *name__, integer *value, char *tabsym, in syseti_() argument
240 nsym = cardc_(tabsym, tabsym_len); in syseti_()
246 locsym = lstlec_(name__, &nsym, tabsym + tabsym_len * 6, name_len, in syseti_()
248 oldsym = locsym != 0 && s_cmp(tabsym + (locsym + 5) * tabsym_len, name__, in syseti_()
271 } else if (nsym >= sizec_(tabsym, tabsym_len)) { in syseti_()
292 inslac_(name__, &c__1, &i__1, tabsym + tabsym_len * 6, &nsym, in syseti_()
294 scardc_(&nsym, tabsym, tabsym_len); in syseti_()
|
| H A D | sysetc.c | 13 /* Subroutine */ int sysetc_(char *name__, char *value, char *tabsym, integer in sysetc_() argument
244 nsym = cardc_(tabsym, tabsym_len); in sysetc_()
250 locsym = lstlec_(name__, &nsym, tabsym + tabsym_len * 6, name_len, in sysetc_()
252 oldsym = locsym != 0 && s_cmp(tabsym + (locsym + 5) * tabsym_len, name__, in sysetc_()
277 } else if (nsym >= sizec_(tabsym, tabsym_len)) { in sysetc_()
298 inslac_(name__, &c__1, &i__1, tabsym + tabsym_len * 6, &nsym, in sysetc_()
300 scardc_(&nsym, tabsym, tabsym_len); in sysetc_()
|
| H A D | syputi.c | 14 tabsym, integer *tabptr, integer *tabval, ftnlen name_len, ftnlen in syputi_()
277 nsym = cardc_(tabsym, tabsym_len); in syputi_()
283 locsym = lstlec_(name__, &nsym, tabsym + tabsym_len * 6, name_len, in syputi_()
285 oldsym = locsym != 0 && s_cmp(tabsym + (locsym + 5) * tabsym_len, name__, in syputi_()
305 if (nsym + newsym > sizec_(tabsym, tabsym_len)) { in syputi_()
335 inslac_(name__, &c__1, &i__1, tabsym + tabsym_len * 6, &nsym, in syputi_()
337 scardc_(&nsym, tabsym, tabsym_len); in syputi_()
|
| H A D | syputc.c | 14 tabsym, integer *tabptr, char *tabval, ftnlen name_len, ftnlen in syputc_()
268 nsym = cardc_(tabsym, tabsym_len); in syputc_()
274 locsym = lstlec_(name__, &nsym, tabsym + tabsym_len * 6, name_len, in syputc_()
276 oldsym = locsym != 0 && s_cmp(tabsym + (locsym + 5) * tabsym_len, name__, in syputc_()
296 if (nsym + newsym > sizec_(tabsym, tabsym_len)) { in syputc_()
327 inslac_(name__, &c__1, &i__1, tabsym + tabsym_len * 6, &nsym, in syputc_()
329 scardc_(&nsym, tabsym, tabsym_len); in syputc_()
|
| H A D | syputd.c | 14 char *tabsym, integer *tabptr, doublereal *tabval, ftnlen name_len, in syputd_() argument
286 nsym = cardc_(tabsym, tabsym_len); in syputd_()
292 locsym = lstlec_(name__, &nsym, tabsym + tabsym_len * 6, name_len, in syputd_()
294 oldsym = locsym != 0 && s_cmp(tabsym + (locsym + 5) * tabsym_len, name__, in syputd_()
314 if (nsym + newsym > sizec_(tabsym, tabsym_len)) { in syputd_()
344 inslac_(name__, &c__1, &i__1, tabsym + tabsym_len * 6, &nsym, in syputd_()
346 scardc_(&nsym, tabsym, tabsym_len); in syputd_()
|
| H A D | sydelc.c | 13 /* Subroutine */ int sydelc_(char *name__, char *tabsym, integer *tabptr, in sydelc_() argument
191 nsym = cardc_(tabsym, tabsym_len); in sydelc_()
197 locsym = bsrchc_(name__, &nsym, tabsym + tabsym_len * 6, name_len, in sydelc_()
207 remlac_(&c__1, &locsym, tabsym + tabsym_len * 6, &nsym, tabsym_len); in sydelc_()
208 scardc_(&nsym, tabsym, tabsym_len); in sydelc_()
|
| /dports/astro/pykep/pykep-2.6/src/third_party/cspice/ |
| H A D | syrenc.c | 14 /* Subroutine */ int syrenc_(char *old, char *new__, char *tabsym, integer * in syrenc_() argument
251 nsym = cardc_(tabsym, tabsym_len); in syrenc_()
252 oldloc = bsrchc_(old, &nsym, tabsym + tabsym_len * 6, old_len, tabsym_len) in syrenc_()
270 sydelc_(new__, tabsym, tabptr, tabval, new_len, tabsym_len, in syrenc_()
272 nsym = cardc_(tabsym, tabsym_len); in syrenc_()
273 oldloc = bsrchc_(old, &nsym, tabsym + tabsym_len * 6, old_len, in syrenc_()
279 newloc = lstlec_(new__, &nsym, tabsym + tabsym_len * 6, new_len, in syrenc_()
291 swapac_(&c__1, &oldloc, &c__0, &newloc, tabsym + tabsym_len * 6, in syrenc_()
297 s_copy(tabsym + (newloc + 5) * tabsym_len, new__, tabsym_len, new_len) in syrenc_()
|
| H A D | syreni.c | 14 /* Subroutine */ int syreni_(char *old, char *new__, char *tabsym, integer * in syreni_() argument
249 nsym = cardc_(tabsym, tabsym_len); in syreni_()
250 oldloc = bsrchc_(old, &nsym, tabsym + tabsym_len * 6, old_len, tabsym_len) in syreni_()
268 sydeli_(new__, tabsym, tabptr, tabval, new_len, tabsym_len); in syreni_()
269 nsym = cardc_(tabsym, tabsym_len); in syreni_()
270 oldloc = bsrchc_(old, &nsym, tabsym + tabsym_len * 6, old_len, in syreni_()
276 newloc = lstlec_(new__, &nsym, tabsym + tabsym_len * 6, new_len, in syreni_()
287 swapac_(&c__1, &oldloc, &c__0, &newloc, tabsym + tabsym_len * 6, in syreni_()
293 s_copy(tabsym + (newloc + 5) * tabsym_len, new__, tabsym_len, new_len) in syreni_()
|
| H A D | syrend.c | 14 /* Subroutine */ int syrend_(char *old, char *new__, char *tabsym, integer * in syrend_() argument
250 nsym = cardc_(tabsym, tabsym_len); in syrend_()
251 oldloc = bsrchc_(old, &nsym, tabsym + tabsym_len * 6, old_len, tabsym_len) in syrend_()
269 sydeld_(new__, tabsym, tabptr, tabval, new_len, tabsym_len); in syrend_()
270 nsym = cardc_(tabsym, tabsym_len); in syrend_()
271 oldloc = bsrchc_(old, &nsym, tabsym + tabsym_len * 6, old_len, in syrend_()
277 newloc = lstlec_(new__, &nsym, tabsym + tabsym_len * 6, new_len, in syrend_()
288 swapac_(&c__1, &oldloc, &c__0, &newloc, tabsym + tabsym_len * 6, in syrend_()
294 s_copy(tabsym + (newloc + 5) * tabsym_len, new__, tabsym_len, new_len) in syrend_()
|
| H A D | sydupi.c | 13 /* Subroutine */ int sydupi_(char *name__, char *copy, char *tabsym, integer * in sydupi_() argument
229 nsym = cardc_(tabsym, tabsym_len); in sydupi_()
235 locsym[0] = lstlec_(name__, &nsym, tabsym + tabsym_len * 6, name_len, in sydupi_()
237 locsym[1] = lstlec_(copy, &nsym, tabsym + tabsym_len * 6, copy_len, in sydupi_()
239 oldsym[0] = locsym[0] != 0 && s_cmp(tabsym + (locsym[0] + 5) * tabsym_len, in sydupi_()
241 oldsym[1] = locsym[1] != 0 && s_cmp(tabsym + (locsym[1] + 5) * tabsym_len, in sydupi_()
276 if (nsym + newsym > sizec_(tabsym, tabsym_len)) { in sydupi_()
309 inslac_(copy, &c__1, &i__1, tabsym + tabsym_len * 6, &nsym, in sydupi_()
311 scardc_(&nsym, tabsym, tabsym_len); in sydupi_()
|
| H A D | sydupd.c | 13 /* Subroutine */ int sydupd_(char *name__, char *copy, char *tabsym, integer * in sydupd_() argument
229 nsym = cardc_(tabsym, tabsym_len); in sydupd_()
235 locsym[0] = lstlec_(name__, &nsym, tabsym + tabsym_len * 6, name_len, in sydupd_()
237 locsym[1] = lstlec_(copy, &nsym, tabsym + tabsym_len * 6, copy_len, in sydupd_()
239 oldsym[0] = locsym[0] != 0 && s_cmp(tabsym + (locsym[0] + 5) * tabsym_len, in sydupd_()
241 oldsym[1] = locsym[1] != 0 && s_cmp(tabsym + (locsym[1] + 5) * tabsym_len, in sydupd_()
276 if (nsym + newsym > sizec_(tabsym, tabsym_len)) { in sydupd_()
309 inslac_(copy, &c__1, &i__1, tabsym + tabsym_len * 6, &nsym, in sydupd_()
311 scardc_(&nsym, tabsym, tabsym_len); in sydupd_()
|
| H A D | sydupc.c | 13 /* Subroutine */ int sydupc_(char *name__, char *copy, char *tabsym, integer * in sydupc_() argument
228 nsym = cardc_(tabsym, tabsym_len); in sydupc_()
234 locsym[0] = lstlec_(name__, &nsym, tabsym + tabsym_len * 6, name_len, in sydupc_()
236 locsym[1] = lstlec_(copy, &nsym, tabsym + tabsym_len * 6, copy_len, in sydupc_()
238 oldsym[0] = locsym[0] != 0 && s_cmp(tabsym + (locsym[0] + 5) * tabsym_len, in sydupc_()
240 oldsym[1] = locsym[1] != 0 && s_cmp(tabsym + (locsym[1] + 5) * tabsym_len, in sydupc_()
275 if (nsym + newsym > sizec_(tabsym, tabsym_len)) { in sydupc_()
309 inslac_(copy, &c__1, &i__1, tabsym + tabsym_len * 6, &nsym, in sydupc_()
311 scardc_(&nsym, tabsym, tabsym_len); in sydupc_()
|
| H A D | syseti.c | 13 /* Subroutine */ int syseti_(char *name__, integer *value, char *tabsym, in syseti_() argument
240 nsym = cardc_(tabsym, tabsym_len); in syseti_()
246 locsym = lstlec_(name__, &nsym, tabsym + tabsym_len * 6, name_len, in syseti_()
248 oldsym = locsym != 0 && s_cmp(tabsym + (locsym + 5) * tabsym_len, name__, in syseti_()
271 } else if (nsym >= sizec_(tabsym, tabsym_len)) { in syseti_()
292 inslac_(name__, &c__1, &i__1, tabsym + tabsym_len * 6, &nsym, in syseti_()
294 scardc_(&nsym, tabsym, tabsym_len); in syseti_()
|
| H A D | sysetd.c | 13 /* Subroutine */ int sysetd_(char *name__, doublereal *value, char *tabsym, in sysetd_() argument
242 nsym = cardc_(tabsym, tabsym_len); in sysetd_()
248 locsym = lstlec_(name__, &nsym, tabsym + tabsym_len * 6, name_len, in sysetd_()
250 oldsym = locsym != 0 && s_cmp(tabsym + (locsym + 5) * tabsym_len, name__, in sysetd_()
273 } else if (nsym >= sizec_(tabsym, tabsym_len)) { in sysetd_()
294 inslac_(name__, &c__1, &i__1, tabsym + tabsym_len * 6, &nsym, in sysetd_()
296 scardc_(&nsym, tabsym, tabsym_len); in sysetd_()
|
| H A D | syputc.c | 14 tabsym, integer *tabptr, char *tabval, ftnlen name_len, ftnlen in syputc_()
268 nsym = cardc_(tabsym, tabsym_len); in syputc_()
274 locsym = lstlec_(name__, &nsym, tabsym + tabsym_len * 6, name_len, in syputc_()
276 oldsym = locsym != 0 && s_cmp(tabsym + (locsym + 5) * tabsym_len, name__, in syputc_()
296 if (nsym + newsym > sizec_(tabsym, tabsym_len)) { in syputc_()
327 inslac_(name__, &c__1, &i__1, tabsym + tabsym_len * 6, &nsym, in syputc_()
329 scardc_(&nsym, tabsym, tabsym_len); in syputc_()
|
| H A D | sysetc.c | 13 /* Subroutine */ int sysetc_(char *name__, char *value, char *tabsym, integer in sysetc_() argument
244 nsym = cardc_(tabsym, tabsym_len); in sysetc_()
250 locsym = lstlec_(name__, &nsym, tabsym + tabsym_len * 6, name_len, in sysetc_()
252 oldsym = locsym != 0 && s_cmp(tabsym + (locsym + 5) * tabsym_len, name__, in sysetc_()
277 } else if (nsym >= sizec_(tabsym, tabsym_len)) { in sysetc_()
298 inslac_(name__, &c__1, &i__1, tabsym + tabsym_len * 6, &nsym, in sysetc_()
300 scardc_(&nsym, tabsym, tabsym_len); in sysetc_()
|
| H A D | syputi.c | 14 tabsym, integer *tabptr, integer *tabval, ftnlen name_len, ftnlen in syputi_()
277 nsym = cardc_(tabsym, tabsym_len); in syputi_()
283 locsym = lstlec_(name__, &nsym, tabsym + tabsym_len * 6, name_len, in syputi_()
285 oldsym = locsym != 0 && s_cmp(tabsym + (locsym + 5) * tabsym_len, name__, in syputi_()
305 if (nsym + newsym > sizec_(tabsym, tabsym_len)) { in syputi_()
335 inslac_(name__, &c__1, &i__1, tabsym + tabsym_len * 6, &nsym, in syputi_()
337 scardc_(&nsym, tabsym, tabsym_len); in syputi_()
|
| H A D | syputd.c | 14 char *tabsym, integer *tabptr, doublereal *tabval, ftnlen name_len, in syputd_() argument
286 nsym = cardc_(tabsym, tabsym_len); in syputd_()
292 locsym = lstlec_(name__, &nsym, tabsym + tabsym_len * 6, name_len, in syputd_()
294 oldsym = locsym != 0 && s_cmp(tabsym + (locsym + 5) * tabsym_len, name__, in syputd_()
314 if (nsym + newsym > sizec_(tabsym, tabsym_len)) { in syputd_()
344 inslac_(name__, &c__1, &i__1, tabsym + tabsym_len * 6, &nsym, in syputd_()
346 scardc_(&nsym, tabsym, tabsym_len); in syputd_()
|