32
32
REAL*8 T,T_SAVE(NCOMB)
33
33
SAVE T_SAVE,T_IDENT
34
34
INTEGER NHEL(NEXTERNAL,NCOMB)
35
DATA (NHEL(I, 1),I=1,5) /-1,-1,-1,-1,-1/
36
DATA (NHEL(I, 2),I=1,5) /-1,-1,-1,-1, 1/
37
DATA (NHEL(I, 3),I=1,5) /-1,-1,-1, 1,-1/
38
DATA (NHEL(I, 4),I=1,5) /-1,-1,-1, 1, 1/
39
DATA (NHEL(I, 5),I=1,5) /-1,-1, 1,-1,-1/
40
DATA (NHEL(I, 6),I=1,5) /-1,-1, 1,-1, 1/
41
DATA (NHEL(I, 7),I=1,5) /-1,-1, 1, 1,-1/
42
DATA (NHEL(I, 8),I=1,5) /-1,-1, 1, 1, 1/
43
DATA (NHEL(I, 9),I=1,5) /-1, 1,-1,-1,-1/
44
DATA (NHEL(I, 10),I=1,5) /-1, 1,-1,-1, 1/
45
DATA (NHEL(I, 11),I=1,5) /-1, 1,-1, 1,-1/
46
DATA (NHEL(I, 12),I=1,5) /-1, 1,-1, 1, 1/
47
DATA (NHEL(I, 13),I=1,5) /-1, 1, 1,-1,-1/
48
DATA (NHEL(I, 14),I=1,5) /-1, 1, 1,-1, 1/
49
DATA (NHEL(I, 15),I=1,5) /-1, 1, 1, 1,-1/
50
DATA (NHEL(I, 16),I=1,5) /-1, 1, 1, 1, 1/
51
DATA (NHEL(I, 17),I=1,5) / 1,-1,-1,-1,-1/
52
DATA (NHEL(I, 18),I=1,5) / 1,-1,-1,-1, 1/
53
DATA (NHEL(I, 19),I=1,5) / 1,-1,-1, 1,-1/
54
DATA (NHEL(I, 20),I=1,5) / 1,-1,-1, 1, 1/
55
DATA (NHEL(I, 21),I=1,5) / 1,-1, 1,-1,-1/
56
DATA (NHEL(I, 22),I=1,5) / 1,-1, 1,-1, 1/
57
DATA (NHEL(I, 23),I=1,5) / 1,-1, 1, 1,-1/
58
DATA (NHEL(I, 24),I=1,5) / 1,-1, 1, 1, 1/
59
DATA (NHEL(I, 25),I=1,5) / 1, 1,-1,-1,-1/
60
DATA (NHEL(I, 26),I=1,5) / 1, 1,-1,-1, 1/
61
DATA (NHEL(I, 27),I=1,5) / 1, 1,-1, 1,-1/
62
DATA (NHEL(I, 28),I=1,5) / 1, 1,-1, 1, 1/
63
DATA (NHEL(I, 29),I=1,5) / 1, 1, 1,-1,-1/
64
DATA (NHEL(I, 30),I=1,5) / 1, 1, 1,-1, 1/
65
DATA (NHEL(I, 31),I=1,5) / 1, 1, 1, 1,-1/
66
DATA (NHEL(I, 32),I=1,5) / 1, 1, 1, 1, 1/
35
DATA (NHEL(I, 1),I=1,5) /-1, 1,-1, 1,-1/
36
DATA (NHEL(I, 2),I=1,5) /-1, 1,-1, 1, 1/
37
DATA (NHEL(I, 3),I=1,5) /-1, 1,-1,-1,-1/
38
DATA (NHEL(I, 4),I=1,5) /-1, 1,-1,-1, 1/
39
DATA (NHEL(I, 5),I=1,5) /-1, 1, 1, 1,-1/
40
DATA (NHEL(I, 6),I=1,5) /-1, 1, 1, 1, 1/
41
DATA (NHEL(I, 7),I=1,5) /-1, 1, 1,-1,-1/
42
DATA (NHEL(I, 8),I=1,5) /-1, 1, 1,-1, 1/
43
DATA (NHEL(I, 9),I=1,5) /-1,-1,-1, 1,-1/
44
DATA (NHEL(I, 10),I=1,5) /-1,-1,-1, 1, 1/
45
DATA (NHEL(I, 11),I=1,5) /-1,-1,-1,-1,-1/
46
DATA (NHEL(I, 12),I=1,5) /-1,-1,-1,-1, 1/
47
DATA (NHEL(I, 13),I=1,5) /-1,-1, 1, 1,-1/
48
DATA (NHEL(I, 14),I=1,5) /-1,-1, 1, 1, 1/
49
DATA (NHEL(I, 15),I=1,5) /-1,-1, 1,-1,-1/
50
DATA (NHEL(I, 16),I=1,5) /-1,-1, 1,-1, 1/
51
DATA (NHEL(I, 17),I=1,5) / 1, 1,-1, 1,-1/
52
DATA (NHEL(I, 18),I=1,5) / 1, 1,-1, 1, 1/
53
DATA (NHEL(I, 19),I=1,5) / 1, 1,-1,-1,-1/
54
DATA (NHEL(I, 20),I=1,5) / 1, 1,-1,-1, 1/
55
DATA (NHEL(I, 21),I=1,5) / 1, 1, 1, 1,-1/
56
DATA (NHEL(I, 22),I=1,5) / 1, 1, 1, 1, 1/
57
DATA (NHEL(I, 23),I=1,5) / 1, 1, 1,-1,-1/
58
DATA (NHEL(I, 24),I=1,5) / 1, 1, 1,-1, 1/
59
DATA (NHEL(I, 25),I=1,5) / 1,-1,-1, 1,-1/
60
DATA (NHEL(I, 26),I=1,5) / 1,-1,-1, 1, 1/
61
DATA (NHEL(I, 27),I=1,5) / 1,-1,-1,-1,-1/
62
DATA (NHEL(I, 28),I=1,5) / 1,-1,-1,-1, 1/
63
DATA (NHEL(I, 29),I=1,5) / 1,-1, 1, 1,-1/
64
DATA (NHEL(I, 30),I=1,5) / 1,-1, 1, 1, 1/
65
DATA (NHEL(I, 31),I=1,5) / 1,-1, 1,-1,-1/
66
DATA (NHEL(I, 32),I=1,5) / 1,-1, 1,-1, 1/
67
67
LOGICAL GOODHEL(NCOMB)
68
68
DATA GOODHEL/NCOMB*.FALSE./