You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
26 lines
597 B
26 lines
597 B
!
|
|
! SPDX-License-Identifier: GPL-3.0-or-later
|
|
! Copyright (C) 2019-2022, respective authors of MCFM.
|
|
!
|
|
subroutine getbs(pjet,nbq,nba)
|
|
implicit none
|
|
include 'types.f'
|
|
include 'mxpart.f'
|
|
include 'jetlabel.f'
|
|
integer:: i,nbq,nba
|
|
real(dp):: pjet(mxpart,4)
|
|
|
|
c--- note: this function ASSUMES that there is at most one b-quark
|
|
c--- and one anti-b-quark, returning zero if there are less than this
|
|
|
|
nbq=0
|
|
nba=0
|
|
|
|
do i=1,jets
|
|
if (jetlabel(i) == 'bq') nbq=i+4
|
|
if (jetlabel(i) == 'ba') nba=i+4
|
|
enddo
|
|
|
|
return
|
|
end
|
|
|