esel,,mat,,3
*get,_elmn0,elem,,num,min
*get,_creal0,elem,_elmn0,attr,real
_rlstr=_creal0-1


csys,1
*do,_i1,1,nrpgen
 *msg,info,_i1
  cycle %i

  cmsel,,rotor
  esel,r,mat,,3
  nsle
  nsel,r,loc,y,360/nrp*(_i1-1)-.0001,360/nrp*(_i1)+.0001,
  esln,,1
  esel,r,mat,,3
  nsle
  *if,nconr,eq,1,then
    _rlstr=_rlstr+1
    emod,all,real,_rlstr
  *else
   /com, two conductors
   *get,_elmn,elem,,num,min
   *get,_creal,elem,_elmn,attr,real
   cm,_ce1,elem
   esel,r,real,,_creal
   _rlstr=_rlstr+1
   emod,all,real,_rlstr
   cm,_ce2,elem
   cm,_ce3,elem
   nsle
   esln
   esel,r,mat,,3
   esel,u,real,,_rlstr
   *get,_ecnt,elem,,count
   *get,_elmn1,elem,,num,min
   *get,_creal1,elem,_elmn1,attr,real
   *if,_ecnt,gt,0,then
     cmsel,,_ce1
     esel,r,real,,_creal1
     cmsel,a,_ce2
     !_rlstr=_rlstr+1
     emod,all,real,_rlstr
     cm,_ce3,elem
   *endif
   cmsel,,_ce1
   cmsel,u,_ce3
   _rlstr=_rlstr+1
   emod,all,real,_rlstr
  *endif
 *enddo