scemama/qp_plugins_scemama
1
0
Fork 0
mirror of https://gitlab.com/scemama/qp_plugins_scemama.git synced 2024-11-07 14:43:41 +01:00
Code Issues Releases Wiki Activity

Fix trexio

Browse Source
This commit is contained in:
Anthony Scemama 2021-10-12 16:00:27 +02:00
parent 568252c506
commit be17a1cc0d
2 changed files with 6 additions and 3234 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -11,13 +11,17 @@ program export_trexio
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('mv '//trim(trexio_filename)//' '//trim(trexio_filename)''//.bak)
if (backend == 0) then
f = trexio_open(trexio_filename, 'w', TREXIO_HDF5)
f = trexio_open(trexio_filename, 'w', TREXIO_HDF5, rc)
else if (backend == 1) then
f = trexio_open(trexio_filename, 'w', TREXIO_TEXT)
f = trexio_open(trexio_filename, 'w', TREXIO_TEXT, rc)
endif
if (f == 0) then
print *, 'Unable to open TREXIO file for writing'
print *, 'rc = ', rc
stop -1
endif

3232
devel/trexio/trexio_f.f90
View File

File diff suppressed because it is too large Load Diff