diff --git a/src/errcodes.f90 b/src/errcodes.f90
index f3a2d94..280399d 100644
--- a/src/errcodes.f90
+++ b/src/errcodes.f90
@@ -57,7 +57,7 @@ contains
 
     ierrs=ibits(ierr,pnprre,lnprre)
     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.'
 
     ierrs=ibits(ierr,palph,lalph)