[UP]

Manual Reference Pages  - system_rewinddir (3)

NAME
system_rewinddir(3f) - [M_system] call rewinddir(3c) to rewind directory stream (LICENSE:PD)

CONTENTS

Synopsis
Description
Options
Example
Author
License

SYNOPSIS

 
subroutine system_rewinddir(dir)


    type(c_ptr),value :: dir

DESCRIPTION
Return to pointer to the beginning of the list for a currently open directory list.

OPTIONS
DIR A C_pointer assumed to have been allocated by a call to SYSTEM_OPENDIR(3f).

EXAMPLE
Sample program: 

   program demo_system_rewinddir
   use M_system, only : system_opendir,system_readdir
   use M_system, only : system_rewinddir,system_closedir
   use iso_c_binding
   implicit none


   type(c_ptr)                  :: dir
   character(len=:),allocatable :: filename
   integer                      :: i, ierr
   !>>> open directory stream to read from
   call system_opendir(’.’,dir,ierr)
   !>>> read directory stream twice
   do i=1,2
      write(*,’(a,i0)’)’PASS ’,i
      do
         call system_readdir(dir,filename,ierr)
         if(filename.eq.’ ’)exit
         write(*,*)filename
      enddo
      !>>> rewind directory stream
      call system_rewinddir(dir)
   enddo
   !>>> close directory stream
   call system_closedir(dir,ierr)


   end program demo_system_rewinddir

AUTHOR
John S. Urban

LICENSE
Public Domain

system_rewinddir (3) July 05, 2020
Generated by manServer 1.08 from 8f38e0f0-756d-4170-adad-3dcd47e951a5 using man macros.