E,a,mm+19 mm=mm-1 *enddo mm=400000 *enddo
*do,j,nn+1+25*25,nn+2301*3,2301 *do,a,j,2*25+j,25 type,3 mat,1 real,4 E,a,mm+16 mm=mm-1 *enddo mm=400000
*enddo
*do,j,nn+1+28*25,nn+2301*3,2301 *do,a,j,10*25+j,25 type,3 mat,1 real,3 E,a,mm+13 mm=mm-1 *enddo mm=400000 *enddo
!***************************************WM mm=450000
*do,j,nn+1+40*25,nn+2301*3,2301 *do,a,j,10*25+j,25 type,3 mat,1 real,3 E,a,mm+3 mm=mm+1 *enddo mm=450000 *enddo
*do,j,nn+1+51*25,nn+2301*3,2301 *do,a,j,2*25+j,25 type,3 mat,1 real,4 E,a,mm+14 mm=mm+1
*enddo
mm=450000 *enddo
*do,j,nn+1+54*25,nn+2301*3,2301 *do,a,j,2*25+j,25 type,3 mat,1 real,5 E,a,mm+17 mm=mm+1 *enddo mm=450000
*enddo
*do,j,nn+1+57*25,nn+2301*3,2301 type,3 mat,1 real,6 E,j,mm+20 mm=450000
*enddo
!***************************************WS mm=450000
*do,j,nn+1+61*25,nn+2301*3,2301 type,3 mat,1 real,6 E,j,mm+20
mm=450000 *enddo
*do,j,nn+1+62*25,nn+2301*3,2301 *do,a,j,2*25+j,25 type,3 mat,1 real,5 E,a,mm+19 mm=mm-1 *enddo mm=450000 *enddo
*do,j,nn+1+65*25,nn+2301*3,2301 *do,a,j,2*25+j,25 type,3 mat,1 real,4
E,a,mm+16 mm=mm-1 *enddo mm=450000 *enddo
*do,j,nn+1+68*25,nn+2301*3,2301 *do,a,j,10*25+j,25 type,3 mat,1 real,3 E,a,mm+13 mm=mm-1 *enddo mm=450000 *enddo
nummrg,node numcmp,node
FINISH
