1 #include "isajet/pilot.h"
2 C------------------------------------------------------------------
3 SUBROUTINE SUGFRZ(Q,G,G0,IG)
4 C------------------------------------------------------------------
6 C Freeze out final soft breaking parameters
8 #if defined(CERNLIB_IMPNONE)
11 #include "isajet/sslun.inc"
12 #include "isajet/sugpas.inc"
13 DIMENSION G(29),G0(29)
24 IF (Q.LT.MT.AND.IG(6).EQ.0) THEN
29 C Freeze out running gluino mass at MGL
31 IF (Q.LT.ABS(G(I)).AND.IG(I).EQ.0) THEN
34 ELSE IF (IG(I).EQ.0) THEN
38 C Freeze out Higgs paremeters at HIGFRZ
40 IF (Q.LT.HIGFRZ.AND.IG(I).EQ.0) THEN
45 ELSE IF (IG(I).EQ.0) THEN
50 C Freeze out rest at own masses
52 C IF (G(I).LT.0.) THEN
57 IF (Q.LT.SQRT(ABS(G(I))).AND.IG(I).EQ.0) THEN
60 ELSE IF (IG(I).EQ.0) THEN
64 C Freeze our N_R parameters at Majorana mass scale
66 IF (G(I).NE.0.) G0(I)=G(I)
67 IF (Q.LT.AMNRMJ.AND.IG(I).EQ.0.) THEN