108       LOGICAL            LERR, OK  variable
111       COMMON             /INFOC/INFOT, NOUTC, OK, LERR  local
441       LOGICAL            LERR, OK  local
443       COMMON             /INFOC/INFOT, NOUTC, OK, LERR  local
781       LOGICAL            LERR, OK  local
783       COMMON             /INFOC/INFOT, NOUTC, OK, LERR  local
1121       LOGICAL            LERR, OK  local
1123       COMMON             /INFOC/INFOT, NOUTC, OK, LERR  local
1478       LOGICAL            LERR, OK  local
1480       COMMON             /INFOC/INFOT, NOUTC, OK, LERR  local
1740       LOGICAL            LERR, OK  local
1742       COMMON             /INFOC/INFOT, NOUTC, OK, LERR  local
2019       LOGICAL            LERR, OK  local
2021       COMMON             /INFOC/INFOT, NOUTC, OK, LERR  local
2303       LOGICAL            LERR, OK  local
2313       COMMON             /INFOC/INFOT, NOUTC, OK, LERR  local
2320       LERR = .FALSE.
2326       CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2329       CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2332       CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2335       CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2338       CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2341       CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2345       CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2348       CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2351       CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2354       CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2357       CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2360       CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2363       CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2366       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 )
2386       CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2389       CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2392       CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2395       CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2398       CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2401       CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2405       CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2408       CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2411       CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2414       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 )
2437       CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2440       CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2443       CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2446       CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2449       CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2452       CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2455       CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2459       CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2462       CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2465       CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2468       CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2471       CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2475       CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2478       CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2481       CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2484       CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2487       CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2490       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 )
2516       CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2519       CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2522       CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2525       CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2528       CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2532       CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2535       CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2538       CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2541       CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2544       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 )
2561       CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2564       CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2567       CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2571       CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2574       CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2577       CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2580       CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2583       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 )
3057       SUBROUTINE CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )  argument
3069       LOGICAL            LERR, OK  local
3072       IF( .NOT.LERR )THEN
3076       LERR = .FALSE.
3107       LOGICAL            LERR, OK  local
3110       COMMON             /INFOC/INFOT, NOUT, OK, LERR  local
3113       LERR = .TRUE.