536e2d4fab
- update to 2.17: Too many changes to list, a full list of changes is available in the included LOGFILE. - Rebase patches, renamed ccx-2.16-spooles-dynamic.patch -> 0001-Fixup-spooles-include-dir.patch - Add 0001-Add-missing-argument-for-inputerror-function-call.patch - Add 0001-Use-interface-for-cubtri-callback-function.patch - Enable check section OBS-URL: https://build.opensuse.org/request/show/874675 OBS-URL: https://build.opensuse.org/package/show/science/ccx?expand=0&rev=11
24 lines
795 B
Diff
24 lines
795 B
Diff
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)=' '
|
|
!
|