test

Fortran Library Reference

tskipf: Skip Files and Records; Reset EoF Status

The function is called by:

INTEGER*4 tskipf

n = tskipf( tlu, nf, nr )

tlu

INTEGER*4

Input 

Tape logical unit, in range 0 to 7 

nf

INTEGER*4

Input 

Number of end-of-file marks to skip over first 

nr

INTEGER*4

Input 

Number of physical records to skip over after skipping files 

n

INTEGER*4

Return value 

n=0: OK

n<0: Error

This function does not skip backward.

First, the function skips forward over nf end-of-file marks. Then, it skips forward over nr physical records. If the current file is at EOF, this counts as one file to skip. This function also resets the EOF status.

Example: tskipf()--typical fragment: skip four files and then skip one record: 

    INTEGER*4 nfiles / 4 /, nrecords / 1 /, tskipf, tlu / 1 / 
    ... 
    n = tskipf( tlu, nfiles, nrecords ) 
    IF ( n .LT. 0 ) STOP "tskipf: cannot skip" 
    ...

Compare with tstate() .