initial

Signed-off-by: Basil Bruhn <basil.bruhn@psi.ch>

CHANGES

@@ -0,0 +1,13 @@
+This is a list of changes to pphtt.f since June 2000:
+
+March 2 2006: - Typos in expressions for PT2SQ corrected
+                (thanks to P. Gras)
+
+April 12 2005: - Link to CTEQ6 and MRST2001 PDFs
+                 (NGROUP = -1: CTEQ6    -2: MRST2001)
+
+May 28 2003: - Change of the default scale choice to
+               mu0 = (M_Higgs + 2*M_Q)/2
+
+May 16 2002: - Addition of variable NQUARK to COMMON blocks
+               (thanks to T. Trefzger)

makefile

@@ -0,0 +1,26 @@
+# Makro-Definitions:
+
+OBJS = pphtt.o Cteq61Pdf.o mrst2001.o
+
+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`
+
+#FFLAGS= -fno-emulate-complex -fno-automatic -ffixed-line-length-none -ffast-math -march=pentiumpro -malign-double -Wall -fno-silent
+
+#FC=f77
+#FC=g77
+
+FFLAGS= -pc 64 -g77libs
+
+FC=pgf77
+
+# Commands:
+.f.o:
+	$(FC) -c $(FFLAGS) $*.f
+
+pphtt: $(OBJS)
+	$(FC) $(FFLAGS) $(OBJS) $(LIBS) -o run
+
+clean:
+	rm -f $(OBJS)

pphtt.in

@@ -0,0 +1,44 @@
+MSSM     = 0
+TGBET    = 3.D0
+HIGGS    = 1
+MA1      = 120.D0
+MA2      = 200.D0
+NA       = 9
+T=0/B=1  = 0
+MQ       = 178.D0
+YUKAWA   = 0
+ENERGY   = 14000.D0
+PP/PPBAR = 0
+PTCUT    = 0.D0
+YMIN     = -100.D0
+YMAX     = 100.D0
+
+SCALE1   = 1.0D0
+SCALE2   = 1.0D0
+NSCALE   = 1
+EPSILON  = 1.D-8
+
+NGROUP   = -1
+NSET     = 4
+
+IPOINT   = 100000
+ITERAT   = 5
+NPRN     = 10
+
+MC       = 1.40D0
+MB       = 4.60D0
+MT       = 178.D0
+N0       = 5
+LAMBDA   = 0.165D0
+LOOP     = 1
+GF       = 1.16639D-5
+MW       = 80.41D0
+MZ       = 91.187D0
+
+MSQ      = 1000.D0
+MUR      = 1000.D0
+AT       = 0.D0
+AB       = 0.D0
+MU       = 0.D0
+N0       = 5
+LAMBDA   = 0.226D0