anchor.diff:  end subroutine htitle
   
   subroutine ipl(i1,r1,r2)
  -  use floatPrecision
     implicit none
     integer i1
     real r1(*),r2(*)
  
positive.code: end subroutine hplot
  
  subroutine hplset(c1,r1)
    use floatPrecision
    implicit none
    real r1
    character c1
  
negative.code: end subroutine hplset
  
  subroutine hplsiz(r1,r2,c1)
    implicit none
    real r1,r2
    character c1
  