dd21ef582a
- 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
14 lines
560 B
Diff
14 lines
560 B
Diff
diff -aruN ccx_2.5.orig/src/elements.f ccx_2.5/src/elements.f
|
|
--- ccx_2.5.orig/src/elements.f 2012-10-06 15:13:06.000000000 +0200
|
|
+++ ccx_2.5/src/elements.f 2012-10-09 21:07:13.733108555 +0200
|
|
@@ -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
|