diff --git a/include/cutest.h b/include/cutest.h
index 3c7ac7f..fa46ab6 100644
--- a/include/cutest.h
+++ b/include/cutest.h
@@ -13,7 +13,7 @@
  *             Boolean logicals provided, August 21 2013
  *             fortran intent(in) variables defined as const, Dec 2 2015
  *
- * this version 2024-08-18
+ * this version 2024-08-20
  *
  * ======================================================================
  */
@@ -29,7 +29,7 @@
  * give a version number
  */
 
-#define CUTEST_VERSION 2.2.1
+#define CUTEST_VERSION 2.2.2
 
 /*
  * Define name of main() function on a
@@ -199,6 +199,9 @@ typedef struct VarTypes {
 #define CUTEST_uterminate FUNDERSCORE(cutest_uterminate)
 #define CUTEST_cterminate FUNDERSCORE(cutest_cterminate)
 
+#define FORTRAN_open      FUNDERSCORE(fortran_open)
+#define FORTRAN_close     FUNDERSCORE(fortran_close)
+
 #define CUTEST_usetup_s     FUNDERSCORE(cutest_usetup_s)
 #define CUTEST_csetup_s     FUNDERSCORE(cutest_cint_csetup_s)
 
@@ -287,8 +290,8 @@ typedef struct VarTypes {
 #define CUTEST_uterminate_s FUNDERSCORE(cutest_uterminate_s)
 #define CUTEST_cterminate_s FUNDERSCORE(cutest_cterminate_s)
 
-#define FORTRAN_open      FUNDERSCORE(fortran_open)
-#define FORTRAN_close     FUNDERSCORE(fortran_close)
+#define FORTRAN_open_s      FUNDERSCORE(fortran_open_s)
+#define FORTRAN_close_s     FUNDERSCORE(fortran_close_s)
 
 /*
  * Prototypes for CUTEst FORTRAN routines found in libcutest.a
@@ -541,6 +544,10 @@ void CUTEST_cohprodsp( integer *status, integer *nnzohp,
 void CUTEST_uterminate( integer *status );
 void CUTEST_cterminate( integer *status );
 
+/* FORTRAN auxiliary subroutines to retrieve stream unit numbers */
+void FORTRAN_open(  const integer *funit, const char *fname, integer *ierr );
+void FORTRAN_close( const integer *funit, integer *ierr );
+
 /* Same for single precision versions */
 
 /* Setup routines */
