fixed check for N// > 1 (bis)

2017-02-01 11:32:27 +00:00 · 2017-02-01 11:32:27 +00:00 · e2fac977ab
commit e2fac977ab
parent 72b682229c
1 changed files with 2 additions and 3 deletions
--- 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