7 common/ludat1/mstu(200),paru(200),mstj(200),parj(200)
9 common/ludat2/kchg(500,3),pmas(500,4),parf(2000),vckm(4,4)
11 common/ludat4/chaf(500)
26 kflr=mod(kfa/10000,10)
29 IF(kfa.LE.100.OR.(kfa.GT.100.AND.kc.GT.100))
THEN
33 100
IF(chau(lem:lem).NE.
' ') len=lem
36 ELSEIF(kflc.EQ.0)
THEN
37 chau(1:2)=chaf(kfla)(1:1)//chaf(kflb)(1:1)
38 IF(kfls.EQ.1) chau(3:4)=
'_0'
39 IF(kfls.EQ.3) chau(3:4)=
'_1'
43 ELSEIF(kfla.EQ.0)
THEN
44 IF(kflb.EQ.5) chau(1:1)=
'B'
45 IF(kflb.EQ.6) chau(1:1)=
'T'
46 IF(kflb.EQ.7) chau(1:1)=
'L'
47 IF(kflb.EQ.8) chau(1:1)=
'H'
49 IF(kflr.EQ.0.AND.kfls.EQ.1)
THEN
50 ELSEIF(kflr.EQ.0.AND.kfls.EQ.3)
THEN
53 ELSEIF(kflr.EQ.1.AND.kfls.EQ.3)
THEN
56 ELSEIF(kflr.EQ.1.AND.kfls.EQ.1)
THEN
59 ELSEIF(kflr.EQ.2)
THEN
62 ELSEIF(kfls.EQ.5)
THEN
66 IF(kflc.GE.3.AND.kflr.EQ.0.AND.kfls.LE.3)
THEN
67 chau(len+1:len+2)=
'_'//chaf(kflc)(1:1)
69 ELSEIF(kflc.GE.3)
THEN
70 chau(len+1:len+1)=chaf(kflc)(1:1)
76 IF(kflb.LE.2.AND.kflc.LE.2)
THEN
78 IF(kflc.GT.kflb) chau=
'Lambda'
79 IF(kfls.EQ.4) chau=
'Sigma*'
81 IF(chau(6:6).NE.
' ') len=6
82 ELSEIF(kflb.LE.2.OR.kflc.LE.2)
THEN
84 IF(kfla.GT.kflb.AND.kflb.GT.kflc) chau=
'Xi'''
85 IF(kfls.EQ.4) chau=
'Xi*'
87 IF(chau(3:3).NE.
' ') len=3
90 IF(kfla.GT.kflb.AND.kflb.GT.kflc) chau=
'Omega'''
91 IF(kfls.EQ.4) chau=
'Omega*'
93 IF(chau(6:6).NE.
' ') len=6
97 chau(len+1:len+2)=
'_'//chaf(kfla)(1:1)
99 IF(kflb.GE.kflc.AND.kflc.GE.4)
THEN
100 chau(len+1:len+2)=chaf(kflb)(1:1)//chaf(kflc)(1:1)
102 ELSEIF(kflb.GE.kflc.AND.kflb.GE.4)
THEN
103 chau(len+1:len+1)=chaf(kflb)(1:1)
105 ELSEIF(kflc.GT.kflb.AND.kflb.GE.4)
THEN
106 chau(len+1:len+2)=chaf(kflc)(1:1)//chaf(kflb)(1:1)
108 ELSEIF(kflc.GT.kflb.AND.kflc.GE.4)
THEN
109 chau(len+1:len+1)=chaf(kflc)(1:1)
115 IF(kf.GT.0.OR.len.EQ.0)
THEN
116 ELSEIF(kfa.GT.10.AND.kfa.LE.40.AND.kq.NE.0)
THEN
117 ELSEIF(kfa.EQ.89.OR.(kfa.GE.91.AND.kfa.LE.99))
THEN
118 ELSEIF(kfa.GT.100.AND.kfla.EQ.0.AND.kq.NE.0)
THEN
119 ELSEIF(mstu(15).LE.1)
THEN
120 chau(len+1:len+1)=
'~'
123 chau(len+1:len+3)=
'bar'
128 IF(kq.EQ.6) chau(len+1:len+2)=
'++'
129 IF(kq.EQ.-6) chau(len+1:len+2)=
'--'
130 IF(kq.EQ.3) chau(len+1:len+1)=
'+'
131 IF(kq.EQ.-3) chau(len+1:len+1)=
'-'
132 IF(kq.EQ.0.AND.(kfa.LE.22.OR.len.EQ.0))
THEN
133 ELSEIF(kq.EQ.0.AND.(kfa.GE.81.AND.kfa.LE.100))
THEN
134 ELSEIF(kfa.GT.100.AND.kfla.EQ.0.AND.kflb.EQ.kflc.AND.
137 chau(len+1:len+1)=
'0'