anchor.diff:  
     real,                public, save :: crtime3
     real(kind=fPrec),    public, save :: cre0
  +  real(kind=fPrec),    public, save :: crbetrel
   
     character(len=1024), public, save :: arecord
     character(len=20),   public, save :: stxt
  
positive.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
      write(93,"(a)") "SIXTRACR> CRCHECK reading fort.96 Record 3"
      flush(93)
      read(96,err=101,end=101,iostat=ierro) &
  
negative.code: 
      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,crbetrel
  
      write(93,"(a)") "SIXTRACR> CRCHECK reading fort.95 Record 3"
      flush(93)
  