File ccx-2.5-abaqus-shell-heat-transfer-elements-read.patch of Package ccx

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
@@ -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
openSUSE Build Service is sponsored by