1 /* { dg-options "-O2 -fgraphite-identity" } */
2 typedef long int integer;
3 typedef double doublereal;
4
balanc_(nm,n,a,low,igh,scale)5 static int balanc_(nm, n, a, low, igh, scale)
6 int nm, n, low, igh, scale;
7 doublereal *a;
8 {
9 integer a_dim1, a_offset, i__1, i__2;
10 integer iexc;
11 integer i__, j, k, l, m;
12 integer jj;
13 goto L100;
14 L20:
15 if (j == m) {
16 goto L50;
17 }
18 for (i__ = 1; i__ <= i__1; ++i__) {
19 a[i__ + j * a_dim1] = a[i__ + m * a_dim1];
20 }
21 L50:
22 switch ((int)iexc) {
23 case 2: goto L130;
24 }
25 L100:
26 for (jj = 1; jj <= i__1; ++jj) {
27 goto L20;
28 }
29 L130:
30 for (j = k; j <= i__1; ++j) {
31 goto L20;
32 }
33 }
34
pymol_rg_(integer * nm,integer * n,doublereal * a,doublereal * wr,doublereal * fv1,integer * ierr)35 int pymol_rg_(integer *nm, integer *n, doublereal *a, doublereal *wr,
36 doublereal *fv1,integer *ierr)
37 {
38 integer a_dim1, a_offset, z_dim1, z_offset;
39 integer is1, is2;
40 balanc_(nm, n, &a[a_offset], &is1, &is2, &fv1[1]);
41 }
42