--- a/Real/real.pd
+++ b/Real/real.pd
@@ -174,15 +174,15 @@
 		$TFD(sgesvd_,dgesvd_)(
 		&trau,
 		&travt,
-		&$PRIV(__m_size),
-		&$PRIV(__n_size),
-		$P(A),
-		&$PRIV(__m_size),
+		&(integer){$PRIV(__m_size)},
+		&(integer){$PRIV(__n_size)},
+		$P(A),
+		&(integer){$PRIV(__m_size)},
 		$P(s),
 		$P(U),
-		&$PRIV(__p_size),
+		&(integer){$PRIV(__p_size)},
 		$P(VT),
-		&$PRIV(__s_size),
+		&(integer){$PRIV(__s_size)},
 		&tmp_work,
 		&lwork,
 		$P(info));
@@ -200,15 +200,15 @@
 		$TFD(sgesvd_,dgesvd_)(
 		&trau,
 		&travt,
-		&$PRIV(__m_size),
-		&$PRIV(__n_size),
-		$P(A),
-		&$PRIV(__m_size),
+		&(integer){$PRIV(__m_size)},
+		&(integer){$PRIV(__n_size)},
+		$P(A),
+		&(integer){$PRIV(__m_size)},
 		$P(s),
 		$P(U),
-		&$PRIV(__p_size),
+		&(integer){$PRIV(__p_size)},
 		$P(VT),
-		&$PRIV(__s_size),
+		&(integer){$PRIV(__s_size)},
 		work,
 		&lwork,
 		$P(info));
@@ -348,15 +348,15 @@
 
 		$TFD(sgesdd_,dgesdd_)(
 		&tra,
-		&$PRIV(__m_size),
-		&$PRIV(__n_size),
-		$P(A),
-		&$PRIV(__m_size),
+		&(integer){$PRIV(__m_size)},
+		&(integer){$PRIV(__n_size)},
+		$P(A),
+		&(integer){$PRIV(__m_size)},
 		$P(s),
 		$P(U),
-		&$PRIV(__p_size),
+		&(integer){$PRIV(__p_size)},
 		$P(VT),
-		&$PRIV(__s_size),
+		&(integer){$PRIV(__s_size)},
 		&tmp_work,
 		&lwork,
 		iwork,
@@ -384,15 +384,15 @@
              %}
 		$TFD(sgesdd_,dgesdd_)(
 		&tra,
-		&$PRIV(__m_size),
-		&$PRIV(__n_size),
-		$P(A),
-		&$PRIV(__m_size),
+		&(integer){$PRIV(__m_size)},
+		&(integer){$PRIV(__n_size)},
+		$P(A),
+		&(integer){$PRIV(__m_size)},
 		$P(s),
 		$P(U),
-		&$PRIV(__p_size),
+		&(integer){$PRIV(__p_size)},
 		$P(VT),
-		&$PRIV(__s_size),
+		&(integer){$PRIV(__s_size)},
 		work,
 		&lwork,
 		iwork,
@@ -525,23 +525,23 @@
 		&pjobu,
 		&pjobv,
 		&pjobq,
-		&$PRIV(__m_size),
-		&$PRIV(__n_size),
-		&$PRIV(__p_size),
+		&(integer){$PRIV(__m_size)},
+		&(integer){$PRIV(__n_size)},
+		&(integer){$PRIV(__p_size)},
 		$P(k),
 		$P(l),
 		$P(A),
-		&$PRIV(__m_size),
+		&(integer){$PRIV(__m_size)},
 		$P(B),
-		&$PRIV(__p_size),
+		&(integer){$PRIV(__p_size)},
 		$P(alpha),
 		$P(beta),
 		$P(U),
-		&$PRIV(__q_size),
+		&(integer){$PRIV(__q_size)},
 		$P(V),
-		&$PRIV(__s_size),
+		&(integer){$PRIV(__s_size)},
 		$P(Q),
-		&$PRIV(__u_size),
+		&(integer){$PRIV(__u_size)},
 		work,
 		$P(iwork),
 		$P(info));
@@ -750,15 +750,15 @@
 		$TFD(sgeev_,dgeev_)(
 		&jvl,
 		&jvr,
-		&$PRIV(__n_size),
-		$P(A),
-		&$PRIV(__n_size),
+		&(integer){$PRIV(__n_size)},
+		$P(A),
+		&(integer){$PRIV(__n_size)},
 		$P(wr),
 		$P(wi),
 		$P(vl),
-		&$PRIV(__m_size),
+		&(integer){$PRIV(__m_size)},
 		$P(vr),
-		&$PRIV(__p_size),
+		&(integer){$PRIV(__p_size)},
 		&tmp_work,
 		&lwork,
 		$P(info));
@@ -776,15 +776,15 @@
 		$TFD(sgeev_,dgeev_)(
 		&jvl,
 		&jvr,
-		&$PRIV(__n_size),
-		$P(A),
-		&$PRIV(__n_size),
+		&(integer){$PRIV(__n_size)},
+		$P(A),
+		&(integer){$PRIV(__n_size)},
 		$P(wr),
 		$P(wi),
 		$P(vl),
-		&$PRIV(__m_size),
+		&(integer){$PRIV(__m_size)},
 		$P(vr),
-		&$PRIV(__p_size),
+		&(integer){$PRIV(__p_size)},
 		work,
 		&lwork,
 		$P(info));
@@ -938,15 +938,15 @@
 		&jvl,
 		&jvr,
 		&sens,
-		&$PRIV(__n_size),
-		$P(A),
-		&$PRIV(__n_size),
+		&(integer){$PRIV(__n_size)},
+		$P(A),
+		&(integer){$PRIV(__n_size)},
 		$P(wr),
 		$P(wi),
 		$P(vl),
-		&$PRIV(__m_size),
+		&(integer){$PRIV(__m_size)},
 		$P(vr),
-		&$PRIV(__p_size),
+		&(integer){$PRIV(__p_size)},
 		$P(ilo),
 		$P(ihi),
 		$P(scale),
@@ -973,15 +973,15 @@
 		&jvl,
 		&jvr,
 		&sens,
-		&$PRIV(__n_size),
-		$P(A),
-		&$PRIV(__n_size),
+		&(integer){$PRIV(__n_size)},
+		$P(A),
+		&(integer){$PRIV(__n_size)},
 		$P(wr),
 		$P(wi),
 		$P(vl),
-		&$PRIV(__m_size),
+		&(integer){$PRIV(__m_size)},
 		$P(vr),
-		&$PRIV(__p_size),
+		&(integer){$PRIV(__p_size)},
 		$P(ilo),
 		$P(ihi),
 		$P(scale),
@@ -1185,18 +1185,18 @@
 		$TFD(sggev_,dggev_)(
 		&pjobvl,
 		&pjobvr,
-		&$PRIV(__n_size),
-		$P(A),
-		&$PRIV(__n_size),
+		&(integer){$PRIV(__n_size)},
+		$P(A),
+		&(integer){$PRIV(__n_size)},
 		$P(B),
-		&$PRIV(__n_size),
+		&(integer){$PRIV(__n_size)},
 		$P(alphar),
 		$P(alphai),
 		$P(beta),
 		$P(VL),
-		&$PRIV(__m_size),
+		&(integer){$PRIV(__m_size)},
 		$P(VR),
-		&$PRIV(__p_size),
+		&(integer){$PRIV(__p_size)},
 		&tmp_work,
 		&lwork,
 		$P(info));
@@ -1213,18 +1213,18 @@
 		$TFD(sggev_,dggev_)(
 		&pjobvl,
 		&pjobvr,
-		&$PRIV(__n_size),
-		$P(A),
-		&$PRIV(__n_size),
+		&(integer){$PRIV(__n_size)},
+		$P(A),
+		&(integer){$PRIV(__n_size)},
 		$P(B),
-		&$PRIV(__n_size),
+		&(integer){$PRIV(__n_size)},
 		$P(alphar),
 		$P(alphai),
 		$P(beta),
 		$P(VL),
-		&$PRIV(__m_size),
+		&(integer){$PRIV(__m_size)},
 		$P(VR),
-		&$PRIV(__p_size),
+		&(integer){$PRIV(__p_size)},
 		work,
 		&lwork,
 		$P(info));
@@ -1401,18 +1401,18 @@
 		&pjobvl,
 		&pjobvr,
 		&psens,
-		&$PRIV(__n_size),
-		$P(A),
-		&$PRIV(__n_size),
+		&(integer){$PRIV(__n_size)},
+		$P(A),
+		&(integer){$PRIV(__n_size)},
 		$P(B),
-		&$PRIV(__n_size),
+		&(integer){$PRIV(__n_size)},
 		$P(alphar),
 		$P(alphai),
 		$P(beta),
 		$P(VL),
-		&$PRIV(__m_size),
+		&(integer){$PRIV(__m_size)},
 		$P(VR),
-		&$PRIV(__p_size),
+		&(integer){$PRIV(__p_size)},
 		$P(ilo),
 		$P(ihi),
 		$P(lscale),
@@ -1441,18 +1441,18 @@
 		&pjobvl,
 		&pjobvr,
 		&psens,
-		&$PRIV(__n_size),
-		$P(A),
-		&$PRIV(__n_size),
+		&(integer){$PRIV(__n_size)},
+		$P(A),
+		&(integer){$PRIV(__n_size)},
 		$P(B),
-		&$PRIV(__n_size),
+		&(integer){$PRIV(__n_size)},
 		$P(alphar),
 		$P(alphai),
 		$P(beta),
 		$P(VL),
-		&$PRIV(__m_size),
+		&(integer){$PRIV(__m_size)},
 		$P(VR),
-		&$PRIV(__p_size),
+		&(integer){$PRIV(__p_size)},
 		$P(ilo),
 		$P(ihi),
 		$P(lscale),
@@ -1791,14 +1791,14 @@
 		&jvs,
 		&psort,
 		fselection_wrapper,
-		&$PRIV(__n_size),
-		$P(A),
-		&$PRIV(__n_size),
+		&(integer){$PRIV(__n_size)},
+		$P(A),
+		&(integer){$PRIV(__n_size)},
 		$P(sdim),
 		$P(wr),
 		$P(wi),
 		$P(vs),
