2 integer :: a(3), h
, ia(1)
3 integer, allocatable
:: c(:)
12 if (ia(1).ne
.1) STOP 1
15 if (ia(1).ne
.2) STOP 2
18 if (ia(1).ne
.1) STOP 3
21 if (ia(1).ne
.3) STOP 4
24 if (ia(1).ne
.1) STOP 5
27 if (ia(1).ne
.2) STOP 6
30 if (ia(1).ne
.1) STOP 7
33 if (ia(1).ne
.3) STOP 8
37 ia
= maxloc (a
, mask
= l
)
38 if (ia(1).ne
.0) STOP 9
39 ia
= maxloc (a
, mask
= l2
)
40 if (ia(1).ne
.0) STOP 10
42 ia
= maxloc (a
, mask
= l
)
43 if (ia(1).ne
.0) STOP 11
44 ia
= maxloc (a
, mask
= l2
)
45 if (ia(1).ne
.0) STOP 12
47 ia
= maxloc (a
, mask
= l
)
48 if (ia(1).ne
.0) STOP 13
49 ia
= maxloc (a
, mask
= l2
)
50 if (ia(1).ne
.0) STOP 14
52 ia
= maxloc (a
, mask
= l
)
53 if (ia(1).ne
.0) STOP 15
54 ia
= maxloc (a
, mask
= l2
)
55 if (ia(1).ne
.0) STOP 16
57 ia
= maxloc (c
, mask
= l
)
58 if (ia(1).ne
.0) STOP 17
59 ia
= maxloc (c
, mask
= l2
)
60 if (ia(1).ne
.0) STOP 18
62 ia
= maxloc (c
, mask
= l
)
63 if (ia(1).ne
.0) STOP 19
64 ia
= maxloc (c
, mask
= l2
)
65 if (ia(1).ne
.0) STOP 20
67 ia
= maxloc (c
, mask
= l
)
68 if (ia(1).ne
.0) STOP 21
69 ia
= maxloc (c
, mask
= l2
)
70 if (ia(1).ne
.0) STOP 22
72 ia
= maxloc (c
, mask
= l
)
73 if (ia(1).ne
.0) STOP 23
74 ia
= maxloc (c
, mask
= l2
)
75 if (ia(1).ne
.0) STOP 24
79 ia
= maxloc (a
, mask
= l
)
80 if (ia(1).ne
.1) STOP 25
81 ia
= maxloc (a
, mask
= l2
)
82 if (ia(1).ne
.1) STOP 26
84 ia
= maxloc (a
, mask
= l
)
85 if (ia(1).ne
.2) STOP 27
86 ia
= maxloc (a
, mask
= l2
)
87 if (ia(1).ne
.2) STOP 28
89 ia
= maxloc (a
, mask
= l
)
90 if (ia(1).ne
.1) STOP 29
91 ia
= maxloc (a
, mask
= l2
)
92 if (ia(1).ne
.1) STOP 30
94 ia
= maxloc (a
, mask
= l
)
95 if (ia(1).ne
.3) STOP 31
96 ia
= maxloc (a
, mask
= l2
)
97 if (ia(1).ne
.3) STOP 32
99 ia
= maxloc (c
, mask
= l
)
100 if (ia(1).ne
.1) STOP 33
101 ia
= maxloc (c
, mask
= l2
)
102 if (ia(1).ne
.1) STOP 34
104 ia
= maxloc (c
, mask
= l
)
105 if (ia(1).ne
.2) STOP 35
106 ia
= maxloc (c
, mask
= l2
)
107 if (ia(1).ne
.2) STOP 36
109 ia
= maxloc (c
, mask
= l
)
110 if (ia(1).ne
.1) STOP 37
111 ia
= maxloc (c
, mask
= l2
)
112 if (ia(1).ne
.1) STOP 38
114 ia
= maxloc (c
, mask
= l
)
115 if (ia(1).ne
.3) STOP 39
116 ia
= maxloc (c
, mask
= l2
)
117 if (ia(1).ne
.3) STOP 40
121 if (ia(1).ne
.0) STOP 41