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