for testing output of materialpoint results
This commit is contained in:
parent
d446248d75
commit
7ccc097406
|
@ -801,6 +801,8 @@ subroutine homogenization_results
|
|||
integer :: p
|
||||
character(len=256) :: group
|
||||
|
||||
real(pReal), dimension(:,:,:), allocatable :: temp
|
||||
|
||||
do p=1,size(config_name_homogenization)
|
||||
group = trim('current/materialpoint')//'/'//trim(config_name_homogenization(p))
|
||||
call HDF5_closeGroup(results_addGroup(group))
|
||||
|
@ -813,6 +815,16 @@ subroutine homogenization_results
|
|||
call mech_RGC_results(homogenization_typeInstance(p),group)
|
||||
end select
|
||||
|
||||
group = trim('current/materialpoint')//'/'//trim(config_name_homogenization(p))//'/generic'
|
||||
call HDF5_closeGroup(results_addGroup(group))
|
||||
|
||||
!temp = reshape(materialpoint_F,[3,3,discretization_nIP*discretization_nElem])
|
||||
!call results_writeDataset(group,temp,'F',&
|
||||
! 'deformation gradient','1')
|
||||
!temp = reshape(materialpoint_P,[3,3,discretization_nIP*discretization_nElem])
|
||||
!call results_writeDataset(group,temp,'P',&
|
||||
! '1st Piola-Kirchoff stress','Pa')
|
||||
|
||||
enddo
|
||||
#endif
|
||||
end subroutine homogenization_results
|
||||
|
|
Loading…
Reference in New Issue