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

                   SUBROUTINE POS2FILE

 POS2FILE POSITIONS A TWO INTEGER STRUCTURE FILE TO THE DESIRED
 POSITION.

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

pos2file_(

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

         )

{

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

}