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
|