# include <dvo.h>

/* we use a static variable to save the pre-loaded the photcodes.
   photcode conversion functions refer to this table for ref values */

/* We have three indexes:

   table[0].hashcode provides the table photcode sequence for a photcode value
   table[0].hashNsec provides the Nsec sequence for a photcode value
   table[0].codeNsec provides the photcode value for an Nsec sequence

   given photcode = table[0].code[i] and code = photcode[0].code

   hashcode[code] = i
   hashNsec[code] = Nsec or -1 if not a PRI/SEC code
   codeNsec[Nsec] = code
*/

static PhotCodeData *photcodes = NULL;
static PhotCode *genericCodeMag = NULL;
static PhotCode *genericCodeFlux = NULL;

PhotCodeData *GetPhotcodeTable () {

  if (photcodes == NULL) {
    /* allocate space to photcode table */
    ALLOCATE (photcodes, PhotCodeData, 1);
    photcodes[0].code = NULL;
  }
  if (genericCodeMag == NULL) {
    ALLOCATE (genericCodeMag, PhotCode, 1);
    genericCodeMag->code = 0;
    strcpy (genericCodeMag->name, "MAG");
    genericCodeMag->type = PHOT_MAG;
  }
  if (genericCodeFlux == NULL) {
    ALLOCATE (genericCodeFlux, PhotCode, 1);
    genericCodeFlux->code = 0;
    strcpy (genericCodeFlux->name, "MAG");
    genericCodeFlux->type = PHOT_MAG;
  }
  return photcodes;
}

// set the photcode table. This is used to switch between serveral previously
// allocated tables
void SetPhotcodeTable (PhotCodeData *new) {
  photcodes = new;  
}

/* the static ZERO_POINT is used by programs as an approximate nominal */
static double ZERO_POINT = 0.0;

void SetZeroPoint (double ZP) {
  ZERO_POINT = ZP;
}

double GetZeroPoint () {
  return ZERO_POINT;
}

# define SCALE 0.001

/********** photcode lookup functions **********/

/* return photcode for given name */
PhotCode *GetPhotcodebyName (char *name) {
  
  int i;

  if (name == NULL) return (NULL);
  
  // "MAG" is a special word, not allowed for a photcode name
  if (!strcasecmp (name, "MAG")) {
    return genericCodeMag;
  }

  // "FLUX" is a special word, not allowed for a photcode name
  if (!strcasecmp (name, "FLUX")) {
    return genericCodeFlux;
  }

  for (i = 0; i < photcodes[0].Ncode; i++) {
    if (!strcmp (photcodes[0].code[i].name, name)) {
      return (&photcodes[0].code[i]);
    }
  }
  return (NULL);
}
/* return photcode.code for given name */
int GetPhotcodeCodebyName (char *name) {
  
  int i;
  
  if (name == NULL) return (0);

  // "MAG" is a special photcode name for internal use
  if (!strcasecmp (name, "MAG")) {
    return genericCodeMag->code;
  }
  // "FLUX" is a special photcode name for internal use
  if (!strcasecmp (name, "FLUX")) {
    return genericCodeFlux->code;
  }

  for (i = 0; i < photcodes[0].Ncode; i++) {
    if (!strcmp (photcodes[0].code[i].name, name)) {
      return (photcodes[0].code[i].code);
    }
  }
  return (0);
}
/* return equivalent photcode for given name */
PhotCode *GetPhotcodeEquivbyName (char *name) {
  
  int i, equiv;
  
  if (name == NULL) return (NULL);

  for (i = 0; i < photcodes[0].Ncode; i++) {
    if (!strcmp (photcodes[0].code[i].name, name)) {
      if (photcodes[0].code[i].equiv == 0) return (NULL);
      equiv = photcodes[0].hashcode[photcodes[0].code[i].equiv];
      if (equiv == -1) return (NULL);
      return (&photcodes[0].code[equiv]);
    }
  }
  return (NULL);
}
/* return equivalent photcode.code for given name */
int GetPhotcodeEquivCodebyName (char *name) {
  
  int i, equiv;
  
  if (name == NULL) return (0);

  for (i = 0; i < photcodes[0].Ncode; i++) {
    if (!strcmp (photcodes[0].code[i].name, name)) {
      if (photcodes[0].code[i].equiv == 0) return (0);
      equiv = photcodes[0].hashcode[photcodes[0].code[i].equiv];
      if (equiv == -1) return (0);
      return (photcodes[0].code[equiv].code);
    }
  }
  return (0);
}

/* return photcode for given code */
PhotCode *GetPhotcodebyCode (int code) {
  
  int entry;
  
  if (code < 0) return (NULL);
  if (code > 0x10000) return (NULL);

  entry = photcodes[0].hashcode[code];
  if (entry == -1) return (NULL);

  return (&photcodes[0].code[entry]);
}
/* return photcode.code for given code */
char *GetPhotcodeNamebyCode (int code) {
  
  int entry;
  
  if (code < 0) return (NULL);
  if (code > 0x10000) return (NULL);

  entry = photcodes[0].hashcode[code];
  if (entry == -1) return (NULL);

  return (photcodes[0].code[entry].name);
}
/* return equivalent photcode for given code */
PhotCode *GetPhotcodeEquivbyCode (int code) {
  
  int entry, equiv;
  
  if (code < 0) return (NULL);
  if (code > 0x10000) return (NULL);

  entry = photcodes[0].hashcode[code];
  if (entry == -1) return (NULL);

  if (photcodes[0].code[entry].equiv == 0) return (NULL);
  equiv = photcodes[0].hashcode[photcodes[0].code[entry].equiv];

  if (equiv == -1) return (NULL);
  return (&photcodes[0].code[equiv]);
}
/* return equivalent photcode.code for given code */
int GetPhotcodeEquivCodebyCode (int code) {
  
  int entry;
  
  if (code < 0) return (0);
  if (code > 0x10000) return (0);

  entry = photcodes[0].hashcode[code];
  if (entry == -1) return (0);
  return (photcodes[0].code[entry].equiv);
}

// returns Nsec if code is PRI/SEC, else -1
int GetPhotcodeNsec (int code) {
  
  int Nsec;
  
  if (code < 0) return (-1);
  if (code > 0x10000) return (-1);

  Nsec = photcodes[0].hashNsec[code];
  return (Nsec);
}

/* Nsec of 0 is PRI */
PhotCode *GetPhotcodebyNsec (int Nsec) {
  
  int Ncode;
  int Nseq;

  if (Nsec > photcodes[0].Nsecfilt) return (NULL);
  if (Nsec < 0) return (NULL);
  
  Ncode = photcodes[0].codeNsec[Nsec];
  if (Ncode < 0) return (NULL);

  Nseq = photcodes[0].hashcode[Ncode];
  return (&photcodes[0].code[Nseq]);
}

int GetPhotcodeNsecfilt () {
  return (photcodes[0].Nsecfilt);
}

/* ALLOCATE and return list of all photcodes
   with photcode.equiv == code */
int *GetPhotcodeEquivList (int code, int *nlist) {

  int i, Nlist;
  int *list;

  ALLOCATE (list, int, MAX (1, photcodes[0].Ncode));
  Nlist = 0;
  for (i = 0; i < photcodes[0].Ncode; i++) {
    if (photcodes[0].code[i].equiv != code) continue;
    list[Nlist] = photcodes[0].code[i].code;
    Nlist ++;
  }
  REALLOCATE (list, int, MAX (1, Nlist));

  *nlist = Nlist;
  return (list);
}

