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

intent(out) specifier for getXX functions

This commit is contained in:
Martin Diehl 2014-12-18 18:26:16 +00:00
parent fdbaf00fa7
commit 7fe20fe805
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
code/constitutive.f90
View File

@ -1873,9 +1873,9 @@ subroutine constitutive_getAccumulatedSlip(nSlip,accumulatedSlip,ipc, ip, el)
implicit none implicit none
real(pReal), dimension(:), allocatable :: & real(pReal), dimension(:), intent(out), allocatable :: &
accumulatedSlip accumulatedSlip
integer(pInt) :: & integer(pInt), intent(out) :: &
nSlip nSlip
integer(pInt), intent(in) :: & integer(pInt), intent(in) :: &
ipc, & !< grain number ipc, & !< grain number
@ -1936,9 +1936,9 @@ subroutine constitutive_getSlipRate(nSlip,slipRate,Lp,ipc, ip, el)
implicit none implicit none
real(pReal), dimension(:), allocatable :: & real(pReal), dimension(:), intent(out), allocatable :: &
slipRate slipRate
integer(pInt) :: & integer(pInt), intent(out) :: &
nSlip nSlip
real(pReal), intent(in), dimension(3,3) :: & real(pReal), intent(in), dimension(3,3) :: &
Lp !< plastic velocity gradient Lp !< plastic velocity gradient