anchor.diff:  
       write(93,"(a)") "SIXTRACR> CRCHECK reading fort.95 Record 2"
       flush(93)
  -    read(95,err=100,end=100) crnumlcr,crnuml,crsixrecs,crbinrec,crbnlrec,crbllrec,crsythck,cril,crtime3,crnapxo,crnapx,cre0
  +    read(95,err=100,end=100) crnumlcr,crnuml,crsixrecs,crbinrec,crbnlrec,crbllrec, &
  +         crsythck,cril,crtime3,crnapxo,crnapx,cre0,crbetrel
   
       write(93,"(a)") "SIXTRACR> CRCHECK reading fort.95 Record 3"
       flush(93)
  
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:     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,crbetrel
      write(93,"(a)") "SIXTRACR> CRCHECK reading fort.96 Record 3"
      flush(93)
      read(96,err=101,end=101,iostat=ierro) &
  