/******** photometry conversion functions *********/
float PhotInst (Measure *measure, dvoMagClassType class) {

  int Np = photcodes[0].hashcode[measure[0].photcode];
  if (Np == -1) return (NAN);
  PhotCode *code = &photcodes[0].code[Np];

  float Mraw = NAN;
  switch (class) {
    case MAG_CLASS_PSF:
      Mraw = measure[0].M;
      break;
    case MAG_CLASS_KRON:
      Mraw = measure[0].Mkron;
      break;
    case MAG_CLASS_APER:
      Mraw = measure[0].Map;
      break;
    default:
      break;
  }
  if (code->type == PHOT_REF) {
    return (Mraw);
  }
  float Minst = Mraw - measure[0].dt - ZERO_POINT;

  return (Minst);
}

float PhotCat (Measure *measure, dvoMagClassType class) {

  int Np = photcodes[0].hashcode[measure[0].photcode];
  if (Np == -1) return (NAN);
  PhotCode *code = &photcodes[0].code[Np];

  float Mraw = NAN;
  switch (class) {
    case MAG_CLASS_PSF:
      Mraw = measure[0].M;
      break;
    case MAG_CLASS_KRON:
      Mraw = measure[0].Mkron;
      break;
    case MAG_CLASS_APER:
      Mraw = measure[0].Map;
      break;
    default:
      break;
  }
  if (code->type == PHOT_REF) {
    return (Mraw);
  }

  float Mcat = Mraw - ZERO_POINT + code[0].K*(measure[0].airmass - 1.000) + SCALE*code[0].C;
  
  return (Mcat);
}

float PhotSys (Measure *measure, Average *average, SecFilt *secfilt, dvoMagClassType class) {

  int Np = photcodes[0].hashcode[measure[0].photcode];
  if (Np == -1) return (NAN);
  PhotCode *code = &photcodes[0].code[Np];

  float Mraw = NAN;
  switch (class) {
    case MAG_CLASS_PSF:
      Mraw = measure[0].M;
      break;
    case MAG_CLASS_KRON:
      Mraw = measure[0].Mkron;
      break;
    case MAG_CLASS_APER:
      Mraw = measure[0].Map;
      break;
    default:
      break;
  }
  if (code->type == PHOT_REF) {
    return (Mraw);
  }
  float Mcat = Mraw - ZERO_POINT + code[0].K*(measure[0].airmass - 1.000) + SCALE*code[0].C;

  /* for DEP, color must be made of PRI/SEC */
  float mc = PhotColorForCode (average, secfilt, NULL, code);
  if (isnan(mc)) return (Mcat);
  mc -= SCALE*code[0].dX;

  int i = 0;
  double Mc = mc;
  float Mcol = 0;
  for (i = 0; i < code[0].Nc; i++) {
    Mcol += code[0].X[i]*Mc;
    Mc *= mc;
  }
  float Msys = Mcat + Mcol;
  return (Msys);
}

float PhotRel (Measure *measure, Average *average, SecFilt *secfilt, dvoMagClassType class) {

  int Np = photcodes[0].hashcode[measure[0].photcode];
  if (Np == -1) return (NAN);
  PhotCode *code = &photcodes[0].code[Np];

  float Mraw = NAN;
  switch (class) {
    case MAG_CLASS_PSF:
      Mraw = measure[0].M;
      break;
    case MAG_CLASS_KRON:
      Mraw = measure[0].Mkron;
      break;
    case MAG_CLASS_APER:
      Mraw = measure[0].Map;
      break;
    default:
      break;
  }
  if (code->type == PHOT_REF) {
    return (Mraw);
  }
  float Mcat = Mraw - ZERO_POINT + code[0].K*(measure[0].airmass - 1.000) + SCALE*code[0].C - measure[0].Mcal;

  /* for DEP, color must be made of PRI/SEC */
  float mc = PhotColorForCode (average, secfilt, NULL, code);
  if (isnan(mc)) return (Mcat);
  mc -= SCALE*code[0].dX;

  double Mc = mc;
  float Mcol = 0;
  int i = 0;
  for (i = 0; i < code[0].Nc; i++) {
    Mcol += code[0].X[i]*Mc;
    Mc *= mc;
  }
  float Mrel = Mcat + Mcol;
  return (Mrel);
}

/* return calibrated magnitude from measure for given photcode */
float PhotCal (Measure *thisone, Average *average, SecFilt *secfilt, Measure *measure, PhotCode *code, dvoMagClassType class) {

  int i; 

  if (code == NULL) return NAN;

  /* code must be the matching PRI/SEC code for this measurement or an equivalent ALT */
  int Np = photcodes[0].hashcode[thisone[0].photcode];
  if (Np == -1) return (NAN);
  PhotCode *myCode = &photcodes[0].code[Np];

  if (code->code != myCode->equiv) return (NAN);

  // if we are REF type, just get the right version and return
  if (myCode->type == PHOT_REF) {
    float Mraw = NAN;
    switch (class) {
      case MAG_CLASS_PSF:
	Mraw = thisone[0].M;
	break;
      case MAG_CLASS_KRON:
	Mraw = thisone[0].Mkron;
	break;
      case MAG_CLASS_APER:
	Mraw = thisone[0].Map;
	break;
      default:
	break;
    }
    return (Mraw);
  }

  float Mcal = PhotRel (thisone, average, secfilt, class) + SCALE*code[0].C;

  float mc = PhotColorForCode (average, secfilt, measure, code);
  if (isnan(mc)) return (Mcal);
  mc -= SCALE*code[0].dX;

  double Mc = mc;
  float Mcol = 0;
  for (i = 0; i < code[0].Nc; i++) {
    Mcol += code[0].X[i]*Mc;
    Mc *= mc;
  }
  Mcal += Mcol;
  return (Mcal);
}

/***/
float PhotAve (PhotCode *code, Average *average, SecFilt *secfilt, dvoMagClassType class, dvoMagSourceType source) {

  if (code == NULL) return NAN;

  int Ns = photcodes[0].hashNsec[code[0].code];
  if (Ns == -1) return (NAN);

  float Mave = NAN;
  switch (source) {
    case MAG_SRC_CHP:
      switch (class) {
	case MAG_CLASS_PSF:
	  Mave = secfilt[Ns].M;
	  break;
	case MAG_CLASS_KRON:
	  Mave = secfilt[Ns].Mkron;
	  break;
	case MAG_CLASS_APER:
	  Mave = secfilt[Ns].Map;
	  break;
	default:
	  break;
      }
      break;
    case MAG_SRC_WRP:
      switch (class) {
	case MAG_CLASS_PSF:
	  Mave = secfilt[Ns].MpsfWrp;
	  break;
	case MAG_CLASS_KRON:
	  Mave = secfilt[Ns].MkronWrp;
	  break;
	case MAG_CLASS_APER:
	  Mave = secfilt[Ns].MapWrp;
	  break;
	default:
	  break;
      }
      break;
    case MAG_SRC_STK:
      switch (class) {
	case MAG_CLASS_PSF:
	  Mave = secfilt[Ns].MpsfStk;
	  break;
	case MAG_CLASS_KRON:
	  Mave = secfilt[Ns].MkronStk;
	  break;
	case MAG_CLASS_APER:
	  Mave = secfilt[Ns].MapStk;
	  break;
	default:
	  break;
      }
      break;
    default:
      break;
  }
  return (Mave);
}

