--- a/fortran/f_dd.cpp	2018-10-30 10:05:01.000000000 -0600
+++ b/fortran/f_dd.cpp	2021-08-19 11:07:25.301690360 -0600
@@ -301,7 +301,7 @@ void f_dd_sincosh(const double *a, doubl
  * spaces.  Parameter maxlen should at least be precision + 7 
  * characters.  Prec can be zero to put out the defaut number of 
  * digits. */
-void f_dd_swrite(const double *a, int *precision, char *s, int *maxlen) {
+void f_dd_swrite(const double *a, int *precision, char *s, int *maxlen, size_t ignore __attribute__((unused))) {
   int prec = *precision;
   if (prec <= 0 || prec > dd_real::_ndigits) prec = dd_real::_ndigits;
   std::ios_base::fmtflags fmt = static_cast<std::ios_base::fmtflags>(0);
--- a/fortran/f_qd.cpp	2018-10-30 10:05:01.000000000 -0600
+++ b/fortran/f_qd.cpp	2021-08-19 11:07:08.805659216 -0600
@@ -422,7 +422,7 @@ void f_qd_sincosh(const double *a, doubl
  * spaces.  Parameter maxlen should at least be precision + 7 
  * characters.  Prec can be zero to put out the defaut number of 
  * digits. */
-void f_qd_swrite(const double *a, int *precision, char *s, int *maxlen) {
+void f_qd_swrite(const double *a, int *precision, char *s, int *maxlen, size_t ignore __attribute__((unused))) {
   int prec = *precision;
   if (prec <= 0 || prec > qd_real::_ndigits) prec = qd_real::_ndigits;
   std::ios_base::fmtflags fmt = static_cast<std::ios_base::fmtflags>(0);