1 /* { dg-options "-O2 -fgraphite-identity" } */
2 typedef long int integer;
3 typedef double doublereal;
5 static int balanc_(nm, n, a, low, igh, scale)
8 integer a_dim1, a_offset, i__1, i__2;
10 integer i__, j, k, l, m;
17 for (i__ = 1; i__ <= i__1; ++i__) {
18 a[i__ + j * a_dim1] = a[i__ + m * a_dim1];
25 for (jj = 1; jj <= i__1; ++jj) {
29 for (j = k; j <= i__1; ++j) {
34 int pymol_rg_(integer *nm, integer *n, doublereal *a, doublereal *wr,
35 doublereal *fv1,integer *ierr)
37 integer a_dim1, a_offset, z_dim1, z_offset;
39 balanc_(nm, n, &a[a_offset], &is1, &is2, &fv1[1]);