anchor.diff:  
      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
  +   INTEGER(4)                                :: StatArray(13)                 ! An array returned by FSTAT that includes the file size.
  +   INTEGER(4)                                :: Status                        ! The status returned by
   
      Status = FSTAT( INT( Unit, B4Ki ), StatArray )
   
  
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 )
  