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

24 lines
795 B
Diff
Raw Normal View History

From 9b5e1f4bc119409a9b3edc72b1b7114d5b0b5141 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Stefan=20Br=C3=BCns?= <stefan.bruens@rwth-aachen.de>
Date: Thu, 12 Nov 2020 04:01:21 +0100
Subject: [PATCH] Abaqus shell heat transfer elements read
---
src/elements.f | 3 ++-
1 file changed, 2 insertions(+), 1 deletion(-)
diff --git a/src/elements.f b/src/elements.f
index fa4c25a..1c587f4 100644
--- a/src/elements.f
+++ b/src/elements.f
@@ -129,7 +129,8 @@ c endif
!
! 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)=' '
!