223031012
/
DAMASK_EICMD
mirror of https://github.com/achalhp/DAMASK_EICMD.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

simplified (using new mapping)

This commit is contained in:
Martin Diehl 2021-05-22 09:24:00 +02:00
parent 5de0f90c87
commit 37d511062d
1 changed files with 1 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/phase_mechanical.f90
View File

@ -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