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

shape is known (no need for automatic allocation)

This commit is contained in:
Martin Diehl 2020-01-03 13:33:32 +01:00
parent a6ddbbd70c
commit 4ebd89c040
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/crystallite.f90
View File

@ -118,7 +118,7 @@ contains
!--------------------------------------------------------------------------------------------------
subroutine crystallite_init
logical, dimension(:,:), allocatable :: devNull
logical, dimension(discretization_nIP,discretization_nElem) :: devNull
integer :: &
c, & !< counter in integration point component loop
i, & !< counter in integration point loop

4
src/lattice.f90
View File

@ -1952,7 +1952,7 @@ function lattice_labels_slip(Nslip,structure) result(labels)
if (any(Nslip < 0)) &
call IO_error(144,ext_msg='Nslip '//trim(structure))
labels = getLabels(Nslip,NslipMax,slipSystems,structure)
labels = getLabels(Nslip,NslipMax,slipSystems)
end function lattice_labels_slip
@ -1993,7 +1993,7 @@ function lattice_labels_twin(Ntwin,structure) result(labels)
if (any(Ntwin < 0)) &
call IO_error(144,ext_msg='Ntwin '//trim(structure))
labels = getLabels(Ntwin,NtwinMax,twinSystems,structure)
labels = getLabels(Ntwin,NtwinMax,twinSystems)
end function lattice_labels_twin