anchor.diff:  end subroutine htitle
   
   subroutine ipl(i1,r1,r2)
  -  use floatPrecision
     implicit none
     integer i1
     real r1(*),r2(*)
  
positive.code:       save
  !-----------------------------------------------------------------------
  #ifdef CR
        ncalls=ncalls+1
        if (restart) then
           write(93,*) 'WRITEBIN bailing out on restart'
           write(93,*) 'numl, nnuml, numx, numlcr '
           write(93,*)  numl,nnuml,numx,numlcr
           flush(93)
           return
        else
  #ifndef DEBUG
           if (ncalls.le.20.or.numx.ge.nnuml-20) then
  #endif
              write(93,*)                                                 &
       &'WRITEBIN numl, nnuml, numlcr, numx, nwri, numlcp '
              write(93,*) ' ',numl,nnuml,numlcr,numx,nwri,numlcp
              flush(93)
  #ifndef DEBUG
           endif
  #endif
        endif
  #ifndef DEBUG
        if (ncalls.le.20.or.numx.ge.nnuml-20) then
  #endif
        write(93,*) 'WRITEBIN writing binrec ',binrec+1
        flush(93)
  #ifndef DEBUG
        endif
  #endif
  #endif
           do ia=1,napx-1
  
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
  