请大家帮看看，怎么老是指针错误呢？

mosquato

def xxx
  cp = contact_head
  loop while cp # null
      pbp = c_pb(cp)
         _mean = pb_sn_mean
         _stddev = pb_sn_sdev
        _nstr = 1
         _mean = pb_ss_mean
         _stddev = pb_ss_sdev
        _sstr = 1
      ;--------------------------------------------------
      ; Set pb_n, pb_s, pb_r for the assembly:
      pb_nstrength(pbp) = _nstr  
      pb_sstrength(pbp) = _sstr  
      pb_rad(pbp) = pb_radmult   
        _radsum = b_rad(c_ball1(cp)) + b_rad(c_ball2(cp))
        _kn = pb_Ec / _radsum
        _ks = _kn / pb_knoverks
      pb_kn(pbp) = _kn
      pb_ks(pbp) = _ks
    ;----------------------------------------------------
    cp = c_next(cp)
  end_loop
end