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 subroutine crystallite_init
logical, dimension(:,:), allocatable :: devNull logical, dimension(discretization_nIP,discretization_nElem) :: devNull
integer :: & integer :: &
c, & !< counter in integration point component loop c, & !< counter in integration point component loop
i, & !< counter in integration point 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)) & if (any(Nslip < 0)) &
call IO_error(144,ext_msg='Nslip '//trim(structure)) 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 end function lattice_labels_slip
@ -1993,7 +1993,7 @@ function lattice_labels_twin(Ntwin,structure) result(labels)
if (any(Ntwin < 0)) & if (any(Ntwin < 0)) &
call IO_error(144,ext_msg='Ntwin '//trim(structure)) 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 end function lattice_labels_twin