doublereal *, integer *, doublereal *);#defineaf_ref(a_1,a_2) af[(a_2)*af_dim1 + a_1]/* -- LAPACK test routine (version 3.0) -- Univ. of Tennessee, Univ. of California Berkeley, NAG Ltd., Courant Institute, Argonne National Lab, and Rice University September 30, 1994 Purpos...