Lines Matching refs:q
24 integer :: p, q, r local
33 forall (p = 1:2, q = 3:5, r = 1:7) t(p, q, r) = -10 + p - q + 2 * r
34 forall (p = 1:2, q = 3:7, r = 1:7) u(p, q, r) = 30 - p + q - 2 * r
35 forall (p = 1:5, q = 3:7, p + q .le. 8) v(p, q) = '_+|/Oo_'
36 forall (p = 1:5, q = 3:7, p + q .gt. 8) v(p, q) = '///|||!'
45 do 100, q = 3, 7
47 if (q .lt. 6) l = l .or. e(p, q, r) .ne. 5 + p + q + 2 * r
48 l = l .or. f(p, q, r) .ne. 25 + p + q + 2 * r
49 if (r .lt. 6 .and. q + r .le. 8) l = l .or. g(r, q) .ne. '0123456789AB'
50 if (r .lt. 6 .and. q + r .gt. 8) l = l .or. g(r, q) .ne. '9876543210ZY'
51 if (r .lt. 6 .and. q + r .le. 8) l = l .or. h(r, q) .ne. '0123456'
52 if (r .lt. 6 .and. q + r .gt. 8) l = l .or. h(r, q) .ne. '9876543'
53 if (q .lt. 6) l = l .or. t(p, q, r) .ne. -10 + p - q + 2 * r
54 l = l .or. u(p, q, r) .ne. 30 - p + q - 2 * r
55 if (r .lt. 6 .and. q + r .le. 8) l = l .or. v(r, q) .ne. '_+|/Oo_'
56 if (r .lt. 6 .and. q + r .gt. 8) l = l .or. v(r, q) .ne. '///|||!'
59 do 101, q = 2, 6
61 l = l .or. i(p - 2, q - 1, r) .ne. 7.5 * p * q * r
62 l = l .or. j(p, q + 3, r + 6) .ne. 9.5 * p * q * r
65 do 102, q = 4, 6
66 l = l .or. k(p, 1, q - 3) .ne. 19 + p + 7 + 3 * q
78 forall (p = 1:2, q = 3:5, r = 1:7) e(p, q, r) = 5 * x + p + q + 2 * r
79 forall (p = 1:2, q = 3:7, r = 1:7) f(p, q, r) = 25 * x + p + q + 2 * r
80 forall (p = 1:5, q = 3:7, p + q .le. 8) g(p, q) = w(8:19)
81 forall (p = 1:5, q = 3:7, p + q .gt. 8) g(p, q) = w(27:38)
82 forall (p = 1:5, q = 3:7, p + q .le. 8) h(p, q) = w(1:7)
83 forall (p = 1:5, q = 3:7, p + q .gt. 8) h(p, q) = w(20:26)
84 forall (p = 3:5, q = 2:6, r = 1:7) i(p - 2, q - 1, r) = (7.5 + x) * p * q * r
85 forall (p = 3:5, q = 2:6, r = 1:7) j(p, q + 3, r + 6) = (9.5 + x) * p * q * r
86 forall (p = 1:5, q = 7:7, r = 4:6) k(p, q - 6, r - 3) = 19 + x + p + q + 3 * r
88 forall (p = 1:2, q = 3:5, r = 1:7) t(p, q, r) = -10 + x + p - q + 2 * r
89 forall (p = 1:2, q = 3:7, r = 1:7) u(p, q, r) = 30 - x - p + q - 2 * r
90 forall (p = 1:5, q = 3:7, p + q .le. 8) v(p, q) = w(1:7)
91 forall (p = 1:5, q = 3:7, p + q .gt. 8) v(p, q) = w(20:26)
108 do 103, q = 3, 7
110 if (q .lt. 6) l = l .or. e(p, q, r) .ne. 5 * x + p + q + 2 * r
111 l = l .or. f(p, q, r) .ne. 25 * x + p + q + 2 * r
112 if (r .lt. 6 .and. q + r .le. 8) l = l .or. g(r, q) .ne. w(8:19)
113 if (r .lt. 6 .and. q + r .gt. 8) l = l .or. g(r, q) .ne. w(27:38)
114 if (r .lt. 6 .and. q + r .le. 8) l = l .or. h(r, q) .ne. w(1:7)
115 if (r .lt. 6 .and. q + r .gt. 8) l = l .or. h(r, q) .ne. w(20:26)
116 if (q .lt. 6) l = l .or. t(p, q, r) .ne. -10 + x + p - q + 2 * r
117 l = l .or. u(p, q, r) .ne. 30 - x - p + q - 2 * r
118 if (r .lt. 6 .and. q + r .le. 8) l = l .or. v(r, q) .ne. w(1:7)
119 if (r .lt. 6 .and. q + r .gt. 8) l = l .or. v(r, q) .ne. w(20:26)
122 do 104, q = 2, 6
124 l = l .or. i(p - 2, q - 1, r) .ne. (7.5 + x) * p * q * r
125 l = l .or. j(p, q + 3, r + 6) .ne. (9.5 + x) * p * q * r
128 do 105, q = 4, 6
129 l = l .or. k(p, 1, q - 3) .ne. 19 + x + p + 7 + 3 * q
171 integer :: p, q, r local
174 forall (p = 1:2, q = 3:5, r = 1:7) e(p, q, r) = 5 + p + q + 2 * r
175 forall (p = 1:2, q = 3:7, r = 1:7) f(p, q, r) = 25 + p + q + 2 * r
176 forall (p = 1:5, q = 3:7, p + q .le. 8) g(p, q) = '0123456789AB'
177 forall (p = 1:5, q = 3:7, p + q .gt. 8) g(p, q) = '9876543210ZY'
178 forall (p = 1:5, q = 3:7, p + q .le. 8) h(p, q) = '0123456'
179 forall (p = 1:5, q = 3:7, p + q .gt. 8) h(p, q) = '9876543'
180 forall (p = 3:5, q = 2:6, r = 1:7) i(p, q, r) = 7.5 * p * q * r
181 forall (p = 3:6, q = 2:6, r = 1:7) j(p, q, r) = 9.5 * p * q * r
182 forall (p = 1:5, q = 7:7, r = 4:6) k(p, q, r) = 19 + p + q + 3 * r