-		&$PRIV(__p_size),
+		&(integer){$PRIV(__p_size)},
 		&tmp_work,
 		&lwork,
 		bwork,
@@ -1809,14 +1809,14 @@
 		&jvs,
 		&psort,
 		dselection_wrapper,
-		&$PRIV(__n_size),
-		$P(A),
-		&$PRIV(__n_size),
+		&(integer){$PRIV(__n_size)},
+		$P(A),
+		&(integer){$PRIV(__n_size)},
 		$P(sdim),
 		$P(wr),
 		$P(wi),
 		$P(vs),
-		&$PRIV(__p_size),
+		&(integer){$PRIV(__p_size)},
 		&tmp_work,
 		&lwork,
 		bwork,
@@ -1839,14 +1839,14 @@
 		&jvs,
 		&psort,
 		fselection_wrapper,
-		&$PRIV(__n_size),
-		$P(A),
-		&$PRIV(__n_size),
+		&(integer){$PRIV(__n_size)},
+		$P(A),
+		&(integer){$PRIV(__n_size)},
 		$P(sdim),
 		$P(wr),
 		$P(wi),
 		$P(vs),
-		&$PRIV(__p_size),
+		&(integer){$PRIV(__p_size)},
 		work,
 		&lwork,
 		bwork,
@@ -1858,14 +1858,14 @@
 		&jvs,
 		&psort,
 		dselection_wrapper,
-		&$PRIV(__n_size),
-		$P(A),
-		&$PRIV(__n_size),
+		&(integer){$PRIV(__n_size)},
+		$P(A),
+		&(integer){$PRIV(__n_size)},
 		$P(sdim),
 		$P(wr),
 		$P(wi),
 		$P(vs),
-		&$PRIV(__p_size),
+		&(integer){$PRIV(__p_size)},
 		work,
 		&lwork,
 		bwork,
@@ -2055,14 +2055,14 @@
 		&psort,
 		dselection_wrapper,
 		&sens,
-		&$PRIV(__n_size),
-		$P(A),
-		&$PRIV(__n_size),
+		&(integer){$PRIV(__n_size)},
+		$P(A),
+		&(integer){$PRIV(__n_size)},
 		$P(sdim),
 		$P(wr),
 		$P(wi),
 		$P(vs),
-		&$PRIV(__p_size),
+		&(integer){$PRIV(__p_size)},
 		$P(rconde),
 		$P(rcondv),
 		work,
@@ -2080,14 +2080,14 @@
 		&psort,
 		fselection_wrapper,
 		&sens,
-		&$PRIV(__n_size),
-		$P(A),
-		&$PRIV(__n_size),
+		&(integer){$PRIV(__n_size)},
+		$P(A),
+		&(integer){$PRIV(__n_size)},
 		$P(sdim),
 		$P(wr),
 		$P(wi),
 		$P(vs),
-		&$PRIV(__p_size),
+		&(integer){$PRIV(__p_size)},
 		$P(rconde),
 		$P(rcondv),
 		work,
@@ -2334,19 +2334,19 @@
 		&pjobvsr,
 		&psort,
 		fgselection_wrapper,
-		&$PRIV(__n_size),
-		$P(A),
-		&$PRIV(__n_size),
+		&(integer){$PRIV(__n_size)},
+		$P(A),
+		&(integer){$PRIV(__n_size)},
 		$P(B),
-		&$PRIV(__n_size),
+		&(integer){$PRIV(__n_size)},
 		$P(sdim),
 		$P(alphar),
 		$P(alphai),
 		$P(beta),
 		$P(VSL),
-		&$PRIV(__m_size),
+		&(integer){$PRIV(__m_size)},
 		$P(VSR),
-		&$PRIV(__p_size),
+		&(integer){$PRIV(__p_size)},
 		&tmp_work,
 		&lwork,
 		bwork,
@@ -2358,19 +2358,19 @@
 		&pjobvsr,
 		&psort,
 		dgselection_wrapper,
-		&$PRIV(__n_size),
-		$P(A),
-		&$PRIV(__n_size),
+		&(integer){$PRIV(__n_size)},
+		$P(A),
+		&(integer){$PRIV(__n_size)},
 		$P(B),
-		&$PRIV(__n_size),
+		&(integer){$PRIV(__n_size)},
 		$P(sdim),
 		$P(alphar),
 		$P(alphai),
 		$P(beta),
 		$P(VSL),
-		&$PRIV(__m_size),
+		&(integer){$PRIV(__m_size)},
 		$P(VSR),
-		&$PRIV(__p_size),
+		&(integer){$PRIV(__p_size)},
 		&tmp_work,
 		&lwork,
 		bwork,
@@ -2391,19 +2391,19 @@
 		&pjobvsr,
 		&psort,
 		fgselection_wrapper,
-		&$PRIV(__n_size),
-		$P(A),
-		&$PRIV(__n_size),
+		&(integer){$PRIV(__n_size)},
+		$P(A),
+		&(integer){$PRIV(__n_size)},
 		$P(B),
-		&$PRIV(__n_size),
+		&(integer){$PRIV(__n_size)},
 		$P(sdim),
 		$P(alphar),
 		$P(alphai),
 		$P(beta),
 		$P(VSL),
-		&$PRIV(__m_size),
+		&(integer){$PRIV(__m_size)},
 		$P(VSR),
-		&$PRIV(__p_size),
+		&(integer){$PRIV(__p_size)},
 		work,
 		&lwork,
 		bwork,
@@ -2416,19 +2416,19 @@
 		&pjobvsr,
 		&psort,
 		dgselection_wrapper,
-		&$PRIV(__n_size),
-		$P(A),
-		&$PRIV(__n_size),
+		&(integer){$PRIV(__n_size)},
+		$P(A),
+		&(integer){$PRIV(__n_size)},
 		$P(B),
-		&$PRIV(__n_size),
+		&(integer){$PRIV(__n_size)},
 		$P(sdim),
 		$P(alphar),
 		$P(alphai),
 		$P(beta),
 		$P(VSL),
-		&$PRIV(__m_size),
+		&(integer){$PRIV(__m_size)},
 		$P(VSR),
-		&$PRIV(__p_size),
+		&(integer){$PRIV(__p_size)},
 		work,
 		&lwork,
 		bwork,
@@ -2658,14 +2658,14 @@
 		// for this feature.
 
 		minwrk = ($SIZE(n) + 1 << 3) + 16;
-		maxwrk = ($SIZE(n) + 1) * 7 + $SIZE(n) * (integer ) ilaenv_(&c__1, "DGEQRF", " ", &$PRIV(__n_size), &c__1,
-		&$PRIV(__n_size), &c__0, (ftnlen)6, (ftnlen)1) + 16;
+		maxwrk = ($SIZE(n) + 1) * 7 + $SIZE(n) * (integer ) ilaenv_(&c__1, "DGEQRF", " ", &(integer){$PRIV(__n_size)}, &c__1,
+		&(integer){$PRIV(__n_size)}, &c__0, (ftnlen)6, (ftnlen)1) + 16;
 
 		if ($jobvsl())
 		{
 			integer i__1 = maxwrk;
 			integer i__2 = minwrk + $SIZE(n) * (integer )ilaenv_(&c__1, "DORGQR"
-		    		, " ", &$PRIV(__n_size), &c__1, &$PRIV(__n_size), &c_n1, (ftnlen)6, (ftnlen)1);
+		    		, " ", &(integer){$PRIV(__n_size)}, &c__1, &(integer){$PRIV(__n_size)}, &c_n1, (ftnlen)6, (ftnlen)1);
 	    		maxwrk = (integer ) max(i__1,i__2);
 			pjobvsl = \'V\';
 		}
@@ -2680,19 +2680,19 @@
 		&psort,
 		fgselection_wrapper,
 		&psens,
-		&$PRIV(__n_size),
-		$P(A),
-		&$PRIV(__n_size),
+		&(integer){$PRIV(__n_size)},
+		$P(A),
+		&(integer){$PRIV(__n_size)},
 		$P(B),
-		&$PRIV(__n_size),
+		&(integer){$PRIV(__n_size)},
 		$P(sdim),
 		$P(alphar),
 		$P(alphai),
 		$P(beta),
 		$P(VSL),
-		&$PRIV(__m_size),
+		&(integer){$PRIV(__m_size)},
 		$P(VSR),
-		&$PRIV(__p_size),
+		&(integer){$PRIV(__p_size)},
 		$P(rconde),
 		$P(rcondv),
 		work,
@@ -2711,19 +2711,19 @@
 		&psort,
 		dgselection_wrapper,
 		&psens,
-		&$PRIV(__n_size),
-		$P(A),
-		&$PRIV(__n_size),
+		&(integer){$PRIV(__n_size)},
+		$P(A),
+		&(integer){$PRIV(__n_size)},
 		$P(B),
-		&$PRIV(__n_size),
+		&(integer){$PRIV(__n_size)},
 		$P(sdim),
 		$P(alphar),
 		$P(alphai),
 		$P(beta),
 		$P(VSL),
-		&$PRIV(__m_size),
+		&(integer){$PRIV(__m_size)},
 		$P(VSR),
-		&$PRIV(__p_size),
+		&(integer){$PRIV(__p_size)},
 		$P(rconde),
 		$P(rcondv),
 		work,
