Lines Matching refs:iv
17 /* Subroutine */ int dg7lit_(d__, g, iv, liv, lv, p, ps, v, x, y) in dg7lit_() argument
19 integer *iv, *liv, *lv, *p, *ps;
274 --iv;
282 i__ = iv[1];
291 iv[4] = iv[4] + *p * (*p * 3 + 19) / 2 + 7;
293 dparck_(&c__1, &d__[1], &iv[1], liv, lv, p, &v[1]);
294 i__ = iv[1] - 2;
317 iv[62] = iv[42] + pp1o2;
318 iv[43] = iv[62] + pp1o2;
319 iv[40] = iv[43] + *p;
320 iv[41] = iv[40] + *p;
321 iv[37] = iv[41] + *p;
322 iv[65] = iv[37] + *p;
323 iv[56] = iv[65] + (*p << 2) + 7;
324 iv[47] = iv[56] + pp1o2;
325 if (iv[1] != 13) {
328 iv[1] = 14;
334 iv[31] = 0;
335 iv[6] = 1;
336 iv[30] = 1;
337 iv[7] = 1;
338 iv[35] = -1;
339 iv[11] = 2;
340 iv[2] = 0;
341 iv[55] = 0;
342 iv[26] = 0;
343 iv[52] = 0;
344 iv[53] = 0;
345 iv[8] = 0;
346 iv[9] = 0;
347 iv[74] = 0;
354 iv[5] = 1;
355 if (iv[62] < 0) {
358 if (iv[25] > 1) {
359 iv[5] = 2;
361 s1 = iv[62];
362 if (iv[25] == 0 || iv[25] > 2) {
366 iv[1] = 1;
367 j = iv[76];
373 iv[j] = i__;
382 if (iv[35] == 0) {
385 if (iv[35] > 0) {
389 iv[1] = 2;
390 if (iv[2] == 0) {
393 iv[1] = 63;
399 iv[34] = -1;
400 iv[33] = -1;
401 iv[74] = 0;
402 if (iv[35] > 0) {
408 if (iv[2] == 0) {
411 iv[1] = 65;
414 if (iv[71] <= 0 && iv[78] <= 0) {
420 dig1 = iv[37];
430 if (iv[55] != 0) {
433 if (iv[35] == 0) {
436 iv[35] = 0;
438 if (iv[25] <= 2) {
444 iv[13] = iv[15];
445 iv[15] = -1;
446 if (iv[25] > 3) {
447 iv[15] = 1;
449 iv[55] = 70;
456 iv[55] = 0;
457 iv[35] = 0;
458 iv[52] = 0;
459 iv[53] = 0;
460 iv[15] = iv[13];
461 s1 = iv[62];
463 hc1 = iv[71];
470 rmat1 = iv[78];
474 iv[1] = 2;
484 ditsum_(&d__[1], &g[1], &iv[1], liv, lv, p, &v[1], &x[1]);
486 k = iv[31];
487 if (k < iv[18]) {
490 iv[1] = 10;
493 iv[31] = k + 1;
500 step1 = iv[40];
507 step1 = iv[40];
516 x01 = iv[43];
518 iv[29] = 4;
519 iv[56] = -abs(iv[56]);
520 iv[64] = iv[5];
532 iv[1] = 11;
542 k = iv[31];
546 if (iv[6] < iv[17] + iv[52]) {
549 iv[1] = 9;
558 iv[55] = iv[1];
565 step1 = iv[40];
566 w1 = iv[65];
567 h1 = iv[56];
569 if (iv[5] == 2) {
576 rmat1 = iv[78];
580 qtr1 = iv[77];
584 ipiv1 = iv[76];
585 dl7mst_(&d__[1], &g[1], &iv[75], &iv[ipiv1], &iv[34], p, &v[qtr1], &v[
590 iv[56] = -abs(h1);
594 iv[33] = -1;
605 iv[56] = h1;
606 iv[74] = 0;
607 j = iv[71];
612 rmat1 = iv[78];
615 s1 = iv[62];
629 h1 = iv[56];
630 iv[33] = -1;
635 dig1 = iv[37];
636 lmat1 = iv[42];
637 dg7qts_(&d__[1], &v[dig1], &v[h1], &iv[33], &v[lmat1], p, &v[step1], &v[1]
639 if (iv[34] > 0) {
640 iv[34] = 0;
644 if (iv[29] != 6) {
647 if (iv[9] != 2) {
656 iv[2] = 0;
660 if (iv[29] != 5) {
669 x01 = iv[43];
670 step1 = iv[40];
672 if (iv[9] != 2) {
681 x01 = iv[43];
682 step1 = iv[40];
684 ++iv[6];
685 iv[1] = 1;
694 x01 = iv[43];
696 da7sst_(&iv[1], liv, lv, &v[1]);
697 step1 = iv[40];
698 lstgst = iv[41];
699 i__ = iv[9] + 1;
716 iv[9] = rstrst;
721 if (iv[12] == 0) {
724 iv[56] = -abs(iv[56]);
725 iv[64] += 2;
726 l = iv[60];
729 l = iv[29] - 4;
730 stpmod = iv[5];
749 s1 = iv[62];
752 if (iv[5] == 1) {
761 iv[5] = 3 - iv[5];
765 iv[56] = -abs(iv[56]);
766 iv[64] += 2;
767 l = iv[60];
791 iv[55] = l;
795 if (iv[13] == 14) {
798 iv[13] = 14;
804 iv[26] = 0;
805 iv[67] = 0;
809 if (iv[29] != 3) {
812 step1 = iv[40];
813 temp1 = iv[41];
814 temp2 = iv[65];
818 hc1 = iv[71];
825 rmat1 = iv[78];
833 s1 = iv[62];
840 ++iv[30];
841 g01 = iv[65];
843 iv[1] = 2;
844 iv[2] = 0;
850 g01 = iv[65];
852 step1 = iv[40];
853 temp1 = iv[41];
854 temp2 = iv[65];
855 if (iv[29] != 3) {
893 s1 = iv[62];
905 hc1 = iv[71];
913 rmat1 = iv[78];
924 iv[1] = 2;
933 iv[1] = 64;
940 if (iv[57] == 0) {
943 if (iv[74] != 0) {
946 if (iv[55] >= 7) {
949 if (iv[67] > 0) {
952 if (iv[26] > 0) {
955 if (abs(iv[15]) >= 3) {
958 if (iv[9] == 0) {
959 iv[9] = 2;
967 iv[9] = 0;
969 df7hes_(&d__[1], &g[1], &i__, &iv[1], liv, lv, p, &v[1], &x[1]);
976 ++iv[52];
977 ++iv[6];
978 iv[1] = 1;
982 ++iv[53];
983 ++iv[30];
984 iv[7] = iv[6] + iv[53];
985 iv[1] = 2;
989 h1 = abs(iv[56]);
990 iv[56] = -h1;
992 rmat1 = iv[78];
996 lmat1 = iv[42];
1001 hc1 = iv[71];
1002 iv[74] = h1;
1010 lmat1 = iv[42];
1011 h1 = iv[74];
1015 if (iv[55] == 70) {
1019 iv[74] = -1;
1026 iv[74] = -1;
1027 step1 = iv[40];
1034 iv[74] = h1;
1039 iv[35] = 0;
1040 iv[1] = iv[55];
1041 iv[55] = 0;
1048 iv[1] = 1400;