simplified (using new mapping)
This commit is contained in:
parent
5de0f90c87
commit
37d511062d
|
@ -971,11 +971,9 @@ subroutine crystallite_results(group,ph)
|
|||
|
||||
integer, intent(in) :: ph
|
||||
type(rotation), dimension(:,:,:), intent(in) :: dataset
|
||||
real(pReal), allocatable, dimension(:,:) :: select_rotations
|
||||
real(pReal), dimension(4,count(material_phaseID==ph)) :: select_rotations
|
||||
integer :: el,ip,co,j
|
||||
|
||||
allocate(select_rotations(4,count(material_phaseAt==ph)*homogenization_maxNconstituents*discretization_nIPs))
|
||||
|
||||
j=0
|
||||
do el = 1, size(material_phaseAt,2)
|
||||
do ip = 1, discretization_nIPs
|
||||
|
|
Loading…
Reference in New Issue