@@ -2960,9 +2960,9 @@
 		$TFD(ssyev_,dsyev_)(
 		&jz,
 		&puplo,
-		&$PRIV(__n_size),
-		$P(A),
-		&$PRIV(__n_size),
+		&(integer){$PRIV(__n_size)},
+		$P(A),
+		&(integer){$PRIV(__n_size)},
 		$P(w),
 		&tmp_work,
 		&lwork,
@@ -2981,9 +2981,9 @@
 		$TFD(ssyev_,dsyev_)(
 		&jz,
 		&puplo,
-		&$PRIV(__n_size),
-		$P(A),
-		&$PRIV(__n_size),
+		&(integer){$PRIV(__n_size)},
+		$P(A),
+		&(integer){$PRIV(__n_size)},
 		$P(w),
 		work,
 		&lwork,
@@ -3077,9 +3077,9 @@
 		$TFD(ssyevd_,dsyevd_)(
 		&jz,
 		&puplo,
-		&$PRIV(__n_size),
-		$P(A),
-		&$PRIV(__n_size),
+		&(integer){$PRIV(__n_size)},
+		$P(A),
+		&(integer){$PRIV(__n_size)},
 		$P(w),
 		&tmp_work,
 		&lwork,
@@ -3102,9 +3102,9 @@
 		$TFD(ssyevd_,dsyevd_)(
 		&jz,
 		&puplo,
-		&$PRIV(__n_size),
-		$P(A),
-		&$PRIV(__n_size),
+		&(integer){$PRIV(__n_size)},
+		$P(A),
+		&(integer){$PRIV(__n_size)},
 		$P(w),
 		work,
 		&lwork,
@@ -3226,9 +3226,9 @@
 		&jz,
 		&prange,
 		&puplo,
-		&$PRIV(__n_size),
-		$P(A),
-		&$PRIV(__n_size),
+		&(integer){$PRIV(__n_size)},
+		$P(A),
+		&(integer){$PRIV(__n_size)},
 		$P(vl),
 		$P(vu),
 		$P(il),
@@ -3237,7 +3237,7 @@
 		$P(m),
 		$P(w),
 		$P(z),
-		&$PRIV(__p_size),
+		&(integer){$PRIV(__p_size)},
 		&tmp_work,
 		&lwork,
 		iwork,
@@ -3258,9 +3258,9 @@
 		&jz,
 		&prange,
 		&puplo,
-		&$PRIV(__n_size),
-		$P(A),
-		&$PRIV(__n_size),
+		&(integer){$PRIV(__n_size)},
+		$P(A),
+		&(integer){$PRIV(__n_size)},
 		$P(vl),
 		$P(vu),
 		$P(il),
@@ -3269,7 +3269,7 @@
 		$P(m),
 		$P(w),
 		$P(z),
-		&$PRIV(__p_size),
+		&(integer){$PRIV(__p_size)},
 		work,
 		&lwork,
 		iwork,
@@ -3449,9 +3449,9 @@
 		&jz,
 		&prange,
 		&puplo,
-		&$PRIV(__n_size),
-		$P(A),
-		&$PRIV(__n_size),
+		&(integer){$PRIV(__n_size)},
+		$P(A),
+		&(integer){$PRIV(__n_size)},
 		$P(vl),
 		$P(vu),
 		$P(il),
@@ -3460,7 +3460,7 @@
 		$P(m),
 		$P(w),
 		$P(z),
-		&$PRIV(__p_size),
+		&(integer){$PRIV(__p_size)},
 		$P(isuppz),
 		&tmp_work,
 		&lwork,
@@ -3485,9 +3485,9 @@
 		&jz,
 		&prange,
 		&puplo,
-		&$PRIV(__n_size),
-		$P(A),
-		&$PRIV(__n_size),
+		&(integer){$PRIV(__n_size)},
+		$P(A),
+		&(integer){$PRIV(__n_size)},
 		$P(vl),
 		$P(vu),
 		$P(il),
@@ -3496,7 +3496,7 @@
 		$P(m),
 		$P(w),
 		$P(z),
-		&$PRIV(__p_size),
+		&(integer){$PRIV(__p_size)},
 		$P(isuppz),
 		work,
 		&lwork,
@@ -3695,11 +3695,11 @@
 		$P(itype),
 		&jz,
 		&puplo,
-		&$PRIV(__n_size),
-		$P(A),
-		&$PRIV(__n_size),
+		&(integer){$PRIV(__n_size)},
+		$P(A),
+		&(integer){$PRIV(__n_size)},
 		$P(B),
-		&$PRIV(__n_size),
+		&(integer){$PRIV(__n_size)},
 		$P(w),
 		&tmp_work,
 		&lwork,
@@ -3719,11 +3719,11 @@
 		$P(itype),
 		&jz,
 		&puplo,
-		&$PRIV(__n_size),
-		$P(A),
-		&$PRIV(__n_size),
+		&(integer){$PRIV(__n_size)},
+		$P(A),
+		&(integer){$PRIV(__n_size)},
 		$P(B),
-		&$PRIV(__n_size),
+		&(integer){$PRIV(__n_size)},
 		$P(w),
 		work,
 		&lwork,
@@ -3843,11 +3843,11 @@
 		$P(itype),
 		&jz,
 		&puplo,
-		&$PRIV(__n_size),
-		$P(A),
-		&$PRIV(__n_size),
+		&(integer){$PRIV(__n_size)},
+		$P(A),
+		&(integer){$PRIV(__n_size)},
 		$P(B),
-		&$PRIV(__n_size),
+		&(integer){$PRIV(__n_size)},
 		$P(w),
 		&tmp_work,
 		&lwork,
@@ -3872,11 +3872,11 @@
 		$P(itype),
 		&jz,
 		&puplo,
-		&$PRIV(__n_size),
-		$P(A),
-		&$PRIV(__n_size),
+		&(integer){$PRIV(__n_size)},
+		$P(A),
+		&(integer){$PRIV(__n_size)},
 		$P(B),
-		&$PRIV(__n_size),
+		&(integer){$PRIV(__n_size)},
 		$P(w),
 		work,
 		&lwork,
@@ -4019,11 +4019,11 @@
 		&jz,
 		&prange,
 		&puplo,
-		&$PRIV(__n_size),
-		$P(A),
-		&$PRIV(__n_size),
+		&(integer){$PRIV(__n_size)},
+		$P(A),
+		&(integer){$PRIV(__n_size)},
 		$P(B),
-		&$PRIV(__n_size),
+		&(integer){$PRIV(__n_size)},
 		$P(vl),
 		$P(vu),
 		$P(il),
@@ -4032,7 +4032,7 @@
 		$P(m),
 		$P(w),
 		$P(Z),
-		&$PRIV(__p_size),
+		&(integer){$PRIV(__p_size)},
 		&tmp_work,
 		&lwork,
 		iwork,
@@ -4054,11 +4054,11 @@
 		&jz,
 		&prange,
 		&puplo,
-		&$PRIV(__n_size),
-		$P(A),
-		&$PRIV(__n_size),
+		&(integer){$PRIV(__n_size)},
+		$P(A),
+		&(integer){$PRIV(__n_size)},
 		$P(B),
-		&$PRIV(__n_size),
+		&(integer){$PRIV(__n_size)},
 		$P(vl),
 		$P(vu),
 		$P(il),
@@ -4067,7 +4067,7 @@
 		$P(m),
 		$P(w),
 		$P(Z),
-		&$PRIV(__p_size),
+		&(integer){$PRIV(__p_size)},
 		work,
 		&lwork,
 		iwork,
@@ -4229,13 +4229,13 @@
              %}
 
 		$TFD(sgesv_,dgesv_)(
-		&$PRIV(__n_size),
-		&$PRIV(__m_size),
-		$P(A),
-		&$PRIV(__n_size),
+		&(integer){$PRIV(__n_size)},
+		&(integer){$PRIV(__m_size)},
+		$P(A),
+		&(integer){$PRIV(__n_size)},
 		$P(ipiv),
 		$P(B),
-		&$PRIV(__n_size),
+		&(integer){$PRIV(__n_size)},
 		$P(info));
 ',
       Doc => '
@@ -4356,20 +4356,20 @@
 		$TFD(sgesvx_,dgesvx_)(
 		&pfact,
 		&ptrans,
-		&$PRIV(__n_size),
-		&$PRIV(__m_size),
-		$P(A),
-		&$PRIV(__n_size),
+		&(integer){$PRIV(__n_size)},
+		&(integer){$PRIV(__m_size)},
+		$P(A),
+		&(integer){$PRIV(__n_size)},
 		$P(af),
-		&$PRIV(__n_size),
+		&(integer){$PRIV(__n_size)},
 		$P(ipiv),
 		&pequed,
 		$P(r),
 		$P(c),
 		$P(B),
-		&$PRIV(__n_size),
+		&(integer){$PRIV(__n_size)},
 		$P(X),
-		&$PRIV(__n_size),
+		&(integer){$PRIV(__n_size)},
 		$P(rcond),
 		$P(ferr),
 		$P(berr),
@@ -4656,13 +4656,13 @@
 
 		$TFD(ssysv_,dsysv_)(
 		&puplo,
-		&$PRIV(__n_size),
-		&$PRIV(__m_size),
-		$P(A),
-		&$PRIV(__n_size),
+		&(integer){$PRIV(__n_size)},
+		&(integer){$PRIV(__m_size)},
+		$P(A),
+		&(integer){$PRIV(__n_size)},
 		$P(ipiv),
 		$P(B),
-		&$PRIV(__n_size),
+		&(integer){$PRIV(__n_size)},
                 &tmp_work,
 		&lwork,
 		$P(info));
@@ -4680,13 +4680,13 @@
              %}
 		$TFD(ssysv_,dsysv_)(
 		&puplo,
-		&$PRIV(__n_size),
-		&$PRIV(__m_size),
-		$P(A),
-		&$PRIV(__n_size),
+		&(integer){$PRIV(__n_size)},
+		&(integer){$PRIV(__m_size)},
+		$P(A),
+		&(integer){$PRIV(__n_size)},
 		$P(ipiv),
 		$P(B),
-		&$PRIV(__n_size),
+		&(integer){$PRIV(__n_size)},
                 work,
 		&lwork,
 		$P(info));
@@ -4813,17 +4813,17 @@
 		$TFD(ssysvx_,dsysvx_)(
 		&pfact,
 		&puplo,
-		&$PRIV(__n_size),
-		&$PRIV(__m_size),
-		$P(A),
-		&$PRIV(__n_size),
+		&(integer){$PRIV(__n_size)},
+		&(integer){$PRIV(__m_size)},
+		$P(A),
+		&(integer){$PRIV(__n_size)},
 		$P(af),
-		&$PRIV(__n_size),
+		&(integer){$PRIV(__n_size)},
 		$P(ipiv),
 		$P(B),
-		&$PRIV(__n_size),
+		&(integer){$PRIV(__n_size)},
 		$P(X),
-		&$PRIV(__n_size),
+		&(integer){$PRIV(__n_size)},
 		$P(rcond),
 		$P(ferr),
 		$P(berr),
@@ -4844,17 +4844,17 @@
 		$TFD(ssysvx_,dsysvx_)(
 		&pfact,
 		&puplo,
-		&$PRIV(__n_size),
-		&$PRIV(__m_size),
-		$P(A),
-		&$PRIV(__n_size),
+		&(integer){$PRIV(__n_size)},
+		&(integer){$PRIV(__m_size)},
+		$P(A),
+		&(integer){$PRIV(__n_size)},
 		$P(af),
-		&$PRIV(__n_size),
+		&(integer){$PRIV(__n_size)},
 		$P(ipiv),
 		$P(B),
-		&$PRIV(__n_size),
+		&(integer){$PRIV(__n_size)},
 		$P(X),
-		&$PRIV(__n_size),
+		&(integer){$PRIV(__n_size)},
 		$P(rcond),
 		$P(ferr),
 		$P(berr),
@@ -5049,12 +5049,12 @@
 
 		$TFD(sposv_,dposv_)(
 		&puplo,
-		&$PRIV(__n_size),
-		&$PRIV(__m_size),
-		$P(A),
-		&$PRIV(__n_size),
+		&(integer){$PRIV(__n_size)},
+		&(integer){$PRIV(__m_size)},
+		$P(A),
+		&(integer){$PRIV(__n_size)},
 		$P(B),
-		&$PRIV(__n_size),
+		&(integer){$PRIV(__n_size)},
 		$P(info));
 ',
       Doc => '
@@ -5175,18 +5175,18 @@
 		$TFD(sposvx_,dposvx_)(
 		&pfact,
 		&puplo,
-		&$PRIV(__n_size),
-		&$PRIV(__m_size),
-		$P(A),
-		&$PRIV(__n_size),
+		&(integer){$PRIV(__n_size)},
+		&(integer){$PRIV(__m_size)},
+		$P(A),
+		&(integer){$PRIV(__n_size)},
 		$P(af),
-		&$PRIV(__n_size),
+		&(integer){$PRIV(__n_size)},
 		&pequed,
 		$P(s),
 		$P(B),
-		&$PRIV(__n_size),
+		&(integer){$PRIV(__n_size)},
 		$P(X),
-		&$PRIV(__n_size),
+		&(integer){$PRIV(__n_size)},
 		$P(rcond),
 		$P(ferr),
 		$P(berr),
@@ -5434,13 +5434,13 @@
 
 		$TFD(sgels_,dgels_)(
 		&ptrans,
-		&$PRIV(__m_size),
-		&$PRIV(__n_size),
-		&$PRIV(__q_size),
-		$P(A),
-		&$PRIV(__m_size),
+		&(integer){$PRIV(__m_size)},
+		&(integer){$PRIV(__n_size)},
+		&(integer){$PRIV(__q_size)},
+		$P(A),
+		&(integer){$PRIV(__m_size)},
 		$P(B),
-		&$PRIV(__p_size),
+		&(integer){$PRIV(__p_size)},
 		&tmp_work,
 		&lwork,
 		$P(info));
@@ -5456,13 +5456,13 @@
 
 		$TFD(sgels_,dgels_)(
 		&ptrans,
-		&$PRIV(__m_size),
-		&$PRIV(__n_size),
-		&$PRIV(__q_size),
-		$P(A),
-		&$PRIV(__m_size),
+		&(integer){$PRIV(__m_size)},
+		&(integer){$PRIV(__n_size)},
+		&(integer){$PRIV(__q_size)},
+		$P(A),
+		&(integer){$PRIV(__m_size)},
 		$P(B),
-		&$PRIV(__p_size),
+		&(integer){$PRIV(__p_size)},
 		work,
 		&lwork,
 		$P(info));
@@ -5586,13 +5586,13 @@
              %}
 
 		$TFD(sgelsy_,dgelsy_)(
-		&$PRIV(__m_size),
-		&$PRIV(__n_size),
-		&$PRIV(__q_size),
-		$P(A),
-		&$PRIV(__m_size),
+		&(integer){$PRIV(__m_size)},
+		&(integer){$PRIV(__n_size)},
+		&(integer){$PRIV(__q_size)},
+		$P(A),
+		&(integer){$PRIV(__m_size)},
 		$P(B),
-		&$PRIV(__p_size),
+		&(integer){$PRIV(__p_size)},
 		$P(jpvt),
 		$P(rcond),
 		$P(rank),
@@ -5610,13 +5610,13 @@
              	%}
 
 		$TFD(sgelsy_,dgelsy_)(
-		&$PRIV(__m_size),
-		&$PRIV(__n_size),
-		&$PRIV(__q_size),
-		$P(A),
-		&$PRIV(__m_size),
+		&(integer){$PRIV(__m_size)},
+		&(integer){$PRIV(__n_size)},
+		&(integer){$PRIV(__q_size)},
+		$P(A),
+		&(integer){$PRIV(__m_size)},
 		$P(B),
-		&$PRIV(__p_size),
+		&(integer){$PRIV(__p_size)},
 		$P(jpvt),
 		$P(rcond),
 		$P(rank),
@@ -5741,13 +5741,13 @@
              %}
 
 		$TFD(sgelss_,dgelss_)(
-		&$PRIV(__m_size),
-		&$PRIV(__n_size),
-		&$PRIV(__q_size),
-		$P(A),
-		&$PRIV(__m_size),
+		&(integer){$PRIV(__m_size)},
+		&(integer){$PRIV(__n_size)},
+		&(integer){$PRIV(__q_size)},
+		$P(A),
+		&(integer){$PRIV(__m_size)},
 		$P(B),
-		&$PRIV(__p_size),
+		&(integer){$PRIV(__p_size)},
 		$P(s),
 		$P(rcond),
 		$P(rank),
@@ -5765,13 +5765,13 @@
              	%}
 
 		$TFD(sgelss_,dgelss_)(
-		&$PRIV(__m_size),
-		&$PRIV(__n_size),
-		&$PRIV(__q_size),
-		$P(A),
-		&$PRIV(__m_size),
+		&(integer){$PRIV(__m_size)},
+		&(integer){$PRIV(__n_size)},
+		&(integer){$PRIV(__q_size)},
+		$P(A),
+		&(integer){$PRIV(__m_size)},
 		$P(B),
-		&$PRIV(__p_size),
+		&(integer){$PRIV(__p_size)},
 		$P(s),
 		$P(rcond),
 		$P(rank),
@@ -5899,13 +5899,13 @@
 
 
 		$TFD(sgelsd_,dgelsd_)(
-		&$PRIV(__m_size),
-		&$PRIV(__n_size),
-		&$PRIV(__q_size),
-		$P(A),
-		&$PRIV(__m_size),
+		&(integer){$PRIV(__m_size)},
+		&(integer){$PRIV(__n_size)},
+		&(integer){$PRIV(__q_size)},
+		$P(A),
+		&(integer){$PRIV(__m_size)},
 		$P(B),
-		&$PRIV(__p_size),
+		&(integer){$PRIV(__p_size)},
 		$P(s),
 		$P(rcond),
 		$P(rank),
@@ -5924,13 +5924,13 @@
              	%}
 
 		$TFD(sgelsd_,dgelsd_)(
-		&$PRIV(__m_size),
-		&$PRIV(__n_size),
-		&$PRIV(__q_size),
-		$P(A),
-		&$PRIV(__m_size),
+		&(integer){$PRIV(__m_size)},
+		&(integer){$PRIV(__n_size)},
+		&(integer){$PRIV(__q_size)},
+		$P(A),
+		&(integer){$PRIV(__m_size)},
 		$P(B),
-		&$PRIV(__p_size),
+		&(integer){$PRIV(__p_size)},
 		$P(s),
 		$P(rcond),
 		$P(rank),
@@ -6066,13 +6066,13 @@
 
 
 		$TFD(sgglse_,dgglse_)(
-		&$PRIV(__m_size),
-		&$PRIV(__n_size),
-		&$PRIV(__p_size),
-		$P(A),
-		&$PRIV(__m_size),
+		&(integer){$PRIV(__m_size)},
+		&(integer){$PRIV(__n_size)},
+		&(integer){$PRIV(__p_size)},
+		$P(A),
+		&(integer){$PRIV(__m_size)},
 		$P(B),
-		&$PRIV(__p_size),
+		&(integer){$PRIV(__p_size)},
 		$P(c),
 		$P(d),
 		$P(x),
@@ -6090,13 +6090,13 @@
              	%}
 
 		$TFD(sgglse_,dgglse_)(
-		&$PRIV(__m_size),
-		&$PRIV(__n_size),
-		&$PRIV(__p_size),
-		$P(A),
-		&$PRIV(__m_size),
+		&(integer){$PRIV(__m_size)},
+		&(integer){$PRIV(__n_size)},
+		&(integer){$PRIV(__p_size)},
+		$P(A),
+		&(integer){$PRIV(__m_size)},
 		$P(B),
-		&$PRIV(__p_size),
+		&(integer){$PRIV(__p_size)},
 		$P(c),
 		$P(d),
 		$P(x),
@@ -6194,13 +6194,13 @@
 
 
 		$TFD(sggglm_,dggglm_)(
-		&$PRIV(__n_size),
-		&$PRIV(__m_size),
-		&$PRIV(__p_size),
-		$P(A),
-		&$PRIV(__n_size),
+		&(integer){$PRIV(__n_size)},
+		&(integer){$PRIV(__m_size)},
+		&(integer){$PRIV(__p_size)},
+		$P(A),
+		&(integer){$PRIV(__n_size)},
 		$P(B),
-		&$PRIV(__n_size),
+		&(integer){$PRIV(__n_size)},
 		$P(d),
 		$P(x),
 		$P(y),
@@ -6218,13 +6218,13 @@
              	%}
 
 		$TFD(sggglm_,dggglm_)(
-		&$PRIV(__n_size),
-		&$PRIV(__m_size),
-		&$PRIV(__p_size),
-		$P(A),
-		&$PRIV(__n_size),
+		&(integer){$PRIV(__n_size)},
+		&(integer){$PRIV(__m_size)},
+		&(integer){$PRIV(__p_size)},
+		$P(A),
+		&(integer){$PRIV(__n_size)},
 		$P(B),
-		&$PRIV(__n_size),
+		&(integer){$PRIV(__n_size)},
 		$P(d),
 		$P(x),
 		$P(y),
@@ -6318,10 +6318,10 @@
 		lda, integer *ipiv, integer *info);
              %}
 		$TFD(sgetrf_,dgetrf_)(
-		&$PRIV(__m_size),
-		&$PRIV(__n_size),
-		$P(A),
-		&$PRIV(__m_size),
+		&(integer){$PRIV(__m_size)},
+		&(integer){$PRIV(__n_size)},
+		$P(A),
+		&(integer){$PRIV(__m_size)},
 		$P(ipiv),
 		$P(info));
 ',
@@ -6385,10 +6385,10 @@
 		lda, integer *ipiv, integer *info);
              %}
 		$TFD(sgetf2_,dgetf2_)(
-		&$PRIV(__m_size),
-		&$PRIV(__n_size),
-		$P(A),
-		&$PRIV(__m_size),
+		&(integer){$PRIV(__m_size)},
+		&(integer){$PRIV(__n_size)},
+		$P(A),
+		&(integer){$PRIV(__m_size)},
 		$P(ipiv),
 		$P(info));
 ',
@@ -6461,9 +6461,9 @@
 
 		$TFD(ssytrf_,dsytrf_)(
 		&puplo,
-		&$PRIV(__n_size),
-		$P(A),
-		&$PRIV(__n_size),
+		&(integer){$PRIV(__n_size)},
+		$P(A),
+		&(integer){$PRIV(__n_size)},
 		$P(ipiv),
 		&tmp_work,
 		&lwork,
@@ -6479,9 +6479,9 @@
              	%}
 		$TFD(ssytrf_,dsytrf_)(
 		&puplo,
-		&$PRIV(__n_size),
-		$P(A),
-		&$PRIV(__n_size),
+		&(integer){$PRIV(__n_size)},
+		$P(A),
+		&(integer){$PRIV(__n_size)},
 		$P(ipiv),
 		work,
 		&lwork,
@@ -6605,9 +6605,9 @@
 
 		$TFD(ssytf2_,dsytf2_)(
 		&puplo,
-		&$PRIV(__n_size),
-		$P(A),
-		&$PRIV(__n_size),
+		&(integer){$PRIV(__n_size)},
+		$P(A),
+		&(integer){$PRIV(__n_size)},
 		$P(ipiv),
 		$P(info));
 ',
@@ -6694,9 +6694,9 @@
 
 		$TFD(spotrf_,dpotrf_)(
 		&puplo,
-		&$PRIV(__n_size),
-		$P(A),
-		&$PRIV(__n_size),
+		&(integer){$PRIV(__n_size)},
+		$P(A),
+		&(integer){$PRIV(__n_size)},
 		$P(info));
 ',
       Doc => '
@@ -6767,9 +6767,9 @@
 
 		$TFD(spotf2_,dpotf2_)(
 		&puplo,
-		&$PRIV(__n_size),
-		$P(A),
-		&$PRIV(__n_size),
+		&(integer){$PRIV(__n_size)},
+		$P(A),
+		&(integer){$PRIV(__n_size)},
 		$P(info));
 ',
       Doc => '
@@ -6841,9 +6841,9 @@
 
 
 		$TFD(sgetri_,dgetri_)(
-		&$PRIV(__n_size),
-		$P(A),
-		&$PRIV(__n_size),
+		&(integer){$PRIV(__n_size)},
+		$P(A),
+		&(integer){$PRIV(__n_size)},
 		$P(ipiv),
 		&tmp_work,
 		&lwork,
@@ -6858,9 +6858,9 @@
 			double *work = (double *)malloc(lwork *  sizeof(double));
 		%}
 		$TFD(sgetri_,dgetri_)(
-		&$PRIV(__n_size),
-		$P(A),
-		&$PRIV(__n_size),
+		&(integer){$PRIV(__n_size)},
+		$P(A),
+		&(integer){$PRIV(__n_size)},
 		$P(ipiv),
 		work,
 		&lwork,
@@ -6934,9 +6934,9 @@
 
 		$TFD(ssytri_, dsytri_)(
 		&puplo,
-		&$PRIV(__n_size),
-		$P(A),
-		&$PRIV(__n_size),
+		&(integer){$PRIV(__n_size)},
+		$P(A),
+		&(integer){$PRIV(__n_size)},
 		$P(ipiv),
 		work,
 		$P(info));
@@ -7010,9 +7010,9 @@
 
 		$TFD(spotri_,dpotri_)(
 		&puplo,
-		&$PRIV(__n_size),
-		$P(A),
-		&$PRIV(__n_size),
+		&(integer){$PRIV(__n_size)},
+		$P(A),
+		&(integer){$PRIV(__n_size)},
 		$P(info));
 ',
       Doc => '
@@ -7079,9 +7079,9 @@
 		$TFD(strtri_, dtrtri_)(
 		&puplo,
 		&pdiag,
-		&$PRIV(__n_size),
-		$P(A),
-		&$PRIV(__n_size),
+		&(integer){$PRIV(__n_size)},
+		$P(A),
+		&(integer){$PRIV(__n_size)},
 		$P(info));
 ',
       Doc => '
@@ -7155,9 +7155,9 @@
 		$TFD(strti2_, dtrti2_)(
 		&puplo,
 		&pdiag,
-		&$PRIV(__n_size),
-		$P(A),
-		&$PRIV(__n_size),
+		&(integer){$PRIV(__n_size)},
+		$P(A),
+		&(integer){$PRIV(__n_size)},
 		$P(info));
 ',
       Doc => '
@@ -7224,13 +7224,13 @@
 
 		$TFD(sgetrs_,dgetrs_)(
 		&transp,
-		&$PRIV(__n_size),
-		&$PRIV(__m_size),
-		$P(A),
-		&$PRIV(__n_size),
+		&(integer){$PRIV(__n_size)},
+		&(integer){$PRIV(__m_size)},
+		$P(A),
+		&(integer){$PRIV(__n_size)},
 		$P(ipiv),
 		$P(B),
-		&$PRIV(__n_size),
+		&(integer){$PRIV(__n_size)},
 		$P(info));
 ',
       Doc => '
@@ -7297,13 +7297,13 @@
 
 		$TFD(ssytrs_,dsytrs_)(
 		&puplo,
-		&$PRIV(__n_size),
-		&$PRIV(__m_size),
-		$P(A),
-		&$PRIV(__n_size),
+		&(integer){$PRIV(__n_size)},
+		&(integer){$PRIV(__m_size)},
+		$P(A),
+		&(integer){$PRIV(__n_size)},
 		$P(ipiv),
 		$P(B),
-		&$PRIV(__n_size),
+		&(integer){$PRIV(__n_size)},
 		$P(info));
 ',
       Doc => '
@@ -7372,12 +7372,12 @@
 
 		$TFD(spotrs_,dpotrs_)(
 		&puplo,
-		&$PRIV(__n_size),
-		&$PRIV(__m_size),
-		$P(A),
-		&$PRIV(__n_size),
+		&(integer){$PRIV(__n_size)},
+		&(integer){$PRIV(__m_size)},
+		$P(A),
+		&(integer){$PRIV(__n_size)},
 		$P(B),
-		&$PRIV(__n_size),
+		&(integer){$PRIV(__n_size)},
 		$P(info));
 ',
       Doc => '
@@ -7449,12 +7449,12 @@
 		&puplo,
 		&ptrans,
 		&pdiag,
-		&$PRIV(__n_size),
-		&$PRIV(__m_size),
-		$P(A),
-		&$PRIV(__n_size),
+		&(integer){$PRIV(__n_size)},
+		&(integer){$PRIV(__m_size)},
+		$P(A),
+		&(integer){$PRIV(__n_size)},
 		$P(B),
-		&$PRIV(__n_size),
+		&(integer){$PRIV(__n_size)},
 		$P(info));
 ',
       Doc => '
@@ -7550,9 +7550,9 @@
 		&ptrans,
 		&pdiag,
 		&pnormin,
-		&$PRIV(__n_size),
-		$P(A),
-		&$PRIV(__n_size),
+		&(integer){$PRIV(__n_size)},
+		$P(A),
+		&(integer){$PRIV(__n_size)},
 		$P(x),
 		$P(scale),
 		$P(cnorm),
@@ -7742,9 +7742,9 @@
 
 		$TFD(sgecon_,dgecon_)(
 		&pnorm,
-		&$PRIV(__n_size),
-		$P(A),
-		&$PRIV(__n_size),
+		&(integer){$PRIV(__n_size)},
+		$P(A),
+		&(integer){$PRIV(__n_size)},
 		$P(anorm),
 		$P(rcond),
 		work,
@@ -7825,9 +7825,9 @@
 
 		$TFD(ssycon_,dsycon_)(
 		&puplo,
-		&$PRIV(__n_size),
-		$P(A),
-		&$PRIV(__n_size),
+		&(integer){$PRIV(__n_size)},
+		$P(A),
+		&(integer){$PRIV(__n_size)},
 		$P(ipiv),
 		$P(anorm),
 		$P(rcond),
@@ -7911,9 +7911,9 @@
 
 		$TFD(spocon_,dpocon_)(
 		&puplo,
-		&$PRIV(__n_size),
-		$P(A),
-		&$PRIV(__n_size),
+		&(integer){$PRIV(__n_size)},
+		$P(A),
+		&(integer){$PRIV(__n_size)},
 		$P(anorm),
 		$P(rcond),
 		work,
@@ -7995,9 +7995,9 @@
 		&pnorm,
 		&puplo,
 		&pdiag,
-		&$PRIV(__n_size),
-		$P(A),
-		&$PRIV(__n_size),
+		&(integer){$PRIV(__n_size)},
+		$P(A),
+		&(integer){$PRIV(__n_size)},
 		$P(rcond),
 		work,
 		iwork,
@@ -8080,10 +8080,10 @@
              %}
 
 		$TFD(sgeqp3_,dgeqp3_)(
-		&$PRIV(__m_size),
-		&$PRIV(__n_size),
-		$P(A),
-		&$PRIV(__m_size),
+		&(integer){$PRIV(__m_size)},
+		&(integer){$PRIV(__n_size)},
+		$P(A),
+		&(integer){$PRIV(__m_size)},
 		$P(jpvt),
 		$P(tau),
 		&tmp_work,
@@ -8101,10 +8101,10 @@
 		double *work = (double *)malloc(lwork *  sizeof(double));
              %}
 		$TFD(sgeqp3_,dgeqp3_)(
-		&$PRIV(__m_size),
-		&$PRIV(__n_size),
-		$P(A),
-		&$PRIV(__m_size),
+		&(integer){$PRIV(__m_size)},
+		&(integer){$PRIV(__n_size)},
+		$P(A),
+		&(integer){$PRIV(__m_size)},
 		$P(jpvt),
 		$P(tau),
 		work,
@@ -8186,10 +8186,10 @@
              %}
 
 		$TFD(sgeqrf_,dgeqrf_)(
-		&$PRIV(__m_size),
-		&$PRIV(__n_size),
-		$P(A),
-		&$PRIV(__m_size),
+		&(integer){$PRIV(__m_size)},
+		&(integer){$PRIV(__n_size)},
+		$P(A),
+		&(integer){$PRIV(__m_size)},
 		$P(tau),
 		&tmp_work,
 		&lwork,
@@ -8206,10 +8206,10 @@
 		double *work = (double *)malloc(lwork *  sizeof(double));
              %}
 		$TFD(sgeqrf_,dgeqrf_)(
-		&$PRIV(__m_size),
-		&$PRIV(__n_size),
-		$P(A),
-		&$PRIV(__m_size),
+		&(integer){$PRIV(__m_size)},
+		&(integer){$PRIV(__n_size)},
+		$P(A),
+		&(integer){$PRIV(__m_size)},
 		$P(tau),
 		work,
 		&lwork,
@@ -8283,11 +8283,11 @@
              %}
 
 		$TFD(sorgqr_,dorgqr_)(
-		&$PRIV(__m_size),
-		&$PRIV(__n_size),
-		&$PRIV(__k_size),
-		$P(A),
-		&$PRIV(__m_size),
+		&(integer){$PRIV(__m_size)},
+		&(integer){$PRIV(__n_size)},
+		&(integer){$PRIV(__k_size)},
+		$P(A),
+		&(integer){$PRIV(__m_size)},
 		$P(tau),
 		&tmp_work,
 		&lwork,
@@ -8304,11 +8304,11 @@
 		double *work = (double *)malloc(lwork *  sizeof(double));
              %}
 		$TFD(sorgqr_,dorgqr_)(
-		&$PRIV(__m_size),
-		&$PRIV(__n_size),
-		&$PRIV(__k_size),
-		$P(A),
-		&$PRIV(__m_size),
+		&(integer){$PRIV(__m_size)},
+		&(integer){$PRIV(__n_size)},
+		&(integer){$PRIV(__k_size)},
+		$P(A),
+		&(integer){$PRIV(__m_size)},
 		$P(tau),
 		work,
 		&lwork,
@@ -8383,14 +8383,14 @@
 		$TFD(sormqr_,dormqr_)(
 		&pside,
 		&ptrans,
-		&$PRIV(__m_size),
-		&$PRIV(__n_size),
-		&$PRIV(__k_size),
-		$P(A),
-		&$PRIV(__p_size),
+		&(integer){$PRIV(__m_size)},
+		&(integer){$PRIV(__n_size)},
+		&(integer){$PRIV(__k_size)},
+		$P(A),
+		&(integer){$PRIV(__p_size)},
 		$P(tau),
 		$P(C),
-		&$PRIV(__m_size),
+		&(integer){$PRIV(__m_size)},
 		&tmp_work,
 		&lwork,
 		$P(info));
@@ -8408,14 +8408,14 @@
 		$TFD(sormqr_,dormqr_)(
 		&pside,
 		&ptrans,
-		&$PRIV(__m_size),
-		&$PRIV(__n_size),
-		&$PRIV(__k_size),
-		$P(A),
-		&$PRIV(__p_size),
+		&(integer){$PRIV(__m_size)},
+		&(integer){$PRIV(__n_size)},
+		&(integer){$PRIV(__k_size)},
+		$P(A),
+		&(integer){$PRIV(__p_size)},
 		$P(tau),
 		$P(C),
-		&$PRIV(__m_size),
+		&(integer){$PRIV(__m_size)},
 		work,
 		&lwork,
 		$P(info));
@@ -8500,10 +8500,10 @@
              %}
 
 		$TFD(sgelqf_,dgelqf_)(
-		&$PRIV(__m_size),
-		&$PRIV(__n_size),
-		$P(A),
-		&$PRIV(__m_size),
+		&(integer){$PRIV(__m_size)},
+		&(integer){$PRIV(__n_size)},
+		$P(A),
+		&(integer){$PRIV(__m_size)},
 		$P(tau),
 		&tmp_work,
 		&lwork,
@@ -8520,10 +8520,10 @@
 		double *work = (double *)malloc(lwork *  sizeof(double));
              %}
 		$TFD(sgelqf_,dgelqf_)(
-		&$PRIV(__m_size),
-		&$PRIV(__n_size),
-		$P(A),
-		&$PRIV(__m_size),
+		&(integer){$PRIV(__m_size)},
+		&(integer){$PRIV(__n_size)},
+		$P(A),
+		&(integer){$PRIV(__m_size)},
 		$P(tau),
 		work,
 		&lwork,
@@ -8596,11 +8596,11 @@
              %}
 
 		$TFD(sorglq_,dorglq_)(
-		&$PRIV(__m_size),
-		&$PRIV(__n_size),
-		&$PRIV(__k_size),
-		$P(A),
-		&$PRIV(__m_size),
+		&(integer){$PRIV(__m_size)},
+		&(integer){$PRIV(__n_size)},
+		&(integer){$PRIV(__k_size)},
+		$P(A),
+		&(integer){$PRIV(__m_size)},
 		$P(tau),
 		&tmp_work,
 		&lwork,
@@ -8617,11 +8617,11 @@
 		double *work = (double *)malloc(lwork *  sizeof(double));
              %}
 		$TFD(sorglq_,dorglq_)(
-		&$PRIV(__m_size),
-		&$PRIV(__n_size),
-		&$PRIV(__k_size),
-		$P(A),
-		&$PRIV(__m_size),
+		&(integer){$PRIV(__m_size)},
+		&(integer){$PRIV(__n_size)},
+		&(integer){$PRIV(__k_size)},
+		$P(A),
+		&(integer){$PRIV(__m_size)},
 		$P(tau),
 		work,
 		&lwork,
@@ -8694,14 +8694,14 @@
 		$TFD(sormlq_,dormlq_)(
 		&pside,
 		&ptrans,
-		&$PRIV(__m_size),
-		&$PRIV(__n_size),
-		&$PRIV(__k_size),
-		$P(A),
-		&$PRIV(__k_size),
+		&(integer){$PRIV(__m_size)},
+		&(integer){$PRIV(__n_size)},
+		&(integer){$PRIV(__k_size)},
+		$P(A),
+		&(integer){$PRIV(__k_size)},
 		$P(tau),
 		$P(C),
-		&$PRIV(__m_size),
+		&(integer){$PRIV(__m_size)},
 		&tmp_work,
 		&lwork,
 		$P(info));
@@ -8719,14 +8719,14 @@
 		$TFD(sormlq_,dormlq_)(
 		&pside,
 		&ptrans,
-		&$PRIV(__m_size),
-		&$PRIV(__n_size),
-		&$PRIV(__k_size),
-		$P(A),
-		&$PRIV(__k_size),
+		&(integer){$PRIV(__m_size)},
+		&(integer){$PRIV(__n_size)},
+		&(integer){$PRIV(__k_size)},
+		$P(A),
+		&(integer){$PRIV(__k_size)},
 		$P(tau),
 		$P(C),
-		&$PRIV(__m_size),
+		&(integer){$PRIV(__m_size)},
 		work,
 		&lwork,
 		$P(info));
@@ -8811,10 +8811,10 @@
              %}
 
 		$TFD(sgeqlf_,dgeqlf_)(
-		&$PRIV(__m_size),
-		&$PRIV(__n_size),
-		$P(A),
-		&$PRIV(__m_size),
+		&(integer){$PRIV(__m_size)},
+		&(integer){$PRIV(__n_size)},
+		$P(A),
+		&(integer){$PRIV(__m_size)},
 		$P(tau),
 		&tmp_work,
 		&lwork,
@@ -8831,10 +8831,10 @@
 		double *work = (double *)malloc(lwork *  sizeof(double));
              %}
 		$TFD(sgeqlf_,dgeqlf_)(
-		&$PRIV(__m_size),
-		&$PRIV(__n_size),
-		$P(A),
-		&$PRIV(__m_size),
+		&(integer){$PRIV(__m_size)},
+		&(integer){$PRIV(__n_size)},
+		$P(A),
+		&(integer){$PRIV(__m_size)},
 		$P(tau),
 		work,
 		&lwork,
@@ -8909,11 +8909,11 @@
              %}
 
 		$TFD(sorgql_,dorgql_)(
-		&$PRIV(__m_size),
-		&$PRIV(__n_size),
-		&$PRIV(__k_size),
-		$P(A),
-		&$PRIV(__m_size),
+		&(integer){$PRIV(__m_size)},
+		&(integer){$PRIV(__n_size)},
+		&(integer){$PRIV(__k_size)},
+		$P(A),
+		&(integer){$PRIV(__m_size)},
 		$P(tau),
 		&tmp_work,
 		&lwork,
@@ -8930,11 +8930,11 @@
 		double *work = (double *)malloc(lwork *  sizeof(double));
              %}
 		$TFD(sorgql_,dorgql_)(
-		&$PRIV(__m_size),
-		&$PRIV(__n_size),
-		&$PRIV(__k_size),
-		$P(A),
-		&$PRIV(__m_size),
+		&(integer){$PRIV(__m_size)},
+		&(integer){$PRIV(__n_size)},
+		&(integer){$PRIV(__k_size)},
+		$P(A),
+		&(integer){$PRIV(__m_size)},
 		$P(tau),
 		work,
 		&lwork,
@@ -9008,14 +9008,14 @@
 		$TFD(sormql_,dormql_)(
 		&pside,
 		&ptrans,
-		&$PRIV(__m_size),
-		&$PRIV(__n_size),
-		&$PRIV(__k_size),
-		$P(A),
-		&$PRIV(__p_size),
+		&(integer){$PRIV(__m_size)},
+		&(integer){$PRIV(__n_size)},
+		&(integer){$PRIV(__k_size)},
+		$P(A),
+		&(integer){$PRIV(__p_size)},
 		$P(tau),
 		$P(C),
-		&$PRIV(__m_size),
+		&(integer){$PRIV(__m_size)},
 		&tmp_work,
 		&lwork,
 		$P(info));
@@ -9033,14 +9033,14 @@
 		$TFD(sormql_,dormql_)(
 		&pside,
 		&ptrans,
-		&$PRIV(__m_size),
-		&$PRIV(__n_size),
-		&$PRIV(__k_size),
-		$P(A),
-		&$PRIV(__p_size),
+		&(integer){$PRIV(__m_size)},
+		&(integer){$PRIV(__n_size)},
+		&(integer){$PRIV(__k_size)},
+		$P(A),
+		&(integer){$PRIV(__p_size)},
 		$P(tau),
 		$P(C),
-		&$PRIV(__m_size),
+		&(integer){$PRIV(__m_size)},
 		work,
 		&lwork,
 		$P(info));
@@ -9125,10 +9125,10 @@
              %}
 
 		$TFD(sgerqf_,dgerqf_)(
-		&$PRIV(__m_size),
-		&$PRIV(__n_size),
-		$P(A),
-		&$PRIV(__m_size),
+		&(integer){$PRIV(__m_size)},
+		&(integer){$PRIV(__n_size)},
+		$P(A),
+		&(integer){$PRIV(__m_size)},
 		$P(tau),
 		&tmp_work,
 		&lwork,
@@ -9145,10 +9145,10 @@
 		double *work = (double *)malloc(lwork *  sizeof(double));
              %}
 		$TFD(sgerqf_,dgerqf_)(
-		&$PRIV(__m_size),
-		&$PRIV(__n_size),
-		$P(A),
-		&$PRIV(__m_size),
+		&(integer){$PRIV(__m_size)},
+		&(integer){$PRIV(__n_size)},
+		$P(A),
+		&(integer){$PRIV(__m_size)},
 		$P(tau),
 		work,
 		&lwork,
@@ -9224,11 +9224,11 @@
              %}
 
 		$TFD(sorgrq_,dorgrq_)(
-		&$PRIV(__m_size),
-		&$PRIV(__n_size),
-		&$PRIV(__k_size),
-		$P(A),
-		&$PRIV(__m_size),
+		&(integer){$PRIV(__m_size)},
+		&(integer){$PRIV(__n_size)},
+		&(integer){$PRIV(__k_size)},
+		$P(A),
+		&(integer){$PRIV(__m_size)},
 		$P(tau),
 		&tmp_work,
 		&lwork,
@@ -9245,11 +9245,11 @@
 		double *work = (double *)malloc(lwork *  sizeof(double));
              %}
 		$TFD(sorgrq_,dorgrq_)(
-		&$PRIV(__m_size),
-		&$PRIV(__n_size),
-		&$PRIV(__k_size),
-		$P(A),
-		&$PRIV(__m_size),
+		&(integer){$PRIV(__m_size)},
+		&(integer){$PRIV(__n_size)},
+		&(integer){$PRIV(__k_size)},
+		$P(A),
+		&(integer){$PRIV(__m_size)},
 		$P(tau),
 		work,
 		&lwork,
@@ -9323,14 +9323,14 @@
 		$TFD(sormrq_,dormrq_)(
 		&pside,
 		&ptrans,
-		&$PRIV(__m_size),
-		&$PRIV(__n_size),
-		&$PRIV(__k_size),
-		$P(A),
-		&$PRIV(__k_size),
+		&(integer){$PRIV(__m_size)},
+		&(integer){$PRIV(__n_size)},
+		&(integer){$PRIV(__k_size)},
+		$P(A),
+		&(integer){$PRIV(__k_size)},
 		$P(tau),
 		$P(C),
-		&$PRIV(__m_size),
+		&(integer){$PRIV(__m_size)},
 		&tmp_work,
 		&lwork,
 		$P(info));
@@ -9348,14 +9348,14 @@
 		$TFD(sormrq_,dormrq_)(
 		&pside,
 		&ptrans,
-		&$PRIV(__m_size),
-		&$PRIV(__n_size),
-		&$PRIV(__k_size),
-		$P(A),
-		&$PRIV(__k_size),
+		&(integer){$PRIV(__m_size)},
+		&(integer){$PRIV(__n_size)},
+		&(integer){$PRIV(__k_size)},
+		$P(A),
+		&(integer){$PRIV(__k_size)},
 		$P(tau),
 		$P(C),
-		&$PRIV(__m_size),
+		&(integer){$PRIV(__m_size)},
 		work,
 		&lwork,
 		$P(info));
@@ -9440,10 +9440,10 @@
              %}
 
 		$TFD(stzrzf_,dtzrzf_)(
-		&$PRIV(__m_size),
-		&$PRIV(__n_size),
-		$P(A),
-		&$PRIV(__m_size),
+		&(integer){$PRIV(__m_size)},
+		&(integer){$PRIV(__n_size)},
+		$P(A),
+		&(integer){$PRIV(__m_size)},
 		$P(tau),
 		&tmp_work,
 		&lwork,
@@ -9460,10 +9460,10 @@
 		double *work = (double *)malloc(lwork *  sizeof(double));
              %}
 		$TFD(stzrzf_,dtzrzf_)(
-		&$PRIV(__m_size),
-		&$PRIV(__n_size),
-		$P(A),
-		&$PRIV(__m_size),
+		&(integer){$PRIV(__m_size)},
+		&(integer){$PRIV(__n_size)},
+		$P(A),
+		&(integer){$PRIV(__m_size)},
 		$P(tau),
 		work,
 		&lwork,
@@ -9566,15 +9566,15 @@
 		$TFD(sormrz_,dormrz_)(
 		&pside,
 		&ptrans,
-		&$PRIV(__m_size),
-		&$PRIV(__n_size),
-		&$PRIV(__k_size),
+		&(integer){$PRIV(__m_size)},
+		&(integer){$PRIV(__n_size)},
+		&(integer){$PRIV(__k_size)},
 		&kk,
 		$P(A),
-		&$PRIV(__k_size),
+		&(integer){$PRIV(__k_size)},
 		$P(tau),
 		$P(C),
-		&$PRIV(__m_size),
+		&(integer){$PRIV(__m_size)},
 		&tmp_work,
 		&lwork,
 		$P(info));
@@ -9592,15 +9592,15 @@
 		$TFD(sormrz_,dormrz_)(
 		&pside,
 		&ptrans,
-		&$PRIV(__m_size),
-		&$PRIV(__n_size),
-		&$PRIV(__k_size),
+		&(integer){$PRIV(__m_size)},
+		&(integer){$PRIV(__n_size)},
+		&(integer){$PRIV(__k_size)},
 		&kk,
 		$P(A),
-		&$PRIV(__k_size),
+		&(integer){$PRIV(__k_size)},
 		$P(tau),
 		$P(C),
-		&$PRIV(__m_size),
+		&(integer){$PRIV(__m_size)},
 		work,
 		&lwork,
 		$P(info));
@@ -9689,11 +9689,11 @@
              %}
 
 		$TFD(sgehrd_,dgehrd_)(
-		&$PRIV(__n_size),
+		&(integer){$PRIV(__n_size)},
 		$P(ilo),
 		$P(ihi),
 		$P(A),
-		&$PRIV(__n_size),
+		&(integer){$PRIV(__n_size)},
 		$P(tau),
 		&tmp_work,
 		&lwork,
@@ -9710,11 +9710,11 @@
 		double *work = (double *)malloc(lwork *  sizeof(double));
              %}
 		$TFD(sgehrd_,dgehrd_)(
-		&$PRIV(__n_size),
+		&(integer){$PRIV(__n_size)},
 		$P(ilo),
 		$P(ihi),
 		$P(A),
-		&$PRIV(__n_size),
+		&(integer){$PRIV(__n_size)},
 		$P(tau),
 		work,
 		&lwork,
@@ -9819,11 +9819,11 @@
              %}
 
 		$TFD(sorghr_,dorghr_)(
-		&$PRIV(__n_size),
+		&(integer){$PRIV(__n_size)},
 		$P(ilo),
 		$P(ihi),
 		$P(A),
-		&$PRIV(__n_size),
+		&(integer){$PRIV(__n_size)},
 		$P(tau),
 		&tmp_work,
 		&lwork,
@@ -9840,11 +9840,11 @@
 		double *work = (double *)malloc(lwork *  sizeof(double));
              %}
 		$TFD(sorghr_,dorghr_)(
-		&$PRIV(__n_size),
+		&(integer){$PRIV(__n_size)},
 		$P(ilo),
 		$P(ihi),
 		$P(A),
-		&$PRIV(__n_size),
+		&(integer){$PRIV(__n_size)},
 		$P(tau),
 		work,
 		&lwork,
@@ -9934,15 +9934,15 @@
 		$TFD(shseqr_,dhseqr_)(
 		&pjob,
 		&pcompz,
-		&$PRIV(__n_size),
+		&(integer){$PRIV(__n_size)},
 		$P(ilo),
 		$P(ihi),
 		$P(H),
-		&$PRIV(__n_size),
+		&(integer){$PRIV(__n_size)},
 		$P(wr),
 		$P(wi),
 		$P(Z),
-		&$PRIV(__m_size),
+		&(integer){$PRIV(__m_size)},
 		&tmp_work,
 		&lwork,
 		$P(info));
@@ -9960,15 +9960,15 @@
 		$TFD(shseqr_,dhseqr_)(
 		&pjob,
 		&pcompz,
-		&$PRIV(__n_size),
+		&(integer){$PRIV(__n_size)},
 		$P(ilo),
 		$P(ihi),
 		$P(H),
-		&$PRIV(__n_size),
+		&(integer){$PRIV(__n_size)},
 		$P(wr),
 		$P(wi),
 		$P(Z),
-		&$PRIV(__m_size),
+		&(integer){$PRIV(__m_size)},
 		work,
 		&lwork,
 		$P(info));
@@ -10107,13 +10107,13 @@
 		&pside,
 		&phowmny,
 		$P(select),
-		&$PRIV(__n_size),
+		&(integer){$PRIV(__n_size)},
 		$P(T),
-		&$PRIV(__n_size),
+		&(integer){$PRIV(__n_size)},
 		$P(VL),
-		&$PRIV(__m_size),
+		&(integer){$PRIV(__m_size)},
 		$P(VR),
-		&$PRIV(__p_size),
+		&(integer){$PRIV(__p_size)},
 		&mm,
 		$P(m), 
 		work,
@@ -10307,15 +10307,15 @@
 		&pside,
 		&phowmny,
 		$P(select),
-		&$PRIV(__n_size),
-		$P(A),
-		&$PRIV(__n_size),
+		&(integer){$PRIV(__n_size)},
+		$P(A),
+		&(integer){$PRIV(__n_size)},
 		$P(B),
-		&$PRIV(__n_size),
+		&(integer){$PRIV(__n_size)},
 		$P(VL),
-		&$PRIV(__m_size),
+		&(integer){$PRIV(__m_size)},
 		$P(VR),
-		&$PRIV(__p_size),
+		&(integer){$PRIV(__p_size)},
 		&mm,
 		$P(m), 
 		work,
@@ -10470,9 +10470,9 @@
 		
 		$TFD(sgebal_,dgebal_)(
 		&pjob,
-		&$PRIV(__n_size),
-		$P(A),
-		&$PRIV(__n_size),
+		&(integer){$PRIV(__n_size)},
+		$P(A),
+		&(integer){$PRIV(__n_size)},
 		$P(ilo),
 		$P(ihi),
 		$P(scale),
@@ -10604,13 +10604,13 @@
 		$TFD(sgebak_,dgebak_)(
 		&pjob,
 		&pside,
-		&$PRIV(__n_size),
+		&(integer){$PRIV(__n_size)},
 		$P(ilo),
 		$P(ihi),
 		$P(scale),
-		&$PRIV(__m_size),
-		$P(A),
-		&$PRIV(__n_size),
+		&(integer){$PRIV(__m_size)},
+		$P(A),
+		&(integer){$PRIV(__n_size)},
 		$P(info));
 
 ',
@@ -10704,10 +10704,10 @@
 
 		$b() = $TFD(slange_,dlange_)(
 		&pnorm,
-		&$PRIV(__n_size),
-		&$PRIV(__m_size),
-		$P(A),
-		&$PRIV(__n_size),
+		&(integer){$PRIV(__n_size)},
+		&(integer){$PRIV(__m_size)},
+		$P(A),
+		&(integer){$PRIV(__n_size)},
 		work);
 		if ($norm() == 2)
 			free (work);
@@ -10801,9 +10801,9 @@
 		$b() = $TFD(slansy_,dlansy_)(
 		&pnorm,
 		&puplo,
-		&$PRIV(__n_size),
-		$P(A),
-		&$PRIV(__n_size),
+		&(integer){$PRIV(__n_size)},
+		$P(A),
+		&(integer){$PRIV(__n_size)},
 		work);
 		if ($norm() == 2 || $norm() == 1)
 			free (work);
@@ -10904,10 +10904,10 @@
 		&pnorm,
 		&puplo,
 		&pdiag,
-		&$PRIV(__m_size),
-		&$PRIV(__n_size),
-		$P(A),
-		&$PRIV(__n_size),
+		&(integer){$PRIV(__m_size)},
+		&(integer){$PRIV(__n_size)},
+		$P(A),
+		&(integer){$PRIV(__n_size)},
 		work);
 		if ($norm() == 2)
 			free (work);
@@ -11007,17 +11007,17 @@
 		$TFD(sgemm_,dgemm_)(
 		&ptransa,
 		&ptransb,
-		&$PRIV(__r_size),
-		&$PRIV(__s_size),
+		&(integer){$PRIV(__r_size)},
+		&(integer){$PRIV(__s_size)},
 		&kk,
 		$P(alpha),
 		$P(A),
-		&$PRIV(__m_size),
+		&(integer){$PRIV(__m_size)},
 		$P(B),
-		&$PRIV(__p_size),
+		&(integer){$PRIV(__p_size)},
 		$P(beta),
 		$P(C),
-		&$PRIV(__r_size));
+		&(integer){$PRIV(__r_size)});
 ',
       Doc => '
 
@@ -11165,17 +11165,17 @@
 		$TFD(sgemm_,dgemm_)(
 		&ptrans,
 		&ptrans,
-		&$PRIV(__p_size),
-		&$PRIV(__n_size),
-		&$PRIV(__m_size),
+		&(integer){$PRIV(__p_size)},
+		&(integer){$PRIV(__n_size)},
+		&(integer){$PRIV(__m_size)},
 		&alpha,
 		$P(B),
-		&$PRIV(__p_size),
-		$P(A),
-		&$PRIV(__m_size),
+		&(integer){$PRIV(__p_size)},
+		$P(A),
+		&(integer){$PRIV(__m_size)},
 		&beta,
 		$P(C),
-		&$PRIV(__p_size));
+		&(integer){$PRIV(__p_size)});
 ',
       Doc => '
 
@@ -11211,17 +11211,17 @@
 		$TFD(sgemmb_,dgemmb_)(
 		&ptrans,
 		&ptrans,
-		&$PRIV(__p_size),
-		&$PRIV(__n_size),
-		&$PRIV(__m_size),
+		&(integer){$PRIV(__p_size)},
+		&(integer){$PRIV(__n_size)},
+		&(integer){$PRIV(__m_size)},
 		&alpha,
 		$P(B),
-		&$PRIV(__p_size),
-		$P(A),
-		&$PRIV(__m_size),
+		&(integer){$PRIV(__p_size)},
+		$P(A),
+		&(integer){$PRIV(__m_size)},
 		&beta,
 		$P(C),
-		&$PRIV(__p_size));
+		&(integer){$PRIV(__p_size)});
 ',
       Doc => '
 
@@ -11260,17 +11260,17 @@
 		$TFD(sgemm_,dgemm_)(
 		&btrans,
 		&atrans,
-		&$PRIV(__p_size),
-		&$PRIV(__n_size),
-		&$PRIV(__m_size),
+		&(integer){$PRIV(__p_size)},
+		&(integer){$PRIV(__n_size)},
+		&(integer){$PRIV(__m_size)},
 		&alpha,
 		$P(B),
-		&$PRIV(__p_size),
-		$P(A),
-		&$PRIV(__n_size),
+		&(integer){$PRIV(__p_size)},
+		$P(A),
+		&(integer){$PRIV(__n_size)},
 		&beta,
 		$P(C),
-		&$PRIV(__p_size));
+		&(integer){$PRIV(__p_size)});
 ',
       Doc => '
 
@@ -11310,14 +11310,14 @@
 		$TFD(ssyrk_,dsyrk_)(
 		&puplo,
 		&ptrans,
-		&$PRIV(__p_size),
+		&(integer){$PRIV(__p_size)},
 		&kk,
 		$P(alpha),
 		$P(A),
-		&$PRIV(__m_size),
+		&(integer){$PRIV(__m_size)},
 		$P(beta),
 		$P(C),
-		&$PRIV(__p_size));
+		&(integer){$PRIV(__p_size)});
 ',
       Doc => '
 
@@ -11725,7 +11725,7 @@
 
 		$TFD(slasrt_,dlasrt_)(
 		&pwork,
-		&$PRIV(__n_size),
+		&(integer){$PRIV(__n_size)},
 		$P(d),
 		$P(info));
 ',
@@ -11789,12 +11789,12 @@
 
 		$TFD(slacpy_,dlacpy_)(
 		&puplo,
-		&$PRIV(__m_size),
-		&$PRIV(__n_size),
-		$P(A),
-		&$PRIV(__m_size),
+		&(integer){$PRIV(__m_size)},
+		&(integer){$PRIV(__n_size)},
+		$P(A),
+		&(integer){$PRIV(__m_size)},
 		$P(B),
-		&$PRIV(__p_size));
+		&(integer){$PRIV(__p_size)});
 ',
       Doc => '
 
@@ -11843,9 +11843,9 @@
 
 
 		$TFD(slaswp_,dlaswp_)(
-		&$PRIV(__n_size),
-		$P(A),
-		&$PRIV(__m_size),
+		&(integer){$PRIV(__n_size)},
+		$P(A),
+		&(integer){$PRIV(__m_size)},
 		$P(k1),
 		$P(k2),
 		$P(ipiv),
@@ -12296,9 +12296,9 @@
 	for (;;)
 	{
 		i++;
-		$TFD(sgemm_,dgemm_)(&ptrans,&ptrans,&$PRIV(__n_size),&$PRIV(__n_size),
-			&$PRIV(__n_size),&alpha,$P(A),&$PRIV(__n_size),	$P(Y), &$PRIV(__n_size),
-			&beta, p, &$PRIV(__n_size));
+		$TFD(sgemm_,dgemm_)(&ptrans,&ptrans,&(integer){$PRIV(__n_size)},&(integer){$PRIV(__n_size)},
+			&(integer){$PRIV(__n_size)},&alpha,$P(A),&(integer){$PRIV(__n_size)},	$P(Y), &(integer){$PRIV(__n_size)},
+			&beta, p, &(integer){$PRIV(__n_size)});
 		
 		if (i == $SIZE(n)) break;