/* return calibrated magnitude from average/secfilt for given photcode */
float PhotRef (PhotCode *code, Average *average, SecFilt *secfilt, Measure *measure, dvoMagClassType class, dvoMagSourceType source) {

  int i;

  float Mave = PhotAve (code, average, secfilt, class, source);
  if (isnan(Mave)) return NAN;

  // correct for relative zero-point
  float Mref = Mave + SCALE*code[0].C;

  float mc = PhotColorForCode (average, secfilt, measure, code);
  if (isnan(mc)) return (Mref);
  mc -= SCALE*code[0].dX;

  // correct for color terms
  double Mc = mc;
  float Mcol = 0;
  for (i = 0; i < code[0].Nc; i++) {
    Mcol += code[0].X[i]*Mc;
    Mc *= mc;    /* the 0.001 is needed for higher order terms to keep the units mag = mag^n */
  }
  Mref += Mcol;
  return (Mref);
}

float PhotErr (Measure *measure, dvoMagClassType class) {

  float dMraw = NAN;
  switch (class) {
    case MAG_CLASS_PSF:
      dMraw = measure[0].dM;
      break;
    case MAG_CLASS_KRON:
      dMraw = measure[0].dMkron;
      break;
    case MAG_CLASS_APER:
      dMraw = measure[0].dMap;
      break;
    default:
      break;
  }
  return (dMraw);
}

float PhotCalErr (Measure *measure, dvoMagClassType class) {

  float dMcal = measure[0].dMcal;
  return (dMcal);
}

float PhotAveErr (PhotCode *code, Average *average, SecFilt *secfilt, dvoMagClassType class, dvoMagSourceType source) {

  if (code == NULL) return NAN;

  int Ns = photcodes[0].hashNsec[code[0].code];
  if (Ns == -1) return (NAN);

  float dMave = NAN;
  switch (source) {
    case MAG_SRC_CHP:
      switch (class) {
	case MAG_CLASS_PSF:
	  dMave = secfilt[Ns].dM;
	  break;
	case MAG_CLASS_KRON:
	  dMave = secfilt[Ns].dMkron;
	  break;
	case MAG_CLASS_APER:
	  dMave = secfilt[Ns].dMap;
	  break;
	default:
	  break;
      }
      break;
    case MAG_SRC_WRP:
      switch (class) {
	case MAG_CLASS_PSF:
	  dMave = secfilt[Ns].dFpsfWrp / secfilt[Ns].FpsfWrp;
	  break;
	case MAG_CLASS_KRON:
	  dMave = secfilt[Ns].dFkronWrp / secfilt[Ns].FkronWrp;
	  break;
	case MAG_CLASS_APER:
	  dMave = secfilt[Ns].dFapWrp / secfilt[Ns].FapWrp;
	  break;
	default:
	  break;
      }
      break;
    case MAG_SRC_STK:
      switch (class) {
	case MAG_CLASS_PSF:
	  dMave = secfilt[Ns].dFpsfStk / secfilt[Ns].FpsfStk;
	  break;
	case MAG_CLASS_KRON:
	  dMave = secfilt[Ns].dFkronStk / secfilt[Ns].FkronStk;
	  break;
	case MAG_CLASS_APER:
	  dMave = secfilt[Ns].dFapStk / secfilt[Ns].FapStk;
	  break;
	default:
	  break;
      }
      break;
    default:
      break;
  }
  return (dMave);
}

/********************* other support functions ********************************/

float PhotZeroPoint (Measure *measure, Average *average, SecFilt *secfilt) {

  int Np;
  float ZP;
  PhotCode *code;

  Np = photcodes[0].hashcode[measure[0].photcode];
  if (Np == -1) return (NAN);

  if (photcodes[0].code[Np].type == PHOT_REF) {
    ZP = 0.0;
    return (ZP);
  }
  code = &photcodes[0].code[Np];
  ZP = code[0].K*(measure[0].airmass - 1.000) + SCALE*code[0].C;

  return (ZP);
}

/* color term may not use DEP magnitude */
// currently only returns the PSF color
float PhotColorForCode (Average *average, SecFilt *secfilt, Measure *measure, PhotCode *code) {

  int i, Ns1, Ns2, Ns;
  float m1, m2, mc;
  PhotCode *color;

  m1 = m2 = NAN;

  if (measure == NULL) {
    Ns1 = photcodes[0].hashNsec[code[0].c1];
    Ns2 = photcodes[0].hashNsec[code[0].c2];
  
    m1 = (Ns1 == -1) ? NAN : secfilt[Ns1].M;
    m2 = (Ns2 == -1) ? NAN : secfilt[Ns2].M;
    mc = (isnan(m1) || isnan(m2)) ? NAN : (m1 - m2);
    return (mc);
  }

  /* find magnitude matching first color term */
  color = GetPhotcodebyCode (code[0].c1);
  if (color == NULL) return (NAN);
  if (color[0].type == PHOT_REF) {
    for (i = 0; (i < average[0].Nmeasure) && (isnan(m1)); i++) {
      if (measure[i].photcode == color[0].code) {
	m1 = measure[i].M;
      }
    }
  } else {
    Ns = photcodes[0].hashNsec[color[0].code];
    m1 = (Ns == -1) ? NAN : secfilt[Ns].M;
  }	

  /* find magnitude matching second color term */
  color = GetPhotcodebyCode (code[0].c2);
  if (color == NULL) return (NAN);
  if (color[0].type == PHOT_REF) {
    for (i = 0; (i < average[0].Nmeasure) && (isnan(m2)); i++) {
      if (measure[i].photcode == color[0].code) {
	m2 = measure[i].M;
      }
    }
  } else {
    Ns = photcodes[0].hashNsec[color[0].code];
    m2 = (Ns == -1) ? NAN : secfilt[Ns].M;
  }	
  mc = (isnan(m1) || isnan(m2)) ? NAN : (m1 - m2);
  return (mc);
}

float PhotMstdev (PhotCode *code, Average *average, SecFilt *secfilt, dvoMagClassType class, dvoMagSourceType source) {

  if (code == NULL) return NAN;

  int Ns = photcodes[0].hashNsec[code[0].code];
  if (Ns == -1) return (NAN);

  float Mstdev = NAN;
  switch (source) {
    case MAG_SRC_CHP:
      switch (class) {
	case MAG_CLASS_PSF:
	  Mstdev = secfilt[Ns].Mstdev;
	  break;
	case MAG_CLASS_KRON:
	  Mstdev = secfilt[Ns].sMkron;
	  break;
	case MAG_CLASS_APER:
	  Mstdev = secfilt[Ns].sMap;
	  break;
	default:
	  break;
      }
      break;
    case MAG_SRC_WRP:
      switch (class) {
	case MAG_CLASS_PSF:
	  Mstdev = secfilt[Ns].sFpsfWrp;
	  break;
	case MAG_CLASS_KRON:
	  Mstdev = secfilt[Ns].sFkronWrp;
	  break;
	case MAG_CLASS_APER:
	  Mstdev = secfilt[Ns].sFapWrp;
	  break;
	default:
	  break;
      }
      break;
    case MAG_SRC_STK:
    default:
      break;
  }
  return (Mstdev);
}

