1! 2! CalculiX - A 3-dimensional finite element program 3! Copyright (C) 1998-2021 Guido Dhondt 4! 5! This program is free software; you can redistribute it and/or 6! modify it under the terms of the GNU General Public License as 7! published by the Free Software Foundation(version 2); 8! 9! 10! This program is distributed in the hope that it will be useful, 11! but WITHOUT ANY WARRANTY; without even the implied warranty of 12! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 13! GNU General Public License for more details. 14! 15! You should have received a copy of the GNU General Public License 16! along with this program; if not, write to the Free Software 17! Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. 18! 19 subroutine uhardening(amat,iel,iint,t1l,epini,ep,dtime,fiso,dfiso, 20 & fkin,dfkin) 21! 22! hardening user subroutine 23! 24! INPUT: 25! 26! amat: material name (maximum 20 characters) 27! iel: element number 28! iint: integration point number 29! t1l: temperature at the end of the increment 30! epini: equivalent irreversible strain at the start 31! of the increment 32! ep: present equivalent irreversible strain 33! dtime: time increment 34! 35! OUTPUT: 36! 37! fiso: present isotropic hardening Von Mises stress 38! dfiso: present isotropic hardening tangent (derivative 39! of the Von Mises stress with respect to the 40! equivalent irreversible strain) 41! fkin: present kinematic hardening Von Mises stress 42! dfkin: present kinematic hardening tangent (derivative 43! of the Von Mises stress with respect to the 44! equivalent irreversible strain) 45! 46 implicit none 47! 48 character*80 amat 49 integer iel,iint 50 real*8 t1l,epini,ep,dtime,fiso,dfiso,fkin,dfkin 51! 52 return 53 end 54