FACT++  1.0
void palEcor ( float  rm,
float  dm,
int  iy,
int  id,
float  fd,
float *  rv,
float *  tl 
)