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

         SUBROUTINE GETSURFPROBE

  GETSURFPROBE CHECKS IF A PROBE IS MARKED AS SURFACE-ONLY
  1= SURFACE ONLY
  0= PROFILE OR BIOLOGICAL DATA

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

getsurfprobe_(

 int *i,       /* PROBE CODE */

 int *ival     /* SURFACE-ONLY MARKER */

           )

{

  *ival= surfprobe[*i];

}