(j3.2006) So that I don't need to do stuff already done....
Clune, Thomas L. GSFC-6101
thomas.l.clune
Wed Oct 19 09:00:01 EDT 2016
Van,
If I understand correctly, Dan Nagle had an intern that wrote a script to auto generate Fortran wrappers given C header files. He seemed fairly confident that the process was robust for ?most? things and readily repaired for the exceptions.
_ Tom
> On Oct 18, 2016, at 10:28 PM, Bill Long <longb at cray.com> wrote:
>
> 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
>
>
> _______________________________________________
> J3 mailing list
> J3 at mailman.j3-fortran.org
> http://mailman.j3-fortran.org/mailman/listinfo/j3
More information about the J3
mailing list