五，子程序（文件名：ATRDE.FOR) SUEROUTINE ATRDE(B.N.M.D.L> DIMENSION BOM)DON) IFM.NN-2)THE L= WRITE(*.10) RETURN END IF 10 FORMAT(LX.ERR') 00K=1.N-1 =3R-z IF (AES(B()+1..EQ.L.0)THEN WRITE RETURN END IF B0+1》=BI+1D/B(D D(K)=D(K/B(J) B+3》=BI+3》-BJ+2):B0+1D D(K+11-DK+1)-BJ+2)4DK) 20 CONTINUE F (ARSCH(3+N-2)+L-0.EQ L0)THEN WRITE(.10) RETURN END IF DcN)=DN)R(3￥N-23 D030K=N-11.-1 D(K)-D(K)-B(3*K-1>*D(K+1) 30 CONTINUE RETURN END 六、 求解三对角线方程组 [3 12 109 876 -2 9 54 21 68 17