14 /* Subroutine */ int dpfmt_(doublereal *x, char *pictur, char *str, ftnlen   in dpfmt_()  argument
334     firstb = pos_(pictur, " ", &c__1, pictur_len, (ftnlen)1);  in dpfmt_()
336 	lastch = i_len(pictur, pictur_len);  in dpfmt_()
351 	if (s_cmp(pictur, "+", pictur_len, (ftnlen)1) == 0 || s_cmp(pictur,   in dpfmt_()
352 		"-", pictur_len, (ftnlen)1) == 0 || s_cmp(pictur, ".",   in dpfmt_()
357 	    errch_("#", pictur, (ftnlen)1, (ftnlen)1);  in dpfmt_()
363 	if (s_cmp(pictur, "+.", pictur_len, (ftnlen)2) == 0 || s_cmp(pictur,   in dpfmt_()
368 	    errch_("#", pictur, (ftnlen)1, (ftnlen)2);  in dpfmt_()
381 	errch_("#", pictur, (ftnlen)1, lastch);  in dpfmt_()
408     if (*(unsigned char *)pictur == '+') {  in dpfmt_()
411     } else if (*(unsigned char *)pictur == '-') {  in dpfmt_()
441     if (*(unsigned char *)&pictur[start - 1] == '0') {  in dpfmt_()
449     dpat = pos_(pictur, ".", &c__1, pictur_len, (ftnlen)1);  in dpfmt_()