2021-02-23 20:02:53 +01:00
|
|
|
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
|
2019-11-29 01:02:37 +01:00
|
|
|
--- a/src/elements.f
|
|
|
|
+++ b/src/elements.f
|
2021-02-23 20:02:53 +01:00
|
|
|
@@ -129,7 +129,8 @@ c endif
|
2012-10-10 19:16:28 +02:00
|
|
|
!
|
|
|
|
! 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)=' '
|
2019-11-29 01:02:37 +01:00
|
|
|
!
|