SARAH 4.14.2 & SPheno for THDM Model
Posted: 10. Sep 2019, 12:37
Hi,
Compiling SPheno for THDM model created by SARAH 4.14.2 leads to the following error:
gfortran -c -g -ffree-line-length-none -J../include -I../include InputOutput_THDM.f90
InputOutput_THDM.f90:4840:42:
Write(io_L,200) INT(Abs(PDGVG)),1._dp*Null, "VG"
1
Error: Symbol ‘null’ at (1) has no IMPLICIT type
Makefile:90: recipe for target '../lib/libSPhenoTHDM.a(InputOutput_THDM.o)' failed
make[2]: *** [../lib/libSPhenoTHDM.a(InputOutput_THDM.o)] Error 1
Since SARAH 4.14.1 doesn't have this problem with SPheno, I compared InputOutput_THDM.f90 files and the result was:
SARAH 4.14.1:
! Information needed by MadGraph
If (OutputForMG) Then
Write(io_L,200) INT(Abs(PDGVG)),0._dp, "VG"
Write(io_L,200) INT(Abs(PDGVP)),0._dp, "VP"
Write(io_L,200) INT(Abs(PDGVZ)),2.4952_dp, "VZ"
Write(io_L,200) INT(Abs(PDGVWm)),2.141_dp, "VWm"
Write(io_L,200) INT(Abs(PDGFv(1))),0._dp, "Fv_1"
Write(io_L,200) INT(Abs(PDGFv(2))),0._dp, "Fv_2"
Write(io_L,200) INT(Abs(PDGFv(3))),0._dp, "Fv_3"
End if
SARAH 4.14.2:
! Information needed by MadGraph
If (OutputForMG) Then
Write(io_L,200) INT(Abs(PDGVG)),1._dp*Null, "VG"
Write(io_L,200) INT(Abs(PDGVP)),1._dp*Null, "VP"
Write(io_L,200) INT(Abs(PDGVZ)),1._dp*Null, "VZ"
Write(io_L,200) INT(Abs(PDGVWm)),1._dp*Null, "VWm"
Write(io_L,200) INT(Abs(PDGFv(1))),1._dp*Null, "Fv_1"
Write(io_L,200) INT(Abs(PDGFv(2))),1._dp*Null, "Fv_2"
Write(io_L,200) INT(Abs(PDGFv(3))),1._dp*Null, "Fv_3"
End if
Best,
Sam
Compiling SPheno for THDM model created by SARAH 4.14.2 leads to the following error:
gfortran -c -g -ffree-line-length-none -J../include -I../include InputOutput_THDM.f90
InputOutput_THDM.f90:4840:42:
Write(io_L,200) INT(Abs(PDGVG)),1._dp*Null, "VG"
1
Error: Symbol ‘null’ at (1) has no IMPLICIT type
Makefile:90: recipe for target '../lib/libSPhenoTHDM.a(InputOutput_THDM.o)' failed
make[2]: *** [../lib/libSPhenoTHDM.a(InputOutput_THDM.o)] Error 1
Since SARAH 4.14.1 doesn't have this problem with SPheno, I compared InputOutput_THDM.f90 files and the result was:
SARAH 4.14.1:
! Information needed by MadGraph
If (OutputForMG) Then
Write(io_L,200) INT(Abs(PDGVG)),0._dp, "VG"
Write(io_L,200) INT(Abs(PDGVP)),0._dp, "VP"
Write(io_L,200) INT(Abs(PDGVZ)),2.4952_dp, "VZ"
Write(io_L,200) INT(Abs(PDGVWm)),2.141_dp, "VWm"
Write(io_L,200) INT(Abs(PDGFv(1))),0._dp, "Fv_1"
Write(io_L,200) INT(Abs(PDGFv(2))),0._dp, "Fv_2"
Write(io_L,200) INT(Abs(PDGFv(3))),0._dp, "Fv_3"
End if
SARAH 4.14.2:
! Information needed by MadGraph
If (OutputForMG) Then
Write(io_L,200) INT(Abs(PDGVG)),1._dp*Null, "VG"
Write(io_L,200) INT(Abs(PDGVP)),1._dp*Null, "VP"
Write(io_L,200) INT(Abs(PDGVZ)),1._dp*Null, "VZ"
Write(io_L,200) INT(Abs(PDGVWm)),1._dp*Null, "VWm"
Write(io_L,200) INT(Abs(PDGFv(1))),1._dp*Null, "Fv_1"
Write(io_L,200) INT(Abs(PDGFv(2))),1._dp*Null, "Fv_2"
Write(io_L,200) INT(Abs(PDGFv(3))),1._dp*Null, "Fv_3"
End if
Best,
Sam