ccx/ccx-2.5-abaqus-shell-heat-transfer-elements-read.patch

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
Accepting request 511723 from science:unstable version update OBS-URL: https://build.opensuse.org/request/show/511723 OBS-URL: https://build.opensuse.org/package/show/science/ccx?expand=0&rev=9 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`
Accepting request 137767 from home:scorot:branches:science - version 2.5 * See http://www.dhondt.de/new_calc.htm for details - spec file cleanup and reformating - update patches OBS-URL: https://build.opensuse.org/request/show/137767 OBS-URL: https://build.opensuse.org/package/show/science/ccx?expand=0&rev=4 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`