1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
|
Index: SRC/element/shell/ShellMITC4.cpp
===================================================================
--- SRC/element/shell/ShellMITC4.cpp (revision 6236)
+++ SRC/element/shell/ShellMITC4.cpp (working copy)
@@ -1126,7 +1126,7 @@
resid.Zero( ) ;
//start Yuli Huang (yulihuang@gmail.com) & Xinzheng Lu (luxz@tsinghua.edu.cn)
- updateBasis( );
+// updateBasis( );
//end Yuli Huang (yulihuang@gmail.com) & Xinzheng Lu (luxz@tsinghua.edu.cn)
double dx34 = xl[0][2]-xl[0][3];
Index: SRC/material/uniaxial/STEELDR.f
===================================================================
--- SRC/material/uniaxial/STEELDR.f (revision 6236)
+++ SRC/material/uniaxial/STEELDR.f (working copy)
@@ -288,6 +288,8 @@
if(ep_s.le.ep_sushift(k)) then
fp_s=s1*fp_su
fps_s=fps_su
+ ep_sushift(k)=ep_s
+ ep_o(k)=ep_sushift(k)+ep_su
else
call Bauschinger(1,icheat,P_major,P_minor,region,
* ep_sushift,s1,fp_su,fps_su,Ep_u,f_y,ep_a,fp_a,
|