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

                  SUBROUTINE GETGPRESENT

 GETGPRESENT RETRIEVES A VALUE FROM GPRESENT.  GPRESENT IS THE PRESENT
 SEQUENTIAL DEPTH NUMBER FOR A GIVEN MASK

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

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

 int *fromgpresent  /* VALUE TO ENTER FOR GPRESENT */

        )
{

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

 GET THE PRESENT PROFILE NUMBER 

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

 *fromgpresent = gpresent[*masknumber -1];

}