anchor.diff:  *VGET, CrackDisps(1,9), NODE, 1, EPEL, X
   *VGET, CrackDisps(1,10), NODE, 1, EPEL, Y
   *VGET, CrackDisps(1,11), NODE, 1, EPEL, XY
  -*CFOPEN, CrackFaceFile, csv
  -*VWRITE, CrackDisps(1,1), ', ', CrackDisps(1,2), ', ', CrackDisps(1,3), ', ', CrackDisps(1,4)
  -(F12.8,A2,F12.8,A2,F12.8,A2,F12.8)
  +
  +*CFOPEN, CFFileCoordDisp, csv
  +*VWRITE, 'NODE LABEL, X [mm], Z [mm], UX [mm], UZ [mm]'
  +(A)
  +*VWRITE, CrackDisps(1,1), ', ', CrackDisps(1,2), ', ', CrackDisps(1,3), ', ', CrackDisps(1,4), ', ', CrackDisps(1,5)
  +(F12.8,A2,F12.8,A2,F12.8,A2,F12.8,A2,F12.8)
   *CFCLOS
   
  +*CFOPEN, CFFileStressStrain, csv
  +*VWRITE, 'NODE LABEL, SX [MPa], SZ [MPa], SXZ [MPa], EX [-], EZ [-], EXZ [-]'
  +(A)
  +*VWRITE, CrackDisps(1,1), ', ', CrackDisps(1,6), ', ', CrackDisps(1,7), ', ', CrackDisps(1,8), ', ', CrackDisps(1,9), ', ', CrackDisps(1,10), ', ', CrackDisps(1,11)
  +(F12.8,A2,F12.8,A2,F12.8,A2,F12.8,A2,F12.8,A2,F12.8,A2,F12.8)
  +*CFCLOS
  +
   /eof
  
positive.code: 
  LSEL,S,,,8                                ! Crack
  NSLL,S,1                                  !Select nodes associated to this line
  *GET,NNodes,NODE,0,COUNT             !Get the number of nodes in the selected set
  *DIM, CrackDisps, ARRAY, NNodes, 4
  *VGET, CrackDisps(1,1), NODE, 1, NUM
  *VGET, CrackDisps(1,2), NODE, 1, LOC, X
  
negative.code: 
  ! ===> START INPUT DATA
  
  wd = 'C:/Ansys_WD/Debug'
  basename = 'debug_'
  
  Vf = ! [-] Fiber volume fraction
  
  