anchor.diff:  end subroutine hplot
   
   subroutine hplset(c1,r1)
  -  use floatPrecision
     implicit none
     real r1
     character c1
  
positive.code: !
  !-----------------------------------------------------------------------
  !Eric made DOUBLE PRECISION
    use mathlib_bouncer
    implicit none
    integer j,key,l
    real(kind=fPrec) a,b,count,e,scartx,scarty
  
negative.code: end module postprocessing
  
  subroutine hbook2(i1,c1,i2,r1,r2,i3,r3,r4,r5)
    implicit none
    integer i1,i2,i3
    real r1,r2,r3,r4,r5
  