#define SETVAR(i,x) if((i)<NVAR)variables[(i)]=(x);
#define GETVAR(i) (i)<NVAR ? variables[(i)]:0.0