source: PSPA/madxPSPA/src/mad_elemmultp.c @ 430

#include "madx.h"

double
mult_par(const char* par, struct element* el)
  /* returns multipole parameter for par = "k0l" or "k0sl" etc. */
{
  double val = zero;
  char tmp[12] ,*p;
  strcpy(tmp, par);
  if (*tmp == 'k' && (p = strchr(tmp, 'l')) != NULL)
  {
    *p = '\0';  /* suppress trailing l */
    int skew = 0;
    if ((p = strchr(tmp, 's')) != NULL)
    {
      skew = 1; *p = '\0';
    }
    int k = 0;
    sscanf(&tmp[1], "%d", &k);
    double vect[FIELD_MAX];
    int l;
    if (skew) l = element_vector(el, "ksl", vect);
    else      l = element_vector(el, "knl", vect);
    if (k < l) val = vect[k];
  }
  return val;
}