int PhotNphot (PhotCode *code, Average *average, SecFilt *secfilt, dvoMagClassType class, dvoMagSourceType source) {

  if (code == NULL) return 0;

  int Ns = photcodes[0].hashNsec[code[0].code];
  if (Ns == -1) return 0;

  int Nphot = 0;
  switch (source) {
    case MAG_SRC_CHP:
      switch (class) {
	case MAG_CLASS_PSF:
	  Nphot = secfilt[Ns].Nused;
	  break;
	case MAG_CLASS_KRON:
	  Nphot = secfilt[Ns].NusedKron;
	  break;
	case MAG_CLASS_APER:
	  Nphot = secfilt[Ns].NusedAp;
	  break;
	default:
	  break;
      }
      break;
    case MAG_SRC_WRP:
      switch (class) {
	case MAG_CLASS_PSF:
	  Nphot = secfilt[Ns].NusedWrp;
	  break;
	case MAG_CLASS_KRON:
	  Nphot = secfilt[Ns].NusedKronWrp;
	  break;
	case MAG_CLASS_APER:
	  Nphot = secfilt[Ns].NusedApWrp;
	  break;
	default:
	  break;
      }
      break;
    case MAG_SRC_STK:
    default:
      break;
  }
  return (Nphot);
}

float PhotAveFluxPSF (PhotCode *code, Average *average, SecFilt *secfilt) {

  int Ns;
  float Fpsf;

  if (code == NULL) return NAN;

  Ns = photcodes[0].hashNsec[code[0].code];
  Fpsf = (Ns == -1) ? NAN : secfilt[Ns].FpsfStk;
  return (Fpsf);
}

float PhotAvedFluxPSF (PhotCode *code, Average *average, SecFilt *secfilt) {

  int Ns;
  float dFpsf;

  if (code == NULL) return NAN;

  Ns = photcodes[0].hashNsec[code[0].code];
  dFpsf = (Ns == -1) ? NAN : secfilt[Ns].dFpsfStk;
  return (dFpsf);
}

float PhotAveFluxKron (PhotCode *code, Average *average, SecFilt *secfilt) {

  int Ns;
  float Fkron;

  if (code == NULL) return NAN;

  Ns = photcodes[0].hashNsec[code[0].code];
  Fkron = (Ns == -1) ? NAN : secfilt[Ns].FkronStk;
  return (Fkron);
}

float PhotAvedFluxKron (PhotCode *code, Average *average, SecFilt *secfilt) {

  int Ns;
  float dFkron;

  if (code == NULL) return NAN;

  Ns = photcodes[0].hashNsec[code[0].code];
  dFkron = (Ns == -1) ? NAN : secfilt[Ns].dFkronStk;
  return (dFkron);
}

float PhotMmin (PhotCode *code, Average *average, SecFilt *secfilt) {

  int Ns;
  float Mmin;

  if (code == NULL) return NAN;

  Ns = photcodes[0].hashNsec[code[0].code];
  Mmin  = (Ns == -1) ? NAN : secfilt[Ns].Mmin;
  return (Mmin);
}

float PhotMmax (PhotCode *code, Average *average, SecFilt *secfilt) {

  int Ns;
  float Mmax;

  if (code == NULL) return NAN;

  Ns = photcodes[0].hashNsec[code[0].code];
  Mmax  = (Ns == -1) ? NAN : secfilt[Ns].Mmax;
  return (Mmax);
}

float PhotUCdist (PhotCode *code, Average *average, SecFilt *secfilt) {

  int Ns;
  float Muc;

  if (code == NULL) return NAN;

  Ns = photcodes[0].hashNsec[code[0].code];
  Muc  = (Ns == -1) ? NAN : secfilt[Ns].ubercalDist;
  return (Muc);
}

// XX unsigned int PhotStackID (PhotCode *code, Average *average, SecFilt *secfilt) {
// XX 
// XX   int Ns;
// XX   unsigned int ID;
// XX 
// XX   if (code == NULL) return 0;
// XX 
// XX   Ns = photcodes[0].hashNsec[code[0].code];
// XX   ID = (Ns == -1) ? 0 : secfilt[Ns].stackDetectID;
// XX   return (ID);
// XX }

// Xm is now (2014.07.03) stored as the chisq except in dvo formats which use as short
float PhotXm (PhotCode *code, Average *average, SecFilt *secfilt) {

  int Ns;
  float Xm;

  if (code == NULL) return NAN;

  Ns = photcodes[0].hashNsec[code[0].code];
  Xm = (Ns == -1) ? NAN : secfilt[Ns].Mchisq;
  return (Xm);
}

/* given a photcode pair c1 & c2, return the color of this star (NaN if not found) */
int PhotColor (Average *average, SecFilt *secfilt, Measure *measure, int c1, int c2, double *color) {

  int i, Ns;
  double M1, M2, dM;
  PhotCode *code;
  
  code = GetPhotcodebyCode (c1);
  if (code == NULL) return (FALSE);
  if (code[0].type == PHOT_REF) {
    for (i = 0; i < average[0].Nmeasure; i++) {
      if (measure[i].photcode == c1) {
	M1 = measure[i].M;
	goto filter1;
      }
    }	
    return (FALSE);
  } else {
    Ns = photcodes[0].hashNsec[code[0].code];
    M1 = (Ns == -1) ? NAN : secfilt[Ns].M;
  }	

filter1:
  code = GetPhotcodebyCode (c2);
  if (code == NULL) return (FALSE);
  if (code[0].type == PHOT_REF) {
    for (i = 0; i < average[0].Nmeasure; i++) {
      if (measure[i].photcode == c2) {
	M2 = measure[i].M;
	goto filter2;
      }
    }	
    return (FALSE);
  } else {
    Ns = photcodes[0].hashNsec[code[0].code];
    M2 = (Ns == -1) ? NAN : secfilt[Ns].M;
  }	
  
filter2:

  dM = M1 - M2;
  *color = dM;
  
  return (TRUE);
}

float MagToFlux (float Mag) {
  float Flux = pow(10.0, -0.4*(Mag));
  return (Flux);
}

/** flux conversion *******************************************************************/
float PhotFluxInst (Measure *measure, dvoMagClassType class) {

  float Moff = - measure[0].dt - ZERO_POINT;
  float Finst = NAN;
  switch (class) {
    case MAG_CLASS_PSF:
      Finst = isnan (measure[0].FluxPSF)  ? MagToFlux(measure[0].M + Moff)     : measure[0].FluxPSF;
      break;
    case MAG_CLASS_KRON:
      Finst = isnan (measure[0].FluxKron) ? MagToFlux(measure[0].Mkron + Moff) : measure[0].FluxKron;
      break;
    case MAG_CLASS_APER:
      Finst = isnan (measure[0].FluxAp)   ? MagToFlux(measure[0].Map + Moff)   : measure[0].FluxAp;
      break;
    default:
      break;
  }
  return (Finst);
}

