Changeset 13975 for issm/trunk/src/c/classes/objects/Elements/PentaRef.cpp
- Timestamp:
- 11/16/12 08:10:16 (12 years ago)
- Location:
- issm/trunk
- Files:
-
- 3 edited
Legend:
- Unmodified
- Added
- Removed
-
issm/trunk
- Property svn:mergeinfo changed
/issm/trunk-jpl merged: 13397-13398,13401,13407-13582,13584-13974
- Property svn:mergeinfo changed
-
issm/trunk/src
- Property svn:mergeinfo changed
-
issm/trunk/src/c/classes/objects/Elements/PentaRef.cpp
r13395 r13975 699 699 IssmDouble l1l2l3[NUMNODESP1_2d]; 700 700 701 702 701 /*Get l1l2l3 in actual coordinate system: */ 703 702 l1l2l3[0]=gauss->coord1*(1-gauss->coord4)/2.0; … … 812 811 IssmDouble l1l2l3[NUMNODESP1_2d]; 813 812 814 815 813 /*Get l1l2l3 in actual coordinate system: */ 816 814 l1l2l3[0]=gauss->coord1*(1-gauss->coord4)/2.0; … … 882 880 void PentaRef::GetJacobian(IssmDouble* J, IssmDouble* xyz_list,GaussPenta* gauss){ 883 881 884 int i,j;885 886 882 /*The Jacobian is constant over the element, discard the gaussian points. 887 883 * J is assumed to have been allocated of size NDOF2xNDOF2.*/ … … 899 895 A3=gauss->coord3; 900 896 901 xi =A2-A1;902 eta =SQRT3*A3;903 zi =gauss->coord4;897 xi = A2-A1; 898 eta = SQRT3*A3; 899 zi = gauss->coord4; 904 900 905 901 x1=*(xyz_list+3*0+0);
Note:
See TracChangeset
for help on using the changeset viewer.