---

Manual Reference Pages  - system_rewinddir (3m_system)

---

NAME

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

CONTENTS

Synopsis
Description
Options
Examples
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).

EXAMPLES

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

---

Nemo Release 3.1

system_rewinddir (3m_system)

March 07, 2025

Generated by manServer 1.08 from 9dfa1f30-410a-4276-a874-ec59bc1b3045 using man macros.