/out,dc_curr,out
!  dc_curr.mac
!  applies amp turns to the active coil elements

*if,arg9,eq,1,then
 *ask,_inamp,Amp-turns,0
 arg1=_inamp
*else
 arg1=_inamp
*endif

*get,_rout,active,,rout
*if,_rout,ne,21,then
  fini
  /solu
*endif


_smg1=_mg1
_err=0
*get,_ecnt,elem,,count
*if,_ecnt,le,0,then
 /out
 /nerr
 *msg,error
 There are no active elements-no action
 /out,dc_curr,out,,append
 _err=1
*endif
/nerr,0,1e5
*if,_err,eq,1,:end

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

cm,_ce1dc,elem
cm,_ce2dc,elem
*do,_idc1,1,_ecnt
 /gopr
 *get,_elmndc,elem,,num,min
 *if,_elmndc,le,0,exit
 *get,_realdc,elem,_elmndc,attr,real
 esel,,real,,_realdc
 esel,r,mat,,_iwnd
 _mg1=1
 put_amp,arg1
 /out,dc_curr,out,,append
 cmsel,,_ce1dc
 esel,u,real,,_realdc
 cm,_ce1dc,elem
*enddo
_idc1=_idc1-1
cmsel,,_ce2dc

/nopr
/out,dc_curr,sum


*msg,info
___________APPLICATION OF CURRENT___________
*msg,info

*msg,info,arg1
current-turns for each cross section (A-T):______ %g
*msg,info,_idc1
Number of coil cross sections:___________________ %g
/out

*if,_smg1,eq,0,then
 *uili,dc_curr,sum
*endif

_mg1=_smg1
:end

/out