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