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: 
    real,                public, save :: crtime3
    real(kind=fPrec),    public, save :: cre0
  
    character(len=1024), public, save :: arecord
    character(len=20),   public, save :: stxt
  
negative.code:   napx=crnapx
    e0=cre0
    e0f=sqrt(e0**2-nucm0**2)
    betrel=crbetrel
  
    write(93,"(a)") "SIXTRACR> CRSTART doing binrecs"
    endfile(93,iostat=ierro)
  