Droplet_LTORC/include/macros.h

#ifndef MACRO_DEF
#define MACRO_DEF
//#define SUNDIALS_DOUBLE_PRECISION 1
//#define SUNDIALS_SINGLE_PRECISION 1

#define ZERO  RCONST(0.0)
#define HALF  RCONST(0.5)
#define ONE   RCONST(1.0)
#define TWO   RCONST(2.0)
#define THREE RCONST(3.0)
#define FOUR  RCONST(4.0)
#define TEN   RCONST(10.0)

#define ONE_ATM RCONST(101325.0)

/* In order to keep begin the index numbers from 1 instead of 0, we define
 * macros here. Also, we define macros to ease referencing various variables in
 * the sundials nvector.
 */
#define WORK(i) WORK[i-1]
#define XNEW(i) XNEW[i-1]

#define psi(i)   psidata[i-1]

#define T(i)    ydata[((i-1)*data->nvar)+data->nt]
#define Y(i,k)  ydata[((i-1)*data->nvar)+data->ny+k-1]
#define R(i)    ydata[((i-1)*data->nvar)+data->nr]
#define P(i)    ydata[((i-1)*data->nvar)+data->np]
#define Mdot(i) ydata[((i-1)*data->nvar)+data->nm]

#define Tdot(i)    ydotdata[((i-1)*data->nvar)+data->nt]
#define Ydot(i,k)  ydotdata[((i-1)*data->nvar)+data->ny+k-1]
#define Rdot(i)    ydotdata[((i-1)*data->nvar)+data->nr]
#define Pdot(i)    ydotdata[((i-1)*data->nvar)+data->np]
#define Mdotdot(i) ydotdata[((i-1)*data->nvar)+data->nm]

#define Tres(i)    resdata[((i-1)*data->nvar)+data->nt]
#define Yres(i,k)  resdata[((i-1)*data->nvar)+data->ny+k-1]
#define Rres(i)    resdata[((i-1)*data->nvar)+data->nr]
#define Pres(i)    resdata[((i-1)*data->nvar)+data->np]
#define Mdotres(i) resdata[((i-1)*data->nvar)+data->nm]

#define Tid(i)    iddata[((i-1)*data->nvar)+data->nt]
#define Yid(i,k)  iddata[((i-1)*data->nvar)+data->ny+k-1]
#define Rid(i)    iddata[((i-1)*data->nvar)+data->nr]
#define Pid(i)    iddata[((i-1)*data->nvar)+data->np]
#define Mdotid(i) iddata[((i-1)*data->nvar)+data->nm]

#define Yav(i) Yav[i-1]
#define YAvg(i) YAvg[i-1]
#define YVmhalf(i) YVmhalf[i-1]
#define YVphalf(i) YVphalf[i-1]
#define X(i) X[i-1]
#define Xp(i) Xp[i-1]
#define Xgradhalf(i) Xgradhalf[i-1]
#define XLeft(i) XLeft[i-1]
#define XRight(i) XRight[i-1]
#define gradX(i) gradX[i-1]
#define wdot(i) wdot[i-1]
#define enthalpy(i) enthalpy[i-1]
#define energy(i) energy[i-1]
#define Cp(i) Cp[i-1]

#define atolT(i)   atolvdata[((i-1)*data->nvar)+data->nt]
#define atolY(i,k)   atolvdata[((i-1)*data->nvar)+data->ny+k-1]
#define atolR(i)   atolvdata[((i-1)*data->nvar)+data->nr]
#define atolP(i)   atolvdata[((i-1)*data->nvar)+data->np]
#define atolMdot(i)   atolvdata[((i-1)*data->nvar)+data->nm]


#define constraintsY(i,k)   constraintsdata[((i-1)*data->nvar)+data->ny+k-1]
#define constraintsR(i)   constraintsdata[((i-1)*data->nvar)+data->nr]

/*Following marcos are defined to calculate the characteristic time-scale */
#define wdot_mole(i)    wdot_mole[i-1]
#define wdot_mass(i)    wdot_mass[i-1]
#define MW(i)         MW[i-1]
#define time_scale(i,k)    time_scale[(i-1)*data->nsp+k-1]
#define concentra(i)     concentra[i-1]


#endif