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

Added subroutine for calculation of Lp and tangent 

Subroutine that reads 'mattex.mpie' checked: seems to work well
This commit is contained in:
Luc Hantcherli 2007-03-26 18:55:54 +00:00
parent 5752fe2ca7
commit 68d89a9d4e
1 changed files with 195 additions and 161 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

322
trunk/constitutive.f90
View File

@ -16,17 +16,15 @@ use prec, only: pReal,pInt
implicit none implicit none
! QUESTION: would it be wise to outsource these to _constitutive_ ?? YES! ! IS MISSING
! *** Slip resistances at (t=t0) and (t=t1) ***
! allocate(constitutive_state_old(constitutive_Nstatevars,constitutive_maxNgrains,mesh_maxNips,mesh_NcpElems)) ! allocate(constitutive_state_old(constitutive_Nstatevars,constitutive_maxNgrains,mesh_maxNips,mesh_NcpElems))
!allocate(constitutive_state_new(constitutive_Nstatevars,constitutive_maxNgrains,mesh_maxNips,mesh_NcpElems)) ! allocate(constitutive_state_new(constitutive_Nstatevars,constitutive_maxNgrains,mesh_maxNips,mesh_NcpElems))
!state_tauc_slip_old = 0.0_pReal ! state_tauc_slip_old = 0.0_pReal
!state_tauc_slip_new = 0.0_pReal ! state_tauc_slip_new = 0.0_pReal
! *** Transformation to get the MARC order *** ! *** Transformation to get the MARC order ***
! *** 11,22,33,12,23,13 *** ! *** 11,22,33,12,23,13 ***
! MISSING this should be outsourced to FEM-spec ! MISSING this should be outsourced to FEM-spec
!temp=Cslip_66(4,:) !temp=Cslip_66(4,:)
!Cslip_66(4,:)=Cslip_66(6,:) !Cslip_66(4,:)=Cslip_66(6,:)
!Cslip_66(6,:)=Cslip_66(5,:) !Cslip_66(6,:)=Cslip_66(5,:)
@ -177,7 +175,7 @@ integer(pInt) materials_maxN
integer(pInt), dimension(:) , allocatable :: materials_CrystalStructure integer(pInt), dimension(:) , allocatable :: materials_CrystalStructure
integer(pInt), dimension(:) , allocatable :: materials_Nslip integer(pInt), dimension(:) , allocatable :: materials_Nslip
!* Maximum number of selected slip systems over materials !* Maximum number of selected slip systems over materials
integer(pInt), allocatable :: materials_MaxNslip integer(pInt) materials_MaxNslip
!* Elastic constants and matrices !* Elastic constants and matrices
real(pReal), dimension(:) , allocatable :: materials_C11 real(pReal), dimension(:) , allocatable :: materials_C11
real(pReal), dimension(:) , allocatable :: materials_C12 real(pReal), dimension(:) , allocatable :: materials_C12
@ -206,10 +204,32 @@ character(len=80), dimension(:), allocatable :: textures_symmetry
integer(pInt), dimension(:) , allocatable :: textures_Ngrains integer(pInt), dimension(:) , allocatable :: textures_Ngrains
! NB: symmetry(number of texture) ! NB: symmetry(number of texture)
!************************************
!* State variables *
!************************************
real(pReal), dimension(:,:,:,:), allocatable :: constitutive_state_old
real(pReal), dimension(:,:,:,:), allocatable :: constitutive_state_new
!* IS MISSING : allocation
!************************************
!* Results *
!************************************
integer(pInt) constitutive_MaxNresults
integer(pInt), dimension(:,:,:), allocatable :: constitutive_Nresults
real(pReal), dimension(:,:,:,:), allocatable :: constitutive_results
!* IS MISSING : allocation
!************************************
!* Other *
!************************************
integer(pInt), dimension(:,:,:) , allocatable :: constitutive_matID
real(pReal), dimension(:,:,:) , allocatable :: constitutive_matvolfrac
real(pReal), dimension(:,:,:,:,:), allocatable :: consitutive_initFp
CONTAINS CONTAINS
!**************************************** !****************************************
!* - constitutive_init !* - constitutive_Init
!* - constitutive_SchmidMatrices !* - constitutive_SchmidMatrices
!* - constitutive_HardeningMatrices !* - constitutive_HardeningMatrices
!* - constitutive_CountSections !* - constitutive_CountSections
@ -217,19 +237,18 @@ CONTAINS
!* - constitutive_Parse_MaterialPart !* - constitutive_Parse_MaterialPart
!* - constitutive_Parse_TexturePart !* - constitutive_Parse_TexturePart
!* - constitutive_Parse_MatTexDat !* - constitutive_Parse_MatTexDat
!* - constitutive_Lp !* - constitutive_LpAndItsTangent
!* - constitutive_TangentLp
!* - consistutive_DotState !* - consistutive_DotState
!**************************************** !****************************************
subroutine constitutive_init() subroutine constitutive_Init()
!************************************** !**************************************
!* Module initialization * !* Module initialization *
!************************************** !**************************************
call constitutive_calc_SchmidMatrices() call constitutive_SchmidMatrices()
call constitutive_calc_HardeningMatrices() call constitutive_HardeningMatrices()
call constitutive_parse_MatTexDat('materials_textures.mpie') call constitutive_Parse_MatTexDat('mattex.mpie')
end subroutine end subroutine
@ -336,14 +355,15 @@ integer(pInt), dimension(3) :: positions
count=0 count=0
part='' part=''
do while(.true.) do while(.true.)
read(unit=file,fmt='(a80)',END=100) line read(file,'(a80)',END=100) line
positions=IO_stringPos(line,1) positions=IO_stringPos(line,1)
tag=IO_lc(IO_stringValue(line,positions,1)) tag=IO_lc(IO_stringValue(line,positions,1))
if (tag(1:1)=='<' .and. tag(len(tag):len(tag)=='>') then if (tag(1:1)=='<') then
part=tag(2:len(tag)-1) part=tag
exit exit
elseif (tag(1:1)=='[' .and. tag(len(tag):len(tag)==']') then elseif (tag(1:1)=='[') then
count=count+1 count=count+1
endif endif
enddo enddo
@ -369,13 +389,14 @@ integer(pInt), parameter :: maxNchunks = 1
integer(pInt) file integer(pInt) file
integer(pInt), dimension(1+2*maxNchunks) :: positions integer(pInt), dimension(1+2*maxNchunks) :: positions
constitutive_parse_unknownPart = '' constitutive_parse_unknownPart=''
do while(.true.) do while(.true.)
read(unit=file,fmt='(a80)',end=100) line read(file,'(a80)',END=100) line
positions = IO_stringPos(line,maxNchunks) positions=IO_stringPos(line,maxNchunks)
tag = IO_lc(IO_stringValue(line,positions,1)) tag=IO_lc(IO_stringValue(line,positions,1))
if (tag(1:1)=='<' .and. tag(len(tag):len(tag)=='>') then if (tag(1:1)=='<') then
constitutive_parse_unknownPart = tag(2:len(tag)-1) constitutive_Parse_UnknownPart=tag
exit exit
endif endif
enddo enddo
@ -392,7 +413,7 @@ character(len=80) function constitutive_Parse_MaterialPart(file)
!* - file : file ID * !* - file : file ID *
!********************************************************************* !*********************************************************************
use prec, only: pInt use prec, only: pInt
use IO, only: IO_stringPos,IO_stringValue,IO_lc use IO
implicit none implicit none
!* Definition of variables !* Definition of variables
@ -404,17 +425,18 @@ integer(pInt), dimension(1+2*maxNchunks) :: positions
section = 0 section = 0
constitutive_parse_materialPart = '' constitutive_parse_materialPart = ''
write(*,*) 'Enter do while for materials'
do while(.true.) do while(.true.)
read(unit=file,fmt='(a80)',end=100) line read(file,'(a80)',END=100) line
positions = IO_stringPos(line,maxNchunks) ! parse leading chunks positions=IO_stringPos(line,maxNchunks) ! parse leading chunks
tag = IO_lc(IO_stringValue(line,positions,1)) tag=IO_lc(IO_stringValue(line,positions,1))
if (tag(1:1)=='#') then ! skip comment line if (tag(1:1)=='#') then ! skip comment line
cycle cycle
elseif (tag(1:1)=='<' .and. tag(len(tag):len(tag)=='>') then elseif (tag(1:1)=='<') then
constitutive_parse_materialPart = tag(2:len(tag)-1) constitutive_parse_materialPart=tag
exit exit
elseif (tag(1:1)=='[' .and. tag(len(tag):len(tag)==']') then elseif (tag(1:1)=='[') then
section = section+1 section=section+1
else else
if (section>0) then if (section>0) then
select case(tag) select case(tag)
@ -422,15 +444,15 @@ do while(.true.)
materials_CrystalStructure(section)=IO_intValue(line,positions,2) materials_CrystalStructure(section)=IO_intValue(line,positions,2)
case ('nslip') case ('nslip')
materials_Nslip(section)=IO_intValue(line,positions,2) materials_Nslip(section)=IO_intValue(line,positions,2)
case ('C11') case ('c11')
materials_C11(section)=IO_floatValue(line,positions,2) materials_C11(section)=IO_floatValue(line,positions,2)
case ('C12') case ('c12')
materials_C12(section)=IO_floatValue(line,positions,2) materials_C12(section)=IO_floatValue(line,positions,2)
case ('C13') case ('c13')
materials_C13(section)=IO_floatValue(line,positions,2) materials_C13(section)=IO_floatValue(line,positions,2)
case ('C33') case ('c33')
materials_C33(section)=IO_floatValue(line,positions,2) materials_C33(section)=IO_floatValue(line,positions,2)
case ('C44') case ('c44')
materials_C44(section)=IO_floatValue(line,positions,2) materials_C44(section)=IO_floatValue(line,positions,2)
case ('s0_slip') case ('s0_slip')
materials_s0_slip(section)=IO_floatValue(line,positions,2) materials_s0_slip(section)=IO_floatValue(line,positions,2)
@ -463,7 +485,7 @@ character(len=80) function constitutive_Parse_TexturePart(file)
!* - file : file ID * !* - file : file ID *
!********************************************************************* !*********************************************************************
use prec, only: pInt use prec, only: pInt
use IO, only: IO_stringPos,IO_stringValue,IO_lc use IO
implicit none implicit none
!* Definition of variables !* Definition of variables
@ -476,25 +498,25 @@ section = 0
constitutive_parse_texturePart = '' constitutive_parse_texturePart = ''
do while(.true.) do while(.true.)
read(unit=file,fmt='(a80)',end=100) line read(file,'(a80)',END=100) line
positions = IO_stringPos(line,maxNchunks) ! parse leading chunks positions=IO_stringPos(line,maxNchunks) ! parse leading chunks
tag = IO_lc(IO_stringValue(line,positions,1)) tag=IO_lc(IO_stringValue(line,positions,1))
if (tag(1:1)=='#') then ! skip comment line if (tag(1:1)=='#') then ! skip comment line
cycle cycle
elseif (tag(1:1)=='<' .and. tag(len(tag):len(tag)=='>') then elseif (tag(1:1)=='<') then
constitutive_parse_texturePart = tag(2:len(tag)-1) constitutive_parse_texturePart=tag
exit exit
elseif (tag(1:1)=='[' .and. tag(len(tag):len(tag)==']') then elseif (tag(1:1)=='[') then
section = section+1 section=section+1
else else
if (section>0) then if (section>0) then
select case(tag) select case(tag)
case ('hybridIA') case ('hybridIA')
textures_ODFfile(section)=IO_stringValue(line,positions,2) textures_ODFfile(section)=IO_stringValue(line,positions,2)
case ('gauss') case ('gauss')
!* euler angles, scatter, volfrac of component
case ('fiber') case ('fiber')
!* 4 angles, scatte, volfrac of component
case ('ngrains') case ('ngrains')
textures_Ngrains(section)=IO_intValue(line,positions,2) textures_Ngrains(section)=IO_intValue(line,positions,2)
case ('symmetry') case ('symmetry')
@ -525,22 +547,21 @@ character(len=*) filename
character(len=80) part,formerPart character(len=80) part,formerPart
integer(pInt) sectionCount,i,j,m integer(pInt) sectionCount,i,j,m
!* Open input file
open(200,FILE=filename,ACTION='READ',STATUS='OLD',ERR=100)
!* First reading: number of materials and textures !* First reading: number of materials and textures
!* Arrays allocation !* Arrays allocation
open(1,FILE=filename,ACTION='READ',STATUS='OLD',ERR=100)
part = '_dummy_' part = '_dummy_'
do while (part/='') do while (part/='')
formerPart = part formerPart = part
call constitutive_countSections(200,sectionCount,part) call constitutive_CountSections(1,sectionCount,part)
select case (formerPart) select case (formerPart)
case ('materials') case ('<materials>')
materials_maxN = sectionCount materials_maxN = sectionCount
case ('textures') case ('<textures>')
textures_maxN = sectionCount textures_maxN = sectionCount
end select end select
enddo enddo
close(1)
allocate(textures_ODFfile(textures_maxN)) ; textures_ODFfile='' allocate(textures_ODFfile(textures_maxN)) ; textures_ODFfile=''
allocate(textures_Ngrains(textures_maxN)) ; textures_Ngrains=0_pInt allocate(textures_Ngrains(textures_maxN)) ; textures_Ngrains=0_pInt
allocate(textures_symmetry(textures_maxN)) ; textures_symmetry='' allocate(textures_symmetry(textures_maxN)) ; textures_symmetry=''
@ -557,45 +578,46 @@ allocate(materials_n_slip(materials_maxN)) ; materials_n_slip=0.0_pRea
allocate(materials_h0(materials_maxN)) ; materials_h0=0.0_pReal allocate(materials_h0(materials_maxN)) ; materials_h0=0.0_pReal
allocate(materials_s_sat(materials_maxN)) ; materials_s_sat=0.0_pReal allocate(materials_s_sat(materials_maxN)) ; materials_s_sat=0.0_pReal
allocate(materials_w0(materials_maxN)) ; materials_w0=0.0_pReal allocate(materials_w0(materials_maxN)) ; materials_w0=0.0_pReal
write(*,*) 'Allocation is done'
!* Second reading: materials and textures are stored !* Second reading: materials and textures are stored
part = '_dummy_' open(1,FILE=filename,ACTION='READ',STATUS='OLD',ERR=100)
part='_dummy_'
do while (part/='') do while (part/='')
select case (part) select case (part)
case ('materials') case ('<materials>')
part = constitutive_parse_materialPart(200) part=constitutive_Parse_MaterialPart(1)
case ('textures') case ('<textures>')
part = constitutive_parse_texturePart(200) part=constitutive_Parse_TexturePart(1)
case default case default
part = constitutive_parse_unknownPart(200) part=constitutive_Parse_UnknownPart(1)
end select end select
end do enddo
!* Close input file close(1)
close(200)
do m=1,material_maxN !do m=1,materials_maxN
material_Cslip_66(:,:,m) = 0.0_pReal ! materials_Cslip_66(:,:,m) = 0.0_pReal
select case (material_crystal_structure) ! select case (material_crystal_structure)
case (1:2) ! cubic structure ! case (1:2) ! cubic structure
do i=1,3 ! do i=1,3
do j=1,3 ! do j=1,3
material_Cslip_66(i,j,m) = C12 ! materials_Cslip_66(i,j,m) = C12
enddo ! enddo
material_Cslip_66(i,i,m) = C11 ! materials_Cslip_66(i,i,m) = C11
material_Cslip_66(i+3,i+3,m) = C44 ! materials_Cslip_66(i+3,i+3,m) = C44
enddo ! enddo
case (3) ! hcp structure MISSING correct ! case (3) ! hcp structure MISSING correct
do i=1,3 ! do i=1,3
do j=1,3 ! do j=1,3
material_Cslip_66(i,j,m) = C12 ! materials_Cslip_66(i,j,m) = C12
enddo ! enddo
material_Cslip_66(i,i,m) = C11 ! materials_Cslip_66(i,i,m) = C11
material_Cslip_66(i+3,i+3,m) = C44 ! materials_Cslip_66(i+3,i+3,m) = C44
enddo ! enddo
end select ! end select
material_Cslip_3333(:,:,:,:,m) = math_66to3333(Cslip_66(:,:,m)) ! materials_Cslip_3333(:,:,:,:,m) = math_66to3333(Cslip_66(:,:,m))
end do !end do
! MISSING some consistency checks may be..? ! MISSING some consistency checks may be..?
@ -605,7 +627,25 @@ return
end subroutine end subroutine
real(pReal) function constitutive_Lp(Tstar_v,ipc,ip,el) subroutine constitutive_InitFp(CPFEM_Fp_old)
!*********************************************************************
!* This function reads the material and texture input file *
!* INPUT: *
!* - CPFEM_Fp_old : old plastic deformation gradient *
!*********************************************************************
use prec, only: pReal,pInt
use CPFEM, only: CPFEM_Fp_old
implicit none
!* Definition of variables
!* Initialization of Fp_old with starting orientation
end subroutine
subroutine constitutive_LpAndItsTangent(Tstar_v,ipc,ip,el,Lp,dLp_dTstar)
!********************************************************************* !*********************************************************************
!* This subroutine contains the constitutive equation for * !* This subroutine contains the constitutive equation for *
!* calculating the velocity gradient * !* calculating the velocity gradient *
@ -614,28 +654,49 @@ real(pReal) function constitutive_Lp(Tstar_v,ipc,ip,el)
!* - ipc : component-ID of current integration point * !* - ipc : component-ID of current integration point *
!* - ip : current integration point * !* - ip : current integration point *
!* - el : current element * !* - el : current element *
!* OUTPUT:
!* - Lp : plastic velocity gradient *
!* - dLp_dTstar : derivative of Lp *
!********************************************************************* !*********************************************************************
use prec, only: pReal,pInt use prec, only: pReal,pInt
implicit none implicit none
!* Definition of variables !* Definition of variables
!integer(pInt) matID,i integer(pInt) ipc,ip,el
!real(pReal) tau_slip(constitutive_Nslip(matID)) integer(pInt) matID,i,j,k
!real(pReal) tauc_slip(constitutive_Nslip(matID)) real(pReal) Tstar_v(6)
!real(pReal) gdot_slip(constitutive_Nslip(matID)) real(pReal) Lp(3,3)
!real(pReal) dgdot_dtaucslip(constitutive_Nslip(matID)) real(pReal) dLp_dTstar(6,6)
real(pReal) dLpT_dTstar(6,6)
real(pReal), dimension(constitutive_matID(ipc,ip,el)) :: gdot_slip
real(pReal), dimension(constitutive_matID(ipc,ip,el)) :: dgdot_dtauslip
real(preal), dimension(constitutive_matID(ipc,ip,el)) :: tau_slip
!* Iteration over the systems !* Get the material-ID from the triplet(ipc,ip,el)
!do i=1,constitutive_Nslip(matID) matID=constitutive_matID(ipc,ip,el)
! gdot_slip(i)=constitutive_gdot0_slip(matID)*(abs(tau_slip(i))/tauc_slip(i))**constitutive_n_slip(matID)*sign(1.0_pReal,tau_slip(i))
! dgdot_dtaucslip(i)=constitutive_gdot0_slip(matID)*(abs(tau_slip(i))/tauc_slip(i))**(constitutive_n_slip(matID)-1.0_pReal)*constitutive_n_slip(matID)/tauc_slip(i) !* Calculation of Lp
!enddo Lp=0.0_pReal
do i=1,materials_Nslip(matID)
tau_slip(i)=dot_product(Tstar_v,constitutive_Sslip_v(:,i,materials_CrystalStructure(matID)))
gdot_slip(i)=materials_gdot0_slip(matID)*(abs(tau_slip(i))/constitutive_state_new(i,ipc,ip,el))**materials_n_slip(matID)*sign(1.0_pReal,tau_slip(i))
Lp=Lp+gdot_slip(i)*constitutive_Sslip(:,:,i,materials_CrystalStructure(matID))
enddo
!* Calculation of the tangent of Lp
dLp_dTstar=0.0_pReal
do i=1,materials_Nslip(matID)
dgdot_dtauslip(i)=materials_gdot0_slip(matID)*(abs(tau_slip(i))/constitutive_state_new(i,ipc,ip,el))**(materials_n_slip(matID)-1.0_pReal)*materials_n_slip(matID)/constitutive_state_new(i,ipc,ip,el)
forall (j=1:6,k=1:6)
dLp_dTstar(j,k)=dLp_dTstar(j,k)+constitutive_Sslip_v(j,i,materials_CrystalStructure(matID))*constitutive_Sslip_v(k,i,materials_CrystalStructure(matID))*dgdot_dtauslip(i)
endforall
enddo
return return
end function end subroutine
subroutine constitutive_TangentLp(Tstar_v,ipc,ip,el,dLp_dTstar,dLpT_dTstar) function constitutive_DotState(Tstar_v,ipc,ip,el)
!********************************************************************* !*********************************************************************
!* This subroutine contains the constitutive equation for * !* This subroutine contains the constitutive equation for *
!* calculating the velocity gradient * !* calculating the velocity gradient *
@ -645,59 +706,32 @@ subroutine constitutive_TangentLp(Tstar_v,ipc,ip,el,dLp_dTstar,dLpT_dTstar)
!* - ip : current integration point * !* - ip : current integration point *
!* - el : current element * !* - el : current element *
!* OUTPUT: * !* OUTPUT: *
!* - dLp_dTstar : derivative of Lp * !* - constitutive_DotState : evolution of state variable *
!* - dLpT_dTstar : derivative of tranposed Lp *
!********************************************************************* !*********************************************************************
use prec, only: pReal,pInt use prec, only: pReal,pInt
implicit none implicit none
!* Definition of variables !* Definition of variables
!integer(pInt) matID,i,j integer(pInt) ipc,ip,el
!real(pReal) tauc_slip(constitutive_Nslip(matID)) integer(pInt) matID,i
!real(pReal) gdot_slip(constitutive_Nslip(matID)) real(pReal) Tstar_v(6)
!real(pReal) dtauc_slip(constitutive_Nslip(matID)) real(pReal), dimension(constitutive_matID(ipc,ip,el)) :: constitutive_DotState
!real(pReal) self_hardening(constitutive_Nslip(matID)) real(pReal), dimension(constitutive_matID(ipc,ip,el)) :: gdot_slip
real(pReal), dimension(constitutive_matID(ipc,ip,el)) :: tau_slip
real(pReal), dimension(constitutive_matID(ipc,ip,el)) :: self_hardening
!* Get the material-ID from the triplet(ipc,ip,el)
matID=constitutive_mat(ipc,ip,el)
!* Self-Hardening of each system !* Self-Hardening of each system
!do i=1,constitutive_Nslip(matID) do i=1,materials_Nslip(matID)
! self_hardening(i)=constitutive_h0(matID)*(1.0_pReal-tauc_slip(i)/constitutive_s_sat(matID))**constitutive_w0(matID)*abs(gdot_slip(i)) tau_slip(i)=dot_product(Tstar_v,constitutive_Sslip_v(:,i,materials_CrystalStructure(matID)))
!enddo gdot_slip(i)=materials_gdot0_slip(matID)*(abs(tau_slip(i))/constitutive_state_new(i,ipc,ip,el))**materials_n_slip(matID)*sign(1.0_pReal,tau_slip(i))
self_hardening(i)=materials_h0(matID)*(1.0_pReal-constitutive_state_new(i,ipc,ip,el)/materials_s_sat(matID))**materials_w0(matID)*abs(gdot_slip(i))
enddo
!* Hardening for all systems !* Hardening for all systems
!i=constitutive_Nslip(matID) constitutive_DotState=matmul(constitutive_hardening_matrix(1:materials_Nslip(matID),1:materials_Nslip(matID),materials_CrystalStructure(matID)),self_hardening)
!j=constitutive_crystal_structure(matID)
!dtauc_slip=matmul(constitutive_hardening_matrix(1:i,1:i,j),self_hardening)
return
end subroutine
real(pReal) function constitutive_DotState(Tstar_v,ipc,ip,el)
!*********************************************************************
!* This subroutine contains the constitutive equation for *
!* calculating the velocity gradient *
!* INPUT: *
!* - Tstar_v : 2nd Piola Kirchhoff stress tensor *
!* - ipc : component-ID of current integration point *
!* - ip : current integration point *
!* - el : current element *
!*********************************************************************
use prec, only: pReal,pInt
implicit none
!* Definition of variables
!integer(pInt) matID,i
!real(pReal) dt,Lp(3,3)
!real(pReal) tau_slip(constitutive_Nslip(matID))
!real(pReal) tauc_slip_new(constitutive_Nslip(matID))
!real(pReal) gdot_slip(constitutive_Nslip(matID))
!* Calculation of Lp
!Lp=0.0_pReal
!do i=1,constitutive_Nslip(matID)
! gdot_slip(i)=constitutive_gdot0_slip(matID)*(abs(tau_slip(i))/tauc_slip(i))**constitutive_n_slip(matID)*sign(1.0_pReal,tau_slip(i))
! Lp=Lp+gdot_slip(i)*constitutive_Sslip(:,:,i,constitutive_crystal_structure(matID))
!enddo
return return
end function end function