// returns Jy fluxes assuming mag in AB? (needs an extra AP factor, right?)
float PhotFluxCat (Measure *measure, dvoMagClassType class) {

  int Np = photcodes[0].hashcode[measure[0].photcode];
  if (Np == -1) return (NAN);
  PhotCode *code = &photcodes[0].code[Np];

  // mag_AB = -2.5 log (flux_cgs) - 48.6 (by definition) [~Vega flux in V-band]
  // flux_Jy = flux_cgs * 10^23
  // -2.5 log (flux_cgs) = -2.5 log (flux_Jy * 10^-23) = -2.5 log (flux_Jy) + 2.5*23

  // from these we get:
  // mag_AB = -2.5 log (flux_Jy) + 8.9
  // log (flux_Jy) = -0.4*mag_AB + 3.56

  // mag_AB = mag_inst + ZP

  // log(flux_Jy) = -0.4*mag_inst -0.4*ZP + 3.56
  // mag_inst = -2.5 log (flux_Jy) - ZP + 8.9

  // log (flux_Jy) = -0.4*(mag_inst + ZP - 8.9)

  // -2.5 log (flux_inst) = -2.5 log (flux_Jy) - ZP + 8.9
  // log (flux_inst) = log (flux_Jy) + 0.4 ZP - 3.56
  // flux_inst = flux_Jy * 10^(0.4*ZP - 3.56)
  // flux_Jy = flux_inst * 10^(3.56 - 0.4*ZP) = flux_inst * zpFactor
  // flux_Jy = flux_inst * 3630.8 * 10^(-0.4*ZP)

  // measure.M has the static ZERO_POINT (25.0) applied, but not measure.Flux
  float Mcal = code[0].K*(measure[0].airmass - 1.000) + SCALE*code[0].C;
  float Moff = Mcal - ZERO_POINT + 8.9;
  float Foff = 3630.8 * MagToFlux(Mcal);
  float Fcat = NAN;
  switch (class) {
    case MAG_CLASS_PSF:
      Fcat = isnan (measure[0].FluxPSF)  ? MagToFlux(measure[0].M + Moff)     : measure[0].FluxPSF * Foff;
      break;
    case MAG_CLASS_KRON:
      Fcat = isnan (measure[0].FluxKron) ? MagToFlux(measure[0].Mkron + Moff) : measure[0].FluxKron * Foff;
      break;
    case MAG_CLASS_APER:
      Fcat = isnan (measure[0].FluxAp)   ? MagToFlux(measure[0].Map + Moff)   : measure[0].FluxAp * Foff;
      break;
    default:
      break;
  }
  return (Fcat);
}

// corrected for color trends
float PhotFluxSys (Measure *measure, Average *average, SecFilt *secfilt, dvoMagClassType class) {

  int Np = photcodes[0].hashcode[measure[0].photcode];
  if (Np == -1) return (NAN);
  PhotCode *code = &photcodes[0].code[Np];

  // measure.M has the static ZERO_POINT (25.0) applied, but not measure.Flux
  float Mcal = code[0].K*(measure[0].airmass - 1.000) + SCALE*code[0].C;
  float Moff = Mcal - ZERO_POINT + 8.9;
  float Foff = 3630.8 * MagToFlux(Mcal);
  float Fcat = NAN;
  switch (class) {
    case MAG_CLASS_PSF:
      Fcat = isnan (measure[0].FluxPSF)  ? MagToFlux(measure[0].M + Moff)     : measure[0].FluxPSF * Foff;
      break;
    case MAG_CLASS_KRON:
      Fcat = isnan (measure[0].FluxKron) ? MagToFlux(measure[0].Mkron + Moff) : measure[0].FluxKron * Foff;
      break;
    case MAG_CLASS_APER:
      Fcat = isnan (measure[0].FluxAp)   ? MagToFlux(measure[0].Map + Moff)   : measure[0].FluxAp * Foff;
      break;
    default:
      break;
  }
  if (isnan(Fcat)) return (NAN);

  // find the relevant color 
  float mc = PhotColorForCode (average, secfilt, NULL, code);
  if (isnan(mc)) return (Fcat);
  mc -= SCALE*code[0].dX;

  // find the color correction in mags
  int i = 0;
  double Mc = mc;
  float Mcol = 0;
  for (i = 0; i < code[0].Nc; i++) {
    Mcol += code[0].X[i]*Mc;
    Mc *= mc;
  }
  float Fcol = MagToFlux (Mcol);

  float Fsys = Fcat * Fcol;
  return (Fsys);
}

float PhotFluxRel (Measure *measure, Average *average, SecFilt *secfilt, dvoMagClassType class) {

  int Np = photcodes[0].hashcode[measure[0].photcode];
  if (Np == -1) return (NAN);
  PhotCode *code = &photcodes[0].code[Np];

  // measure.M has the static ZERO_POINT (25.0) applied, but not measure.Flux
  float Mcal = code[0].K*(measure[0].airmass - 1.000) + SCALE*code[0].C - measure[0].Mcal;
  float Moff = Mcal - ZERO_POINT + 8.9;
  float Foff = 3630.8 * MagToFlux(Mcal);
  float Fcat = NAN;
  switch (class) {
    case MAG_CLASS_PSF:
      Fcat = isnan (measure[0].FluxPSF)  ? MagToFlux(measure[0].M + Moff)     : measure[0].FluxPSF * Foff;
      break;
    case MAG_CLASS_KRON:
      Fcat = isnan (measure[0].FluxKron) ? MagToFlux(measure[0].Mkron + Moff) : measure[0].FluxKron * Foff;
      break;
    case MAG_CLASS_APER:
      Fcat = isnan (measure[0].FluxAp)   ? MagToFlux(measure[0].Map + Moff)   : measure[0].FluxAp * Foff;
      break;
    default:
      break;
  }
  if (isnan(Fcat)) return (NAN);

  /* for DEP, color must be made of PRI/SEC */
  float mc = PhotColorForCode (average, secfilt, NULL, code);
  if (isnan(mc)) return (Fcat);
  mc -= SCALE*code[0].dX;

  double Mc = mc;
  float Mcol = 0;
  int i = 0;
  for (i = 0; i < code[0].Nc; i++) {
    Mcol += code[0].X[i]*Mc;
    Mc *= mc;
  }
  float Fcol = MagToFlux (Mcol);

  float Frel = Fcat * Fcol;
  return (Frel);
}

/* return calibrated magnitude from measure for given photcode */
float PhotFluxCal (Measure *thisone, Average *average, SecFilt *secfilt, Measure *measure, PhotCode *code, dvoMagClassType class) {

  int i; 

  if (code == NULL) return NAN;

  /* code must be the matching PRI/SEC code for this measurement or an equivalent ALT */
  int Np = photcodes[0].hashcode[thisone[0].photcode];
  if (Np == -1) return (NAN);
  PhotCode *myCode = &photcodes[0].code[Np];

  if (code->code != myCode->equiv) return (NAN);

  float Frel = PhotFluxRel (thisone, average, secfilt, class) + SCALE*code[0].C;

  // get the relevant color term
  float mc = PhotColorForCode (average, secfilt, measure, code);
  if (isnan(mc)) return (Frel);
  mc -= SCALE*code[0].dX;

  // get the corresponding color correction in mags, convert to flux
  double Mc = mc;
  float Mcol = 0;
  for (i = 0; i < code[0].Nc; i++) {
    Mcol += code[0].X[i]*Mc;
    Mc *= mc;
  }
  float Fcol = MagToFlux (Mcol);

  float Fcal = Frel * Fcol;
  return (Fcal);
}

