istp/gray
2
0
Fork 0
Code Issues Pull Requests Packages Projects Releases 1 Wiki Activity

fixed check for N// > 1 (bis)

Browse Source
This commit is contained in:
Daniela Farina 2017-02-01 11:32:27 +00:00
parent 72b682229c
commit e2fac977ab
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
src/errcodes.f90
View File

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