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

                 SUBROUTINE READMASK3

 READMASK3 READS A THREE INTEGER STRUCTURE FROM A FILE.

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

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

 MAKE IR3 A WRITE3 STRUCTURE (THREE INTEGERS).  THE FIRST INTEGER
 IS IR3.NUM, THE SECOND IS IR3.REC, THE THIRD IS IR3.GEO

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

struct write3 ir3;

readmask3_(

 int *jj,              /* PROFILE HEADER RECORD NUMBER */

 int *fn,              /* MASK FILE IDENTIFICATION NUMBER */

 int *iend,            /* SET TO ONE IF END OF FILE IS REACHED */
 
 int *isecond,         /* SECOND INTEGER READ IN */

 int *ithird           /* THIRD INTEGER READ IN */

          )

{

 if ( !feof(fp[*fn])) {

   fread( &ir3, sizeof( struct write3 ), 1, fp[*fn] );
   *jj = ir3.num;
   *isecond = ir3.rec;
   *ithird = ir3.geo;

 }

 if ( feof(fp[*fn])) *iend = 1;

}