#define EVP(val,nsample,f1,f2,q)\
FTEMP1 = (float)(nsample)/ *q;\
if( FTEMP1 > *(q+1)) {\
ITEMP1 = (1. - ((FTEMP1 - *(q+1))/ *(q+4))) * *(q+3);\
val = (*(f2+ITEMP1));\
}\
else\
if(FTEMP1 >= *(q+2)) val=1;\
else	{\
ITEMP1 = FTEMP1 * *(q+3)/ *(q+2);\
val = (*(f1+ITEMP1));\
}
