anchor.diff:        WRITE (CU,Fmt,ADVANCE='NO')  CR, Str
      ELSE
         ! bjj: note that this will almost certainly write more than MaxWrScrLen characters on a line
  -      WRITE (CU,'(A)',ADVANCE='NO')  CR, Str
  +      WRITE (CU,'(2A)',ADVANCE='NO')  CR, Str
      END IF
   
      RETURN
  
positive.code: 
     ! This module contains routines with system-specific logic and references, including all references to the console unit, CU.
     ! It also contains standard (but not system-specific) routines it uses.
     ! SysGnu.f90 is specifically for the GNU Fortran (gfortran) compiler on Windows.
     ! It contains the following routines:
     !     FUNCTION    FileSize( Unit )                                         ! Returns the size (in bytes) of an open file.
     !     FUNCTION    Is_NaN( DblNum )                                         ! Please use IEEE_IS_NAN() instead
  
negative.code:    RETURN
  END FUNCTION FileSize ! ( Unit )
  !=======================================================================
  FUNCTION Is_NaN( DblNum )
  
     ! This routine determines if a REAL(DbKi) variable holds a proper number.
     ! BJJ: this routine is used in CRUNCH.
  