/***/
float PhotFluxAve (PhotCode *code, Average *average, SecFilt *secfilt, dvoMagClassType class, dvoMagSourceType source) {

  if (code == NULL) return NAN;

  int Ns = photcodes[0].hashNsec[code[0].code];
  if (Ns == -1) return (NAN);

  float Fave = NAN;
  switch (source) {
    case MAG_SRC_CHP:
      switch (class) {
	case MAG_CLASS_PSF:
	  Fave = MagToFlux(secfilt[Ns].M);
	  break;
	case MAG_CLASS_KRON:
	  Fave = MagToFlux(secfilt[Ns].Mkron);
	  break;
	case MAG_CLASS_APER:
	  Fave = MagToFlux(secfilt[Ns].Map);
	  break;
	default:
	  break;
      }
      break;
    case MAG_SRC_WRP:
      switch (class) {
	case MAG_CLASS_PSF:
	  Fave = isnan (secfilt[Ns].FpsfWrp)  ? MagToFlux(secfilt[Ns].MpsfWrp)  : secfilt[Ns].FpsfWrp;
	  break;
	case MAG_CLASS_KRON:
	  Fave = isnan (secfilt[Ns].FkronWrp) ? MagToFlux(secfilt[Ns].MkronWrp) : secfilt[Ns].FkronWrp;
	  break;
	case MAG_CLASS_APER:
	  Fave = isnan (secfilt[Ns].FapWrp)   ? MagToFlux(secfilt[Ns].MapWrp)   : secfilt[Ns].FapWrp;
	  break;
	default:
	  break;
      }
      break;
    case MAG_SRC_STK:
      switch (class) {
	case MAG_CLASS_PSF:
	  Fave = isnan (secfilt[Ns].FpsfStk)  ? MagToFlux(secfilt[Ns].MpsfStk)  : secfilt[Ns].FpsfStk;
	  break;
	case MAG_CLASS_KRON:
	  Fave = isnan (secfilt[Ns].FkronStk) ? MagToFlux(secfilt[Ns].MkronStk) : secfilt[Ns].FkronStk;
	  break;
	case MAG_CLASS_APER:
	  Fave = isnan (secfilt[Ns].FapStk)   ? MagToFlux(secfilt[Ns].MapStk)   : secfilt[Ns].FapStk;
	  break;
	default:
	  break;
      }
      break;
    default:
      break;
  }
  return (Fave);
}

float PhotFluxAveErr (PhotCode *code, Average *average, SecFilt *secfilt, dvoMagClassType class, dvoMagSourceType source) {

  if (code == NULL) return NAN;

  int Ns = photcodes[0].hashNsec[code[0].code];
  if (Ns == -1) return (NAN);

  float dFave = NAN;
  switch (source) {
    case MAG_SRC_CHP:
      switch (class) {
	case MAG_CLASS_PSF:
	  dFave = secfilt[Ns].dM * MagToFlux(secfilt[Ns].M);
	  break;
	case MAG_CLASS_KRON:
	  dFave = secfilt[Ns].dMkron * MagToFlux(secfilt[Ns].Mkron);
	  break;
	case MAG_CLASS_APER:
	  dFave = secfilt[Ns].dMap * MagToFlux(secfilt[Ns].Map);
	  break;
	default:
	  break;
      }
      break;
    case MAG_SRC_WRP:
      switch (class) {
	case MAG_CLASS_PSF:
	  dFave = secfilt[Ns].dFpsfWrp;
	  break;
	case MAG_CLASS_KRON:
	  dFave = secfilt[Ns].dFkronWrp;
	  break;
	case MAG_CLASS_APER:
	  dFave = secfilt[Ns].dFapWrp;
	  break;
	default:
	  break;
      }
      break;
    case MAG_SRC_STK:
      switch (class) {
	case MAG_CLASS_PSF:
	  dFave = secfilt[Ns].dFpsfStk;
	  break;
	case MAG_CLASS_KRON:
	  dFave = secfilt[Ns].dFkronStk;
	  break;
	case MAG_CLASS_APER:
	  dFave = secfilt[Ns].dFapStk;
	  break;
	default:
	  break;
      }
      break;
    default:
      break;
  }
  return (dFave);
}

/* return calibrated magnitude from average/secfilt for given photcode */
float PhotFluxRef (PhotCode *code, Average *average, SecFilt *secfilt, Measure *measure, dvoMagClassType class, dvoMagSourceType source) {

  int i;

  float Fave = PhotFluxAve (code, average, secfilt, class, source);
  if (isnan(Fave)) return NAN;

  // correct for relative zero-point
  float Moff = SCALE*code[0].C;

  float mc = PhotColorForCode (average, secfilt, measure, code);
  if (isnan(mc)) return (Fave * MagToFlux(Moff));
  mc -= SCALE*code[0].dX;

  // correct for color terms
  double Mc = mc;
  float Mcol = 0;
  for (i = 0; i < code[0].Nc; i++) {
    Mcol += code[0].X[i]*Mc;
    Mc *= mc;    /* the 0.001 is needed for higher order terms to keep the units mag = mag^n */
  }
  float Foff = MagToFlux(Mcol);
  return (Fave * Foff);
}

float PhotFluxInstErr (Measure *measure, dvoMagClassType class) {

  float Moff = - measure[0].dt - ZERO_POINT;

  // use dFlux if we can, but use dMag if we must:
  // dFlux = Flux * dMag

  float dFinst = NAN;
  switch (class) {
    case MAG_CLASS_PSF:
      if (isnan (measure[0].dFluxPSF)) {
	float Finst = MagToFlux(measure[0].M + Moff);
	dFinst = measure[0].dM * Finst;
      } else {
	dFinst = measure[0].dFluxPSF;
      }
      break;
    case MAG_CLASS_KRON:
      if (isnan (measure[0].dFluxKron)) {
	float Finst = MagToFlux(measure[0].Mkron + Moff);
	dFinst = measure[0].dMkron * Finst;
      } else {
	dFinst = measure[0].dFluxKron;
      }
      break;
    case MAG_CLASS_APER:
      if (isnan (measure[0].dFluxAp)) {
	float Finst = MagToFlux(measure[0].Map + Moff);
	dFinst = measure[0].dMap * Finst;
      } else {
	dFinst = measure[0].dFluxAp;
      }
      break;
    default:
      break;
  }
  return (dFinst);
}

float PhotFluxCatErr (Measure *measure, dvoMagClassType class) {

  int Np = photcodes[0].hashcode[measure[0].photcode];
  if (Np == -1) return (NAN);
  PhotCode *code = &photcodes[0].code[Np];

  // measure.M has the static ZERO_POINT (25.0) applied, but not measure.Flux
  float Mcal = code[0].K*(measure[0].airmass - 1.000) + SCALE*code[0].C;
  float Moff = Mcal - ZERO_POINT + 8.9;
  float Foff = 3630.8 * MagToFlux(Mcal);

  // use dFlux if we can, but use dMag if we must:
  // dFlux = Flux * dMag

  float dFcat = NAN;
  switch (class) {
    case MAG_CLASS_PSF:
      if (isnan (measure[0].dFluxPSF)) {
	float Finst = MagToFlux(measure[0].M + Moff);
	dFcat = measure[0].dM * Finst;
      } else {
	dFcat = measure[0].dFluxPSF * Foff;
      }
      break;
    case MAG_CLASS_KRON:
      if (isnan (measure[0].dFluxKron)) {
	float Finst = MagToFlux(measure[0].Mkron + Moff);
	dFcat = measure[0].dMkron * Finst;
      } else {
	dFcat = measure[0].dFluxKron * Foff;
      }
      break;
    case MAG_CLASS_APER:
      if (isnan (measure[0].dFluxAp)) {
	float Finst = MagToFlux(measure[0].Map + Moff);
	dFcat = measure[0].dMap * Finst;
      } else {
	dFcat = measure[0].dFluxAp * Foff;
      }
      break;
    default:
      break;
  }
  return (dFcat);
}

