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

                  SUBROUTINE GETJPRESENT

 GETJPRESENT RETRIEVES A VALUE FROM JPRESENT.  JPRESENT IS THE PRESENT
 SEQUENTIAL STATION NUMBER FOR A GIVEN MASK

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

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

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

        )
{

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

 GET THE PRESENT PROFILE NUMBER 

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

 *fromjpresent = jpresent[*masknumber -1];

}