anchor.diff:  !
   !-----------------------------------------------------------------------
   !Eric made DOUBLE PRECISION
  -  use mathlib_bouncer
     implicit none
     integer icnt,j,key,l
     real(kind=fPrec) a,b,e,x,y,w
  
positive.code: end module postprocessing
  
  subroutine hbook2(i1,c1,i2,r1,r2,i3,r3,r4,r5)
    use floatPrecision
    implicit none
    integer i1,i2,i3
    real r1,r2,r3,r4,r5
  
negative.code:       save
  !-----------------------------------------------------------------------
  #ifdef CR
        ncalls = ncalls + 1
        if(restart) then
          write(93,"(4(a,i0))") "WRITEBIN> Bailing out on restart numl = ",numl,", nnuml = ",nnuml,  &
            ", numx = ",numx,", numlcr = ",numlcr
          flush(93)
          return
        else
  #ifndef DEBUG
          if(ncalls <= 20 .or. numx >= nnuml-20) then
  #endif
            write(93,"(4(a,i0))") "WRITEBIN> numl = ",numl,", nnuml = ",nnuml,  &
              ", numx = ",numx,", numlcr = ",numlcr
            flush(93)
  #ifndef DEBUG
          end if
  #endif
        end if
  #ifndef DEBUG
        if(ncalls <= 20 .or. numx >= nnuml-20) then
  #endif
          write(93,"(a,i0)") "WRITEBIN> Writing binrec ",binrec+1
          flush(93)
  #ifndef DEBUG
        end if
  #endif
  #endif
           do ia=1,napx-1
  