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

                  SUBROUTINE PUTGPRESENT

 PUTGPRESENT SETS A VALUE FOR GPRESENT.  GPRESENT IS THE PRESENT
 SEQUENTIAL STATION NUMBER FOR A GIVEN MASK

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

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

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

        )
{

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

 SET THE PRESENT PROFILE NUMBER 

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

 gpresent[*masknumber -1]= *forgpresent;

}