<?xml version="1.0" encoding="iso-8859-1"?>
<!DOCTYPE Task SYSTEM "dial.dtd">

<Task id="101-1159">
  <result>
    <HbookResult merge="true">
      <Result state="READY" label="" event_count="0"/>
      <LogicalFile state="READONLY" name="empty">
        <FileCatalog type="NfsFileCatalog" name="/direct/usatlas+u/dladams/dialtest/0.60/grid3"/>
        <FileId name="/direct/usatlas+u/dladams/dialtest/0.60/grid3/cbnt.hbk"/>
      </LogicalFile>
    </HbookResult>
  </result>
  <Text name="cbnt.f" nline="22">
    <Line number="0" text="      integer function cbnt"/>
    <Line number="1" text="      include 'grid3_cbnt.inc'"/>
    <Line number="2" text=""/>
    <Line number="3" text="      write(*,*) idnevt, run, event"/>
    <Line number="4" text="      call hf1(1,1.0*run,1.0)"/>
    <Line number="5" text="      call hf1(2,1.0*event,1.0)"/>
    <Line number="6" text="      call hf1(3,1.0*event,1.0)"/>
    <Line number="7" text="      call hf1(4,1.0*event,1.0)"/>
    <Line number="8" text="      call hf1(5,1.0*event,1.0)"/>
    <Line number="9" text="      call hf1(6,1.0*event,1.0)"/>
    <Line number="10" text=""/>
    <Line number="11" text="* Electron info"/>
    <Line number="12" text="      write(*,*) eg_nc, ' electrons'"/>
    <Line number="13" text="      call hf1(101, 1.0*eg_nc, 1.0)"/>
    <Line number="14" text="      do i = 1, eg_nc"/>
    <Line number="15" text="      call hf1(102, eg_et(i), 1.0)"/>
    <Line number="16" text="      call hf1(103, eg_eta(i), 1.0)"/>
    <Line number="17" text="      call hf1(104, eg_phi(i), 1.0)"/>
    <Line number="18" text="      enddo"/>
    <Line number="19" text=""/>
    <Line number="20" text="      cbnt = 1"/>
    <Line number="21" text="      end"/>
  </Text>
</Task>

