File indexing completed on 2024-04-06 12:13:38
0001
0002 subroutine uperror(wronginput)
0003 implicit double precision(a-h, o-z)
0004 implicit integer(i-n)
0005 common/counter/ibcstate,nev
0006 common/qqbar/iqqbar,iqcode
0007 common/coloct/ioctet
0008 logical wronginput
0009
0010
0011 if((ibcstate.gt.8).or.(ibcstate.lt.1)) then
0012 write(*,*) 'only eight s and p-wave states have been programmed!'
0013 wronginput=.true.
0014 endif
0015
0016 if((ibcstate.gt.2).and.(iqqbar.eq.1)) then
0017 write(*,*) 'p-wave states for q-\bar{q} has not been programmed!'
0018 wronginput=.true.
0019 endif
0020
0021 if((iqqbar.eq.1) .and. (ioctet.eq.1)) then
0022 write(*,'(a)')
0023 & 'the color-octet contribution from quark-antiquark annihilation'
0024 write(*,'(a)')
0025 & 'is small and has not been programmed for bc production !!!!!!!'
0026 wronginput=.true.
0027 end if
0028
0029 if(((ibcstate.eq.3).or.(ibcstate.eq.4).or.(ibcstate.eq.5).or.
0030 & (ibcstate.eq.6)) .and. (ioctet.eq.1)) then
0031 write(*,'(a)')
0032 & 'the color-octet contribution from p-wave states'
0033 write(*,'(a)')
0034 & 'is small and has not been programmed for bc production !!!!!!!'
0035 wronginput=.true.
0036 end if
0037
0038 end