SUBROUTINE POS(IDEV,N) C PURPOSE: POSITION THE DEVICE IDEV AT THE N-TH RECORD INTEGER I, N, N1, IA INTEGER IDEV REWIND IDEV IF (N.EQ.1) GO TO 200 N1 = N-1 DO 100 I = 1,N1 READ (IDEV,10000) IA 100 CONTINUE 200 RETURN 10000 FORMAT(A1) END