contrib/dsgrid/Src/dsuserd.c
void c_dsgetrd(char *pnam, double *dval)
{
   if (!strncmp(pnam,"dmv",3) || !strncmp(pnam,"DMV",3)) {
      *dval = ds_missing_value;
   }
   else if (!strncmp(pnam,"exp",3) || !strncmp(pnam,"EXP",3)) {
      *dval = ds_exponent; 
   }
   else if (!strncmp(pnam,"dmx",3) || !strncmp(pnam,"DMX",3)) {
      *dval = ds_max_dist; 
   }
   else {
      sprintf(ds_emsg,"\n  Parameter name supplied is: %s\n",pnam);
      DSErrorHnd(4, "c_dsgetrd", ds_filee, ds_emsg);
   }
}
/*
 *  Get values for double parameters.
 */
Get values for double parameters.
Get values for double parameters .
void c_dsgetrd(char *pnam, double *dval)
{
   if (!strncmp(pnam,"dmv",3) || !strncmp(pnam,"DMV",3)) {
      *dval = ds_missing_value;
   }
   else if (!strncmp(pnam,"exp",3) || !strncmp(pnam,"EXP",3)) {
      *dval = ds_exponent; 
   }
   else if (!strncmp(pnam,"dmx",3) || !strncmp(pnam,"DMX",3)) {
      *dval = ds_max_dist; 
   }
   else {
      sprintf(ds_emsg,"\n  Parameter name supplied is: %s\n",pnam);
      DSErrorHnd(4, "c_dsgetrd", ds_filee, ds_emsg);
   }
}
void c_dsgetrd ( char * pnam , double * dval ) { if ( ! strncmp ( pnam , " " , 3 ) || ! strncmp ( pnam , " " , 3 ) ) { * dval = ds_missing_value ; } else if ( ! strncmp ( pnam , " " , 3 ) || ! strncmp ( pnam , " " , 3 ) ) { * dval = ds_exponent ; } else if ( ! strncmp ( pnam , " " , 3 ) || ! strncmp ( pnam , " " , 3 ) ) { * dval = ds_max_dist ; } else { sprintf ( ds_emsg , " \n \n " , pnam ) ; DSErrorHnd ( 4 , " " , ds_filee , ds_emsg ) ; } }
Get values for double parameters.
Get values for double parameters .