mirror of
https://github.com/autc04/Retro68.git
synced 2024-09-28 18:56:06 +00:00
286 lines
16 KiB
Fortran
286 lines
16 KiB
Fortran
! { dg-do run }
|
|
real :: a(30), b(10, 10), m
|
|
real, allocatable :: c(:), d(:, :)
|
|
integer :: e(30), f(10, 10), n
|
|
integer, allocatable :: g(:), h(:,:)
|
|
logical :: l(30), l2(10, 10)
|
|
allocate (c (30))
|
|
allocate (d (10, 10))
|
|
allocate (g (30))
|
|
allocate (h (10, 10))
|
|
a = 7.0
|
|
b = 7.0
|
|
c = 7.0
|
|
d = 7.0
|
|
e = 7
|
|
f = 7
|
|
g = 7
|
|
h = 7
|
|
m = huge(m)
|
|
n = huge(n)
|
|
a(7) = 6.0
|
|
b(5, 5) = 6.0
|
|
b(5, 6) = 5.0
|
|
b(6, 7) = 4.0
|
|
c(7) = 6.0
|
|
d(5, 5) = 6.0
|
|
d(5, 6) = 5.0
|
|
d(6, 7) = 4.0
|
|
e(7) = 6
|
|
f(5, 5) = 6
|
|
f(5, 6) = 5
|
|
f(6, 7) = 4
|
|
g(7) = 6
|
|
h(5, 5) = 6
|
|
h(5, 6) = 5
|
|
h(6, 7) = 4
|
|
if (minloc (a, dim = 1).ne.7) STOP 1
|
|
if (minval (a, dim = 1).ne.6.0) STOP 2
|
|
if (minloc (a(::2), dim = 1).ne.4) STOP 3
|
|
if (minval (a(::2), dim = 1).ne.6.0) STOP 4
|
|
if (any (minloc (a).ne.(/ 7 /))) STOP 5
|
|
if (minval (a).ne.6.0) STOP 6
|
|
if (any (minloc (a(::2)).ne.(/ 4 /))) STOP 7
|
|
if (minval (a(::2)).ne.6.0) STOP 8
|
|
if (any (minloc (b, dim = 1).ne.(/ 1, 1, 1, 1, 5, 5, 6, 1, 1, 1 /))) STOP 9
|
|
if (any (minval (b, dim = 1).ne.(/ 7.0, 7.0, 7.0, 7.0, 6.0, 5.0, 4.0, 7.0, 7.0, 7.0 /))) STOP 10
|
|
if (any (minloc (b(::2,::2), dim = 1).ne.(/ 1, 1, 3, 1, 1 /))) STOP 11
|
|
if (any (minval (b(::2,::2), dim = 1).ne.(/ 7.0, 7.0, 6.0, 7.0, 7.0 /))) STOP 12
|
|
if (any (minloc (b, dim = 2).ne.(/ 1, 1, 1, 1, 6, 7, 1, 1, 1, 1 /))) STOP 13
|
|
if (any (minval (b, dim = 2).ne.(/ 7.0, 7.0, 7.0, 7.0, 5.0, 4.0, 7.0, 7.0, 7.0, 7.0 /))) STOP 14
|
|
if (any (minloc (b(::2,::2), dim = 2).ne.(/ 1, 1, 3, 1, 1 /))) STOP 15
|
|
if (any (minval (b(::2,::2), dim = 2).ne.(/ 7.0, 7.0, 6.0, 7.0, 7.0 /))) STOP 16
|
|
if (any (minloc (b).ne.(/ 6, 7 /))) STOP 17
|
|
if (minval (b).ne.4.0) STOP 18
|
|
if (any (minloc (b(::2,::2)).ne.(/ 3, 3 /))) STOP 19
|
|
if (minval (b(::2,::2)).ne.6.0) STOP 20
|
|
if (minloc (c, dim = 1).ne.7) STOP 21
|
|
if (minval (c, dim = 1).ne.6.0) STOP 22
|
|
if (minloc (c(::2), dim = 1).ne.4) STOP 23
|
|
if (minval (c(::2), dim = 1).ne.6.0) STOP 24
|
|
if (any (minloc (c).ne.(/ 7 /))) STOP 25
|
|
if (minval (c).ne.6.0) STOP 26
|
|
if (any (minloc (c(::2)).ne.(/ 4 /))) STOP 27
|
|
if (minval (c(::2)).ne.6.0) STOP 28
|
|
if (any (minloc (d, dim = 1).ne.(/ 1, 1, 1, 1, 5, 5, 6, 1, 1, 1 /))) STOP 29
|
|
if (any (minval (d, dim = 1).ne.(/ 7.0, 7.0, 7.0, 7.0, 6.0, 5.0, 4.0, 7.0, 7.0, 7.0 /))) STOP 30
|
|
if (any (minloc (d(::2,::2), dim = 1).ne.(/ 1, 1, 3, 1, 1 /))) STOP 31
|
|
if (any (minval (d(::2,::2), dim = 1).ne.(/ 7.0, 7.0, 6.0, 7.0, 7.0 /))) STOP 32
|
|
if (any (minloc (d, dim = 2).ne.(/ 1, 1, 1, 1, 6, 7, 1, 1, 1, 1 /))) STOP 33
|
|
if (any (minval (d, dim = 2).ne.(/ 7.0, 7.0, 7.0, 7.0, 5.0, 4.0, 7.0, 7.0, 7.0, 7.0 /))) STOP 34
|
|
if (any (minloc (d(::2,::2), dim = 2).ne.(/ 1, 1, 3, 1, 1 /))) STOP 35
|
|
if (any (minval (d(::2,::2), dim = 2).ne.(/ 7.0, 7.0, 6.0, 7.0, 7.0 /))) STOP 36
|
|
if (any (minloc (d).ne.(/ 6, 7 /))) STOP 37
|
|
if (minval (d).ne.4.0) STOP 38
|
|
if (any (minloc (d(::2,::2)).ne.(/ 3, 3 /))) STOP 39
|
|
if (minval (d(::2,::2)).ne.6.0) STOP 40
|
|
if (minloc (e, dim = 1).ne.7) STOP 41
|
|
if (minval (e, dim = 1).ne.6) STOP 42
|
|
if (minloc (e(::2), dim = 1).ne.4) STOP 43
|
|
if (minval (e(::2), dim = 1).ne.6) STOP 44
|
|
if (any (minloc (e).ne.(/ 7 /))) STOP 45
|
|
if (minval (e).ne.6) STOP 46
|
|
if (any (minloc (e(::2)).ne.(/ 4 /))) STOP 47
|
|
if (minval (e(::2)).ne.6) STOP 48
|
|
if (any (minloc (f, dim = 1).ne.(/ 1, 1, 1, 1, 5, 5, 6, 1, 1, 1 /))) STOP 49
|
|
if (any (minval (f, dim = 1).ne.(/ 7, 7, 7, 7, 6, 5, 4, 7, 7, 7 /))) STOP 50
|
|
if (any (minloc (f(::2,::2), dim = 1).ne.(/ 1, 1, 3, 1, 1 /))) STOP 51
|
|
if (any (minval (f(::2,::2), dim = 1).ne.(/ 7, 7, 6, 7, 7 /))) STOP 52
|
|
if (any (minloc (f, dim = 2).ne.(/ 1, 1, 1, 1, 6, 7, 1, 1, 1, 1 /))) STOP 53
|
|
if (any (minval (f, dim = 2).ne.(/ 7, 7, 7, 7, 5, 4, 7, 7, 7, 7 /))) STOP 54
|
|
if (any (minloc (f(::2,::2), dim = 2).ne.(/ 1, 1, 3, 1, 1 /))) STOP 55
|
|
if (any (minval (f(::2,::2), dim = 2).ne.(/ 7, 7, 6, 7, 7 /))) STOP 56
|
|
if (any (minloc (f).ne.(/ 6, 7 /))) STOP 57
|
|
if (minval (f).ne.4) STOP 58
|
|
if (any (minloc (f(::2,::2)).ne.(/ 3, 3 /))) STOP 59
|
|
if (minval (f(::2,::2)).ne.6) STOP 60
|
|
if (minloc (g, dim = 1).ne.7) STOP 61
|
|
if (minval (g, dim = 1).ne.6) STOP 62
|
|
if (minloc (g(::2), dim = 1).ne.4) STOP 63
|
|
if (minval (g(::2), dim = 1).ne.6) STOP 64
|
|
if (any (minloc (g).ne.(/ 7 /))) STOP 65
|
|
if (minval (g).ne.6) STOP 66
|
|
if (any (minloc (g(::2)).ne.(/ 4 /))) STOP 67
|
|
if (minval (g(::2)).ne.6) STOP 68
|
|
if (any (minloc (h, dim = 1).ne.(/ 1, 1, 1, 1, 5, 5, 6, 1, 1, 1 /))) STOP 69
|
|
if (any (minval (h, dim = 1).ne.(/ 7, 7, 7, 7, 6, 5, 4, 7, 7, 7 /))) STOP 70
|
|
if (any (minloc (h(::2,::2), dim = 1).ne.(/ 1, 1, 3, 1, 1 /))) STOP 71
|
|
if (any (minval (h(::2,::2), dim = 1).ne.(/ 7, 7, 6, 7, 7 /))) STOP 72
|
|
if (any (minloc (h, dim = 2).ne.(/ 1, 1, 1, 1, 6, 7, 1, 1, 1, 1 /))) STOP 73
|
|
if (any (minval (h, dim = 2).ne.(/ 7, 7, 7, 7, 5, 4, 7, 7, 7, 7 /))) STOP 74
|
|
if (any (minloc (h(::2,::2), dim = 2).ne.(/ 1, 1, 3, 1, 1 /))) STOP 75
|
|
if (any (minval (h(::2,::2), dim = 2).ne.(/ 7, 7, 6, 7, 7 /))) STOP 76
|
|
if (any (minloc (h).ne.(/ 6, 7 /))) STOP 77
|
|
if (minval (h).ne.4) STOP 78
|
|
if (any (minloc (h(::2,::2)).ne.(/ 3, 3 /))) STOP 79
|
|
if (minval (h(::2,::2)).ne.6) STOP 80
|
|
l = .true.
|
|
l2 = .true.
|
|
if (minloc (a, dim = 1, mask = l).ne.7) STOP 81
|
|
if (minval (a, dim = 1, mask = l).ne.6.0) STOP 82
|
|
if (minloc (a(::2), dim = 1, mask = l(::2)).ne.4) STOP 83
|
|
if (minval (a(::2), dim = 1, mask = l(::2)).ne.6.0) STOP 84
|
|
if (any (minloc (a, mask = l).ne.(/ 7 /))) STOP 85
|
|
if (minval (a, mask = l).ne.6.0) STOP 86
|
|
if (any (minloc (a(::2), mask = l(::2)).ne.(/ 4 /))) STOP 87
|
|
if (minval (a(::2), mask = l(::2)).ne.6.0) STOP 88
|
|
if (any (minloc (b, dim = 1, mask = l2).ne.(/ 1, 1, 1, 1, 5, 5, 6, 1, 1, 1 /))) STOP 89
|
|
if (any (minval (b, dim = 1, mask = l2).ne.(/ 7.0, 7.0, 7.0, 7.0, 6.0, 5.0, 4.0, 7.0, 7.0, 7.0 /))) STOP 90
|
|
if (any (minloc (b(::2,::2), dim = 1, mask = l2(::2,::2)).ne.(/ 1, 1, 3, 1, 1 /))) STOP 91
|
|
if (any (minval (b(::2,::2), dim = 1, mask = l2(::2,::2)).ne.(/ 7.0, 7.0, 6.0, 7.0, 7.0 /))) STOP 92
|
|
if (any (minloc (b, dim = 2, mask = l2).ne.(/ 1, 1, 1, 1, 6, 7, 1, 1, 1, 1 /))) STOP 93
|
|
if (any (minval (b, dim = 2, mask = l2).ne.(/ 7.0, 7.0, 7.0, 7.0, 5.0, 4.0, 7.0, 7.0, 7.0, 7.0 /))) STOP 94
|
|
if (any (minloc (b(::2,::2), dim = 2, mask = l2(::2,::2)).ne.(/ 1, 1, 3, 1, 1 /))) STOP 95
|
|
if (any (minval (b(::2,::2), dim = 2, mask = l2(::2,::2)).ne.(/ 7.0, 7.0, 6.0, 7.0, 7.0 /))) STOP 96
|
|
if (any (minloc (b, mask = l2).ne.(/ 6, 7 /))) STOP 97
|
|
if (minval (b, mask = l2).ne.4.0) STOP 98
|
|
if (any (minloc (b(::2,::2), mask = l2(::2,::2)).ne.(/ 3, 3 /))) STOP 99
|
|
if (minval (b(::2,::2), mask = l2(::2,::2)).ne.6.0) STOP 100
|
|
if (minloc (c, dim = 1, mask = l).ne.7) STOP 101
|
|
if (minval (c, dim = 1, mask = l).ne.6.0) STOP 102
|
|
if (minloc (c(::2), dim = 1, mask = l(::2)).ne.4) STOP 103
|
|
if (minval (c(::2), dim = 1, mask = l(::2)).ne.6.0) STOP 104
|
|
if (any (minloc (c, mask = l).ne.(/ 7 /))) STOP 105
|
|
if (minval (c, mask = l).ne.6.0) STOP 106
|
|
if (any (minloc (c(::2), mask = l(::2)).ne.(/ 4 /))) STOP 107
|
|
if (minval (c(::2), mask = l(::2)).ne.6.0) STOP 108
|
|
if (any (minloc (d, dim = 1, mask = l2).ne.(/ 1, 1, 1, 1, 5, 5, 6, 1, 1, 1 /))) STOP 109
|
|
if (any (minval (d, dim = 1, mask = l2).ne.(/ 7.0, 7.0, 7.0, 7.0, 6.0, 5.0, 4.0, 7.0, 7.0, 7.0 /))) STOP 110
|
|
if (any (minloc (d(::2,::2), dim = 1, mask = l2(::2,::2)).ne.(/ 1, 1, 3, 1, 1 /))) STOP 111
|
|
if (any (minval (d(::2,::2), dim = 1, mask = l2(::2,::2)).ne.(/ 7.0, 7.0, 6.0, 7.0, 7.0 /))) STOP 112
|
|
if (any (minloc (d, dim = 2, mask = l2).ne.(/ 1, 1, 1, 1, 6, 7, 1, 1, 1, 1 /))) STOP 113
|
|
if (any (minval (d, dim = 2, mask = l2).ne.(/ 7.0, 7.0, 7.0, 7.0, 5.0, 4.0, 7.0, 7.0, 7.0, 7.0 /))) STOP 114
|
|
if (any (minloc (d(::2,::2), dim = 2, mask = l2(::2,::2)).ne.(/ 1, 1, 3, 1, 1 /))) STOP 115
|
|
if (any (minval (d(::2,::2), dim = 2, mask = l2(::2,::2)).ne.(/ 7.0, 7.0, 6.0, 7.0, 7.0 /))) STOP 116
|
|
if (any (minloc (d, mask = l2).ne.(/ 6, 7 /))) STOP 117
|
|
if (minval (d, mask = l2).ne.4.0) STOP 118
|
|
if (any (minloc (d(::2,::2), mask = l2(::2,::2)).ne.(/ 3, 3 /))) STOP 119
|
|
if (minval (d(::2,::2), mask = l2(::2,::2)).ne.6.0) STOP 120
|
|
if (minloc (e, dim = 1, mask = l).ne.7) STOP 121
|
|
if (minval (e, dim = 1, mask = l).ne.6) STOP 122
|
|
if (minloc (e(::2), dim = 1, mask = l(::2)).ne.4) STOP 123
|
|
if (minval (e(::2), dim = 1, mask = l(::2)).ne.6) STOP 124
|
|
if (any (minloc (e, mask = l).ne.(/ 7 /))) STOP 125
|
|
if (minval (e, mask = l).ne.6) STOP 126
|
|
if (any (minloc (e(::2), mask = l(::2)).ne.(/ 4 /))) STOP 127
|
|
if (minval (e(::2), mask = l(::2)).ne.6) STOP 128
|
|
if (any (minloc (f, dim = 1, mask = l2).ne.(/ 1, 1, 1, 1, 5, 5, 6, 1, 1, 1 /))) STOP 129
|
|
if (any (minval (f, dim = 1, mask = l2).ne.(/ 7, 7, 7, 7, 6, 5, 4, 7, 7, 7 /))) STOP 130
|
|
if (any (minloc (f(::2,::2), dim = 1, mask = l2(::2,::2)).ne.(/ 1, 1, 3, 1, 1 /))) STOP 131
|
|
if (any (minval (f(::2,::2), dim = 1, mask = l2(::2,::2)).ne.(/ 7, 7, 6, 7, 7 /))) STOP 132
|
|
if (any (minloc (f, dim = 2, mask = l2).ne.(/ 1, 1, 1, 1, 6, 7, 1, 1, 1, 1 /))) STOP 133
|
|
if (any (minval (f, dim = 2, mask = l2).ne.(/ 7, 7, 7, 7, 5, 4, 7, 7, 7, 7 /))) STOP 134
|
|
if (any (minloc (f(::2,::2), dim = 2, mask = l2(::2,::2)).ne.(/ 1, 1, 3, 1, 1 /))) STOP 135
|
|
if (any (minval (f(::2,::2), dim = 2, mask = l2(::2,::2)).ne.(/ 7, 7, 6, 7, 7 /))) STOP 136
|
|
if (any (minloc (f, mask = l2).ne.(/ 6, 7 /))) STOP 137
|
|
if (minval (f, mask = l2).ne.4) STOP 138
|
|
if (any (minloc (f(::2,::2), mask = l2(::2,::2)).ne.(/ 3, 3 /))) STOP 139
|
|
if (minval (f(::2,::2), mask = l2(::2,::2)).ne.6) STOP 140
|
|
if (minloc (g, dim = 1, mask = l).ne.7) STOP 141
|
|
if (minval (g, dim = 1, mask = l).ne.6) STOP 142
|
|
if (minloc (g(::2), dim = 1, mask = l(::2)).ne.4) STOP 143
|
|
if (minval (g(::2), dim = 1, mask = l(::2)).ne.6) STOP 144
|
|
if (any (minloc (g, mask = l).ne.(/ 7 /))) STOP 145
|
|
if (minval (g, mask = l).ne.6) STOP 146
|
|
if (any (minloc (g(::2), mask = l(::2)).ne.(/ 4 /))) STOP 147
|
|
if (minval (g(::2), mask = l(::2)).ne.6) STOP 148
|
|
if (any (minloc (h, dim = 1, mask = l2).ne.(/ 1, 1, 1, 1, 5, 5, 6, 1, 1, 1 /))) STOP 149
|
|
if (any (minval (h, dim = 1, mask = l2).ne.(/ 7, 7, 7, 7, 6, 5, 4, 7, 7, 7 /))) STOP 150
|
|
if (any (minloc (h(::2,::2), dim = 1, mask = l2(::2,::2)).ne.(/ 1, 1, 3, 1, 1 /))) STOP 151
|
|
if (any (minval (h(::2,::2), dim = 1, mask = l2(::2,::2)).ne.(/ 7, 7, 6, 7, 7 /))) STOP 152
|
|
if (any (minloc (h, dim = 2, mask = l2).ne.(/ 1, 1, 1, 1, 6, 7, 1, 1, 1, 1 /))) STOP 153
|
|
if (any (minval (h, dim = 2, mask = l2).ne.(/ 7, 7, 7, 7, 5, 4, 7, 7, 7, 7 /))) STOP 154
|
|
if (any (minloc (h(::2,::2), dim = 2, mask = l2(::2,::2)).ne.(/ 1, 1, 3, 1, 1 /))) STOP 155
|
|
if (any (minval (h(::2,::2), dim = 2, mask = l2(::2,::2)).ne.(/ 7, 7, 6, 7, 7 /))) STOP 156
|
|
if (any (minloc (h, mask = l2).ne.(/ 6, 7 /))) STOP 157
|
|
if (minval (h, mask = l2).ne.4) STOP 158
|
|
if (any (minloc (h(::2,::2), mask = l2(::2,::2)).ne.(/ 3, 3 /))) STOP 159
|
|
if (minval (h(::2,::2), mask = l2(::2,::2)).ne.6) STOP 160
|
|
l = .false.
|
|
l2 = .false.
|
|
if (minloc (a, dim = 1, mask = l).ne.0) STOP 161
|
|
if (minval (a, dim = 1, mask = l).ne.m) STOP 162
|
|
if (minloc (a(::2), dim = 1, mask = l(::2)).ne.0) STOP 163
|
|
if (minval (a(::2), dim = 1, mask = l(::2)).ne.m) STOP 164
|
|
if (any (minloc (a, mask = l).ne.(/ 0 /))) STOP 165
|
|
if (minval (a, mask = l).ne.m) STOP 166
|
|
if (any (minloc (a(::2), mask = l(::2)).ne.(/ 0 /))) STOP 167
|
|
if (minval (a(::2), mask = l(::2)).ne.m) STOP 168
|
|
if (any (minloc (b, dim = 1, mask = l2).ne.(/ 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 /))) STOP 169
|
|
if (any (minval (b, dim = 1, mask = l2).ne.(/ m, m, m, m, m, m, m, m, m, m /))) STOP 170
|
|
if (any (minloc (b(::2,::2), dim = 1, mask = l2(::2,::2)).ne.(/ 0, 0, 0, 0, 0 /))) STOP 171
|
|
if (any (minval (b(::2,::2), dim = 1, mask = l2(::2,::2)).ne.(/ m, m, m, m, m /))) STOP 172
|
|
if (any (minloc (b, dim = 2, mask = l2).ne.(/ 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 /))) STOP 173
|
|
if (any (minval (b, dim = 2, mask = l2).ne.(/ m, m, m, m, m, m, m, m, m, m /))) STOP 174
|
|
if (any (minloc (b(::2,::2), dim = 2, mask = l2(::2,::2)).ne.(/ 0, 0, 0, 0, 0 /))) STOP 175
|
|
if (any (minval (b(::2,::2), dim = 2, mask = l2(::2,::2)).ne.(/ m, m, m, m, m /))) STOP 176
|
|
if (any (minloc (b, mask = l2).ne.(/ 0, 0 /))) STOP 177
|
|
if (minval (b, mask = l2).ne.m) STOP 178
|
|
if (any (minloc (b(::2,::2), mask = l2(::2,::2)).ne.(/ 0, 0 /))) STOP 179
|
|
if (minval (b(::2,::2), mask = l2(::2,::2)).ne.m) STOP 180
|
|
if (minloc (c, dim = 1, mask = l).ne.0) STOP 181
|
|
if (minval (c, dim = 1, mask = l).ne.m) STOP 182
|
|
if (minloc (c(::2), dim = 1, mask = l(::2)).ne.0) STOP 183
|
|
if (minval (c(::2), dim = 1, mask = l(::2)).ne.m) STOP 184
|
|
if (any (minloc (c, mask = l).ne.(/ 0 /))) STOP 185
|
|
if (minval (c, mask = l).ne.m) STOP 186
|
|
if (any (minloc (c(::2), mask = l(::2)).ne.(/ 0 /))) STOP 187
|
|
if (minval (c(::2), mask = l(::2)).ne.m) STOP 188
|
|
if (any (minloc (d, dim = 1, mask = l2).ne.(/ 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 /))) STOP 189
|
|
if (any (minval (d, dim = 1, mask = l2).ne.(/ m, m, m, m, m, m, m, m, m, m /))) STOP 190
|
|
if (any (minloc (d(::2,::2), dim = 1, mask = l2(::2,::2)).ne.(/ 0, 0, 0, 0, 0 /))) STOP 191
|
|
if (any (minval (d(::2,::2), dim = 1, mask = l2(::2,::2)).ne.(/ m, m, m, m, m /))) STOP 192
|
|
if (any (minloc (d, dim = 2, mask = l2).ne.(/ 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 /))) STOP 193
|
|
if (any (minval (d, dim = 2, mask = l2).ne.(/ m, m, m, m, m, m, m, m, m, m /))) STOP 194
|
|
if (any (minloc (d(::2,::2), dim = 2, mask = l2(::2,::2)).ne.(/ 0, 0, 0, 0, 0 /))) STOP 195
|
|
if (any (minval (d(::2,::2), dim = 2, mask = l2(::2,::2)).ne.(/ m, m, m, m, m /))) STOP 196
|
|
if (any (minloc (d, mask = l2).ne.(/ 0, 0 /))) STOP 197
|
|
if (minval (d, mask = l2).ne.m) STOP 198
|
|
if (any (minloc (d(::2,::2), mask = l2(::2,::2)).ne.(/ 0, 0 /))) STOP 199
|
|
if (minval (d(::2,::2), mask = l2(::2,::2)).ne.m) STOP 200
|
|
if (minloc (e, dim = 1, mask = l).ne.0) STOP 201
|
|
if (minval (e, dim = 1, mask = l).ne.n) STOP 202
|
|
if (minloc (e(::2), dim = 1, mask = l(::2)).ne.0) STOP 203
|
|
if (minval (e(::2), dim = 1, mask = l(::2)).ne.n) STOP 204
|
|
if (any (minloc (e, mask = l).ne.(/ 0 /))) STOP 205
|
|
if (minval (e, mask = l).ne.n) STOP 206
|
|
if (any (minloc (e(::2), mask = l(::2)).ne.(/ 0 /))) STOP 207
|
|
if (minval (e(::2), mask = l(::2)).ne.n) STOP 208
|
|
if (any (minloc (f, dim = 1, mask = l2).ne.(/ 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 /))) STOP 209
|
|
if (any (minval (f, dim = 1, mask = l2).ne.(/ n, n, n, n, n, n, n, n, n, n /))) STOP 210
|
|
if (any (minloc (f(::2,::2), dim = 1, mask = l2(::2,::2)).ne.(/ 0, 0, 0, 0, 0 /))) STOP 211
|
|
if (any (minval (f(::2,::2), dim = 1, mask = l2(::2,::2)).ne.(/ n, n, n, n, n /))) STOP 212
|
|
if (any (minloc (f, dim = 2, mask = l2).ne.(/ 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 /))) STOP 213
|
|
if (any (minval (f, dim = 2, mask = l2).ne.(/ n, n, n, n, n, n, n, n, n, n /))) STOP 214
|
|
if (any (minloc (f(::2,::2), dim = 2, mask = l2(::2,::2)).ne.(/ 0, 0, 0, 0, 0 /))) STOP 215
|
|
if (any (minval (f(::2,::2), dim = 2, mask = l2(::2,::2)).ne.(/ n, n, n, n, n /))) STOP 216
|
|
if (any (minloc (f, mask = l2).ne.(/ 0, 0 /))) STOP 217
|
|
if (minval (f, mask = l2).ne.n) STOP 218
|
|
if (any (minloc (f(::2,::2), mask = l2(::2,::2)).ne.(/ 0, 0 /))) STOP 219
|
|
if (minval (f(::2,::2), mask = l2(::2,::2)).ne.n) STOP 220
|
|
if (minloc (g, dim = 1, mask = l).ne.0) STOP 221
|
|
if (minval (g, dim = 1, mask = l).ne.n) STOP 222
|
|
if (minloc (g(::2), dim = 1, mask = l(::2)).ne.0) STOP 223
|
|
if (minval (g(::2), dim = 1, mask = l(::2)).ne.n) STOP 224
|
|
if (any (minloc (g, mask = l).ne.(/ 0 /))) STOP 225
|
|
if (minval (g, mask = l).ne.n) STOP 226
|
|
if (any (minloc (g(::2), mask = l(::2)).ne.(/ 0 /))) STOP 227
|
|
if (minval (g(::2), mask = l(::2)).ne.n) STOP 228
|
|
if (any (minloc (h, dim = 1, mask = l2).ne.(/ 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 /))) STOP 229
|
|
if (any (minval (h, dim = 1, mask = l2).ne.(/ n, n, n, n, n, n, n, n, n, n /))) STOP 230
|
|
if (any (minloc (h(::2,::2), dim = 1, mask = l2(::2,::2)).ne.(/ 0, 0, 0, 0, 0 /))) STOP 231
|
|
if (any (minval (h(::2,::2), dim = 1, mask = l2(::2,::2)).ne.(/ n, n, n, n, n /))) STOP 232
|
|
if (any (minloc (h, dim = 2, mask = l2).ne.(/ 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 /))) STOP 233
|
|
if (any (minval (h, dim = 2, mask = l2).ne.(/ n, n, n, n, n, n, n, n, n, n /))) STOP 234
|
|
if (any (minloc (h(::2,::2), dim = 2, mask = l2(::2,::2)).ne.(/ 0, 0, 0, 0, 0 /))) STOP 235
|
|
if (any (minval (h(::2,::2), dim = 2, mask = l2(::2,::2)).ne.(/ n, n, n, n, n /))) STOP 236
|
|
if (any (minloc (h, mask = l2).ne.(/ 0, 0 /))) STOP 237
|
|
if (minval (h, mask = l2).ne.n) STOP 238
|
|
if (any (minloc (h(::2,::2), mask = l2(::2,::2)).ne.(/ 0, 0 /))) STOP 239
|
|
if (minval (h(::2,::2), mask = l2(::2,::2)).ne.n) STOP 240
|
|
a = 7.0
|
|
b = 7.0
|
|
c = 7.0
|
|
d = 7.0
|
|
end
|