!   ckslot.mac
!   Checks currents in a series of slots in which the
!   real set numbers are in a pattern.
!   All elements are in a component "coil" !!
!
!    arg1 = starting real number'
!    arg2 = ending real number
!
/nopr
/out,_data
cmsel,,s_coil
*set,ckcur
*if,arg3,eq,0,then
   arg3=1
*endif
nckslot=nint((arg2-arg1+1)/arg3+.1)
*dim,ckcur,,nckslot,2
_islot=0
etab,,volu
etab,js,smisc,1
smult,current,js,volu

*do,islot,arg1,arg2,arg3
  cmsel,,s_coil
  esel,r,real,,islot
  ssum
  *get,current,ssum,,item,current
  _islot=_islot+1
  ckcur(_islot,1)=islot
  ckcur(_islot,2)=current
*enddo
*get,_mnu,active,,menu
/out,_sum
*msg,info
>
*msg,info
>
*msg,info
>___SUMMARY OF CURRENTS IN THE SLOTS______<
*msg,info
>____ Slot____Real_____Current
*vwrite,sequ,ckcur(1,1),ckcur(1,2)
(4x,f7.0,f8.0,f12.1)

*msg,info
>
*msg,info
>
/out,_data
*if,_nomsg,eq,0,then
*if,_mnu,ge,0,then
*uili,_sum
*else
*list,_sum
*endif
*else
/out,ckslot,sum,,append
*msg,info,cycle
 Cycle number:_____ %i
*list,_sum
*endif
/gopr
/out