mod_assemb_prep
!
k,,0,0
k,,6,0
k,,7,5
k,,-1,4
!
create_lines
!   
a,1,2,3,4
!
et,1,shell93
! 
!
!          (1)      (2)     (3)     (4)      (5)       (6)     (7)   (8)
! MSH_ALGORITHM, perflsz, perfmsh, mstyp, mshdens, elmszovr, atargov, etpa, etpv,
!
!        elmnl, elmxl, mtrl, rl, ecs, volsel, sprat, radrot, varcang
!         (9)    (10)  (11) (12) (13)  (14)   (15)    (16)     (17)
!  
MSH_ALGORITHM,1,0,,,,,,1,0.8,,,,,,3
!
*do,i,0,10,1
    zeta%i%=mod(i,2)
*enddo
!