diff --git a/devel/trexio/LIB b/devel/trexio/LIB
index 52e3bac..9eb3e2e 100644
--- a/devel/trexio/LIB
+++ b/devel/trexio/LIB
@@ -1,2 +1 @@
--ltrexio 
-
+-L/lustre/home/scemama/qp2/lib -ltrexio  
diff --git a/devel/trexio/export_trexio.irp.f b/devel/trexio/export_trexio.irp.f
index 082806a..703ecbf 100644
--- a/devel/trexio/export_trexio.irp.f
+++ b/devel/trexio/export_trexio.irp.f
@@ -19,12 +19,11 @@ subroutine run
   print *, 'TREXIO file : '//trim(trexio_filename)
   print *, ''
 
-  call system('rm -rf '//trim(trexio_filename)//'.bak')
-  call system('mv '//trim(trexio_filename)//' '//trim(trexio_filename)//'.bak')
+  call system('cp '//trim(trexio_filename)//' '//trim(trexio_filename)//'.bak')
   if (backend == 0) then
-    f = trexio_open(trexio_filename, 'w', TREXIO_HDF5, rc)
+    f = trexio_open(trexio_filename, 'u', TREXIO_HDF5, rc)
   else if (backend == 1) then
-    f = trexio_open(trexio_filename, 'w', TREXIO_TEXT, rc)
+    f = trexio_open(trexio_filename, 'u', TREXIO_TEXT, rc)
   endif
   if (f == 0_8) then
     print *, 'Unable to open TREXIO file for writing'