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

                  SUBROUTINE MASKINIT

 MASKINIT INITIALIZES JPRESENT AND ALLEND.  JPRESENT HOLDS THE
 PRESENT PROFILE NUMBER FOR EACH MASK.  ALLEND IS SET TO ONE
 WHEN ALL SEQUENTIAL MASK FILES HAVE REACHED THE END OF FILE.

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

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

 MAKE JPRESENT AN INTEGER ARRAY OF MAXMASK ITEMS. MAXMASK IS THE
 MAXIMUM NUMBER OF MASKS ALLOWED IN THE OCL SYSTEM.

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

int jpresent[MAXMASK];

maskinit_(
 
 int *nmask,       /* NUMBER OF MASKS BEING INITIALIZED */

 int *allend       /* END OF FILES MARKER.  THIS IS SET TO
                      ONE WHEN ALL SEQUENTIAL MASK FILES HAVE BEEN 
                      COMPLETELY READ  */

        )
{

 int j;     /* COUNTER */

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

  SET *ALLEND TO ZERO TO REFLECT THAT MASKS HAVE NOT BEEN READ YET.

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

 *allend = 0;

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

 FOR EACH MASK, SET THE PRESENT PROFILE NUMBER TO -1 TO SIGNIFY 
 THAT NO PROFILE HAS YET BEEN READ.

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

 for ( j = 0; j < *nmask; j++) jpresent[j]= -1;

}