9c9,11
< ! last modified 09.08.01
---
> ! last modified 09.08.01
> ! modified to work under Windows (using Digital Visual Fortran and Windows versions of
> ! ls & wc), 16.04.03, Stefan Fronzek
22c24
< 
---
> 
37d38
< 
49c50
<  NamesFile   = 'deleteme.names.txt'      
---
>  NamesFile   = 'delnam.txt'      
53,55c54,57
< 
<  CountFile   = 'deleteme.count.txt'      
<  CommandLine = 'wc -l ' // trim(adjustl(NamesFile)) // ' > ' // trim(adjustl(CountFile))
---
> 
>  CountFile   = 'delcount.txt'      
>  CommandLine = 'wc -w ' // trim(adjustl(NamesFile)) // ' > ' // trim(adjustl(CountFile))
>  !CommandLine = 'wc -l ' // trim(adjustl(NamesFile)) // ' > ' // trim(adjustl(CountFile))
60c62,63
<  read  (1, fmt="(i10)"), FileN
---
>  read  (1, fmt="(i7)"), FileN
>  !read  (1, fmt="(i10)"), FileN
62c65
<  print "(a,i4)", "   > Number of files found: ", FileN
---
>  print "(a,i4)", "   # Number of files found: ", FileN
78c81
< CommandLine = 'rm deleteme*'
---
> CommandLine = 'del delnam.txt delcount.txt'
214c217,218
<       call system ('rm ' // FoundFile)			! remove successfully created file
---
>       call system ('del ' // FoundFile)			! remove successfully created file
> 	  !call system ('rm ' // FoundFile)			! remove successfully created file
226c230,231
<         call system ('rm ' // ZipFile)			! remove successfully created zip file
---
>         call system ('del ' // ZipFile)			! remove successfully created zip file
> 		!call system ('rm ' // ZipFile)			! remove successfully created zip file
237c242,243
<           call system ('rm ' // BinFile)		! remove successfully created bin file
---
>           call system ('del ' // BinFile)		! remove successfully created bin file
> 		  !call system ('rm ' // BinFile)		! remove successfully created bin file
