avoid string length mismatch
This commit is contained in:
parent
4eacc1d16d
commit
fbe2228ade
|
@ -453,9 +453,9 @@ end subroutine results_writeScalarDataset_rotation
|
||||||
!--------------------------------------------------------------------------------------------------
|
!--------------------------------------------------------------------------------------------------
|
||||||
subroutine results_mapping_constituent(phaseAt,memberAt,label)
|
subroutine results_mapping_constituent(phaseAt,memberAt,label)
|
||||||
|
|
||||||
integer, dimension(:,:), intent(in) :: phaseAt !< phase section at (constituent,element)
|
integer, dimension(:,:), intent(in) :: phaseAt !< phase section at (constituent,element)
|
||||||
integer, dimension(:,:,:), intent(in) :: memberAt !< phase member at (constituent,IP,element)
|
integer, dimension(:,:,:), intent(in) :: memberAt !< phase member at (constituent,IP,element)
|
||||||
character(len=64), dimension(:), intent(in) :: label !< label of each phase section
|
character(len=pStringLen), dimension(:), intent(in) :: label !< label of each phase section
|
||||||
|
|
||||||
integer, dimension(size(memberAt,1),size(memberAt,2),size(memberAt,3)) :: &
|
integer, dimension(size(memberAt,1),size(memberAt,2),size(memberAt,3)) :: &
|
||||||
phaseAt_perIP, &
|
phaseAt_perIP, &
|
||||||
|
@ -588,9 +588,9 @@ end subroutine results_mapping_constituent
|
||||||
!--------------------------------------------------------------------------------------------------
|
!--------------------------------------------------------------------------------------------------
|
||||||
subroutine results_mapping_materialpoint(homogenizationAt,memberAt,label)
|
subroutine results_mapping_materialpoint(homogenizationAt,memberAt,label)
|
||||||
|
|
||||||
integer, dimension(:), intent(in) :: homogenizationAt !< homogenization section at (element)
|
integer, dimension(:), intent(in) :: homogenizationAt !< homogenization section at (element)
|
||||||
integer, dimension(:,:), intent(in) :: memberAt !< homogenization member at (IP,element)
|
integer, dimension(:,:), intent(in) :: memberAt !< homogenization member at (IP,element)
|
||||||
character(len=64), dimension(:), intent(in) :: label !< label of each homogenization section
|
character(len=pStringLen), dimension(:), intent(in) :: label !< label of each homogenization section
|
||||||
|
|
||||||
integer, dimension(size(memberAt,1),size(memberAt,2)) :: &
|
integer, dimension(size(memberAt,1),size(memberAt,2)) :: &
|
||||||
homogenizationAt_perIP, &
|
homogenizationAt_perIP, &
|
||||||
|
|
Loading…
Reference in New Issue