write out undeformed configuration

2021-05-31 19:41:22 +02:00 · 2021-05-31 19:41:22 +02:00 · 91015fd07c
parent 650fbd7509
commit 91015fd07c
1 changed files with 4 additions and 0 deletions
--- a/src/mesh/DAMASK_mesh.f90
+++ b/src/mesh/DAMASK_mesh.f90
@ -252,6 +252,10 @@ program DAMASK_mesh
    write(statUnit,'(a)') 'Increment Time CutbackLevel Converged IterationsNeeded'                  ! statistics file
  endif

+  print'(/,a)', ' ... writing initial configuration to file ........................'
+  flush(IO_STDOUT)
+  call CPFEM_results(0,0.0_pReal)
+
  loadCaseLooping: do currentLoadCase = 1, size(loadCases)
    time0 = time                                                                                    ! load case start time
    guess = loadCases(currentLoadCase)%followFormerTrajectory                                       ! change of load case? homogeneous guess for the first inc