calclen.c:   if (dg->fromlen < 0)
calclen.c:         "dg->fromlen %d\n", dg->fromlen);
calclen.c:   if (dg->lentype == CONSTANTLEN)
calclen.c:      return(dg->fromlen);
calclen.c:   else if (dg->lentype == LENRANGE)
calclen.c:      if (dg->tolen < 0)
calclen.c:            "dg->tolen %d\n", dg->tolen);
calclen.c:      if (dg->tolen < dg->fromlen)
calclen.c:            "dg->fromlen %d "
calclen.c:            "dg->tolen %d\n",
calclen.c:	    dg->fromlen, dg->tolen);
calclen.c:      diff = (int) (dg->tolen - dg->fromlen + 1);
calclen.c:      i = (int) rndnum(lmt,dg->sd);
calclen.c:      len = i + dg->fromlen;
calclen.c:   else if (dg->lentype == AVERAGELEN)
calclen.c:      if (dg->tolen < 0)
calclen.c:            "dg->tolen %d\n", dg->tolen);
calclen.c:      if (dg->tolen < dg->fromlen)
calclen.c:            "dg->fromlen %d "
calclen.c:            "dg->tolen %d\n",
calclen.c:	    dg->fromlen, dg->tolen);
calclen.c:      diff = (int) (dg->tolen - dg->fromlen + 1);
calclen.c:      i = (int) rndnum(lmt,dg->sd);
calclen.c:      totlen = i + dg->fromlen;
calclen.c:      i = (int) rndnum(lmt,dg->sd);
calclen.c:      totlen += dg->fromlen;
calclen.c:   return(dg->fromlen);
dgafrng.c:   if (dg->hiflrng < dg->loflrng)
dgafrng.c:         dg->loflrng, dg->hiflrng);
dgafrng.c:   if (dg->loflrng < -999999999.0)
dgafrng.c:         dg->loflrng, dg->hiflrng);
dgafrng.c:   if (dg->hiflrng > 999999999.0)
dgafrng.c:         dg->loflrng, dg->hiflrng);
dgafrng.c:   fact1 = (double) rndfrac(dg->sd);
dgafrng.c:   fact2 = (double) rndfrac(dg->sd);
dgafrng.c:   fact3 = (double) rndfrac(dg->sd);
dgafrng.c:   fact4 = (double) rndfrac(dg->sd);
dgafrng.c:   diff    = dg->hiflrng - dg->loflrng;
dgafrng.c:   rslt    = dg->loflrng + (diff * avgfact);
dgafrng.c:      if (dg->sign == PRESIGN)
dgafrng.c:         putstr(dg->opthndl,"-");
dgafrng.c:      else if (dg->sign == ACCTSIGN)
dgafrng.c:         putstr(dg->opthndl,"(");
dgafrng.c:   sprintf(floatfmt,"%s%d%s", "%.", dg->dec, "f");
dgafrng.c:   putstr(dg->opthndl,str);
dgafrng.c:      if (dg->sign == POSTSIGN)
dgafrng.c:         putstr(dg->opthndl,"-");
dgafrng.c:      else if (dg->sign == ACCTSIGN)
dgafrng.c:         putstr(dg->opthndl,")");
dgairng.c:   if (dg->hiintrng < dg->lointrng)
dgairng.c:         dg->lointrng, dg->hiintrng);
dgairng.c:   if (dg->lointrng < -999999999999.0)
dgairng.c:         dg->lointrng, dg->hiintrng);
dgairng.c:   if (dg->hiintrng > 999999999999.0)
dgairng.c:         dg->lointrng, dg->hiintrng);
dgairng.c:   fact1 = (double) rndfrac(dg->sd);
dgairng.c:   fact2 = (double) rndfrac(dg->sd);
dgairng.c:   fact3 = (double) rndfrac(dg->sd);
dgairng.c:   fact4 = (double) rndfrac(dg->sd);
dgairng.c:   diff    = dg->hiintrng - dg->lointrng + 1.0;
dgairng.c:   rslt    = dg->lointrng + (diff * avgfact);
dgairng.c:      if (dg->sign == PRESIGN)
dgairng.c:         putstr(dg->opthndl,"-");
dgairng.c:      else if (dg->sign == ACCTSIGN)
dgairng.c:         putstr(dg->opthndl,"(");
dgairng.c:   pfxlen = dg->fromlen - strlen(str);
dgairng.c:         putstr(dg->opthndl,"0");
dgairng.c:   putstr(dg->opthndl,str);
dgairng.c:      if (dg->sign == POSTSIGN)
dgairng.c:         putstr(dg->opthndl,"-");
dgairng.c:      else if (dg->sign == ACCTSIGN)
dgairng.c:         putstr(dg->opthndl,")");
dgalfa.c:   padlen = dg->totlen - len;
dgalfa.c:   dg->strptr = (char *) dg->str;
dgalfa.c:   if (dg->totlen > len
dgalfa.c:      && dg->padding == LPAD)
dgalfa.c:      dg->strptr += padlen;
dgalfa.c:   p = (char *) dg->strptr;
dgalfa.c:      ch = (int) (rndnum(26,dg->sd) + 'A');
dgalfa.c:      if (rnd(dg->sd)) ch += 32;
dgalfa.c:   if (dg->totlen > len
dgalfa.c:      && dg->padding == RPAD)
dgalfa.c:      dg->strptr = (char *) dg->str + len;
dgalfa.c:   putstr(dg->opthndl,dg->str);
dgamt.c:   negsw = (int) rnd(dg->sd);
dgamt.c:      if (dg->sign == PRESIGN)
dgamt.c:         putstr(dg->opthndl,"-");
dgamt.c:      else if (dg->sign == ACCTSIGN)
dgamt.c:         putstr(dg->opthndl,"(");
dgamt.c:   if (dg->fromlen < dg->tolen)
dgamt.c:      diff = (unsigned long) dg->tolen - dg->fromlen;
dgamt.c:      len = (int) rndnum(diff,dg->sd) + dg->fromlen;
dgamt.c:   else len = dg->fromlen;
dgamt.c:         "bits %d\n", dg->fromlen);
dgamt.c:   i = (int) rndnum(lmt,dg->sd) + 1;
dgamt.c:      intgr = intgr + (double) rnd(dg->sd);
dgamt.c:   putstr(dg->opthndl,str);
dgamt.c:   if (dg->dec > 0)
dgamt.c:      putstr(dg->opthndl,".");
dgamt.c:      i = dg->dec;
dgamt.c:         str[0] = (char) rndnum(10L,dg->sd) + '0';
dgamt.c:         putstr(dg->opthndl,str);
dgamt.c:      if (dg->sign == POSTSIGN)
dgamt.c:         putstr(dg->opthndl,"-");
dgamt.c:      else if (dg->sign == ACCTSIGN)
dgamt.c:         putstr(dg->opthndl,")");
dgbinom.c:/* The number of trials is in dg->trials. */
dgbinom.c:/* The probability is in dg->prob. */
dgbinom.c:   if (dg->trials < 2 || dg->trials > 30)
dgbinom.c:         dg->trials);
dgbinom.c:   if (dg->prob < 0.1 || dg->prob > 0.9)
dgbinom.c:         dg->prob);
dgbinom.c:   i = dg->trials;
dgbinom.c:      if (rndfrac(dg->sd) < dg->prob)
dgbinom.c:   pfxlen = dg->fromlen - strlen(str);
dgbinom.c:         putstr(dg->opthndl,"0");
dgbinom.c:   putstr(dg->opthndl,str);
dgday.c:   putstr(dg->opthndl,str);
dgdtrng.c:   jd = fromjd + (rndfrac(dg->sd) * diff);
dgexp.c:/* The low  end of the range is in dg->loflrng. */
dgexp.c:/* The high end of the range is in dg->loflrng. */
dgexp.c:   if (dg->hiflrng < dg->loflrng)
dgexp.c:         dg->loflrng, dg->hiflrng);
dgexp.c:   if (dg->loflrng < -99.0)
dgexp.c:         dg->loflrng, dg->hiflrng);
dgexp.c:   if (dg->hiflrng > 99.0)
dgexp.c:         dg->loflrng, dg->hiflrng);
dgexp.c:   diff = dg->hiflrng - dg->loflrng;
dgexp.c:   rslt = dg->loflrng + (rndfrac(dg->sd) * diff);
dgexp.c:   sprintf(floatfmt,"%s%d%s","%.", dg->dec, "f");
dgexp.c:   putstr(dg->opthndl,str);
dgflrng.c:   if (dg->hiflrng < dg->loflrng)
dgflrng.c:         dg->loflrng, dg->hiflrng);
dgflrng.c:   if (dg->loflrng < -999999999.0)
dgflrng.c:         dg->loflrng, dg->hiflrng);
dgflrng.c:   if (dg->hiflrng > 999999999.0)
dgflrng.c:         dg->loflrng, dg->hiflrng);
dgflrng.c:   diff = dg->hiflrng - dg->loflrng;
dgflrng.c:   rslt = dg->loflrng + (rndfrac(dg->sd) * diff);
dgflrng.c:      if (dg->sign == PRESIGN)
dgflrng.c:         putstr(dg->opthndl,"-");
dgflrng.c:      else if (dg->sign == ACCTSIGN)
dgflrng.c:         putstr(dg->opthndl,"(");
dgflrng.c:   sprintf(floatfmt,"%s%d%s", "%.", dg->dec, "f");
dgflrng.c:   putstr(dg->opthndl,str);
dgflrng.c:      if (dg->sign == POSTSIGN)
dgflrng.c:         putstr(dg->opthndl,"-");
dgflrng.c:      else if (dg->sign == ACCTSIGN)
dgflrng.c:         putstr(dg->opthndl,")");
dghour.c:   putstr(dg->opthndl,str);
dginit.c:   dg->strptr   = (char *) NULL;
dginit.c:   dg->padstr   = (char *) NULL;
dginit.c:   dg->slcthead = (slctfmt *) NULL;
dginit.c:   dg->slcttail = (slctfmt *) NULL;
dginit.c:   dg->loflrng  = dg->hiflrng = dg->sinestep =
dginit.c:      dg->sinex = dg->prob = dg->mu =
dginit.c:      dg->lointrng = dg->hiintrng = 0.0;
dginit.c:   dg->fromlen  = dg->tolen = dg->totlen =
dginit.c:      dg->verbose = dg->wtfact = dg->rcdnum  =
dginit.c:      dg->lentype = dg->padding = dg->dec =
dginit.c:      dg->sign = dg->slctmax = 0;
dginit.c:   dg->opthndl = 1;          /* default = stdout */
dginit.c:   dg->str = (char *) malloc(65536);
dginit.c:   if (dg->str == NULL)
dginit.c:         "alocating dg->str\n");
dginit.c:   dg->sd = (unsigned char *) rndinit();
dginit.c:   if (dg->sd == NULL)
dginit.c:         "alocating dg->sd\n");
dginit.c:   dg->slcthead = (slctfmt *) slctinit(dg);
dginit.c:   if (dg->slcthead == NULL)
dginit.c:         "alocating dg->slcthead\n");
dginit.c:   dg->slcttail = (slctfmt *) slctinit(dg);
dginit.c:   if (dg->slcttail == NULL)
dginit.c:         "alocating dg->slcttail\n");
dginit.c:   dg->slcthead->next = (slctfmt *) dg->slcttail;
dginit.c:   dg->slcttail->next = (slctfmt *) dg->slcttail;
dgint.c:/* The dg->lentype should be CONSTANTLEN */
dgint.c:   if (dg->lentype == CONSTANTLEN)
dgint.c:      bitlen = (int) rndnum(lmt,dg->sd) + 1;
dgint.c:      num = (unsigned long) rndpwr(bitlen,dg->sd);
dgint.c:      putstr(dg->opthndl,str);
dgint.c:         lst[i] = (int) rndpwr(tmplen,dg->sd);
dgint.c:         lst[i] = (int) rndpwr(8,dg->sd);
dgint.c:      putstr(dg->opthndl,str);
dgintrng.c:   if (dg->hiintrng < dg->lointrng)
dgintrng.c:         dg->lointrng, dg->hiintrng);
dgintrng.c:   if (dg->lointrng < -999999999999.0)
dgintrng.c:         dg->lointrng, dg->hiintrng);
dgintrng.c:   if (dg->hiintrng > 999999999999.0)
dgintrng.c:         dg->lointrng, dg->hiintrng);
dgintrng.c:   diff = dg->hiintrng - dg->lointrng + 1.0;
dgintrng.c:   rslt = dg->lointrng + (rndfrac(dg->sd) * diff);
dgintrng.c:      if (dg->sign == PRESIGN)
dgintrng.c:         putstr(dg->opthndl,"-");
dgintrng.c:      else if (dg->sign == ACCTSIGN)
dgintrng.c:         putstr(dg->opthndl,"(");
dgintrng.c:   pfxlen = dg->fromlen - strlen(str);
dgintrng.c:         putstr(dg->opthndl,"0");
dgintrng.c:   putstr(dg->opthndl,str);
dgintrng.c:      if (dg->sign == POSTSIGN)
dgintrng.c:         putstr(dg->opthndl,"-");
dgintrng.c:      else if (dg->sign == ACCTSIGN)
dgintrng.c:         putstr(dg->opthndl,")");
dgjul.c:   sprintf(jdfmt,"%s%d%s", "%.", dg->dec, "f");
dgjul.c:   putstr(dg->opthndl,str);
dglog.c:/* The low  end of the range is in dg->loflrng. */
dglog.c:/* The high end of the range is in dg->loflrng. */
dglog.c:   if (dg->hiflrng < dg->loflrng)
dglog.c:         dg->loflrng, dg->hiflrng);
dglog.c:   if (dg->loflrng < 0.0000000000001)
dglog.c:         dg->loflrng, dg->hiflrng);
dglog.c:   if (dg->hiflrng > 999999999999.0)
dglog.c:         dg->loflrng, dg->hiflrng);
dglog.c:   lolog = log(dg->loflrng);
dglog.c:   hilog = log(dg->hiflrng);
dglog.c:   logexx = lolog + (rndfrac(dg->sd) * diff);
dglog.c:      if (dg->sign == PRESIGN)
dglog.c:         putstr(dg->opthndl,"-");
dglog.c:      else if (dg->sign == ACCTSIGN)
dglog.c:         putstr(dg->opthndl,"(");
dglog.c:   sprintf(floatfmt,"%s%d%s","%.", dg->dec, "f");
dglog.c:   if (loglen < dg->fromlen
dglog.c:      && dg->lentype == CONSTANTLEN)
dglog.c:      pfxlen = dg->fromlen - loglen;
dglog.c:         putstr(dg->opthndl,"0");
dglog.c:   putstr(dg->opthndl,str);
dglog.c:      if (dg->sign == POSTSIGN)
dglog.c:         putstr(dg->opthndl,"-");
dglog.c:      else if (dg->sign == ACCTSIGN)
dglog.c:         putstr(dg->opthndl,")");
dgltr.c:   padlen = dg->totlen - len;
dgltr.c:   dg->strptr = (char *) dg->str;
dgltr.c:   if (dg->totlen > len
dgltr.c:      && dg->padding == LPAD)
dgltr.c:      dg->strptr += padlen;
dgltr.c:   p = (char *) dg->strptr;
dgltr.c:      ofst = (int) rndnum(codelen,dg->sd);
dgltr.c:   if (dg->totlen > len
dgltr.c:      && dg->padding == RPAD)
dgltr.c:      dg->strptr = (char *) dg->str + len;
dgltr.c:   putstr(dg->opthndl,dg->str);
dgmin.c:   putstr(dg->opthndl,str);
dgmonth.c:   putstr(dg->opthndl,str);
dgnum.c:      *p = (char) (rndnum(10,dg->sd) + '0');
dgnum.c:      putstr(dg->opthndl,str);
dgpad.c:   q = (char *) dg->strptr;
dgpad.c:      p = (char *) dg->padstr;
dgpad.c:   dg->strptr += len;
dgpad.c:   padptr = (char *) dg->str;
dgpad.c:   putstr(dg->opthndl,padptr);
dgpois.c:/* The population mean is in dg->mu. */
dgpois.c:   if (dg->mu < 0.1 || dg->mu > 30.0)
dgpois.c:         dg->mu);
dgpois.c:   prob = dg->mu / 100.0;
dgpois.c:      if (rndfrac(dg->sd) < prob)
dgpois.c:   pfxlen = dg->fromlen - strlen(str);
dgpois.c:         putstr(dg->opthndl,"0");
dgpois.c:   putstr(dg->opthndl,str);
dgreal.c:   negsw = (int) rnd(dg->sd);
dgreal.c:      if (dg->sign == PRESIGN)
dgreal.c:         putstr(dg->opthndl,"-");
dgreal.c:      else if (dg->sign == ACCTSIGN)
dgreal.c:         putstr(dg->opthndl,"(");
dgreal.c:      *p = (char) (rndnum(10,dg->sd) + '0');
dgreal.c:      putstr(dg->opthndl,p);
dgreal.c:   if (dg->dec > 0)
dgreal.c:      putstr(dg->opthndl,".");
dgreal.c:      i = dg->dec;
dgreal.c:         *p = (char) (rndnum(10,dg->sd) + '0');
dgreal.c:         putstr(dg->opthndl,p);
dgreal.c:      if (dg->sign == POSTSIGN)
dgreal.c:         putstr(dg->opthndl,"-");
dgreal.c:      else if (dg->sign == ACCTSIGN)
dgreal.c:         putstr(dg->opthndl,")");
dgsec.c:   putstr(dg->opthndl,str);
dgseq.c:   dg->rcdnum++;
dgseq.c:   sprintf(str,"%d", dg->rcdnum);
dgseq.c:   pfx = dg->fromlen - len;
dgseq.c:         putstr(dg->opthndl,"0");
dgseq.c:   if (dg->fromlen < 1)
dgseq.c:      dg->fromlen = len;
dgseq.c:   if (len > dg->fromlen)
dgseq.c:      p = (char *) str + (len - dg->fromlen);
dgseq.c:   putstr(dg->opthndl,p);
dgsine.c:/* magnitude is dg->loflrng */
dgsine.c:/* axis      is dg->hiflrng */
dgsine.c:   dg->sinex += dg->sinestep;
dgsine.c:   if (dg->sinex > twopi)
dgsine.c:      dg->sinex -= twopi;
dgsine.c:   magnitude = dg->loflrng;
dgsine.c:   axis      = dg->hiflrng;
dgsine.c:   yval = (sin(dg->sinex) * magnitude) + axis;
dgsine.c:   sprintf(fmtstr, "%s%d%s", "%.", dg->dec, "f");
dgsine.c:   putstr(dg->opthndl, wrkstr);
dgslct.c:   longnum = (long) dg->slctmax;
dgslct.c:   choice = (int) rndnum(longnum,dg->sd) + 1;
dgslct.c:   putstr(dg->opthndl,currslct->val);
dgtext.c:      spc = (int) rndnum(60L,dg->sd);
dgtext.c:         putstr(dg->opthndl," ");
dgtext.c:         ch = (char) rndnum(26L,dg->sd) + 'A';
dgtext.c:         upper = (int) rnd(dg->sd);
dgtext.c:         putstr(dg->opthndl,str);
dgticks.c:   if (tklen < dg->fromlen)
dgticks.c:      pfxlen = dg->fromlen - tklen;
dgticks.c:      while (pfxlen--) putstr(dg->opthndl,"0");
dgticks.c:   putstr(dg->opthndl,str);
dgyear.c:   putstr(dg->opthndl,str);
putbyte.c:   wrtlen = write(dg->opthndl,buf,1);
sample.c:   dg->verbose = 0;        /* default values */
sample.c:   dg->opthndl = 1;        /* stdout */
sample.c:         dg->verbose = 1;
sample.c:            dg->opthndl = opnopt(optfname);  /* open */
sample.c:   putstr(dg->opthndl,"Sample Test");   /* dummy title line */
sample.c:   putstr(dg->opthndl,"\n");
sample.c:      dg->lentype = CONSTANTLEN;          /* record group */
sample.c:      dg->fromlen = 10;         /* this data is garbage */
sample.c:      putstr(dg->opthndl,":");      /* are called */
sample.c:      dg->lentype = CONSTANTLEN;
sample.c:      dg->fromlen = 8;          /* upper and lower case */
sample.c:      putstr(dg->opthndl,"\n");
sample.c:   cls(dg->opthndl);
slctinit.c:   slct->next = (slctfmt *) dg->slcttail;
slctinit.c:   dg->slctmax = 0;
slctisrt.c:   dg->slctmax++;
tst.c:         dg->verbose = 1;
tst.c:            dg->opthndl = opnopt(optfname);  /* open */
tst.c:   putstr(dg->opthndl,"abc ");         /* dummy title line */
tst.c:   putstr(dg->opthndl,"\n");
tst.c:   strncpy((char *) dg->sd,"abcdefgh        ",16);
tst.c:   *dg->sd |= (unsigned char) 1;
tst.c:   while (i--) rnd(dg->sd);
tst.c:      dg->lentype = CONSTANTLEN;          /* record group */
tst.c:      dg->totlen  = 0;
tst.c:      dg->fromlen = 10;
tst.c:      dg->tolen   = 0;
tst.c:      dg->padstr  = NULL;
tst.c:      putstr(dg->opthndl,":");      /* delimiter */
tst.c:      dg->lentype = CONSTANTLEN;
tst.c:      dg->totlen  = 4;
tst.c:      dg->fromlen = 4;              /* upper and lower case */
tst.c:      putstr(dg->opthndl,":");      /* delimiter */
tst.c:      dg->lentype = CONSTANTLEN;
tst.c:      dg->fromlen = 4;
tst.c:      putstr(dg->opthndl,":abc\" \"def:");    /* delimiter with */
tst.c:      dg->lentype = CONSTANTLEN;             /* embedded quotes */
tst.c:      dg->fromlen = 4;
tst.c:      dg->tolen   = 0;
tst.c:      putstr(dg->opthndl,":");      /* delimiter */
tst.c:      dg->lentype = CONSTANTLEN;
tst.c:      dg->fromlen = 7;              /* integer length */
tst.c:      dg->tolen   = 0;
tst.c:      dg->dec     = 5;              /* decimals */
tst.c:      dg->sign    = POSTSIGN;
tst.c:      putstr(dg->opthndl,"\n");
tst.c:      dg->slctmax = 3;            /* see initialization above */
tst.c:      putstr(dg->opthndl,":");      /* delimiter */
tst.c:      dg->lentype = CONSTANTLEN;
tst.c:      dg->fromlen = 7;
tst.c:      dg->dec     = 5;
tst.c:      dg->sign    = PRESIGN;      /* real with different */
tst.c:      putstr(dg->opthndl,":");      /* delimiter */
tst.c:      dg->lentype = CONSTANTLEN;
tst.c:      dg->fromlen = 7;
tst.c:      dg->dec     = 5;
tst.c:      dg->sign    = ACCTSIGN;     /* real with different */
tst.c:      putstr(dg->opthndl,":");      /* delimiter */
tst.c:      dg->lentype = CONSTANTLEN;
tst.c:      dg->fromlen = 5;
tst.c:      dg->dec     = 0;            /* real with no decimals */
tst.c:      dg->sign    = PRESIGN;
tst.c:      putstr(dg->opthndl,"\n");
tst.c:      dg->lentype = CONSTANTLEN;
tst.c:      dg->fromlen = 64;
tst.c:      putstr(dg->opthndl,"\n");
tst.c:      dg->lentype = CONSTANTLEN;
tst.c:      dg->fromlen = 64;          /* see initialization above */
tst.c:      putstr(dg->opthndl,"\n");
tst.c:      dg->lentype = CONSTANTLEN;
tst.c:      dg->fromlen = 64;
tst.c:      putstr(dg->opthndl,"\n");
tst.c:      dg->lentype = CONSTANTLEN;
tst.c:      dg->fromlen = 64;
tst.c:      putstr(dg->opthndl,"\n");
tst.c:      dg->lentype = CONSTANTLEN;     /* 11 decimal */
tst.c:      dg->fromlen = 24;              /* 24 bit integer */
tst.c:      dg->dec     = 11;              /* logarithmic distrib */
tst.c:      dg->sign    = PRESIGN;         /* good for financial */
tst.c:      putstr(dg->opthndl,":");       /* delimiter */
tst.c:      dg->loflrng = -999.0;          /* flat distribution */
tst.c:      dg->hiflrng =  999.0;          /* floating point range */
tst.c:      dg->dec     = 7;
tst.c:      dg->sign    = PRESIGN;
tst.c:      putstr(dg->opthndl,":");       /* delimiter */
tst.c:      dg->lointrng = -999.0;         /* flat distribution */
tst.c:      dg->hiintrng =  999.0;         /* integer range */
tst.c:      dg->fromlen  = 7;
tst.c:      dg->dec      = 0;
tst.c:      dg->sign     = PRESIGN;
tst.c:      putstr(dg->opthndl,"\n");
tst.c:      dg->loflrng = -999.0;          /* bell curve distrib */
tst.c:      dg->hiflrng =  999.0;          /* floating point range */
tst.c:      dg->dec     = 7;
tst.c:      dg->sign    = PRESIGN;
tst.c:      putstr(dg->opthndl,":");       /* delimiter */
tst.c:      dg->lointrng = -999.0;         /* bell curve distrib */
tst.c:      dg->hiintrng =  999.0;         /* integer range */
tst.c:      dg->fromlen  = 7;
tst.c:      dg->dec      = 0;
tst.c:      dg->sign     = PRESIGN;
tst.c:      putstr(dg->opthndl,"\n");
tst.c:   dg->rcdnum = 0L;
tst.c:      dg->lentype = CONSTANTLEN;
tst.c:      dg->fromlen = 10;
tst.c:      putstr(dg->opthndl,":");    /* delimiter */
tst.c:      dg->lentype = LENRANGE;
tst.c:      dg->fromlen = 4;
tst.c:      dg->tolen   = 8;            /* variable length alpha */
tst.c:      putstr(dg->opthndl,":");    /* delimiter */
tst.c:      dg->lentype = LENRANGE;
tst.c:      dg->fromlen = 4;            /* log base 10 distrib */
tst.c:      dg->tolen   = 8;            /* variable length integer */
tst.c:      putstr(dg->opthndl,":");    /* delimiter */
tst.c:      dg->lentype = LENRANGE;
tst.c:      dg->fromlen = 4;
tst.c:      dg->tolen   = 8;
tst.c:      putstr(dg->opthndl,":");    /* delimiter */
tst.c:      dg->lentype = LENRANGE;     /* log base 10 distrib */
tst.c:      dg->fromlen = 7;            /* variable length real */
tst.c:      dg->tolen   = 14;
tst.c:      dg->dec     = 5;
tst.c:      dg->sign    = POSTSIGN;
tst.c:      putstr(dg->opthndl,"\n");
tst.c:      dg->lentype = LENRANGE;     /* log base 10 distrib */
tst.c:      dg->fromlen = 7;            /* variable length real */
tst.c:      dg->tolen   = 14;           /* different sign position */
tst.c:      dg->dec     = 5;
tst.c:      dg->sign    = PRESIGN;
tst.c:      putstr(dg->opthndl,":");    /* delimiter */
tst.c:      dg->lentype = LENRANGE;     /* log base 10 distrib */
tst.c:      dg->fromlen = 7;            /* variable length real */
tst.c:      dg->tolen   = 14;           /* different sign position */
tst.c:      dg->dec     = 5;
tst.c:      dg->sign    = ACCTSIGN;
tst.c:      putstr(dg->opthndl,":");    /* delimiter */
tst.c:      dg->lentype = LENRANGE;     /* log base 10 distrib */
tst.c:      dg->fromlen = 5;            /* variable length real */
tst.c:      dg->tolen   = 14;           /* different sign position */
tst.c:      dg->dec     = 0;            /* no decimals */
tst.c:      dg->sign    = PRESIGN;
tst.c:      putstr(dg->opthndl,"\n");
tst.c:      dg->lentype = LENRANGE;     /* variable length text */
tst.c:      dg->fromlen = 10;
tst.c:      dg->tolen   = 64;
tst.c:      putstr(dg->opthndl,"\n");
tst.c:      dg->lentype = LENRANGE;     /* variable length  */
tst.c:      dg->fromlen = 10;           /* coded data */
tst.c:      dg->tolen   = 64;
tst.c:      putstr(dg->opthndl,"\n");
tst.c:      dg->lentype = LENRANGE;     /* variable length  */
tst.c:      dg->fromlen = 10;           /* hexadecimal */
tst.c:      dg->tolen   = 64;
tst.c:      putstr(dg->opthndl,"\n");
tst.c:      dg->lentype = LENRANGE;     /* variable length  */
tst.c:      dg->fromlen = 10;           /* binary */
tst.c:      dg->tolen   = 64;
tst.c:      putstr(dg->opthndl,"\n");
tst.c:      dg->lentype = LENRANGE;     /* right justified */
tst.c:      dg->fromlen = 10;           /* left padded */
tst.c:      dg->tolen   = 50;           /* variable length alpha */
tst.c:      dg->totlen  = 64;
tst.c:      dg->padding = LPAD;
tst.c:      dg->padstr  = (char *) "01";
tst.c:      putstr(dg->opthndl,"\n");
tst.c:      dg->lentype = LENRANGE;     /* left justified */
tst.c:      dg->fromlen = 10;           /* right padded */
tst.c:      dg->tolen   = 50;           /* variable length alpha */
tst.c:      dg->totlen  = 64;
tst.c:      dg->padding = RPAD;
tst.c:      dg->padstr  = (char *) "01";
tst.c:      putstr(dg->opthndl,"\n");
tst.c:      dg->lentype = LENRANGE;     /* right justified */
tst.c:      dg->fromlen = 10;           /* left padded */
tst.c:      dg->tolen   = 50;           /* variable length */
tst.c:      dg->totlen  = 64;           /* binary */
tst.c:      dg->padding = LPAD;
tst.c:      dg->padstr  = (char *) "ab";
tst.c:      putstr(dg->opthndl,"\n");
tst.c:      dg->lentype = LENRANGE;     /* left justified */
tst.c:      dg->fromlen = 10;           /* right padded */
tst.c:      dg->tolen   = 50;           /* variable length */
tst.c:      dg->totlen  = 64;           /* binary */
tst.c:      dg->padding = RPAD;
tst.c:      dg->padstr  = (char *) "ab";
tst.c:      dg->tolen   = 0;            /* clean parameters */
tst.c:      dg->totlen  = 0;
tst.c:      dg->padding = 0;
tst.c:      putstr(dg->opthndl,"\n");
tst.c:      dg->lentype = CONSTANTLEN;    /* 64 bit */
tst.c:      dg->fromlen = 64;             /* logarithmic distrib */
tst.c:      putstr(dg->opthndl,"\n");
tst.c:   dg->rcdnum = 0L;                  /* third record group */
tst.c:   dg->sinestep = M_PI / 6.0;       /* sine delta x */
tst.c:   dg->sinex    = - dg->sinestep;  /* smallest x value */
tst.c:      dg->lentype = CONSTANTLEN;
tst.c:      dg->fromlen = 10;
tst.c:      putstr(dg->opthndl,":");    /* delimiter */
tst.c:      dg->lentype = CONSTANTLEN;    /* 128 bit integer */
tst.c:      dg->fromlen = 128;
tst.c:      putstr(dg->opthndl,"\n");
tst.c:      dg->lentype = LENRANGE;       /* 128-192 bit integer */
tst.c:      dg->fromlen = 128;
tst.c:      dg->tolen   = 192;
tst.c:      putstr(dg->opthndl,"\n");
tst.c:      dg->loflrng = 3.0;        /* sine magnitude */
tst.c:      dg->hiflrng = 5.0;        /* sine axis      */
tst.c:      dg->dec = 9;
tst.c:      putstr(dg->opthndl,":");    /* delimiter */
tst.c:      dg->dec = 11;               /* scientific julian day */
tst.c:      putstr(dg->opthndl,"\n");
tst.c:      dg->loflrng = -3.0;          /* e^x */
tst.c:      dg->hiflrng =  3.0;
tst.c:      dg->dec     = 11;
tst.c:      putstr(dg->opthndl,":");     /* delimiter */
tst.c:      dg->lentype = CONSTANTLEN;
tst.c:      dg->fromlen = 15;
tst.c:      dg->loflrng =   0.03;        /* log(x) */
tst.c:      dg->hiflrng = 300.0;
tst.c:      dg->dec     = 11;
tst.c:      dg->sign    = PRESIGN;
tst.c:      putstr(dg->opthndl,":");     /* delimiter */
tst.c:      dg->lentype = CONSTANTLEN;
tst.c:      dg->fromlen = 2;
tst.c:      dg->tolen   = 0;
tst.c:      dg->dec     = 0;
tst.c:      dg->sign    = 0;
tst.c:      dg->trials  = 10;            /* binomial(n,p) */
tst.c:      dg->prob    = 0.6;           /* prints # of successes */
tst.c:      putstr(dg->opthndl,":");     /* delimiter */
tst.c:      dg->lentype = CONSTANTLEN;
tst.c:      dg->fromlen = 2;
tst.c:      dg->tolen   = 0;
tst.c:      dg->dec     = 0;
tst.c:      dg->sign    = 0;
tst.c:      dg->prob    = 0.0;           /* prob and trials are */
tst.c:      dg->trials  = 0;             /* calculated */
tst.c:      dg->mu      = 2;             /* poisson(mu) */
tst.c:      putstr(dg->opthndl,"\n");
tst.c:      putstr(dg->opthndl,"/");
tst.c:      putstr(dg->opthndl,"/");
tst.c:      putstr(dg->opthndl," ");
tst.c:      putstr(dg->opthndl,":");
tst.c:      putstr(dg->opthndl,":");
tst.c:      putstr(dg->opthndl," ");
tst.c:      dg->lentype = CONSTANTLEN;
tst.c:      dg->fromlen = 10;           /* ticks */
tst.c:      putstr(dg->opthndl,"\n");
tst.c:      putstr(dg->opthndl,str);
tst.c:      putstr(dg->opthndl,"\n");
tst.c:   dg->rcdnum = 0L;           /* fourth record group */
tst.c:      dg->lentype = CONSTANTLEN;
tst.c:      dg->fromlen = 10;
tst.c:      putstr(dg->opthndl,":");
tst.c:      dgncpy(mainseed,dg->sd,16);
tst.c:      dgncpy(dg->sd,seed1,16);
tst.c:      dg->lentype = CONSTANTLEN;
tst.c:      dg->fromlen = 4;            /* two identical columns */
tst.c:      putstr(dg->opthndl,":");    /* delimiter */
tst.c:      dgncpy(dg->sd,seed1,16);
tst.c:      dg->lentype = CONSTANTLEN;
tst.c:      dg->fromlen = 4;
tst.c:      dgncpy(seed1,dg->sd,16);
tst.c:      dgncpy(dg->sd,mainseed,16);
tst.c:      putstr(dg->opthndl,":");    /* delimiter */
tst.c:      dg->lentype = CONSTANTLEN;
tst.c:      dg->fromlen = 4;          /* third column is random */
tst.c:      putstr(dg->opthndl,"\n");
tst.c:   cls(dg->opthndl);
tst2.c:   dg->verbose = 0;
tst2.c:   dg->opthndl = 1;
tst2.c:         dg->verbose = 1;
tst2.c:            dg->opthndl = opnopt(optfname);
tst2.c:   putstr(dg->opthndl,"abc ");
tst2.c:   putstr(dg->opthndl,"\n");
tst2.c:   strncpy((char *) dg->sd,"abcdefgh        ",16);
tst2.c:   while (i--) rnd(dg->sd);
tst2.c:      dg->lentype = CONSTANTLEN;
tst2.c:      dg->fromlen = 10;
tst2.c:      putstr(dg->opthndl,":");
tst2.c:      dg->lentype = CONSTANTLEN;
tst2.c:      dg->fromlen = 4;
tst2.c:      putstr(dg->opthndl,":");
tst2.c:      dg->lentype = CONSTANTLEN;
tst2.c:      dg->fromlen = 4;
tst2.c:      putstr(dg->opthndl,":abc\" \"def:");
tst2.c:      dg->lentype = CONSTANTLEN;
tst2.c:      dg->fromlen = 4;
tst2.c:      putstr(dg->opthndl,":");
tst2.c:      dg->lentype = CONSTANTLEN;
tst2.c:      dg->fromlen = 7;
tst2.c:      dg->tolen   = 0;
tst2.c:      dg->dec     = 5;
tst2.c:      dg->sign    = POSTSIGN;
tst2.c:      putstr(dg->opthndl,"\n");
tst2.c:      dg->slctmax = 3;
tst2.c:      putstr(dg->opthndl,":");
tst2.c:      dg->lentype = CONSTANTLEN;
tst2.c:      dg->fromlen = 7;
tst2.c:      dg->tolen   = 0;
tst2.c:      dg->dec     = 5;
tst2.c:      dg->sign    = PRESIGN;
tst2.c:      putstr(dg->opthndl,":");
tst2.c:      dg->lentype = CONSTANTLEN;
tst2.c:      dg->fromlen = 7;
tst2.c:      dg->tolen   = 0;
tst2.c:      dg->dec     = 5;
tst2.c:      dg->sign    = ACCTSIGN;
tst2.c:      putstr(dg->opthndl,":");
tst2.c:      dg->lentype = CONSTANTLEN;
tst2.c:      dg->fromlen = 5;
tst2.c:      dg->tolen   = 0;
tst2.c:      dg->dec     = 0;
tst2.c:      dg->sign    = PRESIGN;
tst2.c:      putstr(dg->opthndl,"\n");
tst2.c:      dg->lentype = CONSTANTLEN;
tst2.c:      dg->fromlen = 64;
tst2.c:      putstr(dg->opthndl,"\n");
tst2.c:      dg->lentype = CONSTANTLEN;
tst2.c:      dg->fromlen = 64;
tst2.c:      putstr(dg->opthndl,"\n");
tst2.c:      dg->lentype = CONSTANTLEN;
tst2.c:      dg->fromlen = 64;
tst2.c:      putstr(dg->opthndl,"\n");
tst2.c:      dg->lentype = CONSTANTLEN;
tst2.c:      dg->fromlen = 64;
tst2.c:      putstr(dg->opthndl,"\n");
tst2.c:      dg->lentype = CONSTANTLEN;
tst2.c:      dg->fromlen = 24;
tst2.c:      dg->dec     = 11;
tst2.c:      dg->sign    = PRESIGN;
tst2.c:      putstr(dg->opthndl,":");
tst2.c:      dg->loflrng = -999.0;
tst2.c:      dg->hiflrng =  999.0;
tst2.c:      dg->dec     = 7;
tst2.c:      dg->sign    = PRESIGN;
tst2.c:      putstr(dg->opthndl,":");
tst2.c:      dg->lointrng = -999.0;
tst2.c:      dg->hiintrng =  999.0;
tst2.c:      dg->fromlen  = 7;
tst2.c:      dg->dec      = 0;
tst2.c:      dg->sign     = PRESIGN;
tst2.c:      putstr(dg->opthndl,"\n");
tst2.c:      dg->loflrng = -999.0;
tst2.c:      dg->hiflrng =  999.0;
tst2.c:      dg->dec     = 7;
tst2.c:      dg->sign    = PRESIGN;
tst2.c:      putstr(dg->opthndl,":");
tst2.c:      dg->lointrng = -999.0;
tst2.c:      dg->hiintrng =  999.0;
tst2.c:      dg->fromlen  = 7;
tst2.c:      dg->dec      = 0;
tst2.c:      dg->sign     = PRESIGN;
tst2.c:      putstr(dg->opthndl,"\n");
tst2.c:   cls(dg->opthndl);
