anchor.diff:  
      CHARACTER(*), INTENT(IN)     :: Str                                          ! The string to write to the screen.
   
  -   WRITE (CU,'(A)',ADVANCE='NO')  Str
  +   WRITE (CU,'(1X,A)',ADVANCE='NO')  Str
   
      RETURN
   END SUBROUTINE WrNR ! ( Str )
  
positive.code: 
     INTEGER(B8Ki)                             :: FileSize                      ! The size of the file in bytes to be returned.
     INTEGER, INTENT(IN)                       :: Unit                          ! The I/O unit number of the pre-opened file.
     INTEGER                                   :: StatArray(13)                 ! An array returned by FSTAT that includes the file size.
     INTEGER                                   :: Status                        ! The status returned by
  
     Status = FSTAT( INT( Unit, B4Ki ), StatArray )
  
  
negative.code:       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
     END IF
  
     RETURN
  