view release on metacpan or  search on metacpan

lib/Astro/SLA.xs  view on Meta::CPAN

# overcome this by providing a wrapper in the .pm file to check
# for this case. Have not got the time to work out a fix at the
# XS level. 'c' can be an input or output variable but must be
# guaranteed to contain a valid pointer to char.
#  slaObs is now defined in the .pm file

# Since "c" can be both input and output depending on the value
# of n the XS routine is explicit and will write the output to
# outc regardless of inc. We do this to allow slaObs to be called
# with constants that can not handle always being modified in the
# simple XS {could use PPCODE but the multivar approach is easier
# since there are many return values that would need to be specified.)

void
_slaObs(n, inc, outc, name, w, p, h)
  int n
  char * inc
  char * outc = NO_INIT
  char * name = NO_INIT
  double w = NO_INIT
  double p = NO_INIT