compilation error with U1' plus 2HDM

[ahmedthabt]

Hello, this is my first time using SPheno.

When I'm trying to compile the output files of SARAH in SPheno, it gives this error:

Code: Select all

Module Model_Data_U1plus2HDM-II 
1
Error: Unclassifiable statement at (1)
Model_Data_U1plus2HDM-II.f90:1166.3:

End Module Model_Data_U1plus2HDM-II
   1
Error: Expecting END PROGRAM statement at (1)
Error: Unexpected end of file in 'Model_Data_U1plus2HDM-II.f90'
Makefile:90: recipe for target '../lib/libSPhenoU1plus2HDM-II.a(Model_Data_U1plus2HDM-II.o)' failed
make[2]: *** [../lib/libSPhenoU1plus2HDM-II.a(Model_Data_U1plus2HDM-II.o)] Error 1
make[2]: Leaving directory '/home/diable/Downloads/SPheno-3.3.7/U1plus2HDM-II'
Makefile:49: recipe for target 'bin/SPhenoU1plus2HDM-II' failed
make[1]: *** [bin/SPhenoU1plus2HDM-II] Error 2
make[1]: Leaving directory '/home/diable/Downloads/SPheno-3.3.7/U1plus2HDM-II'
Makefile:13: recipe for target 'bin/SPheno' failed
make: *** [bin/SPheno] Error 2

I'm using gfortran as a compiler

[FStaub]

Hi,

you need to change the name of the model. I guess, you have right now

Code: Select all

