/out,coil_sel,out
cm,_ce1,elem
*get,_ecnt,elem,,count
cm,_ce2,elem
_real=

*get,_elmn,elem,,num,min
*get,_iwnd,elem,_elmn,attr,mat

*do,_i1,1,_ecnt
 !/gopr
 *get,_elmn,elem,,num,min
 *get,_real,elem,_elmn,attr,real
 esel,a,real,,_real
 esel,r,mat,,_iwnd
 cmsel,a,_ce2
 cm,_ce2,elem
 cmsel,,_ce1
 esel,u,,,_elmn
 cm,_ce1,elem
 !elis
*enddo
cmsel,,_ce2
nsle
/pnum,real,1
eplo
/pnum,mat,1
/out