Lines Matching refs:INFOT
111 INTEGER INFOT, NOUTC variable
115 COMMON /INFOC/INFOT, NOUTC, OK, LERR local
300 INFOT = 0
450 INTEGER INFOT, NOUTC local
453 COMMON /INFOC/INFOT, NOUTC, OK, LERR local
794 INTEGER INFOT, NOUTC local
797 COMMON /INFOC/INFOT, NOUTC, OK, LERR local
1140 INTEGER INFOT, NOUTC local
1143 COMMON /INFOC/INFOT, NOUTC, OK, LERR local
1502 INTEGER INFOT, NOUTC local
1505 COMMON /INFOC/INFOT, NOUTC, OK, LERR local
1780 INTEGER INFOT, NOUTC local
1783 COMMON /INFOC/INFOT, NOUTC, OK, LERR local
2065 INTEGER INFOT, NOUTC local
2068 COMMON /INFOC/INFOT, NOUTC, OK, LERR local
2351 INTEGER INFOT, NOUTC local
2363 COMMON /INFOC/INFOT, NOUTC, OK, LERR local
2374 10 INFOT = 1
2376 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2377 INFOT = 2
2379 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2380 INFOT = 3
2382 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2383 INFOT = 6
2385 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2386 INFOT = 8
2388 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2389 INFOT = 11
2391 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2393 20 INFOT = 1
2395 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2396 INFOT = 2
2398 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2399 INFOT = 3
2401 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2402 INFOT = 4
2404 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2405 INFOT = 5
2407 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2408 INFOT = 8
2410 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2411 INFOT = 10
2413 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2414 INFOT = 13
2416 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2418 30 INFOT = 1
2420 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2421 INFOT = 2
2423 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2424 INFOT = 5
2426 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2427 INFOT = 7
2429 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2430 INFOT = 10
2432 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2434 40 INFOT = 1
2436 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2437 INFOT = 2
2439 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2440 INFOT = 3
2442 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2443 INFOT = 6
2445 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2446 INFOT = 8
2448 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2449 INFOT = 11
2451 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2453 50 INFOT = 1
2455 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2456 INFOT = 2
2458 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2459 INFOT = 6
2461 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2462 INFOT = 9
2464 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2466 60 INFOT = 1
2468 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2469 INFOT = 2
2471 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2472 INFOT = 3
2474 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2475 INFOT = 4
2477 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2478 INFOT = 6
2480 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2481 INFOT = 8
2483 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2485 70 INFOT = 1
2487 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2488 INFOT = 2
2490 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2491 INFOT = 3
2493 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2494 INFOT = 4
2496 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2497 INFOT = 5
2499 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2500 INFOT = 7
2502 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2503 INFOT = 9
2505 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2507 80 INFOT = 1
2509 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2510 INFOT = 2
2512 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2513 INFOT = 3
2515 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2516 INFOT = 4
2518 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2519 INFOT = 7
2521 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2523 90 INFOT = 1
2525 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2526 INFOT = 2
2528 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2529 INFOT = 3
2531 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2532 INFOT = 4
2534 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2535 INFOT = 6
2537 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2538 INFOT = 8
2540 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2542 100 INFOT = 1
2544 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2545 INFOT = 2
2547 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2548 INFOT = 3
2550 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2551 INFOT = 4
2553 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2554 INFOT = 5
2556 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2557 INFOT = 7
2559 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2560 INFOT = 9
2562 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2564 110 INFOT = 1
2566 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2567 INFOT = 2
2569 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2570 INFOT = 3
2572 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2573 INFOT = 4
2575 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2576 INFOT = 7
2578 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2580 120 INFOT = 1
2582 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2583 INFOT = 2
2585 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2586 INFOT = 5
2588 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2589 INFOT = 7
2591 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2592 INFOT = 9
2594 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2596 130 INFOT = 1
2598 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2599 INFOT = 2
2601 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2602 INFOT = 5
2604 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2605 INFOT = 7
2607 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2608 INFOT = 9
2610 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2612 140 INFOT = 1
2614 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2615 INFOT = 2
2617 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2618 INFOT = 5
2620 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2621 INFOT = 7
2623 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2625 150 INFOT = 1
2627 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2628 INFOT = 2
2630 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2631 INFOT = 5
2633 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2635 160 INFOT = 1
2637 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2638 INFOT = 2
2640 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2641 INFOT = 5
2643 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2644 INFOT = 7
2646 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2647 INFOT = 9
2649 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2651 170 INFOT = 1
2653 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2654 INFOT = 2
2656 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2657 INFOT = 5
2659 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2660 INFOT = 7
2662 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
3160 SUBROUTINE CHKXER( SRNAMT, INFOT, NOUT, LERR, OK ) argument
3171 INTEGER INFOT, NOUT local
3176 WRITE( NOUT, FMT = 9999 )INFOT, SRNAMT
3209 INTEGER INFOT, NOUT local
3213 COMMON /INFOC/INFOT, NOUT, OK, LERR local
3217 IF( INFO.NE.INFOT )THEN
3218 IF( INFOT.NE.0 )THEN
3219 WRITE( NOUT, FMT = 9999 )INFO, INFOT