Lines Matching +full:10 +full:v

57 /*  V(ORDER,ORDER)   - Temporary matrix */
63 /*  NOTE: Temporary matrix V is not needed and may be replaced */
75     real v[100]	/* was [10][10] */;  in invert_()  local
83 /*  Decompose PHI into V * D * V' where V is a triangular matrix whose */  in invert_()
84 /*   main diagonal elements are all 1, V' is the transpose of V, and */  in invert_()
85 /*   D is a vector.  Here D(n) is stored in location V(n,n). */  in invert_()
98 	    v[i__ + j * 10 - 11] = phi[i__ + j * phi_dim1];  in invert_()
102 	    save = v[j + k * 10 - 11] * v[k + k * 10 - 11];  in invert_()
105 		v[i__ + j * 10 - 11] -= v[i__ + k * 10 - 11] * save;  in invert_()
109 	if ((r__1 = v[j + j * 10 - 11], abs(r__1)) < 1e-10f) {  in invert_()
115 	    rc[j] -= rc[k] * v[j + k * 10 - 11];  in invert_()
117 	v[j + j * 10 - 11] = 1.f / v[j + j * 10 - 11];  in invert_()
118 	rc[j] *= v[j + j * 10 - 11];  in invert_()
136 /* 	      PC(J) = PC(J) - PC(I)*V(J,I) */  in invert_()