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

mapped FE to CP id

This commit is contained in:
Philip Eisenlohr 2007-03-22 13:17:07 +00:00
parent 9e2c176f5d
commit 7feb43bc1e
1 changed files with 12 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
trunk/mpie_cpfem_marc.f90
View File

@ -185,12 +185,15 @@
!******************************************************************** !********************************************************************
! CPFEM_ffn_all(:,:, n(1), nn)=ffn ! CPFEM_ffn_all(:,:, n(1), nn)=ffn
! CPFEM_ffn1_all(:,:, n(1), nn)=ffn1 ! CPFEM_ffn1_all(:,:, n(1), nn)=ffn1
cp_en=mesh_mapFEtoCPelement(n(1))
if ((lovl==6).or.(inc==0)) then if ((lovl==6).or.(inc==0)) then
call cpfem_general(ffn, ffn1, ndi, inc, subinc, ncycle, timinc, n(1), nn) call cpfem_general(ffn, ffn1, ndi, inc, subinc, ncycle, timinc, cp_en, nn)
endif endif
! return stress and jacobi ! return stress and jacobi
s=CPFEM_stress_all(1:ngens,n(1), nn) s=CPFEM_stress_all(1:ngens, nn, cp_en)
d=CPFEM_jaco_old(1:ngens,1:ngens, n(1), nn) d=CPFEM_jaco_old(1:ngens,1:ngens, nn, cp_en)
! FE_en = mesh_element(1,cp_en)
return return
end end
! !
@ -217,30 +220,27 @@
! !
!******************************************************************** !********************************************************************
use prec, only: pReal,pInt use prec, only: pReal,pInt
use CPFEM, only: CPFEM_results use CPFEM, only: CPFEM_results, CPFEM_Nresults
use constitutive, only: constitutive_Nresults
implicit none implicit none
! !
real(pReal) s(*),etot(*),eplas(*),ecreep(*),sp(*) real(pReal) s(*),etot(*),eplas(*),ecreep(*),sp(*)
real(pReal) v, t(*) real(pReal) v, t(*)
integer(pInt) m, nn, layer, ndi, nshear, jpltcd integer(pInt) m, nn, layer, ndi, nshear, jpltcd
real(pReal) orientation_no, result_no
! !
! calculate position in CPFEM_results
orientation_no=int(jpltcd/constitutive_Nresults)
result_no=modulo(jpltcd, constitutive_Nresults)
! assign result variable ! assign result variable
v=CPFEM_result(result_no, grain_no, m, n) v=CPFEM_result(mod(jpltcd, CPFEM_Nresults),&
int(jpltcd/CPFEM_Nresults),&
nn, mesh_mapFEtoCPelement(m))
return return
end end
! !
! !
subroutine utimestep(timestep,timestepold,icall, time,timeloadcase) subroutine utimestep(timestep,timestepold,icall,time,timeloadcase)
!******************************************************************** !********************************************************************
! This routine modifies the addaptive time step of Marc ! This routine modifies the addaptive time step of Marc
!******************************************************************** !********************************************************************
use prec, only: pReal,pInt
use CPFEM, only : CPFEM_timefactor_max use CPFEM, only : CPFEM_timefactor_max
use prec, only: pReal,pInt
implicit none implicit none
! !
real(pReal) timestep, timestepold, time,timeloadcase real(pReal) timestep, timestepold, time,timeloadcase