scemama/qp_plugins_scemama
1
0
Fork 0
mirror of https://gitlab.com/scemama/qp_plugins_scemama.git synced 2024-12-22 04:13:40 +01:00
Code Issues Releases Wiki Activity

Update trexio files

Browse Source
This commit is contained in:
Anthony Scemama 2022-06-17 19:04:09 +02:00
parent e1da425522
commit cf60101851
2 changed files with 4 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
devel/trexio/LIB
View File

@ -1,2 +1 @@
-ltrexio -L/lustre/home/scemama/qp2/lib -ltrexio

7
devel/trexio/export_trexio.irp.f
View File

@ -19,12 +19,11 @@ subroutine run
print *, 'TREXIO file : '//trim(trexio_filename) print *, 'TREXIO file : '//trim(trexio_filename)
print *, '' print *, ''
call system('rm -rf '//trim(trexio_filename)//'.bak') call system('cp '//trim(trexio_filename)//' '//trim(trexio_filename)//'.bak')
call system('mv '//trim(trexio_filename)//' '//trim(trexio_filename)//'.bak')
if (backend == 0) then 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 else if (backend == 1) then
f = trexio_open(trexio_filename, 'w', TREXIO_TEXT, rc) f = trexio_open(trexio_filename, 'u', TREXIO_TEXT, rc)
endif endif
if (f == 0_8) then if (f == 0_8) then
print *, 'Unable to open TREXIO file for writing' print *, 'Unable to open TREXIO file for writing'