long2dbl
double long2dbl(long);
long2float(long *&F, float *&T) { *T++ = long2dbl(*F++); }
long2double(long *&F, double *&T) { *T++ = long2dbl(*F++); }