anchor.diff:      if (lerror) goto 100
   
       if (dynk_enabled) then
  -      write(93,"(a)") "SIXTRACR CRCHECK reading fort.95 Record 6 DYNK"
  +      write(93,"(a)") "SIXTRACR> CRCHECK reading fort.95 Record 6 DYNK"
         flush(93)
         call dynk_crcheck_readdata(95,lerror)
         if (lerror) goto 100
       end if
   
       if(scatter_active) then
  -      write(93,"(a)") "SIXTRACR CRCHECK reading fort.95 Record 7 SCATTER"
  +      write(93,"(a)") "SIXTRACR> CRCHECK reading fort.95 Record 7 SCATTER"
         flush(93)
         call scatter_crcheck_readdata(95,lerror)
         if (lerror) goto 100
  
positive.code:       !ERICVARS
        ! and make sure we can read the extended vars before leaving fort.96
        ! We will re-read them in crstart to be sure they are correct
        write(93,"(a,i0)") "SIXTRACR CRCHECK verifying Record 8 extended vars fort.96, crnapxo=",crnapxo
        flush(93)
        write(93,"(a)") "SIXTRACR> CRCHECK verifying extended vars fort.96"
        flush(93)
  
negative.code:     write(93,"(a)") "SIXTRACR> CRCHECK reading fort.96 Record 5 DUMP"
      flush(93)
      call dump_crcheck_readdata(96,lerror)
      if (lerror) goto 101
  
      if (dynk_enabled) then
        write(93,"(a)") "SIXTRACR> CRCHECK reading fort.96 Record 6 DYNK"
  