From 7fe20fe805281bfb2b76be1d5b568aec39448580 Mon Sep 17 00:00:00 2001 From: Martin Diehl Date: Thu, 18 Dec 2014 18:26:16 +0000 Subject: [PATCH] intent(out) specifier for getXX functions --- code/constitutive.f90 | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/code/constitutive.f90 b/code/constitutive.f90 index 5632201fe..baa78d800 100644 --- a/code/constitutive.f90 +++ b/code/constitutive.f90 @@ -1873,9 +1873,9 @@ subroutine constitutive_getAccumulatedSlip(nSlip,accumulatedSlip,ipc, ip, el) implicit none - real(pReal), dimension(:), allocatable :: & + real(pReal), dimension(:), intent(out), allocatable :: & accumulatedSlip - integer(pInt) :: & + integer(pInt), intent(out) :: & nSlip integer(pInt), intent(in) :: & ipc, & !< grain number @@ -1936,9 +1936,9 @@ subroutine constitutive_getSlipRate(nSlip,slipRate,Lp,ipc, ip, el) implicit none - real(pReal), dimension(:), allocatable :: & + real(pReal), dimension(:), intent(out), allocatable :: & slipRate - integer(pInt) :: & + integer(pInt), intent(out) :: & nSlip real(pReal), intent(in), dimension(3,3) :: & Lp !< plastic velocity gradient