! mur.mac *get,_loc,active,,rout *if,_loc,ne,31,then fini /post1 *endif *afun,rad pi=acos(-1) *afun,deg muz=pi*4e-7 esel,,ename,,13,53,40 nsle etab,mu,nmisc,1 sadd,mur,mu,,1/muz esel,u,etab,mur,1,1.3 /num,1 plet,mur,1