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

minor changes to comments

This commit is contained in:
Christoph Kords 2009-03-06 16:53:31 +00:00
parent a8ab5be60c
commit c0899b3097
2 changed files with 8 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
trunk/constitutive_j2.f90
View File

@ -48,12 +48,13 @@ MODULE constitutive_j2
CONTAINS CONTAINS
!**************************************** !****************************************
!* - constitutive_init !* - constitutive_j2_init
!* - constitutive_homogenizedC !* - constitutive_j2_stateInit
!* - constitutive_microstructure !* - constitutive_j2_homogenizedC
!* - constitutive_LpAndItsTangent !* - constitutive_j2_microstructure
!* - consistutive_dotState !* - constitutive_j2_LpAndItsTangent
!* - consistutive_postResults !* - consistutive_j2_dotState
!* - consistutive_j2_postResults
!**************************************** !****************************************
@ -311,10 +312,6 @@ subroutine constitutive_j2_LpAndItsTangent(Lp,dLp_dTstar,Tstar_v,Temperature,sta
dLp_dTstar = math_Plain3333to99(factor * dLp_dTstar3333) dLp_dTstar = math_Plain3333to99(factor * dLp_dTstar3333)
end if end if
! if ((ipc==1) .and. (ip==1) .and. (el==1)) then
! write(6,*) 'Lp: ', Lp
! write(6,*) 'dLp_dTstar: ', dLp_dTstar
! end if
return return
end subroutine end subroutine

1
trunk/constitutive_phenomenological.f90
View File

@ -61,6 +61,7 @@ MODULE constitutive_phenomenological
CONTAINS CONTAINS
!**************************************** !****************************************
!* - constitutive_init !* - constitutive_init
!* - constitutive_stateInit
!* - constitutive_homogenizedC !* - constitutive_homogenizedC
!* - constitutive_microstructure !* - constitutive_microstructure
!* - constitutive_LpAndItsTangent !* - constitutive_LpAndItsTangent