/******** alternate photometry conversion functions using MeasureTiny and AverageTiny *********/
float PhotInstTiny (MeasureTiny *measure, dvoMagClassType class) {

  int Np = photcodes[0].hashcode[measure[0].photcode];
  if (Np == -1) return (NAN);
  PhotCode *code = &photcodes[0].code[Np];

  float Mraw = NAN;
  switch (class) {
    case MAG_CLASS_PSF:
      Mraw = measure[0].M;
      break;
    case MAG_CLASS_KRON:
      // Mraw = measure[0].Mkron;
      break;
    case MAG_CLASS_APER:
      // Mraw = measure[0].Map;
      break;
    default:
      break;
  }
  if (code->type == PHOT_REF) {
    return (Mraw);
  }
  float Minst = Mraw - measure[0].dt - ZERO_POINT;

  return (Minst);
}

float PhotCatTiny (MeasureTiny *measure, dvoMagClassType class) {

  int Np = photcodes[0].hashcode[measure[0].photcode];
  if (Np == -1) return (NAN);
  PhotCode *code = &photcodes[0].code[Np];

  float Mraw = NAN;
  switch (class) {
    case MAG_CLASS_PSF:
      Mraw = measure[0].M;
      break;
    case MAG_CLASS_KRON:
      // Mraw = measure[0].Mkron;
      break;
    case MAG_CLASS_APER:
      // Mraw = measure[0].Map;
      break;
    default:
      break;
  }
  if (code->type == PHOT_REF) {
    return (Mraw);
  }

  float Mcat = Mraw - ZERO_POINT + code[0].K*(measure[0].airmass - 1.000) + SCALE*code[0].C;
  
  return (Mcat);
}

float PhotSysTiny (MeasureTiny *measure, AverageTiny *average, SecFilt *secfilt, dvoMagClassType class) {

  int Np = photcodes[0].hashcode[measure[0].photcode];
  if (Np == -1) return (NAN);
  PhotCode *code = &photcodes[0].code[Np];

  float Mraw = NAN;
  switch (class) {
    case MAG_CLASS_PSF:
      Mraw = measure[0].M;
      break;
    case MAG_CLASS_KRON:
      // Mraw = measure[0].Mkron;
      break;
    case MAG_CLASS_APER:
      // Mraw = measure[0].Map;
      break;
    default:
      break;
  }
  if (code->type == PHOT_REF) {
    return (Mraw);
  }
  float Mcat = Mraw - ZERO_POINT + code[0].K*(measure[0].airmass - 1.000) + SCALE*code[0].C;

  /* for DEP, color must be made of PRI/SEC */
  float mc = PhotColorForCodeTiny (average, secfilt, NULL, code);
  if (isnan(mc)) return (Mcat);
  mc -= SCALE*code[0].dX;

  int i = 0;
  double Mc = mc;
  float Mcol = 0;
  for (i = 0; i < code[0].Nc; i++) {
    Mcol += code[0].X[i]*Mc;
    Mc *= mc;
  }
  float Msys = Mcat + Mcol;
  return (Msys);
}

float PhotRelTiny (MeasureTiny *measure, AverageTiny *average, SecFilt *secfilt, dvoMagClassType class) {

  int Np = photcodes[0].hashcode[measure[0].photcode];
  if (Np == -1) return (NAN);
  PhotCode *code = &photcodes[0].code[Np];

  float Mraw = NAN;
  switch (class) {
    case MAG_CLASS_PSF:
      Mraw = measure[0].M;
      break;
    case MAG_CLASS_KRON:
      // Mraw = measure[0].Mkron;
      break;
    case MAG_CLASS_APER:
      // Mraw = measure[0].Map;
      break;
    default:
      break;
  }
  if (code->type == PHOT_REF) {
    return (Mraw);
  }
  float Mcat = Mraw - ZERO_POINT + code[0].K*(measure[0].airmass - 1.000) + SCALE*code[0].C - measure[0].Mcal;

  /* for DEP, color must be made of PRI/SEC */
  float mc = PhotColorForCodeTiny (average, secfilt, NULL, code);
  if (isnan(mc)) return (Mcat);
  mc -= SCALE*code[0].dX;

  double Mc = mc;
  float Mcol = 0;
  int i = 0;
  for (i = 0; i < code[0].Nc; i++) {
    Mcol += code[0].X[i]*Mc;
    Mc *= mc;
  }
  float Mrel = Mcat + Mcol;
  return (Mrel);
}

/* return calibrated magnitude from measure for given photcode */
float PhotCalTiny (MeasureTiny *thisone, AverageTiny *average, SecFilt *secfilt, MeasureTiny *measure, PhotCode *code, dvoMagClassType class) {

  int i; 

  if (code == NULL) return NAN;

  /* code must be the matching PRI/SEC code for this measurement or an equivalent ALT */
  int Np = photcodes[0].hashcode[thisone[0].photcode];
  if (Np == -1) return (NAN);
  PhotCode *myCode = &photcodes[0].code[Np];

  if (code->code != myCode->equiv) return (NAN);

  // if we are REF type, just get the right version and return
  if (myCode->type == PHOT_REF) {
    float Mraw = NAN;
    switch (class) {
      case MAG_CLASS_PSF:
	Mraw = thisone[0].M;
	break;
      case MAG_CLASS_KRON:
	// Mraw = thisone[0].Mkron;
	break;
      case MAG_CLASS_APER:
	// Mraw = thisone[0].Map;
	break;
      default:
	break;
    }
    return (Mraw);
  }

  float Mcal = PhotRelTiny (thisone, average, secfilt, class) + SCALE*code[0].C;

  float mc = PhotColorForCodeTiny (average, secfilt, measure, code);
  if (isnan(mc)) return (Mcal);
  mc -= SCALE*code[0].dX;

  double Mc = mc;
  float Mcol = 0;
  for (i = 0; i < code[0].Nc; i++) {
    Mcol += code[0].X[i]*Mc;
    Mc *= mc;
  }
  Mcal += Mcol;
  return (Mcal);
}

/***/
float PhotAveTiny (PhotCode *code, AverageTiny *average, SecFilt *secfilt, dvoMagClassType class, dvoMagSourceType source) {

  if (code == NULL) return NAN;

  int Ns = photcodes[0].hashNsec[code[0].code];
  if (Ns == -1) return (NAN);

  float Mave = NAN;
  switch (source) {
    case MAG_SRC_CHP:
      switch (class) {
	case MAG_CLASS_PSF:
	  Mave = secfilt[Ns].M;
	  break;
	case MAG_CLASS_KRON:
	  Mave = secfilt[Ns].Mkron;
	  break;
	case MAG_CLASS_APER:
	  Mave = secfilt[Ns].Map;
	  break;
	default:
	  break;
      }
      break;
    case MAG_SRC_WRP:
      switch (class) {
	case MAG_CLASS_PSF:
	  Mave = secfilt[Ns].MpsfWrp;
	  break;
	case MAG_CLASS_KRON:
	  Mave = secfilt[Ns].MkronWrp;
	  break;
	case MAG_CLASS_APER:
	  Mave = secfilt[Ns].MapWrp;
	  break;
	default:
	  break;
      }
      break;
    case MAG_SRC_STK:
      switch (class) {
	case MAG_CLASS_PSF:
	  Mave = secfilt[Ns].MpsfStk;
	  break;
	case MAG_CLASS_KRON:
	  Mave = secfilt[Ns].MkronStk;
	  break;
	case MAG_CLASS_APER:
	  Mave = secfilt[Ns].MapStk;
	  break;
	default:
	  break;
      }
      break;
    default:
      break;
  }
  return (Mave);
}

