anchor.diff:      write(93,"(a)") "SIXTRACR> CRCHECK reading fort.96 Record 2"
       flush(93)
       read(96,err=101,end=101,iostat=ierro) crnumlcr,crnuml,crsixrecs,crbinrec,crbnlrec,crbllrec,&
  -      crsythck,cril,crtime3,crnapxo,crnapx,cre0
  +      crsythck,cril,crtime3,crnapxo,crnapx,cre0,crbetrel
       write(93,"(a)") "SIXTRACR> CRCHECK reading fort.96 Record 3"
       flush(93)
       read(96,err=101,end=101,iostat=ierro) &
  
positive.code:   napx=crnapx
    e0=cre0
    e0f=sqrt(e0**2-nucm0**2)
  
    write(93,"(a)") "SIXTRACR> CRSTART doing binrecs"
    endfile(93,iostat=ierro)
  
negative.code:       time3,                        &
        napxo,                        &
        napx,                         &
        e0,                           &
        betrel
      write(crUnit,err=100,iostat=ierro) &
        (binrecs(j),j=1,(napxo+1)/2), &
        (numxv(j),j=1,napxo),         &
  