Page MenuHomeHEPForge
Files F7879756

No OneTemporary
Actions

View Options

Index: tags/HiggsBounds-3.1.0beta/HiggsBounds_KW/example_programs/HBSLHAinputblocksfromFH.f90
===================================================================
--- tags/HiggsBounds-3.1.0beta/HiggsBounds_KW/example_programs/HBSLHAinputblocksfromFH.f90 (revision 101)
+++ tags/HiggsBounds-3.1.0beta/HiggsBounds_KW/example_programs/HBSLHAinputblocksfromFH.f90 (revision 102)
@@ -1,87 +0,0 @@
-
-!******************************************************
-program HBSLHAinputblocksfromFH
-!
-! Run with
-! ./HBSLHAinputblocksfromFH <path to SLHA file>
-! where <path to SLHA file> is the path to the SLHA file providing the
-! input for FeynHiggs
-!
-! The program will create a new file, called
-! <path to SLHA file>.fh
-! which will contain the blocks from the original SLHA file and
-! the results from FeynHiggs to the SLHA file
-! in the standard SLHA format, but also the blocks
-! HiggsBoundsInputHiggsCouplingsFermions
-! and
-! HiggsBoundsInputHiggsCouplingsBosons
-! which are defined in the HiggsBounds manual.
-!
-!******************************************************
- use extra_bits_for_SLHA, only : addcouplingsblocktoSLHAfile
- use usefulbits, only : sqcouplratio,np,Hneut,Hplus,allocate_sqcouplratio_parts
-
- implicit none
-
- character(len=100) :: infile,outfile
- type(sqcouplratio) :: gsq(1)
-
- character(LEN=300) :: temp
- integer :: number_args
-#ifndef NAGf90Fortran
- integer :: iargc
-#endi
-
- integer :: i
-
- number_args = IARGC()
-
- if( number_args .ne. 1)then
- write(*,*)'!******************************************************'
- write(*,*)' '
- write(*,*)' Run with'
- write(*,*)' ./HBSLHAinputblocksfromFH <path to SLHA file>'
- write(*,*)' where <path to SLHA file> is the path to the SLHA file providing the'
- write(*,*)' input for FeynHiggs'
- write(*,*)''
- write(*,*)' The program will create a new file, called'
- write(*,*)' <path to SLHA file>.fh'
- write(*,*)' which will contain the blocks from the original SLHA file and'
- write(*,*)' the results from FeynHiggs to the SLHA file '
- write(*,*)' in the standard SLHA format, but also the blocks'
- write(*,*)' HiggsBoundsInputHiggsCouplingsFermions'
- write(*,*)' and'
- write(*,*)' HiggsBoundsInputHiggsCouplingsBosons'
- write(*,*)' which are defined in the HiggsBounds manual.'
- write(*,*)''
- write(*,*)'!******************************************************'
-
- stop "Incorrect number of arguments given to HBSLHAinputblocksfromFH"
- endif
-
- ! Read arguments into text strings.
- i=1
- temp=""
- call GETARG(i,temp)
- infile = ""
- infile = trim(temp)
-
- outfile=trim(adjustl(infile))//'.fh'
-
- np=0
- np(Hneut)=3
- np(Hplus)=1
- call allocate_sqcouplratio_parts(gsq)
-
- call createSLHAfilewithFHwithoutHBinputblocks(infile,outfile,&
- & gsq(1)%hjbb_s,gsq(1)%hjbb_p,gsq(1)%hjtoptop_s,gsq(1)%hjtoptop_p, &
- & gsq(1)%hjtautau_s,gsq(1)%hjtautau_p, &
- & gsq(1)%hjWW,gsq(1)%hjZZ, &
- & gsq(1)%hjgg,gsq(1)%hjggZ,gsq(1)%hjhiZ )
-
- call addcouplingsblocktoSLHAfile(outfile,gsq(1))
-
-end program HBSLHAinputblocksfromFH
-
-
-
Index: tags/HiggsBounds-3.1.0beta/HiggsBounds_KW/example_programs/HBSLHAinputblocksfromFH.F90
===================================================================
--- tags/HiggsBounds-3.1.0beta/HiggsBounds_KW/example_programs/HBSLHAinputblocksfromFH.F90 (revision 0)
+++ tags/HiggsBounds-3.1.0beta/HiggsBounds_KW/example_programs/HBSLHAinputblocksfromFH.F90 (revision 102)
@@ -0,0 +1,87 @@
+
+!******************************************************
+program HBSLHAinputblocksfromFH
+!
+! Run with
+! ./HBSLHAinputblocksfromFH <path to SLHA file>
+! where <path to SLHA file> is the path to the SLHA file providing the
+! input for FeynHiggs
+!
+! The program will create a new file, called
+! <path to SLHA file>.fh
+! which will contain the blocks from the original SLHA file and
+! the results from FeynHiggs to the SLHA file
+! in the standard SLHA format, but also the blocks
+! HiggsBoundsInputHiggsCouplingsFermions
+! and
+! HiggsBoundsInputHiggsCouplingsBosons
+! which are defined in the HiggsBounds manual.
+!
+!******************************************************
+ use extra_bits_for_SLHA, only : addcouplingsblocktoSLHAfile
+ use usefulbits, only : sqcouplratio,np,Hneut,Hplus,allocate_sqcouplratio_parts
+
+ implicit none
+
+ character(len=100) :: infile,outfile
+ type(sqcouplratio) :: gsq(1)
+
+ character(LEN=300) :: temp
+ integer :: number_args
+#ifndef NAGf90Fortran
+ integer :: iargc
+#endif
+
+ integer :: i
+
+ number_args = IARGC()
+
+ if( number_args .ne. 1)then
+ write(*,*)'!******************************************************'
+ write(*,*)' '
+ write(*,*)' Run with'
+ write(*,*)' ./HBSLHAinputblocksfromFH <path to SLHA file>'
+ write(*,*)' where <path to SLHA file> is the path to the SLHA file providing the'
+ write(*,*)' input for FeynHiggs'
+ write(*,*)''
+ write(*,*)' The program will create a new file, called'
+ write(*,*)' <path to SLHA file>.fh'
+ write(*,*)' which will contain the blocks from the original SLHA file and'
+ write(*,*)' the results from FeynHiggs to the SLHA file '
+ write(*,*)' in the standard SLHA format, but also the blocks'
+ write(*,*)' HiggsBoundsInputHiggsCouplingsFermions'
+ write(*,*)' and'
+ write(*,*)' HiggsBoundsInputHiggsCouplingsBosons'
+ write(*,*)' which are defined in the HiggsBounds manual.'
+ write(*,*)''
+ write(*,*)'!******************************************************'
+
+ stop "Incorrect number of arguments given to HBSLHAinputblocksfromFH"
+ endif
+
+ ! Read arguments into text strings.
+ i=1
+ temp=""
+ call GETARG(i,temp)
+ infile = ""
+ infile = trim(temp)
+
+ outfile=trim(adjustl(infile))//'.fh'
+
+ np=0
+ np(Hneut)=3
+ np(Hplus)=1
+ call allocate_sqcouplratio_parts(gsq)
+
+ call createSLHAfilewithFHwithoutHBinputblocks(infile,outfile,&
+ & gsq(1)%hjbb_s,gsq(1)%hjbb_p,gsq(1)%hjtoptop_s,gsq(1)%hjtoptop_p, &
+ & gsq(1)%hjtautau_s,gsq(1)%hjtautau_p, &
+ & gsq(1)%hjWW,gsq(1)%hjZZ, &
+ & gsq(1)%hjgg,gsq(1)%hjggZ,gsq(1)%hjhiZ )
+
+ call addcouplingsblocktoSLHAfile(outfile,gsq(1))
+
+end program HBSLHAinputblocksfromFH
+
+
+
Index: trunk/HiggsBounds_KW/configure_kwlaptop
===================================================================
--- trunk/HiggsBounds_KW/configure_kwlaptop (revision 101)
+++ trunk/HiggsBounds_KW/configure_kwlaptop (revision 102)
@@ -1,102 +1,102 @@
# settings when running HB on KW's computer. Everyone apart from me can safely ignore this file.
- F90C = gfortran
- F77C = gfortran
- F90FLAGS = -fbounds-check -Wall -W -fixed-line-length-none
+ #F90C = gfortran
+ #F77C = gfortran
+ #F90FLAGS = -fbounds-check -Wall -W -fixed-line-length-none
#F90FLAGS = -fbounds-check -Wall -W -fopenmp
##F90FLAGS = -O3 -fopenmp
##F90FLAGS = -fopenmp
##F90FLAGS = -pg # can then use gprof ./programname to look at how efficient program is
# use the compiler flag -fopenmp for parallel processing
#F90C = g95
#F77C = g95
#F90FLAGS = -fbounds-check -ffree-line-length-huge
#F90C = pgf90
#F77C = pgf90
#F90FLAGS = -C -Ktrap=fp -Mbounds
#F90C = f95
#F77C = f95
#F90FLAGS = -C
- #F90C = ifort
- #F77C = ifort
- #F90FLAGS = -C
+ F90C = ifort
+ F77C = ifort
+ F90FLAGS = -C
# note, when using ifort with Oliver's code, need flag -extend_source so that the line length can be long
# * work computer *
#FHINCLUDE = -I/users/williams/Packages/FeynHiggs-2.6.4_13.10.08/x86_64-linux-sigmundsberg/include
#FHLIBS = -L/users/williams/Packages/FeynHiggs-2.6.4_13.10.08/x86_64-linux-sigmundsberg/lib -lFH -lg2c
#CPSUPERHLIBS = -L/users/williams/Packages/CPsuperH2.2_07.07.2010 -lcpsuperh2
#laptop:
FHINCLUDE = -I/home/Karina/Work/Packages/FeynHiggs-2.8.0-16.05.11/i386-linux/include
FHLIBS = -L/home/Karina/Work/Packages/FeynHiggs-2.8.0-16.05.11/i386-linux/lib -lFH
#FHINCLUDE = -I/home/Karina/Work/Packages/FeynHiggs-2.7.1-30.07.10/i386-linux/include
#FHLIBS = -L/home/Karina/Work/Packages/FeynHiggs-2.7.1-30.07.10/i386-linux/lib -L/usr/lib/gcc/i386-redhat-linux/3.4.6/ -lFH -lg2c
CPSUPERHLIBS = -L/home/Karina/Work/Packages/CPsuperH2.2_02.08.10_gfortran -lcpsuperh2
##CPSUPERHLIBS = -L/home/Karina/Work/Packages/CPsuperH2_g95 -lcpsuperh2
#laptop, but using FeynHiggs compiled with g77
#FHINCLUDE = -I/home/Karina/Work/Packages/FeynHiggs-2.6.4_13.10.08_g77/i386-linux/include
###all of these seem to work with gfortran.... how to choose?
#FHLIBS = -L/home/Karina/Work/Packages/FeynHiggs-2.6.4_13.10.08_g77/i386-linux/lib -L/usr/lib/gcc/i386-redhat-linux/3.4.6 -lFH -lg2c
##FHLIBS = -L/home/Karina/Work/Packages/FeynHiggs-2.6.4_13.10.08_g77/i386-linux/lib -lFH /usr/lib/libg2c.so.0
##FHLIBS = -L/home/Karina/Work/Packages/FeynHiggs-2.6.4_13.10.08_g77/i386-linux/lib -lFH /usr/lib/libg2c.so.0.0.0
##FHLIBS = -L/home/Karina/Work/Packages/FeynHiggs-2.6.4_13.10.08_g77/i386-linux/lib -lFH /usr/lib/gcc/i386-redhat-linux/3.4.6/libg2c.so
#CPSUPERHLIBS = -L/home/Karina/Work/Packages/CPsuperH2_g77 -lcpsuperh2 -L/usr/lib/gcc/i386-redhat-linux/3.4.6 -lg2c
##CPSUPERHLIBS = -L/home/Karina/Work/Packages/CPsuperH2_g77 -lcpsuperh2 /usr/lib/libg2c.so.0
##CPSUPERHLIBS = -L/home/Karina/Work/Packages/CPsuperH2_g77 -lcpsuperh2 /usr/lib/libg2c.so.0.0.0
##CPSUPERHLIBS = -L/home/Karina/Work/Packages/CPsuperH2_g77 -lcpsuperh2 /usr/lib/gcc/i386-redhat-linux/3.4.6/libg2c.so
##n.b.
##bash-3.2$ locate libg2c
##/usr/lib/libg2c.so.0
##/usr/lib/libg2c.so.0.0.0
##/usr/lib/gcc/i386-redhat-linux/3.4.6/libg2c.a
##/usr/lib/gcc/i386-redhat-linux/3.4.6/libg2c.so
## and /usr/lib/libg2c.so.0 is a link to libg2c.so.0.0.0
# *NOTE* Actually h1-photon-photon coupling was NAN if I tried to use cpsuperh.a compiled with g77 together with e.g.
#CPSUPERHLIBS = -L/home/Karina/Work/Packages/CPsuperH2 -L/usr/lib/gcc/i386-redhat-linux/3.4.6 -lcpsuperh2 -lg2c
#so I had to switch back to using cpsuperh compiled with gfortran (even though compiling with gfortran gives lots of error msgs)
#ippp
#use pgf90 with
#FHINCLUDE = -I/mt/home/dph3kw/.Mathematica/Applications/FeynHiggs-2.6.4-09.07.08/i386-linux/include
#FHLIBS = -L/mt/home/dph3kw/.Mathematica/Applications/FeynHiggs-2.6.4-09.07.08/i386-linux/lib -lFH
#if using the NAG compiler, you need the compiler flag -DNAGf90Fortran
#because the subroutines flush,iargc,getarg need to use modules
#caution: the use of the NAG compiler is unsupported
#------------------------------
# If you wish to use HiggsBounds in conjunction with FeynHiggs or CPsuperH,
# make sure these paths indicate where you've stored these packages on your system,
# for example:
#FHINCLUDE = -I/blah/blah/FeynHiggs-2.6.4/i586-linux/include
#FHLIBS = -L/blah/blah/FeynHiggs-2.6.4/i586-linux/lib -lFH
#CPSUPERHLIBS = -L/blah/blah/CPsuperH2 -lcpsuperh2
# Note that care must be taken to ensure that consistent compilers are used
# If you get error messages similar to
# ... undefined reference to initialize_higgsbounds__...
# and the paths the libraries are correct, it's a good idea to check
# that the same compilers are used for each package.
# (you may be able to work around this
# e.g. if FeynHiggs was compiled with g77 it may be possible to compile HiggsBounds
# with gfortran and add -lg2c to the end of the variable FHLIBS)
#-----------------------------
HBLIBS = -L./ -lHB
EXE = HiggsBounds
#-----------------------------
USECHISQMODS = \$(CHISQMODS)
ADDITIONALDEFINE = -DenableCHISQ
# --- end defs by configure ---
Index: trunk/HiggsBounds_KW/example_programs/HBSLHAinputblocksfromFH.f90
===================================================================
--- trunk/HiggsBounds_KW/example_programs/HBSLHAinputblocksfromFH.f90 (revision 101)
+++ trunk/HiggsBounds_KW/example_programs/HBSLHAinputblocksfromFH.f90 (revision 102)
@@ -1,90 +0,0 @@
-
-!******************************************************
-program HBSLHAinputblocksfromFH
-!
-! Run with
-! ./HBSLHAinputblocksfromFH <path to SLHA file>
-! where <path to SLHA file> is the path to the SLHA file providing the
-! input for FeynHiggs
-!
-! The program will create a new file, called
-! <path to SLHA file>.fh
-! which will contain the blocks from the original SLHA file and
-! the results from FeynHiggs to the SLHA file
-! in the standard SLHA format, but also the blocks
-! HiggsBoundsInputHiggsCouplingsFermions
-! and
-! HiggsBoundsInputHiggsCouplingsBosons
-! which are defined in the HiggsBounds manual.
-!
-!******************************************************
- use extra_bits_for_SLHA, only : addcouplingsblocktoSLHAfile
- use usefulbits, only : sqcouplratio,np,Hneut,Hplus,allocate_sqcouplratio_parts
-#ifdef NAGf90Fortran
- use F90_UNIX_ENV, only : iargc,getarg
-#endif
-
- implicit none
-
- character(len=100) :: infile,outfile
- type(sqcouplratio) :: gsq(1)
-
- character(LEN=300) :: temp
- integer :: number_args
-#ifndef NAGf90Fortran
- integer :: iargc
-#endi
-
- integer :: i
-
- number_args = IARGC()
-
- if( number_args .ne. 1)then
- write(*,*)'!******************************************************'
- write(*,*)' '
- write(*,*)' Run with'
- write(*,*)' ./HBSLHAinputblocksfromFH <path to SLHA file>'
- write(*,*)' where <path to SLHA file> is the path to the SLHA file providing the'
- write(*,*)' input for FeynHiggs'
- write(*,*)''
- write(*,*)' The program will create a new file, called'
- write(*,*)' <path to SLHA file>.fh'
- write(*,*)' which will contain the blocks from the original SLHA file and'
- write(*,*)' the results from FeynHiggs to the SLHA file '
- write(*,*)' in the standard SLHA format, but also the blocks'
- write(*,*)' HiggsBoundsInputHiggsCouplingsFermions'
- write(*,*)' and'
- write(*,*)' HiggsBoundsInputHiggsCouplingsBosons'
- write(*,*)' which are defined in the HiggsBounds manual.'
- write(*,*)''
- write(*,*)'!******************************************************'
-
- stop "Incorrect number of arguments given to HBSLHAinputblocksfromFH"
- endif
-
- ! Read arguments into text strings.
- i=1
- temp=""
- call GETARG(i,temp)
- infile = ""
- infile = trim(temp)
-
- outfile=trim(adjustl(infile))//'.fh'
-
- np=0
- np(Hneut)=3
- np(Hplus)=1
- call allocate_sqcouplratio_parts(gsq)
-
- call createSLHAfilewithFHwithoutHBinputblocks(infile,outfile,&
- & gsq(1)%hjbb_s,gsq(1)%hjbb_p,gsq(1)%hjtoptop_s,gsq(1)%hjtoptop_p, &
- & gsq(1)%hjtautau_s,gsq(1)%hjtautau_p, &
- & gsq(1)%hjWW,gsq(1)%hjZZ, &
- & gsq(1)%hjgg,gsq(1)%hjggZ,gsq(1)%hjhiZ )
-
- call addcouplingsblocktoSLHAfile(outfile,gsq(1))
-
-end program HBSLHAinputblocksfromFH
-
-
-
Index: trunk/HiggsBounds_KW/example_programs/HBSLHAinputblocksfromFH.F90
===================================================================
--- trunk/HiggsBounds_KW/example_programs/HBSLHAinputblocksfromFH.F90 (revision 0)
+++ trunk/HiggsBounds_KW/example_programs/HBSLHAinputblocksfromFH.F90 (revision 102)
@@ -0,0 +1,90 @@
+
+!******************************************************
+program HBSLHAinputblocksfromFH
+!
+! Run with
+! ./HBSLHAinputblocksfromFH <path to SLHA file>
+! where <path to SLHA file> is the path to the SLHA file providing the
+! input for FeynHiggs
+!
+! The program will create a new file, called
+! <path to SLHA file>.fh
+! which will contain the blocks from the original SLHA file and
+! the results from FeynHiggs to the SLHA file
+! in the standard SLHA format, but also the blocks
+! HiggsBoundsInputHiggsCouplingsFermions
+! and
+! HiggsBoundsInputHiggsCouplingsBosons
+! which are defined in the HiggsBounds manual.
+!
+!******************************************************
+ use extra_bits_for_SLHA, only : addcouplingsblocktoSLHAfile
+ use usefulbits, only : sqcouplratio,np,Hneut,Hplus,allocate_sqcouplratio_parts
+#ifdef NAGf90Fortran
+ use F90_UNIX_ENV, only : iargc,getarg
+#endif
+
+ implicit none
+
+ character(len=100) :: infile,outfile
+ type(sqcouplratio) :: gsq(1)
+
+ character(LEN=300) :: temp
+ integer :: number_args
+#ifndef NAGf90Fortran
+ integer :: iargc
+#endif
+
+ integer :: i
+
+ number_args = IARGC()
+
+ if( number_args .ne. 1)then
+ write(*,*)'!******************************************************'
+ write(*,*)' '
+ write(*,*)' Run with'
+ write(*,*)' ./HBSLHAinputblocksfromFH <path to SLHA file>'
+ write(*,*)' where <path to SLHA file> is the path to the SLHA file providing the'
+ write(*,*)' input for FeynHiggs'
+ write(*,*)''
+ write(*,*)' The program will create a new file, called'
+ write(*,*)' <path to SLHA file>.fh'
+ write(*,*)' which will contain the blocks from the original SLHA file and'
+ write(*,*)' the results from FeynHiggs to the SLHA file '
+ write(*,*)' in the standard SLHA format, but also the blocks'
+ write(*,*)' HiggsBoundsInputHiggsCouplingsFermions'
+ write(*,*)' and'
+ write(*,*)' HiggsBoundsInputHiggsCouplingsBosons'
+ write(*,*)' which are defined in the HiggsBounds manual.'
+ write(*,*)''
+ write(*,*)'!******************************************************'
+
+ stop "Incorrect number of arguments given to HBSLHAinputblocksfromFH"
+ endif
+
+ ! Read arguments into text strings.
+ i=1
+ temp=""
+ call GETARG(i,temp)
+ infile = ""
+ infile = trim(temp)
+
+ outfile=trim(adjustl(infile))//'.fh'
+
+ np=0
+ np(Hneut)=3
+ np(Hplus)=1
+ call allocate_sqcouplratio_parts(gsq)
+
+ call createSLHAfilewithFHwithoutHBinputblocks(infile,outfile,&
+ & gsq(1)%hjbb_s,gsq(1)%hjbb_p,gsq(1)%hjtoptop_s,gsq(1)%hjtoptop_p, &
+ & gsq(1)%hjtautau_s,gsq(1)%hjtautau_p, &
+ & gsq(1)%hjWW,gsq(1)%hjZZ, &
+ & gsq(1)%hjgg,gsq(1)%hjggZ,gsq(1)%hjhiZ )
+
+ call addcouplingsblocktoSLHAfile(outfile,gsq(1))
+
+end program HBSLHAinputblocksfromFH
+
+
+

File Metadata

Mime Type
text/x-diff
Expires
Tue, Nov 19, 8:53 PM (1 d, 34 m)
Storage Engine
blob
Storage Format
Raw Data
Storage Handle
3806173
Default Alt Text
(18 KB)

Event Timeline