REWIND文
copyright

green dotREWIND文

REWIND文を実行すると指定されたファイルは、先頭に位置付けられる。

  REWIND 外部ファイル装置
  REWIND (位置付け指定子並び)

 [位置付け指定子]                                           
                                                               
      [UNIT=] 外部ファイル装置                                 
     IOSTAT= 基本整変数                                       
     ERR= 文番号                                            
[例]
ENDFILE文,REWIND文,BACKSPACE文の例
  1. 'test.data'というファイルに5行出力する。
  2. ENDFILE文,REWIND文でファイルの先頭に戻す。
  3. 最初のレコードから読む。ただし、1レコード読むたびにBACKSPACE文で 1レコード戻して再度読んでいる。このプログラムを実行すると次のようになる。
    1:*test*    1
    2:*test*    1
    1:*test*    2
    2:*test*    2

 PROGRAM file
    INTEGER :: i,j
    CHARACTER (LEN=6) :: moji
    OPEN(9,FILE='test.data')         !ファイルのオープン
    DO i=1,5
       WRITE(9,'(A,I5)') '*test*',i  !ファイルの出力
    END DO
    ENDFILE (9)                      !ファイル終了記録
    REWIND (9)                       !先頭に戻す
    DO i=1,2
       READ(9,'(A,I5)') moji,j       !ファイルの入力
       WRITE(*,*) '1:',moji,j
       BACKSPACE (10)                !1レコード戻す
       READ(9,'(A,I5)') moji,j       !ファイルの入力
       WRITE(*,*) '2:',moji,j
    END DO
 END PROGRAM file
line-end