!
! Csys for to create groups fro contact analysis (coil 1 only)
!
ncsys=4
k123=
*dim,k123,array,3,ncsys
k123(1,1)=60,61,54
k123(1,2)=62,53,58
k123(1,3)=54,55,60
k123(1,4)=56,57,60
!
!--------------------------------------
!
! Inner Upper Coils (model with structure)
!
*do,ii,1,ncsys
icsys=11+ii*10
k1=k123(1,ii)
k2=k123(2,ii)
k3=k123(3,ii)
cskp,icsys,0,k1,k2,k3
clocal,icsys,0,,,,,,90 
*enddo