/* return calibrated magnitude from average/secfilt for given photcode */
float PhotRefTiny (PhotCode *code, AverageTiny *average, SecFilt *secfilt, MeasureTiny *measure, dvoMagClassType class, dvoMagSourceType source) {

  int i;

  float Mave = PhotAveTiny (code, average, secfilt, class, source);
  if (isnan(Mave)) return NAN;

  // correct for relative zero-point
  float Mref = Mave + SCALE*code[0].C;

  float mc = PhotColorForCodeTiny (average, secfilt, measure, code);
  if (isnan(mc)) return (Mref);
  mc -= SCALE*code[0].dX;

  // correct for color terms
  double Mc = mc;
  float Mcol = 0;
  for (i = 0; i < code[0].Nc; i++) {
    Mcol += code[0].X[i]*Mc;
    Mc *= mc;    /* the 0.001 is needed for higher order terms to keep the units mag = mag^n */
  }
  Mref += Mcol;
  return (Mref);
}

/* color term may not use DEP magnitude */
float PhotColorForCodeTiny (AverageTiny *average, SecFilt *secfilt, MeasureTiny *measure, PhotCode *code) {

  int i, Ns1, Ns2, Ns;
  float m1, m2, mc;
  PhotCode *color;

  m1 = m2 = NAN;

  if (measure == NULL) {
    Ns1 = photcodes[0].hashNsec[code[0].c1];
    Ns2 = photcodes[0].hashNsec[code[0].c2];
  
    m1 = (Ns1 == -1) ? NAN : secfilt[Ns1].M;
    m2 = (Ns2 == -1) ? NAN : secfilt[Ns2].M;
    mc = (isnan(m1) || isnan(m2)) ? NAN : (m1 - m2);
    return (mc);
  }

  /* find magnitude matching first color term */
  color = GetPhotcodebyCode (code[0].c1);
  if (color == NULL) return (NAN);
  if (color[0].type == PHOT_REF) {
    for (i = 0; (i < average[0].Nmeasure) && (isnan(m1)); i++) {
      if (measure[i].photcode == color[0].code) {
	m1 = measure[i].M;
      }
    }
  } else {
    Ns = photcodes[0].hashNsec[color[0].code];
    m1 = (Ns == -1) ? NAN : secfilt[Ns].M;
  }	

  /* find magnitude matching second color term */
  color = GetPhotcodebyCode (code[0].c2);
  if (color == NULL) return (NAN);
  if (color[0].type == PHOT_REF) {
    for (i = 0; (i < average[0].Nmeasure) && (isnan(m2)); i++) {
      if (measure[i].photcode == color[0].code) {
	m2 = measure[i].M;
      }
    }
  } else {
    Ns = photcodes[0].hashNsec[color[0].code];
    m2 = (Ns == -1) ? NAN : secfilt[Ns].M;
  }	
  mc = (isnan(m1) || isnan(m2)) ? NAN : (m1 - m2);
  return (mc);
}

float PhotdMTiny (PhotCode *code, AverageTiny *average, SecFilt *secfilt) {

  int Ns;
  float dM;

  if (code == NULL) return NAN;

  Ns = photcodes[0].hashNsec[code[0].code];
  dM  = (Ns == -1) ? NAN : secfilt[Ns].dM;
  return (dM);
}

// Xm is now (2014.07.03) stored as the chisq except in dvo formats which use as short
float PhotXmTiny (PhotCode *code, AverageTiny *average, SecFilt *secfilt) {

  int Ns;
  float Xm;

  if (code == NULL) return NAN;

  Ns = photcodes[0].hashNsec[code[0].code];
  Xm = (Ns == -1) ? NAN : secfilt[Ns].Mchisq;
  return (Xm);
}

/* given a photcode pair c1 & c2, return the color of this star (NaN if not found) */
int PhotColorTiny (AverageTiny *average, SecFilt *secfilt, MeasureTiny *measure, int c1, int c2, double *color) {

  int i, Ns;
  double M1, M2, dM;
  PhotCode *code;
  
  code = GetPhotcodebyCode (c1);
  if (code == NULL) return (FALSE);
  if (code[0].type == PHOT_REF) {
    for (i = 0; i < average[0].Nmeasure; i++) {
      if (measure[i].photcode == c1) {
	M1 = measure[i].M;
	goto filter1;
      }
    }	
    return (FALSE);
  } else {
    Ns = photcodes[0].hashNsec[code[0].code];
    M1 = (Ns == -1) ? NAN : secfilt[Ns].M;
  }	

filter1:
  code = GetPhotcodebyCode (c2);
  if (code == NULL) return (FALSE);
  if (code[0].type == PHOT_REF) {
    for (i = 0; i < average[0].Nmeasure; i++) {
      if (measure[i].photcode == c2) {
	M2 = measure[i].M;
	goto filter2;
      }
    }	
    return (FALSE);
  } else {
    Ns = photcodes[0].hashNsec[code[0].code];
    M2 = (Ns == -1) ? NAN : secfilt[Ns].M;
  }	
  
filter2:

  dM = M1 - M2;
  *color = dM;
  
  return (TRUE);
}
/***********************************************/


/* photcode table should have the following format: 

# code name     type  zero  airmass  offset  c1 c2  slope  <color>  primary
1    B        pri   24.0  0.15     -       -  -   -      -        -
2    B        pri   24.0  0.15     -       -  -   -      -        -
3    B1       sec   22.5  0.18     0.15    1  2   0.10   0.50     1
1000 USNO_B   ref   -     -        -       -  -   -      -        -

*/


/*
  Nc1 = photcodes[0].code[Np].c1;
  Ns1 = photcodes[0].hashNsec[Nc1];

  Nc2 = photcodes[0].code[Np].c2;
  Ns2 = photcodes[0].hashNsec[Nc2];

  Xlam = photcodes[0].code[Np].X[0];
  Klam = photcodes[0].code[Np].K;
  
  m1 = (Ns1 == -1) ? average[0].M : secfilt[Ns1].M;
  m2 = (Ns2 == -1) ? average[0].M : secfilt[Ns2].M;
*/

/*** lensing *********************************************************************************/

# define LENSFIELD(NAME) \
  float LensValue_##NAME (PhotCode *code, Lensobj *lensobj) { \
  if (code == NULL) return NAN; \
  int Ns = photcodes->hashNsec[code->code]; \
  float value = (Ns == -1) ? NAN : lensobj[Ns].NAME; \
  return (value); \
}

LENSFIELD(X11_sm_obj);
LENSFIELD(X12_sm_obj);
LENSFIELD(X22_sm_obj);
LENSFIELD(E1_sm_obj);
LENSFIELD(E2_sm_obj);

LENSFIELD(X11_sh_obj);
LENSFIELD(X12_sh_obj);
LENSFIELD(X22_sh_obj);
LENSFIELD(E1_sh_obj);
LENSFIELD(E2_sh_obj);

LENSFIELD(X11_sm_psf);
LENSFIELD(X12_sm_psf);
LENSFIELD(X22_sm_psf);
LENSFIELD(E1_sm_psf);
LENSFIELD(E2_sm_psf);

LENSFIELD(X11_sh_psf);
LENSFIELD(X12_sh_psf);
LENSFIELD(X22_sh_psf);
LENSFIELD(E1_sh_psf);
LENSFIELD(E2_sh_psf);
