Signed-off-by: Basil Bruhn <basil.bruhn@psi.ch>
This commit is contained in:
2025-11-17 10:14:53 +01:00
parent ecfb26bd64
commit 6c1ead93f4
5 changed files with 2357 additions and 0 deletions

16
CHANGES Normal file
View File

@@ -0,0 +1,16 @@
This is a list of changes to pphqq.f since June 2000:
June 23 2015: version 1.10:
- Link to LHAPDF implemented
- input alpha_s(M_Z) instead of Lambda_n
September 12 2007: - Link to MRST2001 PDFs corrected due to errorneous
interchange of u and d. (thanks to M. Ciccolini)
April 12 2005: - Link to CTEQ6 and MRST2001 PDFs
(NGROUP = -1: CTEQ6 -2: MRST2001)
June 2 2003: - Reading in the mu parameter which was missing!
June 23 2000: - Insertion of missing scale variations for scales in units
of Q (thanks to S. Dawson)

30
makefile Normal file
View File

@@ -0,0 +1,30 @@
# Makro-Definitions:
OBJS = pphqq.o Cteq61Pdf.o
LIBS = /afs/psi.ch/user/s/spira/data_nobackup/LHAPDF/lib/libLHAPDF.so
#FFLAGS= -fno-emulate-complex -fno-automatic -ffixed-line-length-none -ffast-math -march=pentiumpro -malign-double -Wall -fno-silent
#LIBS = $(CERN)/libpdflib804.a $(CERN)/libpawlib.a $(CERN)/libgrafX11.a $(CERN)/libpacklib.a $(CERN)/libmathlib.a $(CERN)/libkernlib.a
#LIBS = `cernlib -v pro pdflib804,pawlib,graflib/X11,packlib,mathlib,kernlib`
#FC=f77
#FC=g77
#FFLAGS= -pc 64 -g77libs
#FC=pgf77
FC=gfortran
# Commands:
.f.o:
$(FC) -c $(FFLAGS) $*.f
pphqq: $(OBJS)
$(FC) $(FFLAGS) $(OBJS) $(LIBS) -o run
clean:
rm -f $(OBJS)

2267
pphqq.f Normal file

File diff suppressed because it is too large Load Diff

44
pphqq.in Normal file
View File

@@ -0,0 +1,44 @@
MSSM = 0
TGBET = 3.D0
HIGGS = 1
MA1 = 125.D0
MA2 = 200.D0
NA = 1
PP/PPBAR = 0
ENERGY = 14000.D0
MH=0/Q=1 = 1
SCALE1 = 1.0D0
SCALE2 = 1.0D0
NSCALE = 1
EPSILON = 1.D-8
NGROUP = 0
NSET = 0
MS0/DIS1 = 0
PDFPATH = Grids
PDFNAME = MSTW2008nlo68cl.LHgrid
IPOINT1 = 10000
IPOINT = 100000
ITERAT = 5
NPRN = 10
SUBST12Z = 1
MC = 1.40D0
MB = 4.75D0
MT = 173.2D0
ALS(MZ) = 0.12018D0
LOOP = 2
MW = 80.41D0
MZ = 91.187D0
SW2 = 0.2315D0
GF = 1.16639D-5
MPROTON = 0.93827231D0
Q0 = 2.D0
MSQ = 1000.D0
MUR = 1000.D0
AT = 0.D0
AB = 0.D0
MU = 0.D0

BIN
struc.tar.gz Normal file

Binary file not shown.