anchor.diff:    read(tmpString,*,round="nearest",iostat=readErr) tmpValue
     call disable_xp()
     if(readErr /= 0) then
  -    write (lout,"(a,i0)") "TYPECAST> FIO Failed to cast '"//tmpString//"' to real64 width error ",readErr
  +    write(lerr,"(a,i0)") "TYPECAST> ERROR FIO Failed to cast '"//tmpString//"' to real64 width error ",readErr
       rErr = .true.
     end if
   #endif
  
positive.code:   tmpValue  = round_near(cErr,cLen,cString)
  
    if(cErr /= 0) then
      write (lout,"(a,i0)") "TYPECAST> CRLIBM Failed to cast '"//tmpString//"' to real64 width error ",cErr
      rErr = .true.
    end if
  #endif
  
negative.code:   case("false",".false.","off","0")
      theValue = .false.
    case default
      write(lerr,"(a)") "TYPECAST> ERROR Failed to cast '"//trim(theString)//"' to logical"
      rErr = .true.
    end select
  
  