391 PetscErrorCode PetscStripe0(char *buf)  in PetscStripe0()  argument
398   PetscCall(PetscStrlen(buf, &n));  in PetscStripe0()
399   PetscCall(PetscStrendswith(buf, "e00", &flg));  in PetscStripe0()
400   if (flg) buf[n - 3] = 0;  in PetscStripe0()
401   PetscCall(PetscStrstr(buf, "e0", &str));  in PetscStripe0()
403     buf[n - 2] = buf[n - 1];  in PetscStripe0()
404     buf[n - 1] = 0;  in PetscStripe0()
406   PetscCall(PetscStrstr(buf, "e-0", &str));  in PetscStripe0()
408     buf[n - 2] = buf[n - 1];  in PetscStripe0()
409     buf[n - 1] = 0;  in PetscStripe0()
417 PetscErrorCode PetscStripAllZeros(char *buf)  in PetscStripAllZeros()  argument
422   PetscCall(PetscStrlen(buf, &n));  in PetscStripAllZeros()
423   if (buf[0] != '.') PetscFunctionReturn(PETSC_SUCCESS);  in PetscStripAllZeros()
425     if (buf[i] != '0') PetscFunctionReturn(PETSC_SUCCESS);  in PetscStripAllZeros()
427   buf[0] = '0';  in PetscStripAllZeros()
428   buf[1] = 0;  in PetscStripAllZeros()
440 PetscErrorCode PetscStripTrailingZeros(char *buf)  in PetscStripTrailingZeros()  argument
447   PetscCall(PetscStrchr(buf, 'e', &found));  in PetscStripTrailingZeros()
450   PetscCall(PetscStrlen(buf, &n));  in PetscStripTrailingZeros()
453     if (buf[i] == '.') {  in PetscStripTrailingZeros()
462     if (buf[i] != '0') PetscFunctionReturn(PETSC_SUCCESS);  in PetscStripTrailingZeros()
463     buf[i] = 0;  in PetscStripTrailingZeros()
471 PetscErrorCode PetscStripInitialZero(char *buf)  in PetscStripInitialZero()  argument
476   PetscCall(PetscStrlen(buf, &n));  in PetscStripInitialZero()
477   if (buf[0] == '0') {  in PetscStripInitialZero()
478     for (i = 0; i < n; i++) buf[i] = buf[i + 1];  in PetscStripInitialZero()
479   } else if (buf[0] == '-' && buf[1] == '0') {  in PetscStripInitialZero()
480     for (i = 1; i < n; i++) buf[i] = buf[i + 1];  in PetscStripInitialZero()
488 PetscErrorCode PetscStripZeros(char *buf)  in PetscStripZeros()  argument
493   PetscCall(PetscStrlen(buf, &n));  in PetscStripZeros()
496     if (buf[i] == 'e' && buf[i - 1] == '0') {  in PetscStripZeros()
497       for (j = i; j < n + 1; j++) buf[j - 1] = buf[j];  in PetscStripZeros()
498       PetscCall(PetscStripZeros(buf));  in PetscStripZeros()
508 PetscErrorCode PetscStripZerosPlus(char *buf)  in PetscStripZerosPlus()  argument
513   PetscCall(PetscStrlen(buf, &n));  in PetscStripZerosPlus()
516     if (buf[i] == '+') {  in PetscStripZerosPlus()
517       if (buf[i + 1] == '0') {  in PetscStripZerosPlus()
518         for (j = i + 1; j < n; j++) buf[j - 1] = buf[j + 1];  in PetscStripZerosPlus()
521         for (j = i + 1; j < n + 1; j++) buf[j - 1] = buf[j];  in PetscStripZerosPlus()
524     } else if (buf[i] == '-') {  in PetscStripZerosPlus()
525       if (buf[i + 1] == '0') {  in PetscStripZerosPlus()
526         for (j = i + 1; j < n; j++) buf[j] = buf[j + 1];  in PetscStripZerosPlus()