(j3.2006) So that I don't need to do stuff already done....

[Bill Long]

Seems like a hard way get a list of the files in a directory.  And depends on the file system being POSIX.   Why not do something easy, like

program readdir
  implicit none
  character(1000) :: filename
  integer :: u,ios

  call execute_command_line ("ls -1 > names.txt")
  open (newunit=u, file="names.txt")
  do 
     read (u,"(a)", iostat=ios) filename
     if (ios /= 0) exit
     write (*,*) trim(filename)
  end do
  
end program readdir


Cheers,
Bill


On Oct 18, 2016, at 9:13 PM, Van Snyder <Van.Snyder at jpl.nasa.gov> wrote:

> So that I don't need to do stuff that somebody else has almost certainly
> already done...
> 
> Has anybody written interfaces to POSIX routines opendir, readdir and
> closedir, and used them to read the file names in a directory?
> 
> NAG provides wrappers for these routines in f90_unix_dirent (and perhaps
> others do something similar), but since I'm required to use several
> processors I'd prefer something open-source and based on Clause 18.
> 
> 
> _______________________________________________
> J3 mailing list
> J3 at mailman.j3-fortran.org
> http://mailman.j3-fortran.org/mailman/listinfo/j3

Bill Long                                                                       longb at cray.com
Fortran Technical Support  &                                  voice:  651-605-9024
Bioinformatics Software Development                     fax:  651-605-9142
Cray Inc./ Cray Plaza, Suite 210/ 380 Jackson St./ St. Paul, MN 55101