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

                  SUBROUTINE PUTJPRESENT

 PUTJPRESENT SETS A VALUE FOR JPRESENT.  JPRESENT IS THE PRESENT
 SEQUENTIAL STATION NUMBER FOR A GIVEN MASK

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

putjpresent_(
 
 int *masknumber,  /* NUMERICAL ORDER OF MASK BEING SE */

 int *forjpresent  /* VALUE TO ENTER FOR JPRESENT */

        )
{

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

 SET THE PRESENT PROFILE NUMBER 

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

 jpresent[*masknumber -1]= *forjpresent;

}