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]);