From cf60101851faf63eca9a1f9fa4fd27fb22f01ad4 Mon Sep 17 00:00:00 2001 From: Anthony Scemama Date: Fri, 17 Jun 2022 19:04:09 +0200 Subject: [PATCH] Update trexio files --- devel/trexio/LIB | 3 +-- devel/trexio/export_trexio.irp.f | 7 +++---- 2 files changed, 4 insertions(+), 6 deletions(-) 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'