anchor.diff:     inquire( file=trim(new_directory_path), exist=directory_exists )
   
      if ( .NOT. directory_exists ) then
  -      make_command = 'mkdir -p '//trim(new_directory_path)
  +      make_command = 'mkdir "'//trim(new_directory_path)//'"'
         call system( make_command )
      endif
   
  
positive.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,'(2A)',ADVANCE='NO')  CR, Str
     END IF
  
     RETURN
  
negative.code:    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(11), PARAMETER      :: UnfForm     = 'UNFORMATTED'                     ! The string to specify unformatted I/O files.
  
  CONTAINS
  