@@ -788,9 +795,105 @@ void CUTEST_cohprodsp_s( integer *status, integer *nnzohp,
 void CUTEST_uterminate_s( integer *status );
 void CUTEST_cterminate_s( integer *status );
 
+/* FORTRAN auxiliary subroutines to retrieve stream unit numbers */
+void FORTRAN_open_s(  const integer *funit, const char *fname, integer *ierr );
+void FORTRAN_close_s( const integer *funit, integer *ierr );
+
 /* Same for quadruple precision versions */
 
 #ifdef REAL_128
+
+#define CUTEST_usetup_q     FUNDERSCORE(cutest_usetup_q)
+#define CUTEST_csetup_q     FUNDERSCORE(cutest_cint_csetup_q)
+
+#define CUTEST_udimen_q     FUNDERSCORE(cutest_udimen_q)
+#define CUTEST_udimsh_q     FUNDERSCORE(cutest_udimsh_q)
+#define CUTEST_udimse_q     FUNDERSCORE(cutest_udimse_q)
+#define CUTEST_uvartype_q   FUNDERSCORE(cutest_uvartype_q)
+#define CUTEST_unames_q     FUNDERSCORE(cutest_unames_q)
+#define CUTEST_ureport_q    FUNDERSCORE(cutest_ureport_q)
+
+#define CUTEST_cdimen_q     FUNDERSCORE(cutest_cdimen_q)
+#define CUTEST_cnoobj_q     FUNDERSCORE(cutest_cint_cnoobj_q)
+#define CUTEST_cdimsg_q     FUNDERSCORE(cutest_cdimsg_q)
+#define CUTEST_cdimsj_q     FUNDERSCORE(cutest_cdimsj_q)
+#define CUTEST_cdimsh_q     FUNDERSCORE(cutest_cdimsh_q)
+#define CUTEST_cdimohp_q    FUNDERSCORE(cutest_cdimohp_q)
+#define CUTEST_cdimchp_q    FUNDERSCORE(cutest_cdimchp_q)
+#define CUTEST_cdimse_q     FUNDERSCORE(cutest_cdimse_q)
+#define CUTEST_cstats_q     FUNDERSCORE(cutest_cstats_q)
+#define CUTEST_cvartype_q   FUNDERSCORE(cutest_cvartype_q)
+#define CUTEST_cnames_q     FUNDERSCORE(cutest_cnames_q)
+#define CUTEST_creport_q    FUNDERSCORE(cutest_creport_q)
+
+#define CUTEST_connames_q   FUNDERSCORE(cutest_connames_q)
+#define CUTEST_pname_q      FUNDERSCORE(cutest_pname_q)
+#define CUTEST_probname_q   FUNDERSCORE(cutest_probname_q)
+#define CUTEST_varnames_q   FUNDERSCORE(cutest_varnames_q)
+
+#define CUTEST_ufn_q        FUNDERSCORE(cutest_ufn_q)
+#define CUTEST_ugr_q        FUNDERSCORE(cutest_ugr_q)
+#define CUTEST_uofg_q       FUNDERSCORE(cutest_cint_uofg_q)
+#define CUTEST_ubandh_q     FUNDERSCORE(cutest_ubandh_q)
+#define CUTEST_udh_q        FUNDERSCORE(cutest_udh_q)
+#define CUTEST_ushp_q       FUNDERSCORE(cutest_ushp_q)
+#define CUTEST_ush_q        FUNDERSCORE(cutest_ush_q)
+#define CUTEST_ueh_q        FUNDERSCORE(cutest_cint_ueh_q)
+#define CUTEST_ugrdh_q      FUNDERSCORE(cutest_ugrdh_q)
+#define CUTEST_ugrsh_q      FUNDERSCORE(cutest_ugrsh_q)
+#define CUTEST_ugreh_q      FUNDERSCORE(cutest_cint_ugreh_q)
+#define CUTEST_uhprod_q     FUNDERSCORE(cutest_cint_uhprod_q)
+#define CUTEST_ushprod_q    FUNDERSCORE(cutest_cint_ushprod_q)
+
+#define CUTEST_cfn_q        FUNDERSCORE(cutest_cfn_q)
+#define CUTEST_const_q      FUNDERSCORE(cutest_const_q)
+#define CUTEST_cofg_q       FUNDERSCORE(cutest_cint_cofg_q)
+#define CUTEST_cofsg_q      FUNDERSCORE(cutest_cint_cofsg_q)
+#define CUTEST_ccfg_q       FUNDERSCORE(cutest_cint_ccfg_q)
+#define CUTEST_clfg_q       FUNDERSCORE(cutest_cint_clfg_q)
+#define CUTEST_cgr_q        FUNDERSCORE(cutest_cint_cgr_q)
+#define CUTEST_csgr_q       FUNDERSCORE(cutest_cint_csgr_q)
+#define CUTEST_csgrp_q      FUNDERSCORE(cutest_csgrp_q)
+#define CUTEST_csjp_q       FUNDERSCORE(cutest_csjp_q)
+#define CUTEST_ccfsg_q      FUNDERSCORE(cutest_cint_ccfsg_q)
+#define CUTEST_ccifg_q      FUNDERSCORE(cutest_cint_ccifg_q)
+#define CUTEST_ccifsg_q     FUNDERSCORE(cutest_cint_ccifsg_q)
+#define CUTEST_cgrdh_q      FUNDERSCORE(cutest_cint_cgrdh_q)
+#define CUTEST_cdh_q        FUNDERSCORE(cutest_cdh_q)
+#define CUTEST_cdhc_q       FUNDERSCORE(cutest_cdhc_q)
+#define CUTEST_cdhj_q       FUNDERSCORE(cutest_cdhj_q)
+#define CUTEST_cshp_q       FUNDERSCORE(cutest_cshp_q)
+#define CUTEST_csh_q        FUNDERSCORE(cutest_csh_q)
+#define CUTEST_cshc_q       FUNDERSCORE(cutest_cshc_q)
+#define CUTEST_cshj_q       FUNDERSCORE(cutest_cshj_q)
+#define CUTEST_ceh_q        FUNDERSCORE(cutest_cint_ceh_q)
+#define CUTEST_cifn_q       FUNDERSCORE(cutest_cifn_q)
+#define CUTEST_cigr_q       FUNDERSCORE(cutest_cigr_q)
+#define CUTEST_cisgr_q      FUNDERSCORE(cutest_cisgr_q)
+#define CUTEST_cisgrp_q     FUNDERSCORE(cutest_cisgrp_q)
+#define CUTEST_cidh_q       FUNDERSCORE(cutest_cidh_q)
+#define CUTEST_cish_q       FUNDERSCORE(cutest_cish_q)
+#define CUTEST_csgrsh_q     FUNDERSCORE(cutest_cint_csgrsh_q)
+#define CUTEST_csgrshp_q    FUNDERSCORE(cutest_csgrshp_q)
+#define CUTEST_csgreh_q     FUNDERSCORE(cutest_cint_csgreh_q)
+#define CUTEST_chprod_q     FUNDERSCORE(cutest_cint_chprod_q)
+#define CUTEST_cshprod_q    FUNDERSCORE(cutest_cint_chsprod_q)
+#define CUTEST_chcprod_q    FUNDERSCORE(cutest_cint_chcprod_q)
+#define CUTEST_cshcprod_q   FUNDERSCORE(cutest_cint_cshcprod_q)
+#define CUTEST_chjprod_q    FUNDERSCORE(cutest_cint_chjprod_q)
+#define CUTEST_cjprod_q     FUNDERSCORE(cutest_cint_cjprod_q)
+#define CUTEST_csjprod_q    FUNDERSCORE(cutest_cint_csjprod_q)
+#define CUTEST_cchprods_q   FUNDERSCORE(cutest_cint_cchprods_q)
+#define CUTEST_cchprodsp_q  FUNDERSCORE(cutest_cchprodsp_q)
+#define CUTEST_cohprods_q   FUNDERSCORE(cutest_cint_cohprods_q)
+#define CUTEST_cohprodsp_q  FUNDERSCORE(cutest_cohprodsp_q)
+
+#define CUTEST_uterminate_q FUNDERSCORE(cutest_uterminate_q)
+#define CUTEST_cterminate_q FUNDERSCORE(cutest_cterminate_q)
+
+#define FORTRAN_open_q      FUNDERSCORE(fortran_open_q)
+#define FORTRAN_close_q     FUNDERSCORE(fortran_close_q)
+
 /* Setup routines */
 void CUTEST_usetup_q  ( integer *status, const integer *funit,
                       const integer *iout, const integer *io_buffer,
@@ -1035,11 +1138,12 @@ void CUTEST_cohprodsp_q( integer *status, integer *nnzohp,
 /* Termination routines */
 void CUTEST_uterminate_q( integer *status );
 void CUTEST_cterminate_q( integer *status );
-#endif
 
 /* FORTRAN auxiliary subroutines to retrieve stream unit numbers */
-void FORTRAN_open(  const integer *funit, const char *fname, integer *ierr );
-void FORTRAN_close( const integer *funit, integer *ierr );
+void FORTRAN_open_q(  const integer *funit, const char *fname, integer *ierr );
+void FORTRAN_close_q( const integer *funit, integer *ierr );
+
+#endif
 
 /*
  * Memory allocation shortcuts
diff --git a/include/cutest_routines_double.h b/include/cutest_routines_double.h
index 63ba8be..919eb4d 100644
--- a/include/cutest_routines_double.h
+++ b/include/cutest_routines_double.h
@@ -4,13 +4,15 @@
  *
  * Nick Gould for CUTEst
  * initial version, 2023-11-11
- * this version 2024-01-16
+ * this version 2024-08-20
  */
 
 #define ELFUN_r ELFUN
 #define ELFUN_flexible_r ELFUN_flexible
 #define GROUP_r GROUP
 #define RANGE_r RANGE
+#define FORTRAN_open_r FORTRAN_open
+#define FORTRAN_close_r FORTRAN_close
 #define CUTEST_allocate_array_integer_r CUTEST_allocate_array_integer
 #define CUTEST_allocate_array_real_r CUTEST_allocate_array_real
 #define CUTEST_ccfg_r CUTEST_ccfg
diff --git a/include/cutest_routines_quadruple.h b/include/cutest_routines_quadruple.h
index 9aa8313..448c484 100644
--- a/include/cutest_routines_quadruple.h
+++ b/include/cutest_routines_quadruple.h
@@ -4,13 +4,15 @@
  *
  * Nick Gould for CUTEst
  * initial version, 2023-11-11
- * this version 2024-04-05
+ * this version 2024-08-20
  */
 
 #define ELFUN_r ELFUN_q
 #define ELFUN_flexible_r ELFUN_flexible_q
 #define GROUP_r GROUP_q
 #define RANGE_r RANGE_q
+#define FORTRAN_open_r FORTRAN_open_q
+#define FORTRAN_close_r FORTRAN_close_q
 #define CUTEST_allocate_array_integer_r CUTEST_allocate_array_integer_q
 #define CUTEST_allocate_array_real_r CUTEST_allocate_array_real_q
 #define CUTEST_ccfg_r CUTEST_ccfg_q
diff --git a/include/cutest_routines_single.h b/include/cutest_routines_single.h
index 2de0df8..bab6b4f 100644
--- a/include/cutest_routines_single.h
+++ b/include/cutest_routines_single.h
@@ -4,13 +4,15 @@
  *
  * Nick Gould for CUTEst
  * initial version, 2023-11-11
- * this version 2024-01-16
+ * this version 2024-08-20
  */
 
 #define ELFUN_r ELFUN_s
 #define ELFUN_flexible_r ELFUN_flexible_s
 #define GROUP_r GROUP_s
 #define RANGE_r RANGE_s
+#define FORTRAN_open_r FORTRAN_open_s
+#define FORTRAN_close_r FORTRAN_close_s
 #define CUTEST_allocate_array_integer_r CUTEST_allocate_array_integer_s
 #define CUTEST_allocate_array_real_r CUTEST_allocate_array_real_s
 #define CUTEST_ccfg_r CUTEST_ccfg_s
diff --git a/src/derchk/derchk_main.c b/src/derchk/derchk_main.c
index bd84f23..4f06b1f 100644
--- a/src/derchk/derchk_main.c
+++ b/src/derchk/derchk_main.c
@@ -82,7 +82,7 @@ extern "C" {   /* To prevent C++ compilers from mangling symbols */
 
         /* Open problem description file OUTSDIF.d */
         ierr = 0;
-        FORTRAN_open(&funit, fname, &ierr);
+        FORTRAN_open_r(&funit, fname, &ierr);
         if (ierr) {
             printf("Error opening file OUTSDIF.d.\nAborting.\n");
             exit(1);
@@ -304,7 +304,7 @@ extern "C" {   /* To prevent C++ compilers from mangling symbols */
     printf("*********************\n\n");
 
     ierr = 0;
-    FORTRAN_close(&funit, &ierr);
+    FORTRAN_close_r(&funit, &ierr);
     if (ierr)
         printf("Error closing %s on unit %d.\n", fname, (int)funit);
 
diff --git a/src/genc/genc.c b/src/genc/genc.c
index efad0c6..f4ac72d 100644
--- a/src/genc/genc.c
+++ b/src/genc/genc.c
@@ -11,6 +11,7 @@ extern "C" {   /* To prevent C++ compilers from mangling symbols */
 #endif
 
 #include "cutest.h"
+#include "cutest_routines.h"
 
 rp_ genc( rp_ dummy )
 {
@@ -31,7 +32,7 @@ void genspc( integer funit, char *fname )
        Possibly, this routine contains precision-dependent directives */
 
     /* Open relevant file */
-    FORTRAN_open( &funit, fname, &ierr );
+    FORTRAN_open_r( &funit, fname, &ierr );
     if ( ierr )
     {
         printf( "Error opening spec file %s.\nAborting.\n", fname );
@@ -40,7 +41,7 @@ void genspc( integer funit, char *fname )
 
     /* ... Do something ... */
 
-    FORTRAN_close( &funit, &ierr );
+    FORTRAN_close_r( &funit, &ierr );
     return;
 
 }
diff --git a/src/genc/genc_main.c b/src/genc/genc_main.c
index a825db6..9cb5af4 100644
--- a/src/genc/genc_main.c
+++ b/src/genc/genc_main.c
@@ -1,4 +1,4 @@
-/* THIS VERSION: CUTEST 2.2 - 2023-12-02 AT 14:30 GMT */
+/* THIS VERSION: CUTEST 2.2 - 2024-08-20 AT 08:00 GMT */
 
 /* ============================================
  * CUTEst interface for generic package
@@ -71,7 +71,7 @@ int MAINENTRY( void ){
 
     /* Open problem description file OUTSDIF.d */
     ierr = 0;
-    FORTRAN_open( &funit, fname, &ierr );
+    FORTRAN_open_r( &funit, fname, &ierr );
     if ( ierr )
     {
         printf("Error opening file OUTSDIF.d.\nAborting.\n");
@@ -270,7 +270,7 @@ int MAINENTRY( void ){
     printf(" ******************************************************************\n\n");
 
     ierr = 0;
-    FORTRAN_close( &funit, &ierr );
+    FORTRAN_close_r( &funit, &ierr );
     if ( ierr )
     {
         printf( "Error closing %s on unit %d.\n", fname, (int)funit );
diff --git a/src/gsl/gsl_main.c b/src/gsl/gsl_main.c
index db7c4cf..9dccdaa 100644
--- a/src/gsl/gsl_main.c
+++ b/src/gsl/gsl_main.c
@@ -1,4 +1,4 @@
-/* THIS VERSION: CUTEST 2.3 - 2024-06-11 AT 11:40 GMT */
+/* THIS VERSION: CUTEST 2.4 - 2024-08-20 AT 07:40 GMT */
 
 /* =================================================
  * CUTEst interface for GNU Scientific Library (GSL)
@@ -188,7 +188,7 @@ int MAINENTRY( void ){
 
     /* Open problem description file OUTSDIF.d */
     ierr = 0;
-    FORTRAN_open( &funit, fname, &ierr );
+    FORTRAN_open_r( &funit, fname, &ierr );
     if ( ierr )
     {
         printf("Error opening file OUTSDIF.d.\nAborting.\n");
@@ -630,7 +630,7 @@ int MAINENTRY( void ){
     printf(" ******************************************************************\n\n");
 
     ierr = 0;
-    FORTRAN_close( &funit, &ierr );
+    FORTRAN_close_r( &funit, &ierr );
     if ( ierr )
     {
         printf( "Error closing %s on unit %d.\n", fname, (int)funit );
diff --git a/src/knitro/knitro_main.c b/src/knitro/knitro_main.c
index dd17a47..8ca2e4d 100644
--- a/src/knitro/knitro_main.c
+++ b/src/knitro/knitro_main.c
@@ -1,4 +1,4 @@
-/* THIS VERSION: CUTEST 2.2 - 2023-12-04 AT 16:15 GMT */
+/* THIS VERSION: CUTEST 2.2 - 2024-08-20 AT 07:45 GMT */
 
 /* ================================================
  * CUTEst interface to KNITRO 7           
@@ -267,7 +267,7 @@ extern "C" {   /* To prevent C++ compilers from mangling symbols */
 
     /* Open problem description file OUTSDIF.d */
     ierr = 0;
-    FORTRAN_open(&funit, fname, &ierr);
+    FORTRAN_open_r(&funit, fname, &ierr);
     if (ierr) {
       printf("Error opening file OUTSDIF.d.\nAborting.\n");
       exit(1);
@@ -622,7 +622,7 @@ extern "C" {   /* To prevent C++ compilers from mangling symbols */
   terminate:
 
     ierr = 0;
-    FORTRAN_close(&funit, &ierr);
+    FORTRAN_close_r(&funit, &ierr);
     if (ierr) {
       fprintf(stderr, "Error closing %s on unit %d.\n", fname, funit);
       fprintf(stderr, "Trying not to abort.\n");
diff --git a/src/loqo/loqo_main.c b/src/loqo/loqo_main.c
index 2d8e048..f72fcbc 100644
--- a/src/loqo/loqo_main.c
+++ b/src/loqo/loqo_main.c
@@ -1,4 +1,4 @@
-/* THIS VERSION: CUTEST 2.2 - 2023-12-05 AT 08:15 GMT */
+/* THIS VERSION: CUTEST 2.2 - 2024-08-20 AT 07:45 GMT */
 
 /* ====================================================
  * CUTEst interface for LOQO          October 22nd, 2003
@@ -151,7 +151,7 @@ static int spec = 0;
         int i;
 
         /* Open problem description file OUTSDIF.d */
-        FORTRAN_open( &funit, fname, &ierr );
+        FORTRAN_open_r( &funit, fname, &ierr );
         if( ierr ) {
             printf("Error opening file OUTSDIF.d.\nAborting.\n");
             exit(1);
@@ -499,7 +499,7 @@ static int spec = 0;
         printf(" count_h (LOQO)          = %-8d\n", count_h);
         printf(" ******************************************************************\n\n");
 
-        FORTRAN_close( &funit, &ierr );
+        FORTRAN_close_r( &funit, &ierr );
         if( ierr ) {
             printf( "Error closing file %s", fname );
             return 1;
diff --git a/src/matlab/mcutest.c b/src/matlab/mcutest.c
index 2283379..9008226 100644
--- a/src/matlab/mcutest.c
+++ b/src/matlab/mcutest.c
@@ -286,7 +286,7 @@ extern "C" {
       mexPrintf("Opening data file\n");
 #endif
       ioErr = 0;
-      if (! dataFileOpen) FORTRAN_open(&funit, fName, &ioErr);
+      if (! dataFileOpen) FORTRAN_open_r(&funit, fName, &ioErr);
       if (ioErr) mexErrMsgTxt("Error opening file OUTSDIF.d\n");
       dataFileOpen = 1;
 
@@ -376,7 +376,7 @@ extern "C" {
       mexPrintf("Opening data file\n");
 #endif
       ioErr = 0;
-      if (! dataFileOpen) FORTRAN_open(&funit, fName, &ioErr);
+      if (! dataFileOpen) FORTRAN_open_r(&funit, fName, &ioErr);
       if (ioErr) mexErrMsgTxt("Error opening file OUTSDIF.d\n");
 
 #ifdef MXDEBUG
@@ -482,7 +482,7 @@ extern "C" {
       mexPrintf("  %-s\n", probName);
       mexPrintf("Closing data file\n");
 #endif
-      FORTRAN_close(&funit, &ioErr);
+      FORTRAN_close_r(&funit, &ioErr);
       if (ioErr) mexWarnMsgTxt("Error closing file OUTSDIF.d\n");
       dataFileOpen = 0;
 
diff --git a/src/nomad/nomad_main.c b/src/nomad/nomad_main.c
index f88bc1b..2f9f6dc 100644
--- a/src/nomad/nomad_main.c
+++ b/src/nomad/nomad_main.c
@@ -1,4 +1,4 @@
-/* THIS VERSION: CUTEST 2.3 - 2024-06-11 AT 11:40 GMT */
+/* THIS VERSION: CUTEST 2.3 - 2024-08-20 AT 07:40 GMT */
 
 /* ====================================================
  * CUTEst interface simulating a black box for NOMAD.
@@ -55,7 +55,7 @@ extern "C" {   /* To prevent C++ compilers from mangling symbols */
 
     /* Open problem description file OUTSDIF.d */
     ierr = 0;
-    FORTRAN_open( &funit, fname, &ierr );
+    FORTRAN_open_r( &funit, fname, &ierr );
     if ( ierr ) {
       return_infinity();
       return -1;
@@ -105,7 +105,7 @@ extern "C" {   /* To prevent C++ compilers from mangling symbols */
       }
     }
 
-    FORTRAN_close( &funit, &ierr );
+    FORTRAN_close_r( &funit, &ierr );
 
     /* If an input vector is supplied, use it.
      * Otherwise, use the problem's initial guess. */
diff --git a/src/octave/ocutest.c b/src/octave/ocutest.c
index d20f1a9..778fa18 100644
--- a/src/octave/ocutest.c
+++ b/src/octave/ocutest.c
@@ -286,7 +286,7 @@ extern "C" {
       mexPrintf("Opening data file\n");
 #endif
       ioErr = 0;
-      if (! dataFileOpen) FORTRAN_open(&funit, fName, &ioErr);
+      if (! dataFileOpen) FORTRAN_open_r(&funit, fName, &ioErr);
       if (ioErr) mexErrMsgTxt("Error opening file OUTSDIF.d\n");
       dataFileOpen = 1;
 
@@ -376,7 +376,7 @@ extern "C" {
       mexPrintf("Opening data file\n");
 #endif
       ioErr = 0;
-      if (! dataFileOpen) FORTRAN_open(&funit, fName, &ioErr);
+      if (! dataFileOpen) FORTRAN_open_r(&funit, fName, &ioErr);
       if (ioErr) mexErrMsgTxt("Error opening file OUTSDIF.d\n");
 
 #ifdef MXDEBUG
@@ -482,7 +482,7 @@ extern "C" {
       mexPrintf("  %-s\n", probName);
       mexPrintf("Closing data file\n");
 #endif
-      FORTRAN_close(&funit, &ioErr);
+      FORTRAN_close_r(&funit, &ioErr);
       if (ioErr) mexWarnMsgTxt("Error closing file OUTSDIF.d\n");
       dataFileOpen = 0;
 
diff --git a/src/osqp/osqp_main.c b/src/osqp/osqp_main.c
index 2117c16..94a08f4 100644
--- a/src/osqp/osqp_main.c
+++ b/src/osqp/osqp_main.c
@@ -1,4 +1,4 @@
-/* THIS VERSION: CUTEST 2.3 - 2024-06-11 AT 11:50 GMT */
+/* THIS VERSION: CUTEST 2.2 - 2024-08-20 AT 07:50 GMT */
 
 /* ===========================================
  * CUTEst interface to OSQP
@@ -90,7 +90,7 @@ int MAINENTRY(void) {
 
      /* open problem description file OUTSDIF.d */
      ierr = 0;
-     FORTRAN_open(&funit, fname, &ierr);
+     FORTRAN_open_r(&funit, fname, &ierr);
      if (ierr) {
          printf("Error opening file OUTSDIF.d.\nAborting.\n");
          exit(1);
@@ -793,7 +793,7 @@ int MAINENTRY(void) {
     printf("*********************\n");
 
      ierr = 0;
-     FORTRAN_close(&funit, &ierr);
+     FORTRAN_close_r(&funit, &ierr);
      if (ierr)
        printf("Error closing %s on unit %d.\n", fname, (int)funit);
 
diff --git a/src/tools/fortran_ops.F90 b/src/tools/fortran_ops.F90
index 8b2e047..06ca98b 100644
--- a/src/tools/fortran_ops.F90
+++ b/src/tools/fortran_ops.F90
@@ -1,4 +1,4 @@
-! THIS VERSION: CUTEST 2.2 - 2023-11-12 AT 10:30 GMT.
+! THIS VERSION: CUTEST 2.2 - 2024-08-20 AT 07:30 GMT.
 
 #include "cutest_modules.h"
 #include "cutest_routines.h"
@@ -17,7 +17,7 @@
 
 !-*-*-*-*-*-*- F O R T R A N  O P E N   S U B R O U T I N E  -*-*-*-*-*-*-*-*-
 
-      SUBROUTINE FORTRAN_open( funit, fname, status )
+      SUBROUTINE FORTRAN_open_r( funit, fname, status )
       USE CUTEST_KINDS_precision
 
 !  Open file fname using Fortran unit number funit. 
@@ -37,11 +37,11 @@ SUBROUTINE FORTRAN_open( funit, fname, status )
  900  CONTINUE
       status = 1
       RETURN
-      END SUBROUTINE FORTRAN_open
+      END SUBROUTINE FORTRAN_open_r
 
 !-*-*-*-*-*-*- F O R T R A N  C L O S E  S U B R O U T I N E  -*-*-*-*-*-*-*-*-
 
-      SUBROUTINE FORTRAN_close( funit, status )
+      SUBROUTINE FORTRAN_close_r( funit, status )
       USE CUTEST_KINDS_precision
 
 ! Close a stream unit previously opened by FORTRAN_OPEN.
@@ -58,5 +58,5 @@ SUBROUTINE FORTRAN_close( funit, status )
   900 CONTINUE
       status = 1
       RETURN
-      END SUBROUTINE FORTRAN_close
+      END SUBROUTINE FORTRAN_close_r
 
diff --git a/src/worhp/worhp_main.c b/src/worhp/worhp_main.c
index 9835ad5..763d99e 100644
--- a/src/worhp/worhp_main.c
+++ b/src/worhp/worhp_main.c
@@ -1,4 +1,4 @@
-/* THIS VERSION: CUTEST 2.2 - 2023-12-04 AT 16:00 GMT */
+/* THIS VERSION: CUTEST 2.2 - 2024-08-20 AT 08:00 GMT */
 
 #ifndef THIS_PROBLEM_NAME
 #define THIS_PROBLEM_NAME "WORHP/CUTEst"
@@ -128,7 +128,7 @@ int MAINENTRY() {
      * Open CUTEst problem
      * cutest_input: unit number for the decoded data
      */
-    FORTRAN_open(&cutest_input, outsdifd_filename, &cutest_status);
+    FORTRAN_open_r(&cutest_input, outsdifd_filename, &cutest_status);
     if (cutest_status != 0) {
         snprintf(buffer, sizeof(buffer), "Coult not open %s",
                  outsdifd_filename);
@@ -191,7 +191,7 @@ int MAINENTRY() {
         CUTEST_usetup_r(&cutest_status, &cutest_input, &out, &io_buffer,
                         &opt.n, opt.X, opt.XL, opt.XU);
     }
-    FORTRAN_close(&cutest_input, &cutest_status);
+    FORTRAN_close_r(&cutest_input, &cutest_status);
 
     if (opt.m > 0) {
         /*
diff --git a/version b/version
index 819231e..84ed83f 100644
--- a/version
+++ b/version
@@ -1 +1 @@
-* CUTEst version 2.2.0 (18/Jun/2024 12:30 GMT)
+* CUTEst version 2.2.2 (20/Aug/2024 07:30 GMT)