crystallite_Fp has to be initialized in crystallite_init, cause it is used by constitutive_microstructure

2012-02-03 14:52:09 +00:00 · 2012-02-03 14:52:09 +00:00 · e7d407c2f6
parent 5ddade27fc
commit e7d407c2f6
1 changed files with 1 additions and 0 deletions
--- a/code/crystallite.f90
+++ b/code/crystallite.f90
@ -323,6 +323,7 @@ close(file)
        crystallite_localConstitution(g,i,e) = phase_localConstitution(material_phase(g,i,e))
        !$OMP FLUSH(crystallite_Fp0)
        crystallite_Fe(1:3,1:3,g,i,e)  = math_transpose33(crystallite_Fp0(1:3,1:3,g,i,e))
+        crystallite_Fp(1:3,1:3,g,i,e)  = crystallite_Fp0(1:3,1:3,g,i,e)
      enddo
    enddo
  enddo