source/readraw/fill_acq_head.F

      subroutine fill_acq_head
      include '../common/common_hbook.F'
      include '../common/common_io.F'
      include '../common/common_acq.F'
      include '../common/common_packet.F'
      
      R_header=R_header+1
      
      Rhead_counter = CPU_counter
      Rhead_obt = CPU_obt
      Rhead_wlen = CPU_pkt_len
c$$$      do i=1,Rhead_wlen
c$$$         Rhead_buffer(i) = iand(z'000000ff',buffer(i))
c$$$      enddo
      ip=1
      call getbytes(4,buffer,ip,RHD_stamp)
      call getbytes(1,buffer,ip,RHD_acq_mode)
      call getbytes(4,buffer,ip,RHD_obt_ts)
      call getbytes(4,buffer,ip,RHD_last_ts)
      call getbytes(1,buffer,ip,RHD_fav_ws)
      call getbytes(1,buffer,ip,RHD_eff_ws)
      call getbytes(4,buffer,ip,RHD_trigA)
      call getbytes(4,buffer,ip,RHD_trigB)
      call getbytes(1,buffer,ip,RHD_acq_after_calib)
      call getbytes(4,buffer,ip,RHD_trk_calib_used)
      call getbytes(4,buffer,ip,RHD_acq_build)
      call getbytes(1,buffer,ip,RHD_acq_var)
      call getbytes(1,buffer,ip,RHD_cal_dsp_mask)

      call HFNT(ntp_acq_head)

      return
      end
1	subroutine fill_acq_head
2	include '../common/common_hbook.F'
3	include '../common/common_io.F'
4	include '../common/common_acq.F'
5	include '../common/common_packet.F'
6
7	R_header=R_header+1
8
9	Rhead_counter = CPU_counter
10	Rhead_obt = CPU_obt
11	Rhead_wlen = CPU_pkt_len
12	c$$$ do i=1,Rhead_wlen
13	c$$$ Rhead_buffer(i) = iand(z'000000ff',buffer(i))
14	c$$$ enddo
15	ip=1
16	call getbytes(4,buffer,ip,RHD_stamp)
17	call getbytes(1,buffer,ip,RHD_acq_mode)
18	call getbytes(4,buffer,ip,RHD_obt_ts)
19	call getbytes(4,buffer,ip,RHD_last_ts)
20	call getbytes(1,buffer,ip,RHD_fav_ws)
21	call getbytes(1,buffer,ip,RHD_eff_ws)
22	call getbytes(4,buffer,ip,RHD_trigA)
23	call getbytes(4,buffer,ip,RHD_trigB)
24	call getbytes(1,buffer,ip,RHD_acq_after_calib)
25	call getbytes(4,buffer,ip,RHD_trk_calib_used)
26	call getbytes(4,buffer,ip,RHD_acq_build)
27	call getbytes(1,buffer,ip,RHD_acq_var)
28	call getbytes(1,buffer,ip,RHD_cal_dsp_mask)
29
30	call HFNT(ntp_acq_head)
31
32	return
33	end