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

                 SUBROUTINE READMASK

 READMASK READS A PROFILE RECORD NUMBER FROM A MASK FILE.

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

readmask_(

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

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

 int *iend             /* SET TO ONE IF END OF FILE IS REACHED */

          )

{

/*
 if ( !feof(fp[*fn])) fread( jj, sizeof( int ), 1, fp[*fn] );

 if ( feof(fp[*fn])) *iend = 1;
*/
int k;
if ( fread( (void *) &k, sizeof( k ), 1, fp[*fn] ) == 1 )
*jj = k;
else
*iend = 1;

}