91       LOGICAL            LERR, OK  variable
94       COMMON             /INFOC/INFOT, NOUTC, OK, LERR  local
418       LOGICAL            LERR, OK  local
420       COMMON             /INFOC/INFOT, NOUTC, OK, LERR  local
703       LOGICAL            LERR, OK  local
705       COMMON             /INFOC/INFOT, NOUTC, OK, LERR  local
983       LOGICAL            LERR, OK  local
985       COMMON             /INFOC/INFOT, NOUTC, OK, LERR  local
1292       LOGICAL            LERR, OK  local
1294       COMMON             /INFOC/INFOT, NOUTC, OK, LERR  local
1624       LOGICAL            LERR, OK  local
1626       COMMON             /INFOC/INFOT, NOUTC, OK, LERR  local
1964       LOGICAL            LERR, OK  local
1974       COMMON             /INFOC/INFOT, NOUTC, OK, LERR  local
1981       LERR = .FALSE.
1986       CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
1989       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 )
2100       CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2103       CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2106       CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2109       CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2112       CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2115       CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2118       CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2121       CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2124       CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2127       CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2130       CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2133       CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2136       CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2139       CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2142       CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2145       CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2148       CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2151       CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2154       CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2157       CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2160       CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2163       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 )
2209       CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2212       CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2215       CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2218       CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2221       CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2224       CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2227       CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2230       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 )
2264       CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2267       CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2270       CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2273       CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2276       CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2279       CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2282       CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2285       CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2288       CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2291       CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2294       CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2297       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 )
2331       CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2334       CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2337       CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2340       CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2343       CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2346       CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2349       CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2352       CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2355       CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2358       CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2361       CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2364       CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2367       CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2370       CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2373       CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2376       CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2379       CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2382       CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2385       CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2388       CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2391       CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2394       CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2397       CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2400       CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2403       CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2406       CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2409       CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2412       CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2415       CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2418       CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2421       CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2424       CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2427       CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2430       CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2433       CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2436       CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2439       CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2442       CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2445       CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2448       CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2451       CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2454       CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2458       CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2461       CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2464       CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2467       CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2470       CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2473       CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2476       CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2479       CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2482       CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2485       CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2488       CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2491       CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2494       CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2497       CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2500       CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2503       CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2506       CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2509       CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2512       CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2515       CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2518       CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2521       CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2524       CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2527       CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2530       CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2533       CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2536       CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2539       CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2542       CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2545       CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2548       CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2551       CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2554       CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2557       CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2560       CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2563       CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2566       CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2569       CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2572       CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2575       CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2578       CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2581       CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2584       CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2587       CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2590       CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2593       CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2596       CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2599       CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2602       CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2605       CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2608       CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2611       CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2615       CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2618       CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2621       CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2624       CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2627       CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2630       CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2633       CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2636       CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2639       CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2642       CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2645       CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2648       CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2651       CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2654       CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2657       CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2660       CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2663       CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2666       CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2670       CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2673       CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2676       CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2679       CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2682       CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2685       CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2688       CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2691       CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2694       CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2697       CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2700       CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2703       CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2706       CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2709       CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2712       CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2715       CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2718       CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2721       CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2725       CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2728       CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2731       CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2734       CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2737       CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2740       CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2743       CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2746       CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2749       CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2752       CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2755       CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2758       CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2761       CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2764       CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2767       CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2770       CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2773       CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2776       CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2779       CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2782       CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2785       CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2788       CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2792       CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2795       CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2798       CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2801       CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2804       CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2807       CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2810       CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2813       CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2816       CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2819       CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2822       CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2825       CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2828       CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2831       CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2834       CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2837       CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2840       CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2843       CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2846       CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2849       CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2852       CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2855       CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
3354       SUBROUTINE CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )  argument
3368       LOGICAL            LERR, OK  local
3371       IF( .NOT.LERR )THEN
3375       LERR = .FALSE.
3408       LOGICAL            LERR, OK  local
3411       COMMON             /INFOC/INFOT, NOUT, OK, LERR  local
3414       LERR = .TRUE.