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

         SUBROUTINE SETSURFPROBE

  SETSURFPROBE STORES SURFACE PROBE MARKER:
  1 - SURFACE ONLY DATE
  0 - PROFILE OR BIOLOGICAL DATA

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

int surfprobe[nprobe];

setsurfprobe_(

 int *i,       /* PROBE CODE */

 int *ival     /* SURFACE PROBE MARKER */

           )

{

  surfprobe[*i]= *ival;

}