add :rb, :rz
add EXQ
EscapeCB() after ERRORELEM
implement ZOUBUNDISP
PlasticThreshold=RADIUS
return err at ReadZoubun,ReadLst
add ZOUBUNYIELD