Model`Name = "U1plus2HDM-II";

The "-" confuses Fortran, ie "U1plus2HDMII" should work.

Cheers,
Florian

[ahmedthabt]

Thanks florian this solved my problem.

But now another error shows up:

Code: Select all

Couplings_U1plus2HDMII.f90:30101.42:

res1 = res1-2*g2**2*Cos(TW)**2*Sin(ThetaWp)**2
                                          1
Error: Symbol 'thetawp' at (1) has no IMPLICIT type
Couplings_U1plus2HDMII.f90:30069.47:

res1 = res1+g2**2*Cos(TW)**2*Sin(2._dp*(ThetaWp))
                                               1
Error: Symbol 'thetawp' at (1) has no IMPLICIT type
Couplings_U1plus2HDMII.f90:30037.42:

res1 = res1-2*g2**2*Cos(TW)**2*Cos(ThetaWp)**2
                                          1
Error: Symbol 'thetawp' at (1) has no IMPLICIT type
Couplings_U1plus2HDMII.f90:29973.46:

res1 = res1-(g2**2*Cos(TW)*Sin(TW)*Sin(ThetaWp))
                                              1
Error: Symbol 'thetawp' at (1) has no IMPLICIT type
Couplings_U1plus2HDMII.f90:29941.37:

res1 = res1+g2**2*Cos(TW)*Cos(ThetaWp)*Sin(TW)
                                     1
Error: Symbol 'thetawp' at (1) has no IMPLICIT type
Couplings_U1plus2HDMII.f90:29825.31:

res1 = res1+(gBY**2*Cos(ThetaWp)**2*ZP(gt1,1)*ZP(gt2,1))/2._dp
                               1
Error: Symbol 'thetawp' at (1) has no IMPLICIT type
Couplings_U1plus2HDMII.f90:29733.46:

res1 = res1+(gBY*g2*Cos(TW)*Cos(2._dp*(ThetaWp))*ZP(gt1,1)*ZP(gt2,1))/2._dp
                                              1
Error: Symbol 'thetawp' at (1) has no IMPLICIT type
Couplings_U1plus2HDMII.f90:29665.41:

res1 = res1+(g2**2*Cos(TW)**2*Cos(ThetaWp)**2*ZP(gt1,1)*ZP(gt2,1))/2._dp
                                         1
Error: Symbol 'thetawp' at (1) has no IMPLICIT type
Couplings_U1plus2HDMII.f90:29559.39:

res1 = res1+(g1*gBY*Cos(TW)*Cos(ThetaWp)*ZP(gt1,1)*ZP(gt2,1))/2._dp
                                       1
Error: Symbol 'thetawp' at (1) has no IMPLICIT type
Couplings_U1plus2HDMII.f90:29493.41:

res1 = res1+(g1*g2*Cos(TW)**2*Cos(ThetaWp)*ZP(gt1,1)*ZP(gt2,1))/2._dp
                                         1
Error: Symbol 'thetawp' at (1) has no IMPLICIT type
Couplings_U1plus2HDMII.f90:29397.31:

res1 = res1+(gBY*g2*Cos(ThetaWp)*ZH(gt1,1)*ZP(gt2,1))/2._dp
                               1
Error: Symbol 'thetawp' at (1) has no IMPLICIT type
Couplings_U1plus2HDMII.f90:29351.30:

res1 = res1-(g1*g2*Cos(ThetaWp)*Sin(TW)*ZH(gt1,1)*ZP(gt2,1))/2._dp
                              1
Error: Symbol 'thetawp' at (1) has no IMPLICIT type
Couplings_U1plus2HDMII.f90:29263.31:

res1 = res1+(gBY*g2*Cos(ThetaWp)*ZH(gt1,1)*ZP(gt2,1))/2._dp
                               1
Error: Symbol 'thetawp' at (1) has no IMPLICIT type
Couplings_U1plus2HDMII.f90:29217.30:

res1 = res1-(g1*g2*Cos(ThetaWp)*Sin(TW)*ZH(gt1,1)*ZP(gt2,1))/2._dp
                              1
Error: Symbol 'thetawp' at (1) has no IMPLICIT type
Couplings_U1plus2HDMII.f90:29104.31:

res1 = res1+(gBY**2*Cos(ThetaWp)**2*ZH(gt1,1)*ZH(gt2,1))/2._dp
                               1
Error: Symbol 'thetawp' at (1) has no IMPLICIT type
Couplings_U1plus2HDMII.f90:29022.50:

res1 = res1-(g1*g2*Cos(TW)*Cos(TW - 2._dp*(ThetaWp))*ZH(gt1,1)*ZH(gt2,1))/4._dp
                                                  1
Error: Symbol 'thetawp' at (1) has no IMPLICIT type
Couplings_U1plus2HDMII.f90:28951.41:

res1 = res1+(g2**2*Cos(TW)**2*Cos(ThetaWp)**2*ZH(gt1,1)*ZH(gt2,1))/2._dp
                                         1
Error: Symbol 'thetawp' at (1) has no IMPLICIT type
Couplings_U1plus2HDMII.f90:28843.39:

res1 = res1+(g1*gBY*Cos(TW)*Cos(ThetaWp)*ZH(gt1,1)*ZH(gt2,1))/2._dp
                                       1
Error: Symbol 'thetawp' at (1) has no IMPLICIT type
Couplings_U1plus2HDMII.f90:28775.41:

res1 = res1-(g1*g2*Cos(TW)**2*Cos(ThetaWp)*ZH(gt1,1)*ZH(gt2,1))/2._dp
                                         1
Error: Symbol 'thetawp' at (1) has no IMPLICIT type
Couplings_U1plus2HDMII.f90:28678.31:

res1 = res1+(gBY*g2*Cos(ThetaWp)*ZA(gt1,1)*ZP(gt2,1))/2._dp
                               1
Error: Symbol 'thetawp' at (1) has no IMPLICIT type
Couplings_U1plus2HDMII.f90:28632.30:

res1 = res1-(g1*g2*Cos(ThetaWp)*Sin(TW)*ZA(gt1,1)*ZP(gt2,1))/2._dp
                              1
Error: Symbol 'thetawp' at (1) has no IMPLICIT type
Couplings_U1plus2HDMII.f90:28544.31:

res1 = res1-(gBY*g2*Cos(ThetaWp)*ZA(gt1,1)*ZP(gt2,1))/2._dp
                               1
Error: Symbol 'thetawp' at (1) has no IMPLICIT type
Couplings_U1plus2HDMII.f90:28498.30:

res1 = res1+(g1*g2*Cos(ThetaWp)*Sin(TW)*ZA(gt1,1)*ZP(gt2,1))/2._dp
                              1
Error: Symbol 'thetawp' at (1) has no IMPLICIT type
Couplings_U1plus2HDMII.f90:28385.31:

res1 = res1+(gBY**2*Cos(ThetaWp)**2*ZA(gt1,1)*ZA(gt2,1))/2._dp
                               1
Error: Symbol 'thetawp' at (1) has no IMPLICIT type
Couplings_U1plus2HDMII.f90:28303.50:

res1 = res1-(g1*g2*Cos(TW)*Cos(TW - 2._dp*(ThetaWp))*ZA(gt1,1)*ZA(gt2,1))/4._dp
                                                  1
Error: Symbol 'thetawp' at (1) has no IMPLICIT type
Fatal Error: Error count reached limit of 25.
Makefile:89: recipe for target '../lib/libSPhenoU1plus2HDMII.a(Couplings_U1plus2HDMII.o)' failed

[FStaub]

Looks strange. Can you check if ThetaWp is correctly defined in parameters.m?