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
26 lines
775 B
Diff
26 lines
775 B
Diff
From 6b2b0cecc1073754c3c11f65f3aa2400d76fb842 Mon Sep 17 00:00:00 2001
|
|
From: =?UTF-8?q?Stefan=20Br=C3=BCns?= <stefan.bruens@rwth-aachen.de>
|
|
Date: Mon, 22 Feb 2021 23:42:52 +0100
|
|
Subject: [PATCH] Add missing argument for inputerror function call
|
|
|
|
---
|
|
src/allocation_rfn.f | 2 +-
|
|
1 file changed, 1 insertion(+), 1 deletion(-)
|
|
|
|
diff --git a/src/allocation_rfn.f b/src/allocation_rfn.f
|
|
index 5ce50dc..62c3f3a 100644
|
|
--- a/src/allocation_rfn.f
|
|
+++ b/src/allocation_rfn.f
|
|
@@ -112,7 +112,7 @@
|
|
read(textpart(1)(1:10),'(i10)',iostat=istat) i
|
|
if(istat.gt.0) then
|
|
call inputerror(inpc,ipoinpc,iline,
|
|
- & "*NODE%")
|
|
+ & "*NODE%",ier)
|
|
exit
|
|
endif
|
|
nk_=max(nk_,i)
|
|
--
|
|
2.30.1
|
|
|