2017-07-25 08:01:27 +02:00
|
|
|
Index: ccx-2.12/CalculiX/ccx_2.12/src/elements.f
|
|
|
|
===================================================================
|
|
|
|
--- ccx-2.12.orig/CalculiX/ccx_2.12/src/elements.f
|
|
|
|
+++ ccx-2.12/CalculiX/ccx_2.12/src/elements.f
|
2012-10-10 19:16:28 +02:00
|
|
|
@@ -120,7 +120,8 @@
|
|
|
|
!
|
|
|
|
! removing the ABAQUS label for heat transfer elements
|
|
|
|
!
|
|
|
|
- if((label(1:2).eq.'DC').and.(label(1:7).ne.'DCOUP3D')) then
|
|
|
|
+ if((label(1:2).eq.'DC').or.(label(1:2).eq.'DS').and.
|
|
|
|
+ & (label(1:7).ne.'DCOUP3D')) then
|
|
|
|
label(1:7)=label(2:8)
|
|
|
|
label(8:8)=' '
|
|
|
|
endif
|