code 34154; comment MCA 2314; procedure EIGSYM2(A, N, NUMVAL, VAL, VEC, EM); value N, NUMVAL; integer N, NUMVAL; array A, VAL, VEC, EM; begin array B, BB, D[1:N]; TFMSYMTRI2(A, N, D, B, BB, EM); VALSYMTRI(D, BB, N, 1, NUMVAL, VAL, EM); VECSYMTRI(D, B, N, 1, NUMVAL, VAL, VEC, EM); BAKSYMTRI2(A, N, 1, NUMVAL, VEC) end EIGSYM2; eop