diff --git a/src/grid/DAMASK_grid.f90 b/src/grid/DAMASK_grid.f90 index ac30d487d..d092fb477 100644 --- a/src/grid/DAMASK_grid.f90 +++ b/src/grid/DAMASK_grid.f90 @@ -288,7 +288,7 @@ program DAMASK_grid errorID = 838 ! no rotation is allowed by stress BC print*, ' stress / GPa:' do i = 1, 3; do j = 1, 3 - if(newLoadCase%stress%maskLogical(i,j)) then + if(newLoadCase%stress%mask(i,j)) then write(IO_STDOUT,'(2x,f12.7)',advance='no') newLoadCase%stress%values(i,j)*1e-9_pReal else write(IO_STDOUT,'(2x,12a)',advance='no') ' * ' diff --git a/src/material.f90 b/src/material.f90 index 30c5f09a0..b6d043183 100644 --- a/src/material.f90 +++ b/src/material.f90 @@ -369,7 +369,7 @@ subroutine material_parseMicrostructure microstructure => microstructures%get(discretization_microstructureAt(e)) constituents => microstructure%get('constituents') - material_homogenizationAt(e) = homogenization%getIndex(microstructure%get_asString('homogenization')) + material_homogenizationAt(e) = homogenizations%getIndex(microstructure%get_asString('homogenization')) do i = 1, discretization_nIP counterHomogenization(material_homogenizationAt(e)) = counterHomogenization(material_homogenizationAt(e)) + 1 material_homogenizationMemberAt(i,e) = counterHomogenization(material_homogenizationAt(e))