anchor.diff:    tmpString = trim(theString)
     read(tmpString,*,iostat=readErr) theValue
     if(readErr /= 0) then
  -    write (lout,"(a,i0)") "TYPECAST> Failed to cast '"//tmpString//"' to int32 width error ",readErr
  +    write(lerr,"(a,i0)") "TYPECAST> ERROR Failed to cast '"//tmpString//"' to int32 width error ",readErr
       rErr = .true.
     end if
   
  
positive.code:   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 real128 width error ",readErr
      rErr = .true.
    end if
  #endif
  
negative.code:   tmpString = trim(theString%chr)
    read(tmpString,*,iostat=readErr) theValue
    if(readErr /= 0) then
      write(lerr,"(a,i0)") "TYPECAST> ERROR Failed to cast '"//tmpString//"' to int32 width error ",readErr
      rErr = .true.
    end if
  
  