anchor.diff:  #ifdef CR
         if(.not.restart) then
   #endif
  -        call writebin_header(ia,ia,91-ia2,ierro,cdate,ctime,progrm)
  +        call writebin_header(ia,ia,91-ia2,ierro,cDate,cTime,progrm)
   #ifdef CR
           flush(91-ia2)
           binrecs(ia2)=1
  
positive.code: #ifdef CR
        if(.not.restart) then
  #endif
          call writebin_header(ia,ia,90,ierro,cdate,ctime,progrm)
  #ifdef CR
          flush(90)
          binrecs(ia2)=1
  
negative.code:   call clorb(zero)
  
    do l=1,2
      di0(l)=(clo0(l)-clo(l))/ded
      dip0(l)=(clop0(l)-clop(l))/ded
    end do
  