testXSfunctions.f90
No OneTemporary
Actions

Size

1 KB

Subscribers

None

testXSfunctions.f90
View Options

	! pgf90 -C ../../LEP-bound_zKW_3-12/theory_XS_SM_functions.f90 testXSfunctions.f90 -o testXSfunctions.exe
	! gfortran ../HiggsBounds_KW/theory_XS_SM_functions.F90 testXSfunctions.f90 -o testXSfunctions.exe

	program testXSfunctions

	use theory_XS_SM_functions
	implicit none
	integer i,ifin
	double precision :: Mh

	!open(21,file='XS_qq_HW_fromfunction.dat')
	!open(22,file='XS_qq_HZ_fromfunction.dat')
	!open(23,file='XS_gg_H_fromfunction.dat')
	!open(24,file='XS_bb_H_fromfunction.dat')
	!open(25,file='XS_gg_H_9713_fromfunction.dat')
	!open(26,file='XS_ttH_fromfunction.dat')
	!open(27,file='XS_gg_H_9674_fromfunction.dat')
	open(28,file='XS_vbf_fromfunction.dat')

	ifin=420
	do i=1,ifin
	Mh=90.D0+dble(i-1)*(300.D0-90.D0)/dble(ifin)
	!write(,)i,Mh
	!write(21,*)Mh,XS_qq_HW_SM(Mh)
	!write(22,*)Mh,XS_qq_HZ_SM(Mh)
	!write(23,*)Mh,XS_gg_H_SM(Mh)
	!write(24,*)Mh,XS_bb_H_SM(Mh)
	!write(25,*)Mh,XS_gg_H_SM_9713(Mh)
	!write(26,*)Mh,XS_ttH_SM(Mh)
	!write(27,*)Mh,XS_gg_H_SM_9674(Mh)
	write(28,*)Mh,XS_vbf_SM(Mh)

	enddo

	!close(21)
	!close(22)
	!close(23)
	!close(24)
	!close(25)
	!close(26)
	!close(27)
	close(28)

	end program testXSfunctions