Back to home page

Project CMSSW displayed by LXR

 
 

    


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 c...error message.

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