Lines Matching defs:OK
85 LOGICAL LERR, OK
88 COMMON /INFOC/INFOT, NOUTC, OK, LERR
274 OK = .TRUE.
404 LOGICAL LERR, OK
406 COMMON /INFOC/INFOT, NOUTC, OK, LERR
533 IF( .NOT.OK )THEN
685 LOGICAL LERR, OK
687 COMMON /INFOC/INFOT, NOUTC, OK, LERR
799 IF( .NOT.OK )THEN
956 LOGICAL LERR, OK
958 COMMON /INFOC/INFOT, NOUTC, OK, LERR
1073 IF( .NOT.OK )THEN
1261 LOGICAL LERR, OK
1263 COMMON /INFOC/INFOT, NOUTC, OK, LERR
1358 IF( .NOT.OK )THEN
1536 LOGICAL LERR, OK
1538 COMMON /INFOC/INFOT, NOUTC, OK, LERR
1654 IF( .NOT.OK )THEN
1820 LOGICAL LERR, OK
1829 COMMON /INFOC/INFOT, NOUTC, OK, LERR
1831 * OK is set to .FALSE. by the special version of XERBLA or by CHKXER
1833 OK = .TRUE.
1840 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
1843 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
1846 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
1849 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
1852 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
1855 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
1858 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
1861 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
1864 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
1867 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
1870 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
1873 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
1876 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
1879 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
1882 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
1885 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
1888 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
1891 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
1894 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
1897 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
1900 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
1903 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
1906 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
1909 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
1912 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
1915 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
1918 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
1921 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
1925 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
1928 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
1931 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
1934 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
1937 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
1940 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
1943 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
1946 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
1949 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
1952 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
1955 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
1958 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
1961 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
1964 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
1967 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
1970 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
1973 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
1976 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
1979 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
1982 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
1985 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
1988 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
1992 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
1995 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
1998 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2001 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2004 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2007 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2010 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2013 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2016 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2019 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2022 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2025 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2028 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2031 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2034 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2037 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2040 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2043 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2046 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2049 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2052 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2055 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2058 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2061 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2064 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2067 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2070 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2073 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2076 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2079 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2082 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2085 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2088 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2091 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2094 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2097 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2101 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2104 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2107 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2110 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2113 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2116 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2119 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2122 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2125 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2128 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2131 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2134 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2137 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2140 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2143 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2146 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2149 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2152 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2155 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2158 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2161 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2164 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2167 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2170 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2173 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2176 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2179 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2182 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2185 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2188 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2191 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2194 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2197 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2200 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2203 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2206 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2210 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2213 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2216 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2219 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2222 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2225 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2228 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2231 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2234 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2237 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2240 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2243 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2246 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2249 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2252 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2255 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2258 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2261 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2265 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2268 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2271 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2274 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2277 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2280 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2283 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2286 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2289 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2292 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2295 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2298 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2301 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2304 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2307 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2310 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2313 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2316 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2319 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2322 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2325 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2328 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2330 70 IF( OK )THEN
2738 SUBROUTINE CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2752 LOGICAL LERR, OK
2757 OK = .FALSE.
2792 LOGICAL LERR, OK
2795 COMMON /INFOC/INFOT, NOUT, OK, LERR
2805 OK = .FALSE.
2809 OK = .FALSE.