7 if (size(x(n
:2:-3)) /= 0) STOP 1
13 subroutine ha0020(mf3
)
15 integer xca(2), xda(2), mf3
20 xca(1:2:-1) = xda(1:2:mf3
)
22 if (any (xca
/= 1)) STOP 2
23 if (any(xda(1:2:mf3
) /= xda(1:0))) STOP 3
24 if (size(xda(1:2:mf3
)) /= 0) STOP 4
25 if (any(shape(xda(1:2:mf3
)) /= 0)) STOP 5
26 if (any(ubound(xda(1:2:mf3
)) /= 0)) STOP 6
27 if (ubound(xda(1:2:mf3
),1) /= 0) STOP 7
28 if (lbound(xda(1:2:mf3
),1) /= 1) STOP 8