11 	-lf2c -lm   (in that order)
16 extern int mload_(integer *order, integer *awins, integer *awinf, real *speech, real *phi, real *ps…
54 /*  ORDER            - Analysis order */
58 /*                     Indices MIN(AWINS, AWINF-(ORDER-1)) through */
59 /*                             MAX(AWINF, AWINS+(ORDER-1)) read. */
60 /*                     As long as (AWINF-AWINS) .GE. (ORDER-1), */
63 /*  PHI(ORDER,ORDER) - Covariance matrix */
66 /*  PSI(ORDER)       - Prediction vector */
67 /*                     Indices 1 through ORDER written, */
72 /* Subroutine */ int mload_(integer *order, integer *awins, integer *awinf,   in mload_()  argument
86     phi_dim1 = *order;  in mload_()
92     start = *awins + *order;  in mload_()
93     i__1 = *order;  in mload_()
102     psi[*order] = 0.f;  in mload_()
105 	psi[*order] += speech[i__] * speech[i__ - *order];  in mload_()
108     i__1 = *order;  in mload_()
118     i__1 = *order - 1;  in mload_()
129 /* 	DO R = 1,ORDER */  in mload_()