229fee926d
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
15 lines
581 B
Diff
15 lines
581 B
Diff
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
|