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

fixed error code for bad warm Nperp

Browse Source
This commit is contained in:
Lorenzo Figini 2015-12-04 15:47:05 +00:00
parent 1cd0503476
commit 7654679ae1
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/errcodes.f90
View File

@ -57,7 +57,7 @@ contains
ierrs=ibits(ierr,pnprre,lnprre) ierrs=ibits(ierr,pnprre,lnprre)
if(ierrs/=0) & if(ierrs/=0) &
print*,i,' IERR = ', ierrs*2**pconv,' Nwarm = ',anprre,anprim, & print*,i,' IERR = ', ierrs*2**pnprre,' Nwarm = ',anprre,anprim, &
': Re(Nwarm)<0 or Nwarm**2 invalid.' ': Re(Nwarm)<0 or Nwarm**2 invalid.'
ierrs=ibits(ierr,palph,lalph) ierrs=ibits(ierr,palph,lalph)