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	pam-fi	1.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