Merge branch 'almost-no-postResults' into only-use-rotation-class

src/crystallite.f90

@@ -743,8 +743,7 @@ function crystallite_postResults(ipc, ip, el)
     ipc                           !< grain index
 
   real(pReal), dimension(1+ &
-                         1+plasticState(material_phaseAt(ipc,el))%sizePostResults + &
-                           sum(sourceState(material_phaseAt(ipc,el))%p(:)%sizePostResults)) :: &
+                         1+sum(sourceState(material_phaseAt(ipc,el))%p(:)%sizePostResults)) :: &
     crystallite_postResults
   integer :: &
     c
@@ -754,7 +753,7 @@ function crystallite_postResults(ipc, ip, el)
   crystallite_postResults(1) = 0.0_pReal                      ! header-like information (length)
   c = 1
 
-  crystallite_postResults(c+1) = real(plasticState(material_phaseAt(ipc,el))%sizePostResults,pReal)  ! size of constitutive results
+  crystallite_postResults(c+1) = real(sum(sourceState(material_phaseAt(ipc,el))%p(:)%sizePostResults),pReal)  ! size of constitutive results
   c = c + 1
   if (size(crystallite_postResults)-c > 0) &
     crystallite_postResults(c+1:size(crystallite_postResults)) = &

src/homogenization.f90

@@ -616,7 +616,7 @@ subroutine materialpoint_postResults
 
       grainLooping :do g = 1,myNgrains
         theSize = 1 + &
-                  1 + plasticState    (material_phaseAt(g,e))%sizePostResults + &
+                  1 + &
                   sum(sourceState(material_phaseAt(g,e))%p(:)%sizePostResults)
         materialpoint_results(thePos+1:thePos+theSize,i,e) = crystallite_postResults(g,i,e)        ! tell crystallite results
         thePos = thePos + theSize

src/material.f90

@@ -749,9 +749,6 @@ subroutine material_allocatePlasticState(phase,NofMyPhase,&
   plasticState(phase)%sizeDotState     = sizeDotState
   plasticState(phase)%sizeDeltaState   = sizeDeltaState
   plasticState(phase)%offsetDeltaState = sizeState-sizeDeltaState                                   ! deltaState occupies latter part of state by definition
-  plasticState(phase)%Nslip = Nslip
-  plasticState(phase)%Ntwin = Ntwin
-  plasticState(phase)%Ntrans= Ntrans
 
   allocate(plasticState(phase)%aTolState           (sizeState),               source=0.0_pReal)
   allocate(plasticState(phase)%state0              (sizeState,NofMyPhase),    source=0.0_pReal)

src/plastic_nonlocal.f90

@@ -30,7 +30,6 @@ module plastic_nonlocal
   character(len=64), dimension(:,:), allocatable :: &
     plastic_nonlocal_output                                                                         !< name of each post result output
 
-
   ! storage order of dislocation types
   integer, dimension(8), parameter :: &
     sgl = [1,2,3,4,5,6,7,8]                                                                         !< signed (single)

src/prec.f90

@@ -62,10 +62,6 @@ module prec
   end type
 
   type, extends(tState), public :: tPlasticState
-    integer :: &
-      nSlip  = 0, &
-      nTwin  = 0, &
-      nTrans = 0
     logical :: &
       nonlocal = .false.
     real(pReal), pointer,     dimension(:,:) :: &