Lines Matching defs:INFOT
112 INTEGER INFOT, NOUTC
116 COMMON /INFOC/INFOT, NOUTC, OK, LERR
301 INFOT = 0
452 INTEGER INFOT, NOUTC
455 COMMON /INFOC/INFOT, NOUTC, OK, LERR
797 INTEGER INFOT, NOUTC
800 COMMON /INFOC/INFOT, NOUTC, OK, LERR
1144 INTEGER INFOT, NOUTC
1147 COMMON /INFOC/INFOT, NOUTC, OK, LERR
1507 INTEGER INFOT, NOUTC
1510 COMMON /INFOC/INFOT, NOUTC, OK, LERR
1786 INTEGER INFOT, NOUTC
1789 COMMON /INFOC/INFOT, NOUTC, OK, LERR
2072 INTEGER INFOT, NOUTC
2075 COMMON /INFOC/INFOT, NOUTC, OK, LERR
2358 INTEGER INFOT, NOUTC
2370 COMMON /INFOC/INFOT, NOUTC, OK, LERR
2381 10 INFOT = 1
2383 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2384 INFOT = 2
2386 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2387 INFOT = 3
2389 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2390 INFOT = 6
2392 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2393 INFOT = 8
2395 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2396 INFOT = 11
2398 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2400 20 INFOT = 1
2402 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2403 INFOT = 2
2405 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2406 INFOT = 3
2408 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2409 INFOT = 4
2411 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2412 INFOT = 5
2414 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2415 INFOT = 8
2417 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2418 INFOT = 10
2420 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2421 INFOT = 13
2423 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2425 30 INFOT = 1
2427 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2428 INFOT = 2
2430 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2431 INFOT = 5
2433 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2434 INFOT = 7
2436 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2437 INFOT = 10
2439 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2441 40 INFOT = 1
2443 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2444 INFOT = 2
2446 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2447 INFOT = 3
2449 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2450 INFOT = 6
2452 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2453 INFOT = 8
2455 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2456 INFOT = 11
2458 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2460 50 INFOT = 1
2462 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2463 INFOT = 2
2465 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2466 INFOT = 6
2468 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2469 INFOT = 9
2471 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2473 60 INFOT = 1
2475 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2476 INFOT = 2
2478 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2479 INFOT = 3
2481 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2482 INFOT = 4
2484 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2485 INFOT = 6
2487 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2488 INFOT = 8
2490 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2492 70 INFOT = 1
2494 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2495 INFOT = 2
2497 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2498 INFOT = 3
2500 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2501 INFOT = 4
2503 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2504 INFOT = 5
2506 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2507 INFOT = 7
2509 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2510 INFOT = 9
2512 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2514 80 INFOT = 1
2516 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2517 INFOT = 2
2519 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2520 INFOT = 3
2522 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2523 INFOT = 4
2525 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2526 INFOT = 7
2528 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2530 90 INFOT = 1
2532 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2533 INFOT = 2
2535 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2536 INFOT = 3
2538 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2539 INFOT = 4
2541 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2542 INFOT = 6
2544 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2545 INFOT = 8
2547 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2549 100 INFOT = 1
2551 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2552 INFOT = 2
2554 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2555 INFOT = 3
2557 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2558 INFOT = 4
2560 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2561 INFOT = 5
2563 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2564 INFOT = 7
2566 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2567 INFOT = 9
2569 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2571 110 INFOT = 1
2573 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2574 INFOT = 2
2576 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2577 INFOT = 3
2579 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2580 INFOT = 4
2582 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2583 INFOT = 7
2585 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2587 120 INFOT = 1
2589 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2590 INFOT = 2
2592 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2593 INFOT = 5
2595 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2596 INFOT = 7
2598 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2599 INFOT = 9
2601 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2603 130 INFOT = 1
2605 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2606 INFOT = 2
2608 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2609 INFOT = 5
2611 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2612 INFOT = 7
2614 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2615 INFOT = 9
2617 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2619 140 INFOT = 1
2621 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2622 INFOT = 2
2624 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2625 INFOT = 5
2627 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2628 INFOT = 7
2630 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2632 150 INFOT = 1
2634 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2635 INFOT = 2
2637 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2638 INFOT = 5
2640 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2642 160 INFOT = 1
2644 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2645 INFOT = 2
2647 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2648 INFOT = 5
2650 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2651 INFOT = 7
2653 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2654 INFOT = 9
2656 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2658 170 INFOT = 1
2660 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2661 INFOT = 2
2663 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2664 INFOT = 5
2666 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2667 INFOT = 7
2669 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
3168 SUBROUTINE CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
3179 INTEGER INFOT, NOUT
3184 WRITE( NOUT, FMT = 9999 )INFOT, SRNAMT
3217 INTEGER INFOT, NOUT
3221 COMMON /INFOC/INFOT, NOUT, OK, LERR
3225 IF( INFO.NE.INFOT )THEN
3226 IF( INFOT.NE.0 )THEN
3227 WRITE( NOUT, FMT = 9999 )INFO, INFOT