/* ---- Begining of FIELD HEADER. */
if (q_fh) {
uf_fh = uf+current_fh_index;
- uf_fh[1] = scale_factor = 100;
+ if (k != PH_INDEX) scale_factor = 100;
+ else scale_factor = 10;
+ uf_fh[1] = scale_factor;
uf_fh[2] = ray->h.range_bin1/1000.0;
uf_fh[3] = ray->h.range_bin1 - (1000*uf_fh[2]);
uf_fh[4] = ray->h.gate_size;