anchor.diff:     CHARACTER(*),  PARAMETER      :: NewLine     = ACHAR(10)                         ! The delimiter for New Lines [ Windows is CHAR(13)//CHAR(10); MAC is CHAR(13); Unix is CHAR(10) {CHAR(13)=\r is a line feed, CHAR(10)=\n is a new line}]
      CHARACTER(*),  PARAMETER      :: OS_Desc     = 'GNU Fortran for Windows'         ! Description of the language/OS
      CHARACTER( 1), PARAMETER      :: PathSep     = '\'                               ! The path separator.
  -   CHARACTER( 1), PARAMETER      :: SwChar      = '-'                               ! The switch character for command-line options.
  +   CHARACTER( 1), PARAMETER      :: SwChar      = '/'                               ! The switch character for command-line options.
      CHARACTER(11), PARAMETER      :: UnfForm     = 'UNFORMATTED'                     ! The string to specify unformatted I/O files.
   
   CONTAINS
  
positive.code:    inquire( file=trim(new_directory_path), exist=directory_exists )
  
     if ( .NOT. directory_exists ) then
        make_command = 'mkdir -p '//trim(new_directory_path)
        call system( make_command )
     endif
  
  
negative.code: 
     CHARACTER(*), INTENT(IN)     :: Str                                          ! The string to write to the screen.
  
     WRITE (CU,'(1X,A)',ADVANCE='NO')  Str
  
     RETURN
  END SUBROUTINE WrNR ! ( Str )
  