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

forgot intent(in) statements needed for pure routines

This commit is contained in:
Martin Diehl 2013-02-11 10:56:10 +00:00
parent f0b4281400
commit 59a265ec7f
2 changed files with 14 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
code/constitutive_j2.f90
View File

@ -386,9 +386,10 @@ pure subroutine constitutive_j2_microstructure(Temperature,state,ipc,ip,el)
implicit none implicit none
!* Definition of variables !* Definition of variables
integer(pInt) ipc,ip,el, matID integer(pInt), intent(in) :: ipc,ip,el
real(pReal) Temperature real(pReal), intent(in) :: Temperature
type(p_vec), dimension(homogenization_maxNgrains,mesh_maxNips,mesh_NcpElems) :: state type(p_vec), dimension(homogenization_maxNgrains,mesh_maxNips,mesh_NcpElems), intent(in) :: state
integer(pInt) :: matID
matID = phase_plasticityInstance(material_phase(ipc,ip,el)) matID = phase_plasticityInstance(material_phase(ipc,ip,el))

15
code/constitutive_phenopowerlaw.f90
View File

@ -640,10 +640,15 @@ end function constitutive_phenopowerlaw_homogenizedC
!> @brief calculate derived quantities from state (dummy subroutine, not used here) !> @brief calculate derived quantities from state (dummy subroutine, not used here)
!-------------------------------------------------------------------------------------------------- !--------------------------------------------------------------------------------------------------
pure subroutine constitutive_phenopowerlaw_microstructure(Temperature,state,ipc,ip,el) pure subroutine constitutive_phenopowerlaw_microstructure(Temperature,state,ipc,ip,el)
use prec, only: &
use prec, only: pReal,pInt,p_vec p_vec
use mesh, only: mesh_NcpElems,mesh_maxNips use mesh, only: &
use material, only: homogenization_maxNgrains,material_phase, phase_plasticityInstance mesh_NcpElems, &
mesh_maxNips
use material, only: &
homogenization_maxNgrains, &
material_phase, &
phase_plasticityInstance
implicit none implicit none
integer(pInt), intent(in) :: & integer(pInt), intent(in) :: &
@ -652,7 +657,7 @@ pure subroutine constitutive_phenopowerlaw_microstructure(Temperature,state,ipc,
el !current element el !current element
integer(pInt) :: matID integer(pInt) :: matID
real(pReal), intent(in) :: Temperature ! temperature real(pReal), intent(in) :: Temperature ! temperature
type(p_vec), dimension(homogenization_maxNgrains,mesh_maxNips,mesh_NcpElems) :: state type(p_vec), dimension(homogenization_maxNgrains,mesh_maxNips,mesh_NcpElems), intent(in) :: state
matID = phase_plasticityInstance(material_phase(ipc,ip,el)) matID = phase_plasticityInstance(material_phase(ipc,ip,el))