*HEADING
 C(t)-INTEGRAL   -    DEFORMATION PLASTICITY  -   PLANE STRAIN    
 UNITS: N, mm, hours
*NODE,NSET=TIP
 101, 10.00
*NODE,NSET=RING
 123, 15.29
*NFILL,BIAS=0.75,TWO STEP,NSET=ROW1
 TIP, RING, 22 
*NCOPY,OLD SET=ROW1,CHANGE NUMBER=100,SHIFT,MULTIPLE=24,NEW SET=NALL
 0.0, 
 10.0, 0.0, -1.0, 10.0, 0.0, 1.0, 7.5
*NODE
  125,  20.
  137, 210.
 1325, 13.63, 9.34 
 2524, 2.,36.
 2525, 
 2537, ,210.
*NSET,NSET=RING1,GENERATE
 123, 2523, 100
*NGEN,NSET=RING2,LINE=C
 125, 1325, 100, 101
*NGEN,NSET=RING2,LINE=P
 1325, 2525, 100, ,6.0 ,7.0
*NGEN,NSET=RING3,LINE=C
 137, 2537, 100, 2525
*NFILL,BIAS=0.8,TWO STEP,NSET=NALL
 RING1, RING2, 2
 RING2, RING3, 12
*NSET,NSET=CRACKJ,GENERATE
 101, 2501, 100
*NSET,NSET=CRACKC,GENERATE
 101, 2501, 100
*NSET,NSET=XAXIS,GENERATE
 101, 137
*NSET,NSET=YAXIS,GENERATE
 2525,2537
*NSET,NSET=NOUT,GENERATE
 101, 2501, 100
 103, 2503, 100
 105, 2505, 100
 107, 2507, 100
 109, 2509, 100
*ELEMENT,TYPE=CPE8R
 100, 101, 103, 303, 301, 102, 203, 302, 201
 120, 123, 125, 325, 323, 124, 225, 324, 223
*ELGEN,ELSET=FOCUS
 100, 11, 2, 1, 12, 200, 200
*ELGEN,ELSET=FARFLD
 120, 7, 2, 1, 12, 200, 200
*ELSET,ELSET=EALL
 FARFLD, FOCUS,
*ELSET,ELSET=REMOTE,GENERATE
 126, 2326, 200
*ELSET,ELSET=EOUT,GENERATE
 100, 2300, 200
 101, 2301, 200 
 102, 2302, 200 
 103, 2303, 200 
 126, 2326, 200
*SOLID SECTION,MATERIAL=A1,ELSET=EALL
*MATERIAL,NAME=A1
*DEFORMATION PLASTICITY
 200.0E3,0.3,100.0,3.0,0.01
*BOUNDARY
 XAXIS, 2
 YAXIS, 1
*AMPLITUDE,NAME=FACTOR
 0.0,0.0,1.0,100.0
*STEP,INC=100
*STATIC,FULLY PLASTIC=FOCUS
 0.02, 1.0
*CLOAD,AMPLITUDE=FACTOR
  137, 2, 30.00 
  237, 2, 120.0 
  337, 2, 90.00 
  437, 2, 357.3 
  537, 2, 236.8 
  637, 2, 588.7 
  737, 2, 351.8 
  837, 2, 809.3 
  937, 2, 458.5 
 1037, 2, 1018. 
 1137, 2, 558.3 
 1237, 2, 1207. 
 1337, 2, 649.3 
 1437, 2, 1377. 
 1537, 2, 727.8 
 1637, 2, 1523. 
 1737, 2, 794.7 
 1837, 2, 1642. 
 1937, 2, 847.8 
 2037, 2, 1734. 
 2137, 2, 886.3 
 2237, 2, 1796. 
 2337, 2, 909.7 
 2437, 2, 1827. 
 2537, 2, 458.8 
*CONTOUR INTEGRAL,CONTOURS=5,SYMM,OUTPUT=BOTH
 CRACKJ, 1.0
*EL PRINT,FREQUENCY=0
*NODE PRINT,FREQUENCY=0
*EL FILE,ELSET=EOUT,FREQUENCY=100
 S, E
*NODE FILE,NSET=NOUT,FREQUENCY=100
 U, 
*END STEP