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

                 SUBROUTINE READMASK2

 READMASK2 READS A TWO INTEGER STRUCTURE FROM A FILE.

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

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

 MAKE IR2 A WRITE2 STRUCTURE (TWO INTEGERS).  THE FIRST INTEGER
 IS IR2.NUM, THE SECOND IS IR2.REC

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

struct write2 ir2;

readmask2_(

 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 */

          )

{

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

   fread( &ir2, sizeof( struct write2 ), 1, fp[*fn] );
   *jj = ir2.num;
   *isecond = ir2.rec;

 }

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

if ( fread( (void *) &ir2, sizeof( struct write2 ), 1, fp[*fn] ) == 1 ) {
   *jj = ir2.num;
   *isecond = ir2.rec;
}
else
*iend = 1;


}