From e2fac977abad58d2d46d2555b42fbc3b87c26282 Mon Sep 17 00:00:00 2001
From: Daniela Farina <daniela.farina@istp.cnr.it>
Date: Wed, 1 Feb 2017 11:32:27 +0000
Subject: [PATCH] fixed check for N// > 1 (bis)

---
 src/errcodes.f90 | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

diff --git a/src/errcodes.f90 b/src/errcodes.f90
index d257188..b50c583 100644
--- a/src/errcodes.f90
+++ b/src/errcodes.f90
@@ -12,9 +12,8 @@ contains
     implicit none
 ! arguments
     integer, intent(in) :: ierr
-    integer, intent(out) :: istop
-    
-    if(ibits(ierr,pnpl, lnpl )==2  .or.    & ! N// too large
+    integer, intent(inout) :: istop
+    if(ibits(ierr,pnpl, lnpl )>1  .or.    & ! N// too large
        ibits(ierr,palph,lalph)==1) then      ! alpha < 0
       istop = 1
 !    else