not needed anymore

examples/SpectralMethod/Polycrystal/material.config

@@ -5,18 +5,6 @@
 [SX]
 mech	none
 
-#-------------------#
-<crystallite>
-#-------------------#
-[almostAll]
-(output) orientation    # quaternion
-(output) grainrotation  # deviation from initial orientation as axis (1-3) and angle in degree (4)
-(output) F              # deformation gradient tensor
-(output) Fe             # elastic deformation gradient tensor
-(output) Fp             # plastic deformation gradient tensor
-(output) P              # first Piola-Kichhoff stress tensor
-(output) Lp             # plastic velocity gradient tensor
-
 #-------------------#
 <phase>
 #-------------------#

src/config.f90

@@ -85,6 +85,7 @@ subroutine config_init
       case (trim('crystallite'))
         call parse_materialConfig(config_name_crystallite,config_crystallite,line,fileContent(i+1:))
         if (verbose) write(6,'(a)') ' Crystallite    parsed'; flush(6)
+        deallocate(config_crystallite)
     
       case (trim('homogenization'))
         call parse_materialConfig(config_name_homogenization,config_homogenization,line,fileContent(i+1:))
@@ -102,8 +103,6 @@ subroutine config_init
     call IO_error(160,ext_msg='<homogenization>')
   if (.not. allocated(config_microstructure) .or. size(config_microstructure) < 1) &
     call IO_error(160,ext_msg='<microstructure>')
-  if (.not. allocated(config_crystallite)    .or. size(config_crystallite)    < 1) &
-    call IO_error(160,ext_msg='<crystallite>')
   if (.not. allocated(config_phase)          .or. size(config_phase)          < 1) &
     call IO_error(160,ext_msg='<phase>')
   if (.not. allocated(config_texture)        .or. size(config_texture)        < 1) &
@@ -295,9 +294,6 @@ subroutine config_deallocate(what)
     case('material.config/microstructure')
       deallocate(config_microstructure)
 
-    case('material.config/crystallite')
-      deallocate(config_crystallite)
-
     case('material.config/homogenization')
       deallocate(config_homogenization)
 

src/crystallite.f90

@@ -257,7 +257,6 @@ subroutine crystallite_init
     close(FILEUNIT)
   endif
   call config_deallocate('material.config/phase')
-  call config_deallocate('material.config/crystallite')
 
 !--------------------------------------------------------------------------------------------------
 ! initialize

src/material.f90

@@ -116,7 +116,6 @@ module material
     phase_Noutput, &                                                                                !< number of '(output)' items per phase
     phase_elasticityInstance, &                                                                     !< instance of particular elasticity of each phase
     phase_plasticityInstance, &                                                                     !< instance of particular plasticity of each phase
-    crystallite_Noutput, &                                                                          !< number of '(output)' items per crystallite setting
     homogenization_Ngrains, &                                                                       !< number of grains in each homogenization
     homogenization_Noutput, &                                                                       !< number of '(output)' items per homogenization
     homogenization_typeInstance, &                                                                  !< instance of particular type of each homogenization
@@ -245,9 +244,6 @@ subroutine material_init
   call material_parseMicrostructure()
   if (iand(myDebug,debug_levelBasic) /= 0) write(6,'(a)') ' Microstructure parsed'; flush(6)
   
-  call material_parseCrystallite()
-  if (iand(myDebug,debug_levelBasic) /= 0) write(6,'(a)') ' Crystallite    parsed'; flush(6)
-  
   call material_parseHomogenization()
   if (iand(myDebug,debug_levelBasic) /= 0) write(6,'(a)') ' Homogenization parsed'; flush(6)
   
@@ -547,21 +543,6 @@ subroutine material_parseMicrostructure
 end subroutine material_parseMicrostructure
 
 
-!--------------------------------------------------------------------------------------------------
-!> @brief parses the crystallite part in the material configuration file
-!--------------------------------------------------------------------------------------------------
-subroutine material_parseCrystallite
-
-  integer :: c
- 
-  allocate(crystallite_Noutput(size(config_crystallite)),source=0)
-  do c=1, size(config_crystallite)
-    crystallite_Noutput(c) = config_crystallite(c)%countKeys('(output)')
-  enddo
-
-end subroutine material_parseCrystallite
-
-
 !--------------------------------------------------------------------------------------------------
 !> @brief parses the phase part in the material configuration file
 !--------------------------------------------------------------------------------------------------