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
|
||
|
|