帮我看看这个fish有什么问题？

def cal
p_z=zone_head
cal_po=0.
loop while p_z # null
;fo_m=l*l*z_sxx(p_z)+m*m*z_syy(p_z)+n*n*z_szz(p_z)+l*m*n*z_syz(p_z)+2*n*l*z_szx(p_z)+2*l*m*z_sxy(p_z)
dsxx=l*l*z_sxx(p_z)
dsyy=m*m*z_syy(p_z)
dszz=n*n*z_szz(p_z)
dsxy=2*l*m*z_sxy(p_z)
dsxz=2*n*l*z_sxz(p_z)
dsyz=l*m*n*z_syz(p_z)
cal_po=dsxx+dsyy+dszz+dsxy+dsxz+dsyz
p_z=z_next(p_z)
end_loop
end
cal