portable fseek

[tracyx]

Is there a portable way of replicating the fseek function (not using ifport)?

How can I replicate functions like:

i) filepointer = fseek(funit,startpos,0)

ii) filepointer = fseek(funit,offset,1)

Thank you,

T.

[mecej4]

Fortran 2003 provides ACCESS='stream' and POS=ipos keyword arguments in INQUIRE, OPEN, READ and WRITE statements for this purpose. Please consult your compiler reference manual to ascertain if the functionality is sufficient for your needs.