!   mabbr.mac   
!  abbreviations for 2D models
/nopr
*afun,rad
pi=4*atan(1)
muz=pi*4e-7
*afun,deg

*abbr,Mag_help,*list,maghelp,mac
*abbr,stator_h,*list,stat_doc,mac
*abbr,rslot_h,*list,rslotdoc,mac
*abbr,pmstat_h,*list,pmstadoc,mac
*abbr,slot_r_h,*list,slor_doc,mac      !    open bar rotor HELP   
*abbr,pmroto_h,*list,pmrotdoc,mac
*abbr,how_to,*list,how_to,mac

*abbr,pick_nod,nsel,,p
*abbr,pick_ele,esel,,p
*abbr,Get_Dims,g_parfil

*abbr,stator,slotsta,,stref,use_53,nspgen,use_53,0,f_mesh
*abbr,rslot,rslotsta,0,stref,,nspgen   !  build the stator-rectangular slot
*abbr,pmstator,pm_stat,use_53,stref,nspgen,use_53
*abbr,slot_r,slotrot,0,rref,use_53,nrpgen,use_53
*abbr,pmrotor,pm_rotor,rref,use_53,nrpgen,use_53,f_mesh
!*abbr,odd_BC,permach
*abbr,even_BC,permach,1

*abbr,Rotate,mvrotor,,1,0,0,0,0,0,0,1

*abbr,wind_2d,b_wndsc,,,,,,,,,,,,1  !  builds winding input for 2D
*abbr,plot_wnd,pldcstr              !  plots the winding
*abbr,plt_form,plt_form             !  plots the loaded current form
*abbr,Load,ld_coil,,,,,,,,,1        !  applies currents to the winding
*abbr,delecurr,dele_amp             !  deletes all currents
*abbr,coil_sel,coil_sel             !  selects the coils based on the active coil elements
*abbr,dc_load,dc_curr,,,,,,,,,1     !  applies to amp turns to active coil elements
*abbr,Solution,mvpsol               !  single solution
*abbr,rot_cons,rotsol1,,,,,,,,-1    !  generates solutions with forces-no load or constant current
*abbr,rot_curr,rotsol2,,,,,,,,-1    !  generates solutions with forces-with current
*abbr,mach_ind,m_induc,,,,,,,,,1    !  computes a series of inductances

*abbr,mach_tor,machtorq       !  computes torque
*abbr,coillink,coillink        !  computes the flux linkages
*abbr,mur,mur                  !  computes permeability
*abbr,_mmf,mmf_                !  computes MMF
*abbr,b_radial,plpa,bradial    !  plots the Bradial
*abbr,b_tanget,plpa,btanget    !  plots the Btangential
*abbr,B_vector,plvln           !  B vector plot
*abbr,H_vector,plvln,2         !  H vector plot
*abbr,fluxline,plf2d,27        !  flux line plot
*abbr,chk_amp,ckslot           !  prints out the currents in the slots
*abbr,PLOTCURR,plet,js         !  plots out the current densities
*abbr,EMF_ANG,pl_emf           !  Plots EMF versus angle after <rot_curr> or rotsol2 has been run
*abbr,rot_ang,rotloc           !  displays current rotor location
/gopr