begin gg4(c3，co)；goto ll； end；
if i=m1+m2∧m3≠0∧(a=4∨a=11)then lc1：begin gg4(c1，co)；goto ll； end；
if i=m1+m2+m3∧m4≠0∧a≥3∧a≤8 then
begin gg4(c2，co)；goto ll；end； if i=m1+m2+m3+m4∧m5≠0∧a=11 then goto lc1；
for s：=1 step 1 until 6 do for j：=1step 1 until 6 do co[s，j]：=if s=j then 1 else 0； ll：for j：=1 step 1 until 6 do
xo[j]：=x[6*i+j]；mat2(co，xo，b1，0，b2)； for j：=1 step 1 until 6 do begin mx：=mx+1； y[mx]：=b2[j]； end； end； end；
#print(0，‘2/，28X，2Hji，4X，4Hsuan；4X，3Hjie，3X，4Hgua0，/，28X，24s*，2/，2X，2Hmx，9X，Hm，11X，Hn，11X，Hq，11X，Hv，11X，Hu，11X，Hw，/‘)； begin array x1，x2[1∶3]；k：=0；q=10； for i：=mx/6 step﹣1 until 1 do begin t：=6*(i﹣1)；
x1[1]：=y[t+3]；x1[2]：=y[t+1]； x1[3]：=y[t+2]；
x2[1]：=y[t+5]；x2[2]：=y[t+4]； x2[3]：=y[t+6]；
#print(0，‘I4，F12.3，2X，F12.7‘.k，x1，x2)；if k=q then begin q：=q+10；
#print(0，‘/‘)；goto lpp； end； k：=k+1； lpp：end； end；
#print(0，‘I6‘，b)； #print(0，‘2/，80s﹣‘)；
end；
if H00000=1 then goto m24； end ∧∧??∧6*6*
附加说明
参加本规范修订的单位和各单位的主要工作人员为：
主编：水电部成都勘测设计院：段乐斋、黄孟良、刘俊芳。 协编：水电部西北勘测设计院：杨欣先。 水电部东北勘测设计院：赵长海。 水电部贵阳勘测设计院：郑 治。 水电部天津勘测设计院：夏广逊。 陕西省水电勘测设计院：冯跃堂。 水利水电科学研究院：张有天。 清华大学水利系：张受天。 陕西机械学院水利系：戴振霖。
本修订说明由段乐斋、黄孟良、刘俊芳汇编，由段乐斋校核和统稿。
1984年12月
《水工隧洞设计规范》修订组