scemama
/
qp_plugins_scemama
mirror of https://gitlab.com/scemama/qp_plugins_scemama.git
1
0
Fork 0
Code Issues Releases Wiki Activity

Update trexio files

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 *, ''
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'