/************************************************************

                   SUBROUTINE POSFILE

 POS2FILE POSITIONS AN INTEGER FILE TO THE DESIRED
 POSITION.

*************************************************************/

posfile_(

 int *jj,             /* DESIRED POSITION */
 
 int *ifn             /* FILE IDENTIFICATION NUMBER */

         )

{

 fseek( fp[*ifn],( *jj -1 ) * sizeof( int ), SEEK_SET );

}